gedcom/gedcom_date.lex

   1 /* Lexer for Gedcom dates
   2    Copyright (C) 2001 The Genes Development Team
   3    This file is part of the Gedcom parser library.
   4    Contributed by Peter Verthez <Peter.Verthez@advalvas.be>, 2001.
   5
   6    The Gedcom parser library is free software; you can redistribute it
   7    and/or modify it under the terms of the GNU Lesser General Public
   8    License as published by the Free Software Foundation; either
   9    version 2.1 of the License, or (at your option) any later version.
  10
  11    The Gedcom parser library is distributed in the hope that it will be
  12    useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14    Lesser General Public License for more details.
  15
  16    You should have received a copy of the GNU Lesser General Public
  17    License along with the Gedcom parser library; if not, write to the
  18    Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  19    02111-1307 USA.  */
  20
  21 /* $Id$ */
  22 /* $Name$ */
  23
  24 %{
  25 #include "date.h"
  26 #include "gedcom_date.tabgen.h"
  27
  28 #define YY_NO_UNPUT
  29
  30 static char buf[MAX_DATE_TOKEN][MAX_PHRASE_LEN+1];
  31 static int token_nr = 0;
  32 %}
  33
  34 %option case-insensitive
  35 %s PHRASE
  36
  37 %%
  38
  39 %{
  40
  41 #define SIMPLE_RETURN(TOKEN) \
  42   { if (token_nr >= MAX_DATE_TOKEN) { \
  43       gedcom_date_error(_("Date token stack overflow")); \
  44       return BADTOKEN; \
  45     } \
  46     memset(buf[token_nr], 0, MAX_PHRASE_LEN+1); \
  47     strncpy(buf[token_nr], yytext, yyleng); \
  48     gedcom_date_lval.string = buf[token_nr++]; \
  49     return TOKEN; \
  50   }
  51
  52 #define ACTION_UNEXPECTED \
  53   { gedcom_date_error(_("Unexpected input")); \
  54     return BADTOKEN; \
  55   }
  56
  57 #define UNKNOWN_CALENDAR_TYPE \
  58   { gedcom_date_error(_("Unknown calendar type")); \
  59     return BADTOKEN; \
  60   }
  61 %}
  62
  63 [ \t]+          /* ignore whitespace between tokens */
  64
  65 @#DGREGORIAN@   SIMPLE_RETURN(ESC_DATE_GREG)
  66 @#DJULIAN@      SIMPLE_RETURN(ESC_DATE_JULN)
  67 @#DHEBREW@      SIMPLE_RETURN(ESC_DATE_HEBR)
  68 "@#DFRENCH R@"  SIMPLE_RETURN(ESC_DATE_FREN)
  69 @#.+@           UNKNOWN_CALENDAR_TYPE
  70
  71 FROM            SIMPLE_RETURN(MOD_FROM)
  72 TO              SIMPLE_RETURN(MOD_TO)
  73 BEF             SIMPLE_RETURN(MOD_BEF)
  74 AFT             SIMPLE_RETURN(MOD_AFT)
  75 BET             SIMPLE_RETURN(MOD_BET)
  76 AND             SIMPLE_RETURN(MOD_AND)
  77 ABT             SIMPLE_RETURN(MOD_ABT)
  78 CAL             SIMPLE_RETURN(MOD_CAL)
  79 EST             SIMPLE_RETURN(MOD_EST)
  80 INT             SIMPLE_RETURN(MOD_INT)
  81
  82 JAN             SIMPLE_RETURN(MON_JAN)
  83 FEB             SIMPLE_RETURN(MON_FEB)
  84 MAR             SIMPLE_RETURN(MON_MAR)
  85 APR             SIMPLE_RETURN(MON_APR)
  86 MAY             SIMPLE_RETURN(MON_MAY)
  87 JUN             SIMPLE_RETURN(MON_JUN)
  88 JUL             SIMPLE_RETURN(MON_JUL)
  89 AUG             SIMPLE_RETURN(MON_AUG)
  90 SEP             SIMPLE_RETURN(MON_SEP)
  91 OCT             SIMPLE_RETURN(MON_OCT)
  92 NOV             SIMPLE_RETURN(MON_NOV)
  93 DEC             SIMPLE_RETURN(MON_DEC)
  94 TSH             SIMPLE_RETURN(MON_TSH)
  95 CSH             SIMPLE_RETURN(MON_CSH)
  96 KSL             SIMPLE_RETURN(MON_KSL)
  97 TVT             SIMPLE_RETURN(MON_TVT)
  98 SHV             SIMPLE_RETURN(MON_SHV)
  99 ADR             SIMPLE_RETURN(MON_ADR)
 100 ADS             SIMPLE_RETURN(MON_ADS)
 101 NSN             SIMPLE_RETURN(MON_NSN)
 102 IYR             SIMPLE_RETURN(MON_IYR)
 103 SVN             SIMPLE_RETURN(MON_SVN)
 104 TMZ             SIMPLE_RETURN(MON_TMZ)
 105 AAV             SIMPLE_RETURN(MON_AAV)
 106 ELL             SIMPLE_RETURN(MON_ELL)
 107 VEND            SIMPLE_RETURN(MON_VEND)
 108 BRUM            SIMPLE_RETURN(MON_BRUM)
 109 FRIM            SIMPLE_RETURN(MON_FRIM)
 110 NIVO            SIMPLE_RETURN(MON_NIVO)
 111 PLUV            SIMPLE_RETURN(MON_PLUV)
 112 VENT            SIMPLE_RETURN(MON_VENT)
 113 GERM            SIMPLE_RETURN(MON_GERM)
 114 FLOR            SIMPLE_RETURN(MON_FLOR)
 115 PRAI            SIMPLE_RETURN(MON_PRAI)
 116 MESS            SIMPLE_RETURN(MON_MESS)
 117 THER            SIMPLE_RETURN(MON_THER)
 118 FRUC            SIMPLE_RETURN(MON_FRUC)
 119 COMP            SIMPLE_RETURN(MON_COMP)
 120
 121 "("             { BEGIN(PHRASE);
 122                   SIMPLE_RETURN(OPEN);
 123                 }
 124 <PHRASE>[^\)]*  SIMPLE_RETURN(TEXT);
 125 <PHRASE>")"     { BEGIN(INITIAL);
 126                   SIMPLE_RETURN(CLOSE);
 127                 }
 128
 129 "/"             SIMPLE_RETURN(SLASH)
 130 [0-9]+          SIMPLE_RETURN(NUMBER)
 131
 132 .               ACTION_UNEXPECTED
 133
 134 %%
 135
 136 int yywrap()
 137 {
 138   return 1;
 139 }
 140
 141 static YY_BUFFER_STATE hndl;
 142
 143 void init_gedcom_date_lex(const char* string)
 144 {
 145   token_nr = 0;
 146   hndl = yy_scan_string(string);
 147 }
 148
 149 void close_gedcom_date_lex()
 150 {
 151   yy_delete_buffer(hndl);
 152 }