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)
13 /* In high-low order, a space is encoded as 0x00 0x20 */
14 /* i.e. this is utf-16-be */
17 #undef IN_LEX /* include only a specific part of the following file */
18 #include "gedcom_lex_common.c"
20 static size_t encoding_width = 2;
32 otherchar \x00[\x21-\x22\x24-\x2F\x3A-\x3F\x5B-\x5E\x60\x7B-\x7E\x80-\xFF]|[\x01-\xFF][\x00-\xFF]
33 terminator \x00\x0D|\x00\x0A|\x00\x0D\x00\x0A|\x00\x0A\x00\x0D
35 any_char {alpha}|{digit}|{otherchar}|{delim}|{hash}|{literal_at}
36 any_but_delim {alpha}|{digit}|{otherchar}|{hash}|{literal_at}
37 non_at {alpha}|{digit}|{otherchar}|{delim}|{hash}
38 alphanum {alpha}|{digit}
39 gen_delim {delim}|{tab}
41 escape \x00@\x00#{any_char}+\x00@
42 pointer \x00@{alphanum}{non_at}+\x00@
47 #define IN_LEX /* include only a specific part of the following file */
48 #include "gedcom_lex_common.c"
54 <INITIAL>{gen_delim}* ACTION_INITIAL_WHITESPACE
56 <INITIAL>\x00[0]{digit}+ ACTION_0_DIGITS
58 <INITIAL>{digit}+ ACTION_DIGITS
60 <EXPECT_TAG>\x00A\x00B\x00B\x00R MKTAGACTION(ABBR)
61 <EXPECT_TAG>\x00A\x00D\x00D\x00R MKTAGACTION(ADDR)
62 <EXPECT_TAG>\x00A\x00D\x00R\x001 MKTAGACTION(ADR1)
63 <EXPECT_TAG>\x00A\x00D\x00R\x002 MKTAGACTION(ADR2)
64 <EXPECT_TAG>\x00A\x00D\x00O\x00P MKTAGACTION(ADOP)
65 <EXPECT_TAG>\x00A\x00F\x00N MKTAGACTION(AFN)
66 <EXPECT_TAG>\x00A\x00G\x00E MKTAGACTION(AGE)
67 <EXPECT_TAG>\x00A\x00G\x00N\x00C MKTAGACTION(AGNC)
68 <EXPECT_TAG>\x00A\x00L\x00I\x00A MKTAGACTION(ALIA)
69 <EXPECT_TAG>\x00A\x00N\x00C\x00E MKTAGACTION(ANCE)
70 <EXPECT_TAG>\x00A\x00N\x00C\x00I MKTAGACTION(ANCI)
71 <EXPECT_TAG>\x00A\x00N\x00U\x00L MKTAGACTION(ANUL)
72 <EXPECT_TAG>\x00A\x00S\x00S\x00O MKTAGACTION(ASSO)
73 <EXPECT_TAG>\x00A\x00U\x00T\x00H MKTAGACTION(AUTH)
74 <EXPECT_TAG>\x00B\x00A\x00P\x00L MKTAGACTION(BAPL)
75 <EXPECT_TAG>\x00B\x00A\x00P\x00M MKTAGACTION(BAPM)
76 <EXPECT_TAG>\x00B\x00A\x00R\x00M MKTAGACTION(BARM)
77 <EXPECT_TAG>\x00B\x00A\x00S\x00M MKTAGACTION(BASM)
78 <EXPECT_TAG>\x00B\x00I\x00R\x00T MKTAGACTION(BIRT)
79 <EXPECT_TAG>\x00B\x00L\x00E\x00S MKTAGACTION(BLES)
80 <EXPECT_TAG>\x00B\x00L\x00O\x00B MKTAGACTION(BLOB)
81 <EXPECT_TAG>\x00B\x00U\x00R\x00I MKTAGACTION(BURI)
82 <EXPECT_TAG>\x00C\x00A\x00L\x00N MKTAGACTION(CALN)
83 <EXPECT_TAG>\x00C\x00A\x00S\x00T MKTAGACTION(CAST)
84 <EXPECT_TAG>\x00C\x00A\x00U\x00S MKTAGACTION(CAUS)
85 <EXPECT_TAG>\x00C\x00E\x00N\x00S MKTAGACTION(CENS)
86 <EXPECT_TAG>\x00C\x00H\x00A\x00N MKTAGACTION(CHAN)
87 <EXPECT_TAG>\x00C\x00H\x00A\x00R MKTAGACTION(CHAR)
88 <EXPECT_TAG>\x00C\x00H\x00I\x00L MKTAGACTION(CHIL)
89 <EXPECT_TAG>\x00C\x00H\x00R MKTAGACTION(CHR)
90 <EXPECT_TAG>\x00C\x00H\x00R\x00A MKTAGACTION(CHRA)
91 <EXPECT_TAG>\x00C\x00I\x00T\x00Y MKTAGACTION(CITY)
92 <EXPECT_TAG>\x00C\x00O\x00N\x00C MKTAGACTION(CONC)
93 <EXPECT_TAG>\x00C\x00O\x00N\x00F MKTAGACTION(CONF)
94 <EXPECT_TAG>\x00C\x00O\x00N\x00L MKTAGACTION(CONL)
95 <EXPECT_TAG>\x00C\x00O\x00N\x00T MKTAGACTION(CONT)
96 <EXPECT_TAG>\x00C\x00O\x00P\x00R MKTAGACTION(COPR)
97 <EXPECT_TAG>\x00C\x00O\x00R\x00P MKTAGACTION(CORP)
98 <EXPECT_TAG>\x00C\x00R\x00E\x00M MKTAGACTION(CREM)
99 <EXPECT_TAG>\x00C\x00T\x00R\x00Y MKTAGACTION(CTRY)
100 <EXPECT_TAG>\x00D\x00A\x00T\x00A MKTAGACTION(DATA)
101 <EXPECT_TAG>\x00D\x00A\x00T\x00E MKTAGACTION(DATE)
102 <EXPECT_TAG>\x00D\x00E\x00A\x00T MKTAGACTION(DEAT)
103 <EXPECT_TAG>\x00D\x00E\x00S\x00C MKTAGACTION(DESC)
104 <EXPECT_TAG>\x00D\x00E\x00S\x00I MKTAGACTION(DESI)
105 <EXPECT_TAG>\x00D\x00E\x00S\x00T MKTAGACTION(DEST)
106 <EXPECT_TAG>\x00D\x00I\x00V MKTAGACTION(DIV)
107 <EXPECT_TAG>\x00D\x00I\x00V\x00F MKTAGACTION(DIVF)
108 <EXPECT_TAG>\x00D\x00S\x00C\x00R MKTAGACTION(DSCR)
109 <EXPECT_TAG>\x00E\x00D\x00U\x00C MKTAGACTION(EDUC)
110 <EXPECT_TAG>\x00E\x00M\x00I\x00G MKTAGACTION(EMIG)
111 <EXPECT_TAG>\x00E\x00N\x00D\x00L MKTAGACTION(ENDL)
112 <EXPECT_TAG>\x00E\x00N\x00G\x00A MKTAGACTION(ENGA)
113 <EXPECT_TAG>\x00E\x00V\x00E\x00N MKTAGACTION(EVEN)
114 <EXPECT_TAG>\x00F\x00A\x00M MKTAGACTION(FAM)
115 <EXPECT_TAG>\x00F\x00A\x00M\x00C MKTAGACTION(FAMC)
116 <EXPECT_TAG>\x00F\x00A\x00M\x00F MKTAGACTION(FAMF)
117 <EXPECT_TAG>\x00F\x00A\x00M\x00S MKTAGACTION(FAMS)
118 <EXPECT_TAG>\x00F\x00C\x00O\x00M MKTAGACTION(FCOM)
119 <EXPECT_TAG>\x00F\x00I\x00L\x00E MKTAGACTION(FILE)
120 <EXPECT_TAG>\x00F\x00O\x00R\x00M MKTAGACTION(FORM)
121 <EXPECT_TAG>\x00G\x00E\x00D\x00C MKTAGACTION(GEDC)
122 <EXPECT_TAG>\x00G\x00I\x00V\x00N MKTAGACTION(GIVN)
123 <EXPECT_TAG>\x00G\x00R\x00A\x00D MKTAGACTION(GRAD)
124 <EXPECT_TAG>\x00H\x00E\x00A\x00D MKTAGACTION(HEAD)
125 <EXPECT_TAG>\x00H\x00U\x00S\x00B MKTAGACTION(HUSB)
126 <EXPECT_TAG>\x00I\x00D\x00N\x00O MKTAGACTION(IDNO)
127 <EXPECT_TAG>\x00I\x00M\x00M\x00I MKTAGACTION(IMMI)
128 <EXPECT_TAG>\x00I\x00N\x00D\x00I MKTAGACTION(INDI)
129 <EXPECT_TAG>\x00L\x00A\x00N\x00G MKTAGACTION(LANG)
130 <EXPECT_TAG>\x00L\x00E\x00G\x00A MKTAGACTION(LEGA)
131 <EXPECT_TAG>\x00M\x00A\x00R\x00B MKTAGACTION(MARB)
132 <EXPECT_TAG>\x00M\x00A\x00R\x00C MKTAGACTION(MARC)
133 <EXPECT_TAG>\x00M\x00A\x00R\x00L MKTAGACTION(MARL)
134 <EXPECT_TAG>\x00M\x00A\x00R\x00R MKTAGACTION(MARR)
135 <EXPECT_TAG>\x00M\x00A\x00R\x00S MKTAGACTION(MARS)
136 <EXPECT_TAG>\x00M\x00E\x00D\x00I MKTAGACTION(MEDI)
137 <EXPECT_TAG>\x00N\x00A\x00M\x00E MKTAGACTION(NAME)
138 <EXPECT_TAG>\x00N\x00A\x00T\x00I MKTAGACTION(NATI)
139 <EXPECT_TAG>\x00N\x00A\x00T\x00U MKTAGACTION(NATU)
140 <EXPECT_TAG>\x00N\x00C\x00H\x00I MKTAGACTION(NCHI)
141 <EXPECT_TAG>\x00N\x00I\x00C\x00K MKTAGACTION(NICK)
142 <EXPECT_TAG>\x00N\x00M\x00R MKTAGACTION(NMR)
143 <EXPECT_TAG>\x00N\x00O\x00T\x00E MKTAGACTION(NOTE)
144 <EXPECT_TAG>\x00N\x00P\x00F\x00X MKTAGACTION(NPFX)
145 <EXPECT_TAG>\x00N\x00S\x00F\x00X MKTAGACTION(NSFX)
146 <EXPECT_TAG>\x00O\x00B\x00J\x00E MKTAGACTION(OBJE)
147 <EXPECT_TAG>\x00O\x00C\x00C\x00U MKTAGACTION(OCCU)
148 <EXPECT_TAG>\x00O\x00R\x00D\x00I MKTAGACTION(ORDI)
149 <EXPECT_TAG>\x00O\x00R\x00D\x00N MKTAGACTION(ORDN)
150 <EXPECT_TAG>\x00P\x00A\x00G\x00E MKTAGACTION(PAGE)
151 <EXPECT_TAG>\x00P\x00E\x00D\x00I MKTAGACTION(PEDI)
152 <EXPECT_TAG>\x00P\x00H\x00O\x00N MKTAGACTION(PHON)
153 <EXPECT_TAG>\x00P\x00L\x00A\x00C MKTAGACTION(PLAC)
154 <EXPECT_TAG>\x00P\x00O\x00S\x00T MKTAGACTION(POST)
155 <EXPECT_TAG>\x00P\x00R\x00O\x00B MKTAGACTION(PROB)
156 <EXPECT_TAG>\x00P\x00R\x00O\x00P MKTAGACTION(PROP)
157 <EXPECT_TAG>\x00P\x00U\x00B\x00L MKTAGACTION(PUBL)
158 <EXPECT_TAG>\x00Q\x00U\x00A\x00Y MKTAGACTION(QUAY)
159 <EXPECT_TAG>\x00R\x00E\x00F\x00N MKTAGACTION(REFN)
160 <EXPECT_TAG>\x00R\x00E\x00L\x00A MKTAGACTION(RELA)
161 <EXPECT_TAG>\x00R\x00E\x00L\x00I MKTAGACTION(RELI)
162 <EXPECT_TAG>\x00R\x00E\x00P\x00O MKTAGACTION(REPO)
163 <EXPECT_TAG>\x00R\x00E\x00S\x00I MKTAGACTION(RESI)
164 <EXPECT_TAG>\x00R\x00E\x00S\x00N MKTAGACTION(RESN)
165 <EXPECT_TAG>\x00R\x00E\x00T\x00I MKTAGACTION(RETI)
166 <EXPECT_TAG>\x00R\x00F\x00N MKTAGACTION(RFN)
167 <EXPECT_TAG>\x00R\x00I\x00N MKTAGACTION(RIN)
168 <EXPECT_TAG>\x00R\x00O\x00L\x00E MKTAGACTION(ROLE)
169 <EXPECT_TAG>\x00S\x00E\x00X MKTAGACTION(SEX)
170 <EXPECT_TAG>\x00S\x00L\x00G\x00C MKTAGACTION(SLGC)
171 <EXPECT_TAG>\x00S\x00L\x00G\x00S MKTAGACTION(SLGS)
172 <EXPECT_TAG>\x00S\x00O\x00U\x00R MKTAGACTION(SOUR)
173 <EXPECT_TAG>\x00S\x00P\x00F\x00X MKTAGACTION(SPFX)
174 <EXPECT_TAG>\x00S\x00S\x00N MKTAGACTION(SSN)
175 <EXPECT_TAG>\x00S\x00T\x00A\x00E MKTAGACTION(STAE)
176 <EXPECT_TAG>\x00S\x00T\x00A\x00T MKTAGACTION(STAT)
177 <EXPECT_TAG>\x00S\x00U\x00B\x00M MKTAGACTION(SUBM)
178 <EXPECT_TAG>\x00S\x00U\x00B\x00N MKTAGACTION(SUBN)
179 <EXPECT_TAG>\x00S\x00U\x00R\x00N MKTAGACTION(SURN)
180 <EXPECT_TAG>\x00T\x00E\x00M\x00P MKTAGACTION(TEMP)
181 <EXPECT_TAG>\x00T\x00E\x00X\x00T MKTAGACTION(TEXT)
182 <EXPECT_TAG>\x00T\x00I\x00M\x00E MKTAGACTION(TIME)
183 <EXPECT_TAG>\x00T\x00I\x00T\x00L MKTAGACTION(TITL)
184 <EXPECT_TAG>\x00T\x00R\x00L\x00R MKTAGACTION(TRLR)
185 <EXPECT_TAG>\x00T\x00Y\x00P\x00E MKTAGACTION(TYPE)
186 <EXPECT_TAG>\x00V\x00E\x00R\x00S MKTAGACTION(VERS)
187 <EXPECT_TAG>\x00W\x00I\x00F\x00E MKTAGACTION(WIFE)
188 <EXPECT_TAG>\x00W\x00I\x00L\x00L MKTAGACTION(WILL)
190 <EXPECT_TAG>{alphanum}+ ACTION_ALPHANUM
194 {any_but_delim} ACTION_ANY
196 {escape}/{non_at} ACTION_ESCAPE
198 {pointer} ACTION_POINTER
200 {gen_delim}*{terminator} ACTION_TERMINATOR
216 return gedcom_hilo_lex();
221 return test_loop(TWO_BYTE_HILO, "UNICODE");