5 #include "gedcom.tab.h"
18 otherchar [\x21-\x22\x24-\x2F\x3A-\x3F\x5B-\x5E\x60\x7B-\x7E\x80-\xFE]
19 terminator \x0D|\x0A|\x0D\x0A|\x0A\x0D
21 any_char {alpha}|{digit}|{otherchar}|{delim}|{hash}|{literal_at}
22 any_but_delim {alpha}|{digit}|{otherchar}|{hash}|{literal_at}
23 non_at {alpha}|{digit}|{otherchar}|{delim}|{hash}
24 alphanum {alpha}|{digit}
25 gen_delim {delim}|{tab}
28 pointer @{alphanum}{non_at}+@
32 int level_diff=MAXGEDCOMLEVEL;
38 /* The GEDCOM level number is converted into a sequence of opening
39 and closing brackets. Simply put, the following GEDCOM fragment:
52 { SOUR genes (1 higher: no closing brackets)
53 { VERS 1.6 (1 higher: no closing brackets)
54 } { NAME Genes (same level: 1 closing bracket)
55 } } { DATE 07 OCT 2001 (1 lower: 2 closing brackets)
69 But because this means that one token is converted into a series
70 of tokens, there is some initial code following immediately here
71 that returns "pending" tokens. */
78 else if (level_diff == 1) {
83 /* out of brackets... */
86 #define MKTAGACTION(tag) { gedcom_lval.string = gedcom_text; \
91 <INITIAL>{gen_delim}* /* ignore leading whitespace (also tabs) */
93 <INITIAL>0{digit}+ { gedcom_error ("Level number with leading zero");
97 <INITIAL>{digit}+ { int level = atoi(gedcom_text);
98 if ((level < 0) || (level > MAXGEDCOMLEVEL)) {
99 gedcom_error ("Level number out of range [0..%d]",
103 level_diff = level - current_level;
105 current_level = level;
106 if (level_diff < 1) {
110 else if (level_diff == 1) {
115 /* should never happen (error to GEDCOM spec) */
116 gedcom_error ("GEDCOM level number is %d higher than "
123 <EXPECT_TAG>ABBR MKTAGACTION(ABBR)
124 <EXPECT_TAG>ADDR MKTAGACTION(ADDR)
125 <EXPECT_TAG>ADR1 MKTAGACTION(ADR1)
126 <EXPECT_TAG>ADR2 MKTAGACTION(ADR2)
127 <EXPECT_TAG>ADOP MKTAGACTION(ADOP)
128 <EXPECT_TAG>AFN MKTAGACTION(AFN)
129 <EXPECT_TAG>AGE MKTAGACTION(AGE)
130 <EXPECT_TAG>AGNC MKTAGACTION(AGNC)
131 <EXPECT_TAG>ALIA MKTAGACTION(ALIA)
132 <EXPECT_TAG>ANCE MKTAGACTION(ANCE)
133 <EXPECT_TAG>ANCI MKTAGACTION(ANCI)
134 <EXPECT_TAG>ANUL MKTAGACTION(ANUL)
135 <EXPECT_TAG>ASSO MKTAGACTION(ASSO)
136 <EXPECT_TAG>AUTH MKTAGACTION(AUTH)
137 <EXPECT_TAG>BAPL MKTAGACTION(BAPL)
138 <EXPECT_TAG>BAPM MKTAGACTION(BAPM)
139 <EXPECT_TAG>BARM MKTAGACTION(BARM)
140 <EXPECT_TAG>BASM MKTAGACTION(BASM)
141 <EXPECT_TAG>BIRT MKTAGACTION(BIRT)
142 <EXPECT_TAG>BLES MKTAGACTION(BLES)
143 <EXPECT_TAG>BLOB MKTAGACTION(BLOB)
144 <EXPECT_TAG>BURI MKTAGACTION(BURI)
145 <EXPECT_TAG>CALN MKTAGACTION(CALN)
146 <EXPECT_TAG>CAST MKTAGACTION(CAST)
147 <EXPECT_TAG>CAUS MKTAGACTION(CAUS)
148 <EXPECT_TAG>CENS MKTAGACTION(CENS)
149 <EXPECT_TAG>CHAN MKTAGACTION(CHAN)
150 <EXPECT_TAG>CHAR MKTAGACTION(CHAR)
151 <EXPECT_TAG>CHIL MKTAGACTION(CHIL)
152 <EXPECT_TAG>CHR MKTAGACTION(CHR)
153 <EXPECT_TAG>CHRA MKTAGACTION(CHRA)
154 <EXPECT_TAG>CITY MKTAGACTION(CITY)
155 <EXPECT_TAG>CONC MKTAGACTION(CONC)
156 <EXPECT_TAG>CONF MKTAGACTION(CONF)
157 <EXPECT_TAG>CONL MKTAGACTION(CONL)
158 <EXPECT_TAG>CONT MKTAGACTION(CONT)
159 <EXPECT_TAG>COPR MKTAGACTION(COPR)
160 <EXPECT_TAG>CORP MKTAGACTION(CORP)
161 <EXPECT_TAG>CREM MKTAGACTION(CREM)
162 <EXPECT_TAG>CTRY MKTAGACTION(CTRY)
163 <EXPECT_TAG>DATA MKTAGACTION(DATA)
164 <EXPECT_TAG>DATE MKTAGACTION(DATE)
165 <EXPECT_TAG>DEAT MKTAGACTION(DEAT)
166 <EXPECT_TAG>DESC MKTAGACTION(DESC)
167 <EXPECT_TAG>DESI MKTAGACTION(DESI)
168 <EXPECT_TAG>DEST MKTAGACTION(DEST)
169 <EXPECT_TAG>DIV MKTAGACTION(DIV)
170 <EXPECT_TAG>DIVF MKTAGACTION(DIVF)
171 <EXPECT_TAG>DSCR MKTAGACTION(DSCR)
172 <EXPECT_TAG>EDUC MKTAGACTION(EDUC)
173 <EXPECT_TAG>EMIG MKTAGACTION(EMIG)
174 <EXPECT_TAG>ENDL MKTAGACTION(ENDL)
175 <EXPECT_TAG>ENGA MKTAGACTION(ENGA)
176 <EXPECT_TAG>EVEN MKTAGACTION(EVEN)
177 <EXPECT_TAG>FAM MKTAGACTION(FAM)
178 <EXPECT_TAG>FAMC MKTAGACTION(FAMC)
179 <EXPECT_TAG>FAMF MKTAGACTION(FAMF)
180 <EXPECT_TAG>FAMS MKTAGACTION(FAMS)
181 <EXPECT_TAG>FCOM MKTAGACTION(FCOM)
182 <EXPECT_TAG>FILE MKTAGACTION(FILE)
183 <EXPECT_TAG>FORM MKTAGACTION(FORM)
184 <EXPECT_TAG>GEDC MKTAGACTION(GEDC)
185 <EXPECT_TAG>GIVN MKTAGACTION(GIVN)
186 <EXPECT_TAG>GRAD MKTAGACTION(GRAD)
187 <EXPECT_TAG>HEAD MKTAGACTION(HEAD)
188 <EXPECT_TAG>HUSB MKTAGACTION(HUSB)
189 <EXPECT_TAG>IDNO MKTAGACTION(IDNO)
190 <EXPECT_TAG>IMMI MKTAGACTION(IMMI)
191 <EXPECT_TAG>INDI MKTAGACTION(INDI)
192 <EXPECT_TAG>LANG MKTAGACTION(LANG)
193 <EXPECT_TAG>LEGA MKTAGACTION(LEGA)
194 <EXPECT_TAG>MARB MKTAGACTION(MARB)
195 <EXPECT_TAG>MARC MKTAGACTION(MARC)
196 <EXPECT_TAG>MARL MKTAGACTION(MARL)
197 <EXPECT_TAG>MARR MKTAGACTION(MARR)
198 <EXPECT_TAG>MARS MKTAGACTION(MARS)
199 <EXPECT_TAG>MEDI MKTAGACTION(MEDI)
200 <EXPECT_TAG>NAME MKTAGACTION(NAME)
201 <EXPECT_TAG>NATI MKTAGACTION(NATI)
202 <EXPECT_TAG>NATU MKTAGACTION(NATU)
203 <EXPECT_TAG>NCHI MKTAGACTION(NCHI)
204 <EXPECT_TAG>NICK MKTAGACTION(NICK)
205 <EXPECT_TAG>NMR MKTAGACTION(NMR)
206 <EXPECT_TAG>NOTE MKTAGACTION(NOTE)
207 <EXPECT_TAG>NPFX MKTAGACTION(NPFX)
208 <EXPECT_TAG>NSFX MKTAGACTION(NSFX)
209 <EXPECT_TAG>OBJE MKTAGACTION(OBJE)
210 <EXPECT_TAG>OCCU MKTAGACTION(OCCU)
211 <EXPECT_TAG>ORDI MKTAGACTION(ORDI)
212 <EXPECT_TAG>ORDN MKTAGACTION(ORDN)
213 <EXPECT_TAG>PAGE MKTAGACTION(PAGE)
214 <EXPECT_TAG>PEDI MKTAGACTION(PEDI)
215 <EXPECT_TAG>PHON MKTAGACTION(PHON)
216 <EXPECT_TAG>PLAC MKTAGACTION(PLAC)
217 <EXPECT_TAG>POST MKTAGACTION(POST)
218 <EXPECT_TAG>PROB MKTAGACTION(PROB)
219 <EXPECT_TAG>PROP MKTAGACTION(PROP)
220 <EXPECT_TAG>PUBL MKTAGACTION(PUBL)
221 <EXPECT_TAG>QUAY MKTAGACTION(QUAY)
222 <EXPECT_TAG>REFN MKTAGACTION(REFN)
223 <EXPECT_TAG>RELA MKTAGACTION(RELA)
224 <EXPECT_TAG>RELI MKTAGACTION(RELI)
225 <EXPECT_TAG>REPO MKTAGACTION(REPO)
226 <EXPECT_TAG>RESI MKTAGACTION(RESI)
227 <EXPECT_TAG>RESN MKTAGACTION(RESN)
228 <EXPECT_TAG>RETI MKTAGACTION(RETI)
229 <EXPECT_TAG>RFN MKTAGACTION(RFN)
230 <EXPECT_TAG>RIN MKTAGACTION(RIN)
231 <EXPECT_TAG>ROLE MKTAGACTION(ROLE)
232 <EXPECT_TAG>SEX MKTAGACTION(SEX)
233 <EXPECT_TAG>SLGC MKTAGACTION(SLGC)
234 <EXPECT_TAG>SLGS MKTAGACTION(SLGS)
235 <EXPECT_TAG>SOUR MKTAGACTION(SOUR)
236 <EXPECT_TAG>SPFX MKTAGACTION(SPFX)
237 <EXPECT_TAG>SSN MKTAGACTION(SSN)
238 <EXPECT_TAG>STAE MKTAGACTION(STAE)
239 <EXPECT_TAG>STAT MKTAGACTION(STAT)
240 <EXPECT_TAG>SUBM MKTAGACTION(SUBM)
241 <EXPECT_TAG>SUBN MKTAGACTION(SUBN)
242 <EXPECT_TAG>SURN MKTAGACTION(SURN)
243 <EXPECT_TAG>TEMP MKTAGACTION(TEMP)
244 <EXPECT_TAG>TEXT MKTAGACTION(TEXT)
245 <EXPECT_TAG>TIME MKTAGACTION(TIME)
246 <EXPECT_TAG>TITL MKTAGACTION(TITL)
247 <EXPECT_TAG>TRLR MKTAGACTION(TRLR)
248 <EXPECT_TAG>TYPE MKTAGACTION(TYPE)
249 <EXPECT_TAG>VERS MKTAGACTION(VERS)
250 <EXPECT_TAG>WIFE MKTAGACTION(WIFE)
251 <EXPECT_TAG>WILL MKTAGACTION(WILL)
253 <EXPECT_TAG>{alphanum}+ { gedcom_lval.string = gedcom_text;
258 {delim} { gedcom_lval.string = gedcom_text;
262 {any_but_delim} { gedcom_lval.string = gedcom_text;
266 {escape}/{non_at} { gedcom_lval.string = gedcom_text;
270 {pointer} { gedcom_lval.string = gedcom_text;
274 /* Due to the conversion of level numbers into brackets, the
275 terminator is not important, so no token is returned here.
276 Although not strictly according to the GEDCOM spec, we'll ignore
277 whitespace just before the terminator.
280 {gen_delim}*{terminator} { line_no++; BEGIN(INITIAL); }
282 /* Eventually we have to return 1 closing bracket (for the trailer).
283 We can detect whether we have sent the closing bracket using the
284 level_diff (at eof, first it is 2, then we increment it ourselves) */
286 <<EOF>> { if (level_diff == 2) {
295 . { gedcom_error("Unexpected character: '%s'", gedcom_text);