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