1 /* This program is free software; you can redistribute it and/or modify *
2 * it under the terms of the GNU General Public License as published by *
3 * the Free Software Foundation; either version 2 of the License, or *
4 * (at your option) any later version. *
6 (C) 2001 by The Genes Development Team
7 Original author: Peter Verthez (Peter.Verthez@advalvas.be)
14 #undef IN_LEX /* include only a specific part of the following file */
15 #include "gedcom_lex_common.c"
27 otherchar [\x21-\x22\x24-\x2F\x3A-\x3F\x5B-\x5E\x60\x7B-\x7E\x80-\xFE]
28 terminator \x0D|\x0A|\x0D\x0A|\x0A\x0D
30 any_char {alpha}|{digit}|{otherchar}|{delim}|{hash}|{literal_at}
31 any_but_delim {alpha}|{digit}|{otherchar}|{hash}|{literal_at}
32 non_at {alpha}|{digit}|{otherchar}|{delim}|{hash}
33 alphanum {alpha}|{digit}
34 gen_delim {delim}|{tab}
37 pointer @{alphanum}{non_at}+@
42 #define IN_LEX /* include only a specific part of the following file */
43 #include "gedcom_lex_common.c"
49 <INITIAL>{gen_delim}* /* ignore leading whitespace (also tabs) */
51 <INITIAL>0{digit}+ ACTION_0_DIGITS
53 <INITIAL>{digit}+ ACTION_DIGITS
55 <EXPECT_TAG>ABBR MKTAGACTION(ABBR)
56 <EXPECT_TAG>ADDR MKTAGACTION(ADDR)
57 <EXPECT_TAG>ADR1 MKTAGACTION(ADR1)
58 <EXPECT_TAG>ADR2 MKTAGACTION(ADR2)
59 <EXPECT_TAG>ADOP MKTAGACTION(ADOP)
60 <EXPECT_TAG>AFN MKTAGACTION(AFN)
61 <EXPECT_TAG>AGE MKTAGACTION(AGE)
62 <EXPECT_TAG>AGNC MKTAGACTION(AGNC)
63 <EXPECT_TAG>ALIA MKTAGACTION(ALIA)
64 <EXPECT_TAG>ANCE MKTAGACTION(ANCE)
65 <EXPECT_TAG>ANCI MKTAGACTION(ANCI)
66 <EXPECT_TAG>ANUL MKTAGACTION(ANUL)
67 <EXPECT_TAG>ASSO MKTAGACTION(ASSO)
68 <EXPECT_TAG>AUTH MKTAGACTION(AUTH)
69 <EXPECT_TAG>BAPL MKTAGACTION(BAPL)
70 <EXPECT_TAG>BAPM MKTAGACTION(BAPM)
71 <EXPECT_TAG>BARM MKTAGACTION(BARM)
72 <EXPECT_TAG>BASM MKTAGACTION(BASM)
73 <EXPECT_TAG>BIRT MKTAGACTION(BIRT)
74 <EXPECT_TAG>BLES MKTAGACTION(BLES)
75 <EXPECT_TAG>BLOB MKTAGACTION(BLOB)
76 <EXPECT_TAG>BURI MKTAGACTION(BURI)
77 <EXPECT_TAG>CALN MKTAGACTION(CALN)
78 <EXPECT_TAG>CAST MKTAGACTION(CAST)
79 <EXPECT_TAG>CAUS MKTAGACTION(CAUS)
80 <EXPECT_TAG>CENS MKTAGACTION(CENS)
81 <EXPECT_TAG>CHAN MKTAGACTION(CHAN)
82 <EXPECT_TAG>CHAR MKTAGACTION(CHAR)
83 <EXPECT_TAG>CHIL MKTAGACTION(CHIL)
84 <EXPECT_TAG>CHR MKTAGACTION(CHR)
85 <EXPECT_TAG>CHRA MKTAGACTION(CHRA)
86 <EXPECT_TAG>CITY MKTAGACTION(CITY)
87 <EXPECT_TAG>CONC MKTAGACTION(CONC)
88 <EXPECT_TAG>CONF MKTAGACTION(CONF)
89 <EXPECT_TAG>CONL MKTAGACTION(CONL)
90 <EXPECT_TAG>CONT MKTAGACTION(CONT)
91 <EXPECT_TAG>COPR MKTAGACTION(COPR)
92 <EXPECT_TAG>CORP MKTAGACTION(CORP)
93 <EXPECT_TAG>CREM MKTAGACTION(CREM)
94 <EXPECT_TAG>CTRY MKTAGACTION(CTRY)
95 <EXPECT_TAG>DATA MKTAGACTION(DATA)
96 <EXPECT_TAG>DATE MKTAGACTION(DATE)
97 <EXPECT_TAG>DEAT MKTAGACTION(DEAT)
98 <EXPECT_TAG>DESC MKTAGACTION(DESC)
99 <EXPECT_TAG>DESI MKTAGACTION(DESI)
100 <EXPECT_TAG>DEST MKTAGACTION(DEST)
101 <EXPECT_TAG>DIV MKTAGACTION(DIV)
102 <EXPECT_TAG>DIVF MKTAGACTION(DIVF)
103 <EXPECT_TAG>DSCR MKTAGACTION(DSCR)
104 <EXPECT_TAG>EDUC MKTAGACTION(EDUC)
105 <EXPECT_TAG>EMIG MKTAGACTION(EMIG)
106 <EXPECT_TAG>ENDL MKTAGACTION(ENDL)
107 <EXPECT_TAG>ENGA MKTAGACTION(ENGA)
108 <EXPECT_TAG>EVEN MKTAGACTION(EVEN)
109 <EXPECT_TAG>FAM MKTAGACTION(FAM)
110 <EXPECT_TAG>FAMC MKTAGACTION(FAMC)
111 <EXPECT_TAG>FAMF MKTAGACTION(FAMF)
112 <EXPECT_TAG>FAMS MKTAGACTION(FAMS)
113 <EXPECT_TAG>FCOM MKTAGACTION(FCOM)
114 <EXPECT_TAG>FILE MKTAGACTION(FILE)
115 <EXPECT_TAG>FORM MKTAGACTION(FORM)
116 <EXPECT_TAG>GEDC MKTAGACTION(GEDC)
117 <EXPECT_TAG>GIVN MKTAGACTION(GIVN)
118 <EXPECT_TAG>GRAD MKTAGACTION(GRAD)
119 <EXPECT_TAG>HEAD MKTAGACTION(HEAD)
120 <EXPECT_TAG>HUSB MKTAGACTION(HUSB)
121 <EXPECT_TAG>IDNO MKTAGACTION(IDNO)
122 <EXPECT_TAG>IMMI MKTAGACTION(IMMI)
123 <EXPECT_TAG>INDI MKTAGACTION(INDI)
124 <EXPECT_TAG>LANG MKTAGACTION(LANG)
125 <EXPECT_TAG>LEGA MKTAGACTION(LEGA)
126 <EXPECT_TAG>MARB MKTAGACTION(MARB)
127 <EXPECT_TAG>MARC MKTAGACTION(MARC)
128 <EXPECT_TAG>MARL MKTAGACTION(MARL)
129 <EXPECT_TAG>MARR MKTAGACTION(MARR)
130 <EXPECT_TAG>MARS MKTAGACTION(MARS)
131 <EXPECT_TAG>MEDI MKTAGACTION(MEDI)
132 <EXPECT_TAG>NAME MKTAGACTION(NAME)
133 <EXPECT_TAG>NATI MKTAGACTION(NATI)
134 <EXPECT_TAG>NATU MKTAGACTION(NATU)
135 <EXPECT_TAG>NCHI MKTAGACTION(NCHI)
136 <EXPECT_TAG>NICK MKTAGACTION(NICK)
137 <EXPECT_TAG>NMR MKTAGACTION(NMR)
138 <EXPECT_TAG>NOTE MKTAGACTION(NOTE)
139 <EXPECT_TAG>NPFX MKTAGACTION(NPFX)
140 <EXPECT_TAG>NSFX MKTAGACTION(NSFX)
141 <EXPECT_TAG>OBJE MKTAGACTION(OBJE)
142 <EXPECT_TAG>OCCU MKTAGACTION(OCCU)
143 <EXPECT_TAG>ORDI MKTAGACTION(ORDI)
144 <EXPECT_TAG>ORDN MKTAGACTION(ORDN)
145 <EXPECT_TAG>PAGE MKTAGACTION(PAGE)
146 <EXPECT_TAG>PEDI MKTAGACTION(PEDI)
147 <EXPECT_TAG>PHON MKTAGACTION(PHON)
148 <EXPECT_TAG>PLAC MKTAGACTION(PLAC)
149 <EXPECT_TAG>POST MKTAGACTION(POST)
150 <EXPECT_TAG>PROB MKTAGACTION(PROB)
151 <EXPECT_TAG>PROP MKTAGACTION(PROP)
152 <EXPECT_TAG>PUBL MKTAGACTION(PUBL)
153 <EXPECT_TAG>QUAY MKTAGACTION(QUAY)
154 <EXPECT_TAG>REFN MKTAGACTION(REFN)
155 <EXPECT_TAG>RELA MKTAGACTION(RELA)
156 <EXPECT_TAG>RELI MKTAGACTION(RELI)
157 <EXPECT_TAG>REPO MKTAGACTION(REPO)
158 <EXPECT_TAG>RESI MKTAGACTION(RESI)
159 <EXPECT_TAG>RESN MKTAGACTION(RESN)
160 <EXPECT_TAG>RETI MKTAGACTION(RETI)
161 <EXPECT_TAG>RFN MKTAGACTION(RFN)
162 <EXPECT_TAG>RIN MKTAGACTION(RIN)
163 <EXPECT_TAG>ROLE MKTAGACTION(ROLE)
164 <EXPECT_TAG>SEX MKTAGACTION(SEX)
165 <EXPECT_TAG>SLGC MKTAGACTION(SLGC)
166 <EXPECT_TAG>SLGS MKTAGACTION(SLGS)
167 <EXPECT_TAG>SOUR MKTAGACTION(SOUR)
168 <EXPECT_TAG>SPFX MKTAGACTION(SPFX)
169 <EXPECT_TAG>SSN MKTAGACTION(SSN)
170 <EXPECT_TAG>STAE MKTAGACTION(STAE)
171 <EXPECT_TAG>STAT MKTAGACTION(STAT)
172 <EXPECT_TAG>SUBM MKTAGACTION(SUBM)
173 <EXPECT_TAG>SUBN MKTAGACTION(SUBN)
174 <EXPECT_TAG>SURN MKTAGACTION(SURN)
175 <EXPECT_TAG>TEMP MKTAGACTION(TEMP)
176 <EXPECT_TAG>TEXT MKTAGACTION(TEXT)
177 <EXPECT_TAG>TIME MKTAGACTION(TIME)
178 <EXPECT_TAG>TITL MKTAGACTION(TITL)
179 <EXPECT_TAG>TRLR MKTAGACTION(TRLR)
180 <EXPECT_TAG>TYPE MKTAGACTION(TYPE)
181 <EXPECT_TAG>VERS MKTAGACTION(VERS)
182 <EXPECT_TAG>WIFE MKTAGACTION(WIFE)
183 <EXPECT_TAG>WILL MKTAGACTION(WILL)
185 <EXPECT_TAG>{alphanum}+ ACTION_ALPHANUM
189 {any_but_delim} ACTION_ANY
191 {escape}/{non_at} ACTION_ESCAPE
193 {pointer} ACTION_POINTER
195 {gen_delim}*{terminator} ACTION_TERMINATOR
211 return gedcom_1byte_lex();
216 return test_loop(ONE_BYTE, "ASCII");