Age Owner TLA Line data Source code
1 : /* Generated by Snowball 2.2.0 - https://snowballstem.org/ */
2 :
3 : #include "header.h"
4 :
5 : #ifdef __cplusplus
6 : extern "C" {
7 : #endif
8 : extern int french_ISO_8859_1_stem(struct SN_env * z);
9 : #ifdef __cplusplus
10 : }
11 : #endif
12 : static int r_un_accent(struct SN_env * z);
13 : static int r_un_double(struct SN_env * z);
14 : static int r_residual_suffix(struct SN_env * z);
15 : static int r_verb_suffix(struct SN_env * z);
16 : static int r_i_verb_suffix(struct SN_env * z);
17 : static int r_standard_suffix(struct SN_env * z);
18 : static int r_R2(struct SN_env * z);
19 : static int r_R1(struct SN_env * z);
20 : static int r_RV(struct SN_env * z);
21 : static int r_mark_regions(struct SN_env * z);
22 : static int r_postlude(struct SN_env * z);
23 : static int r_prelude(struct SN_env * z);
24 : #ifdef __cplusplus
25 : extern "C" {
26 : #endif
27 :
28 :
29 : extern struct SN_env * french_ISO_8859_1_create_env(void);
30 : extern void french_ISO_8859_1_close_env(struct SN_env * z);
31 :
32 :
33 : #ifdef __cplusplus
34 : }
35 : #endif
36 : static const symbol s_0_0[3] = { 'c', 'o', 'l' };
37 : static const symbol s_0_1[3] = { 'p', 'a', 'r' };
38 : static const symbol s_0_2[3] = { 't', 'a', 'p' };
39 :
40 : static const struct among a_0[3] =
41 : {
42 : { 3, s_0_0, -1, -1, 0},
43 : { 3, s_0_1, -1, -1, 0},
44 : { 3, s_0_2, -1, -1, 0}
45 : };
46 :
47 : static const symbol s_1_1[1] = { 'H' };
48 : static const symbol s_1_2[2] = { 'H', 'e' };
49 : static const symbol s_1_3[2] = { 'H', 'i' };
50 : static const symbol s_1_4[1] = { 'I' };
51 : static const symbol s_1_5[1] = { 'U' };
52 : static const symbol s_1_6[1] = { 'Y' };
53 :
54 : static const struct among a_1[7] =
55 : {
56 : { 0, 0, -1, 7, 0},
57 : { 1, s_1_1, 0, 6, 0},
58 : { 2, s_1_2, 1, 4, 0},
59 : { 2, s_1_3, 1, 5, 0},
60 : { 1, s_1_4, 0, 1, 0},
61 : { 1, s_1_5, 0, 2, 0},
62 : { 1, s_1_6, 0, 3, 0}
63 : };
64 :
65 : static const symbol s_2_0[3] = { 'i', 'q', 'U' };
66 : static const symbol s_2_1[3] = { 'a', 'b', 'l' };
67 : static const symbol s_2_2[3] = { 'I', 0xE8, 'r' };
68 : static const symbol s_2_3[3] = { 'i', 0xE8, 'r' };
69 : static const symbol s_2_4[3] = { 'e', 'u', 's' };
70 : static const symbol s_2_5[2] = { 'i', 'v' };
71 :
72 : static const struct among a_2[6] =
73 : {
74 : { 3, s_2_0, -1, 3, 0},
75 : { 3, s_2_1, -1, 3, 0},
76 : { 3, s_2_2, -1, 4, 0},
77 : { 3, s_2_3, -1, 4, 0},
78 : { 3, s_2_4, -1, 2, 0},
79 : { 2, s_2_5, -1, 1, 0}
80 : };
81 :
82 : static const symbol s_3_0[2] = { 'i', 'c' };
83 : static const symbol s_3_1[4] = { 'a', 'b', 'i', 'l' };
84 : static const symbol s_3_2[2] = { 'i', 'v' };
85 :
86 : static const struct among a_3[3] =
87 : {
88 : { 2, s_3_0, -1, 2, 0},
89 : { 4, s_3_1, -1, 1, 0},
90 : { 2, s_3_2, -1, 3, 0}
91 : };
92 :
93 : static const symbol s_4_0[4] = { 'i', 'q', 'U', 'e' };
94 : static const symbol s_4_1[6] = { 'a', 't', 'r', 'i', 'c', 'e' };
95 : static const symbol s_4_2[4] = { 'a', 'n', 'c', 'e' };
96 : static const symbol s_4_3[4] = { 'e', 'n', 'c', 'e' };
97 : static const symbol s_4_4[5] = { 'l', 'o', 'g', 'i', 'e' };
98 : static const symbol s_4_5[4] = { 'a', 'b', 'l', 'e' };
99 : static const symbol s_4_6[4] = { 'i', 's', 'm', 'e' };
100 : static const symbol s_4_7[4] = { 'e', 'u', 's', 'e' };
101 : static const symbol s_4_8[4] = { 'i', 's', 't', 'e' };
102 : static const symbol s_4_9[3] = { 'i', 'v', 'e' };
103 : static const symbol s_4_10[2] = { 'i', 'f' };
104 : static const symbol s_4_11[5] = { 'u', 's', 'i', 'o', 'n' };
105 : static const symbol s_4_12[5] = { 'a', 't', 'i', 'o', 'n' };
106 : static const symbol s_4_13[5] = { 'u', 't', 'i', 'o', 'n' };
107 : static const symbol s_4_14[5] = { 'a', 't', 'e', 'u', 'r' };
108 : static const symbol s_4_15[5] = { 'i', 'q', 'U', 'e', 's' };
109 : static const symbol s_4_16[7] = { 'a', 't', 'r', 'i', 'c', 'e', 's' };
110 : static const symbol s_4_17[5] = { 'a', 'n', 'c', 'e', 's' };
111 : static const symbol s_4_18[5] = { 'e', 'n', 'c', 'e', 's' };
112 : static const symbol s_4_19[6] = { 'l', 'o', 'g', 'i', 'e', 's' };
113 : static const symbol s_4_20[5] = { 'a', 'b', 'l', 'e', 's' };
114 : static const symbol s_4_21[5] = { 'i', 's', 'm', 'e', 's' };
115 : static const symbol s_4_22[5] = { 'e', 'u', 's', 'e', 's' };
116 : static const symbol s_4_23[5] = { 'i', 's', 't', 'e', 's' };
117 : static const symbol s_4_24[4] = { 'i', 'v', 'e', 's' };
118 : static const symbol s_4_25[3] = { 'i', 'f', 's' };
119 : static const symbol s_4_26[6] = { 'u', 's', 'i', 'o', 'n', 's' };
120 : static const symbol s_4_27[6] = { 'a', 't', 'i', 'o', 'n', 's' };
121 : static const symbol s_4_28[6] = { 'u', 't', 'i', 'o', 'n', 's' };
122 : static const symbol s_4_29[6] = { 'a', 't', 'e', 'u', 'r', 's' };
123 : static const symbol s_4_30[5] = { 'm', 'e', 'n', 't', 's' };
124 : static const symbol s_4_31[6] = { 'e', 'm', 'e', 'n', 't', 's' };
125 : static const symbol s_4_32[9] = { 'i', 's', 's', 'e', 'm', 'e', 'n', 't', 's' };
126 : static const symbol s_4_33[4] = { 'i', 't', 0xE9, 's' };
127 : static const symbol s_4_34[4] = { 'm', 'e', 'n', 't' };
128 : static const symbol s_4_35[5] = { 'e', 'm', 'e', 'n', 't' };
129 : static const symbol s_4_36[8] = { 'i', 's', 's', 'e', 'm', 'e', 'n', 't' };
130 : static const symbol s_4_37[6] = { 'a', 'm', 'm', 'e', 'n', 't' };
131 : static const symbol s_4_38[6] = { 'e', 'm', 'm', 'e', 'n', 't' };
132 : static const symbol s_4_39[3] = { 'a', 'u', 'x' };
133 : static const symbol s_4_40[4] = { 'e', 'a', 'u', 'x' };
134 : static const symbol s_4_41[3] = { 'e', 'u', 'x' };
135 : static const symbol s_4_42[3] = { 'i', 't', 0xE9 };
136 :
137 : static const struct among a_4[43] =
138 : {
139 : { 4, s_4_0, -1, 1, 0},
140 : { 6, s_4_1, -1, 2, 0},
141 : { 4, s_4_2, -1, 1, 0},
142 : { 4, s_4_3, -1, 5, 0},
143 : { 5, s_4_4, -1, 3, 0},
144 : { 4, s_4_5, -1, 1, 0},
145 : { 4, s_4_6, -1, 1, 0},
146 : { 4, s_4_7, -1, 11, 0},
147 : { 4, s_4_8, -1, 1, 0},
148 : { 3, s_4_9, -1, 8, 0},
149 : { 2, s_4_10, -1, 8, 0},
150 : { 5, s_4_11, -1, 4, 0},
151 : { 5, s_4_12, -1, 2, 0},
152 : { 5, s_4_13, -1, 4, 0},
153 : { 5, s_4_14, -1, 2, 0},
154 : { 5, s_4_15, -1, 1, 0},
155 : { 7, s_4_16, -1, 2, 0},
156 : { 5, s_4_17, -1, 1, 0},
157 : { 5, s_4_18, -1, 5, 0},
158 : { 6, s_4_19, -1, 3, 0},
159 : { 5, s_4_20, -1, 1, 0},
160 : { 5, s_4_21, -1, 1, 0},
161 : { 5, s_4_22, -1, 11, 0},
162 : { 5, s_4_23, -1, 1, 0},
163 : { 4, s_4_24, -1, 8, 0},
164 : { 3, s_4_25, -1, 8, 0},
165 : { 6, s_4_26, -1, 4, 0},
166 : { 6, s_4_27, -1, 2, 0},
167 : { 6, s_4_28, -1, 4, 0},
168 : { 6, s_4_29, -1, 2, 0},
169 : { 5, s_4_30, -1, 15, 0},
170 : { 6, s_4_31, 30, 6, 0},
171 : { 9, s_4_32, 31, 12, 0},
172 : { 4, s_4_33, -1, 7, 0},
173 : { 4, s_4_34, -1, 15, 0},
174 : { 5, s_4_35, 34, 6, 0},
175 : { 8, s_4_36, 35, 12, 0},
176 : { 6, s_4_37, 34, 13, 0},
177 : { 6, s_4_38, 34, 14, 0},
178 : { 3, s_4_39, -1, 10, 0},
179 : { 4, s_4_40, 39, 9, 0},
180 : { 3, s_4_41, -1, 1, 0},
181 : { 3, s_4_42, -1, 7, 0}
182 : };
183 :
184 : static const symbol s_5_0[3] = { 'i', 'r', 'a' };
185 : static const symbol s_5_1[2] = { 'i', 'e' };
186 : static const symbol s_5_2[4] = { 'i', 's', 's', 'e' };
187 : static const symbol s_5_3[7] = { 'i', 's', 's', 'a', 'n', 't', 'e' };
188 : static const symbol s_5_4[1] = { 'i' };
189 : static const symbol s_5_5[4] = { 'i', 'r', 'a', 'i' };
190 : static const symbol s_5_6[2] = { 'i', 'r' };
191 : static const symbol s_5_7[4] = { 'i', 'r', 'a', 's' };
192 : static const symbol s_5_8[3] = { 'i', 'e', 's' };
193 : static const symbol s_5_9[4] = { 0xEE, 'm', 'e', 's' };
194 : static const symbol s_5_10[5] = { 'i', 's', 's', 'e', 's' };
195 : static const symbol s_5_11[8] = { 'i', 's', 's', 'a', 'n', 't', 'e', 's' };
196 : static const symbol s_5_12[4] = { 0xEE, 't', 'e', 's' };
197 : static const symbol s_5_13[2] = { 'i', 's' };
198 : static const symbol s_5_14[5] = { 'i', 'r', 'a', 'i', 's' };
199 : static const symbol s_5_15[6] = { 'i', 's', 's', 'a', 'i', 's' };
200 : static const symbol s_5_16[6] = { 'i', 'r', 'i', 'o', 'n', 's' };
201 : static const symbol s_5_17[7] = { 'i', 's', 's', 'i', 'o', 'n', 's' };
202 : static const symbol s_5_18[5] = { 'i', 'r', 'o', 'n', 's' };
203 : static const symbol s_5_19[6] = { 'i', 's', 's', 'o', 'n', 's' };
204 : static const symbol s_5_20[7] = { 'i', 's', 's', 'a', 'n', 't', 's' };
205 : static const symbol s_5_21[2] = { 'i', 't' };
206 : static const symbol s_5_22[5] = { 'i', 'r', 'a', 'i', 't' };
207 : static const symbol s_5_23[6] = { 'i', 's', 's', 'a', 'i', 't' };
208 : static const symbol s_5_24[6] = { 'i', 's', 's', 'a', 'n', 't' };
209 : static const symbol s_5_25[7] = { 'i', 'r', 'a', 'I', 'e', 'n', 't' };
210 : static const symbol s_5_26[8] = { 'i', 's', 's', 'a', 'I', 'e', 'n', 't' };
211 : static const symbol s_5_27[5] = { 'i', 'r', 'e', 'n', 't' };
212 : static const symbol s_5_28[6] = { 'i', 's', 's', 'e', 'n', 't' };
213 : static const symbol s_5_29[5] = { 'i', 'r', 'o', 'n', 't' };
214 : static const symbol s_5_30[2] = { 0xEE, 't' };
215 : static const symbol s_5_31[5] = { 'i', 'r', 'i', 'e', 'z' };
216 : static const symbol s_5_32[6] = { 'i', 's', 's', 'i', 'e', 'z' };
217 : static const symbol s_5_33[4] = { 'i', 'r', 'e', 'z' };
218 : static const symbol s_5_34[5] = { 'i', 's', 's', 'e', 'z' };
219 :
220 : static const struct among a_5[35] =
221 : {
222 : { 3, s_5_0, -1, 1, 0},
223 : { 2, s_5_1, -1, 1, 0},
224 : { 4, s_5_2, -1, 1, 0},
225 : { 7, s_5_3, -1, 1, 0},
226 : { 1, s_5_4, -1, 1, 0},
227 : { 4, s_5_5, 4, 1, 0},
228 : { 2, s_5_6, -1, 1, 0},
229 : { 4, s_5_7, -1, 1, 0},
230 : { 3, s_5_8, -1, 1, 0},
231 : { 4, s_5_9, -1, 1, 0},
232 : { 5, s_5_10, -1, 1, 0},
233 : { 8, s_5_11, -1, 1, 0},
234 : { 4, s_5_12, -1, 1, 0},
235 : { 2, s_5_13, -1, 1, 0},
236 : { 5, s_5_14, 13, 1, 0},
237 : { 6, s_5_15, 13, 1, 0},
238 : { 6, s_5_16, -1, 1, 0},
239 : { 7, s_5_17, -1, 1, 0},
240 : { 5, s_5_18, -1, 1, 0},
241 : { 6, s_5_19, -1, 1, 0},
242 : { 7, s_5_20, -1, 1, 0},
243 : { 2, s_5_21, -1, 1, 0},
244 : { 5, s_5_22, 21, 1, 0},
245 : { 6, s_5_23, 21, 1, 0},
246 : { 6, s_5_24, -1, 1, 0},
247 : { 7, s_5_25, -1, 1, 0},
248 : { 8, s_5_26, -1, 1, 0},
249 : { 5, s_5_27, -1, 1, 0},
250 : { 6, s_5_28, -1, 1, 0},
251 : { 5, s_5_29, -1, 1, 0},
252 : { 2, s_5_30, -1, 1, 0},
253 : { 5, s_5_31, -1, 1, 0},
254 : { 6, s_5_32, -1, 1, 0},
255 : { 4, s_5_33, -1, 1, 0},
256 : { 5, s_5_34, -1, 1, 0}
257 : };
258 :
259 : static const symbol s_6_0[1] = { 'a' };
260 : static const symbol s_6_1[3] = { 'e', 'r', 'a' };
261 : static const symbol s_6_2[4] = { 'a', 's', 's', 'e' };
262 : static const symbol s_6_3[4] = { 'a', 'n', 't', 'e' };
263 : static const symbol s_6_4[2] = { 0xE9, 'e' };
264 : static const symbol s_6_5[2] = { 'a', 'i' };
265 : static const symbol s_6_6[4] = { 'e', 'r', 'a', 'i' };
266 : static const symbol s_6_7[2] = { 'e', 'r' };
267 : static const symbol s_6_8[2] = { 'a', 's' };
268 : static const symbol s_6_9[4] = { 'e', 'r', 'a', 's' };
269 : static const symbol s_6_10[4] = { 0xE2, 'm', 'e', 's' };
270 : static const symbol s_6_11[5] = { 'a', 's', 's', 'e', 's' };
271 : static const symbol s_6_12[5] = { 'a', 'n', 't', 'e', 's' };
272 : static const symbol s_6_13[4] = { 0xE2, 't', 'e', 's' };
273 : static const symbol s_6_14[3] = { 0xE9, 'e', 's' };
274 : static const symbol s_6_15[3] = { 'a', 'i', 's' };
275 : static const symbol s_6_16[5] = { 'e', 'r', 'a', 'i', 's' };
276 : static const symbol s_6_17[4] = { 'i', 'o', 'n', 's' };
277 : static const symbol s_6_18[6] = { 'e', 'r', 'i', 'o', 'n', 's' };
278 : static const symbol s_6_19[7] = { 'a', 's', 's', 'i', 'o', 'n', 's' };
279 : static const symbol s_6_20[5] = { 'e', 'r', 'o', 'n', 's' };
280 : static const symbol s_6_21[4] = { 'a', 'n', 't', 's' };
281 : static const symbol s_6_22[2] = { 0xE9, 's' };
282 : static const symbol s_6_23[3] = { 'a', 'i', 't' };
283 : static const symbol s_6_24[5] = { 'e', 'r', 'a', 'i', 't' };
284 : static const symbol s_6_25[3] = { 'a', 'n', 't' };
285 : static const symbol s_6_26[5] = { 'a', 'I', 'e', 'n', 't' };
286 : static const symbol s_6_27[7] = { 'e', 'r', 'a', 'I', 'e', 'n', 't' };
287 : static const symbol s_6_28[5] = { 0xE8, 'r', 'e', 'n', 't' };
288 : static const symbol s_6_29[6] = { 'a', 's', 's', 'e', 'n', 't' };
289 : static const symbol s_6_30[5] = { 'e', 'r', 'o', 'n', 't' };
290 : static const symbol s_6_31[2] = { 0xE2, 't' };
291 : static const symbol s_6_32[2] = { 'e', 'z' };
292 : static const symbol s_6_33[3] = { 'i', 'e', 'z' };
293 : static const symbol s_6_34[5] = { 'e', 'r', 'i', 'e', 'z' };
294 : static const symbol s_6_35[6] = { 'a', 's', 's', 'i', 'e', 'z' };
295 : static const symbol s_6_36[4] = { 'e', 'r', 'e', 'z' };
296 : static const symbol s_6_37[1] = { 0xE9 };
297 :
298 : static const struct among a_6[38] =
299 : {
300 : { 1, s_6_0, -1, 3, 0},
301 : { 3, s_6_1, 0, 2, 0},
302 : { 4, s_6_2, -1, 3, 0},
303 : { 4, s_6_3, -1, 3, 0},
304 : { 2, s_6_4, -1, 2, 0},
305 : { 2, s_6_5, -1, 3, 0},
306 : { 4, s_6_6, 5, 2, 0},
307 : { 2, s_6_7, -1, 2, 0},
308 : { 2, s_6_8, -1, 3, 0},
309 : { 4, s_6_9, 8, 2, 0},
310 : { 4, s_6_10, -1, 3, 0},
311 : { 5, s_6_11, -1, 3, 0},
312 : { 5, s_6_12, -1, 3, 0},
313 : { 4, s_6_13, -1, 3, 0},
314 : { 3, s_6_14, -1, 2, 0},
315 : { 3, s_6_15, -1, 3, 0},
316 : { 5, s_6_16, 15, 2, 0},
317 : { 4, s_6_17, -1, 1, 0},
318 : { 6, s_6_18, 17, 2, 0},
319 : { 7, s_6_19, 17, 3, 0},
320 : { 5, s_6_20, -1, 2, 0},
321 : { 4, s_6_21, -1, 3, 0},
322 : { 2, s_6_22, -1, 2, 0},
323 : { 3, s_6_23, -1, 3, 0},
324 : { 5, s_6_24, 23, 2, 0},
325 : { 3, s_6_25, -1, 3, 0},
326 : { 5, s_6_26, -1, 3, 0},
327 : { 7, s_6_27, 26, 2, 0},
328 : { 5, s_6_28, -1, 2, 0},
329 : { 6, s_6_29, -1, 3, 0},
330 : { 5, s_6_30, -1, 2, 0},
331 : { 2, s_6_31, -1, 3, 0},
332 : { 2, s_6_32, -1, 2, 0},
333 : { 3, s_6_33, 32, 2, 0},
334 : { 5, s_6_34, 33, 2, 0},
335 : { 6, s_6_35, 33, 3, 0},
336 : { 4, s_6_36, 32, 2, 0},
337 : { 1, s_6_37, -1, 2, 0}
338 : };
339 :
340 : static const symbol s_7_0[1] = { 'e' };
341 : static const symbol s_7_1[4] = { 'I', 0xE8, 'r', 'e' };
342 : static const symbol s_7_2[4] = { 'i', 0xE8, 'r', 'e' };
343 : static const symbol s_7_3[3] = { 'i', 'o', 'n' };
344 : static const symbol s_7_4[3] = { 'I', 'e', 'r' };
345 : static const symbol s_7_5[3] = { 'i', 'e', 'r' };
346 :
347 : static const struct among a_7[6] =
348 : {
349 : { 1, s_7_0, -1, 3, 0},
350 : { 4, s_7_1, 0, 2, 0},
351 : { 4, s_7_2, 0, 2, 0},
352 : { 3, s_7_3, -1, 1, 0},
353 : { 3, s_7_4, -1, 2, 0},
354 : { 3, s_7_5, -1, 2, 0}
355 : };
356 :
357 : static const symbol s_8_0[3] = { 'e', 'l', 'l' };
358 : static const symbol s_8_1[4] = { 'e', 'i', 'l', 'l' };
359 : static const symbol s_8_2[3] = { 'e', 'n', 'n' };
360 : static const symbol s_8_3[3] = { 'o', 'n', 'n' };
361 : static const symbol s_8_4[3] = { 'e', 't', 't' };
362 :
363 : static const struct among a_8[5] =
364 : {
365 : { 3, s_8_0, -1, -1, 0},
366 : { 4, s_8_1, -1, -1, 0},
367 : { 3, s_8_2, -1, -1, 0},
368 : { 3, s_8_3, -1, -1, 0},
369 : { 3, s_8_4, -1, -1, 0}
370 : };
371 :
372 : static const unsigned char g_v[] = { 17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 128, 130, 103, 8, 5 };
373 :
374 : static const unsigned char g_keep_with_s[] = { 1, 65, 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 128 };
375 :
376 : static const symbol s_0[] = { 'U' };
377 : static const symbol s_1[] = { 'I' };
378 : static const symbol s_2[] = { 'Y' };
379 : static const symbol s_3[] = { 'H', 'e' };
380 : static const symbol s_4[] = { 'H', 'i' };
381 : static const symbol s_5[] = { 'Y' };
382 : static const symbol s_6[] = { 'U' };
383 : static const symbol s_7[] = { 'i' };
384 : static const symbol s_8[] = { 'u' };
385 : static const symbol s_9[] = { 'y' };
386 : static const symbol s_10[] = { 0xEB };
387 : static const symbol s_11[] = { 0xEF };
388 : static const symbol s_12[] = { 'i', 'c' };
389 : static const symbol s_13[] = { 'i', 'q', 'U' };
390 : static const symbol s_14[] = { 'l', 'o', 'g' };
391 : static const symbol s_15[] = { 'u' };
392 : static const symbol s_16[] = { 'e', 'n', 't' };
393 : static const symbol s_17[] = { 'a', 't' };
394 : static const symbol s_18[] = { 'e', 'u', 'x' };
395 : static const symbol s_19[] = { 'i' };
396 : static const symbol s_20[] = { 'a', 'b', 'l' };
397 : static const symbol s_21[] = { 'i', 'q', 'U' };
398 : static const symbol s_22[] = { 'a', 't' };
399 : static const symbol s_23[] = { 'i', 'c' };
400 : static const symbol s_24[] = { 'i', 'q', 'U' };
401 : static const symbol s_25[] = { 'e', 'a', 'u' };
402 : static const symbol s_26[] = { 'a', 'l' };
403 : static const symbol s_27[] = { 'e', 'u', 'x' };
404 : static const symbol s_28[] = { 'a', 'n', 't' };
405 : static const symbol s_29[] = { 'e', 'n', 't' };
406 : static const symbol s_30[] = { 'H', 'i' };
407 : static const symbol s_31[] = { 'i' };
408 : static const symbol s_32[] = { 'e' };
409 : static const symbol s_33[] = { 'i' };
410 : static const symbol s_34[] = { 'c' };
411 :
779 peter 412 UBC 0 : static int r_prelude(struct SN_env * z) {
413 0 : while(1) {
414 0 : int c1 = z->c;
415 0 : while(1) {
5710 tgl 416 0 : int c2 = z->c;
779 peter 417 0 : { int c3 = z->c;
418 0 : if (in_grouping(z, g_v, 97, 251, 0)) goto lab3;
419 0 : z->bra = z->c;
420 0 : { int c4 = z->c;
421 0 : if (z->c == z->l || z->p[z->c] != 'u') goto lab5;
1658 tgl 422 0 : z->c++;
779 peter 423 0 : z->ket = z->c;
424 0 : if (in_grouping(z, g_v, 97, 251, 0)) goto lab5;
425 0 : { int ret = slice_from_s(z, 1, s_0);
5710 tgl 426 0 : if (ret < 0) return ret;
427 : }
428 0 : goto lab4;
429 0 : lab5:
430 0 : z->c = c4;
779 peter 431 0 : if (z->c == z->l || z->p[z->c] != 'i') goto lab6;
1658 tgl 432 0 : z->c++;
779 peter 433 0 : z->ket = z->c;
434 0 : if (in_grouping(z, g_v, 97, 251, 0)) goto lab6;
435 0 : { int ret = slice_from_s(z, 1, s_1);
5710 tgl 436 0 : if (ret < 0) return ret;
437 : }
438 0 : goto lab4;
439 0 : lab6:
440 0 : z->c = c4;
779 peter 441 0 : if (z->c == z->l || z->p[z->c] != 'y') goto lab3;
1658 tgl 442 0 : z->c++;
779 peter 443 0 : z->ket = z->c;
444 0 : { int ret = slice_from_s(z, 1, s_2);
5710 tgl 445 0 : if (ret < 0) return ret;
446 : }
447 : }
448 0 : lab4:
449 0 : goto lab2;
450 0 : lab3:
451 0 : z->c = c3;
779 peter 452 0 : z->bra = z->c;
453 0 : if (z->c == z->l || z->p[z->c] != 0xEB) goto lab7;
1658 tgl 454 0 : z->c++;
779 peter 455 0 : z->ket = z->c;
456 0 : { int ret = slice_from_s(z, 2, s_3);
5710 tgl 457 0 : if (ret < 0) return ret;
458 : }
459 0 : goto lab2;
460 0 : lab7:
461 0 : z->c = c3;
779 peter 462 0 : z->bra = z->c;
463 0 : if (z->c == z->l || z->p[z->c] != 0xEF) goto lab8;
1658 tgl 464 0 : z->c++;
779 peter 465 0 : z->ket = z->c;
466 0 : { int ret = slice_from_s(z, 2, s_4);
1375 467 0 : if (ret < 0) return ret;
468 : }
469 0 : goto lab2;
470 0 : lab8:
471 0 : z->c = c3;
779 472 0 : z->bra = z->c;
473 0 : if (z->c == z->l || z->p[z->c] != 'y') goto lab9;
1375 474 0 : z->c++;
779 475 0 : z->ket = z->c;
476 0 : if (in_grouping(z, g_v, 97, 251, 0)) goto lab9;
477 0 : { int ret = slice_from_s(z, 1, s_5);
1375 478 0 : if (ret < 0) return ret;
479 : }
480 0 : goto lab2;
481 0 : lab9:
482 0 : z->c = c3;
779 483 0 : if (z->c == z->l || z->p[z->c] != 'q') goto lab1;
1375 484 0 : z->c++;
779 485 0 : z->bra = z->c;
486 0 : if (z->c == z->l || z->p[z->c] != 'u') goto lab1;
1375 487 0 : z->c++;
779 488 0 : z->ket = z->c;
489 0 : { int ret = slice_from_s(z, 1, s_6);
5710 tgl 490 0 : if (ret < 0) return ret;
491 : }
492 : }
493 0 : lab2:
494 0 : z->c = c2;
495 0 : break;
496 0 : lab1:
497 0 : z->c = c2;
498 0 : if (z->c >= z->l) goto lab0;
779 peter 499 0 : z->c++;
500 : }
5710 tgl 501 0 : continue;
502 0 : lab0:
503 0 : z->c = c1;
504 0 : break;
505 : }
506 0 : return 1;
507 : }
508 :
779 peter 509 0 : static int r_mark_regions(struct SN_env * z) {
510 0 : z->I[2] = z->l;
511 0 : z->I[1] = z->l;
512 0 : z->I[0] = z->l;
513 0 : { int c1 = z->c;
514 0 : { int c2 = z->c;
515 0 : if (in_grouping(z, g_v, 97, 251, 0)) goto lab2;
516 0 : if (in_grouping(z, g_v, 97, 251, 0)) goto lab2;
5710 tgl 517 0 : if (z->c >= z->l) goto lab2;
779 peter 518 0 : z->c++;
5710 tgl 519 0 : goto lab1;
520 0 : lab2:
521 0 : z->c = c2;
779 peter 522 0 : if (z->c + 2 >= z->l || z->p[z->c + 2] >> 5 != 3 || !((331776 >> (z->p[z->c + 2] & 0x1f)) & 1)) goto lab3;
1658 tgl 523 0 : if (!(find_among(z, a_0, 3))) goto lab3;
5710 524 0 : goto lab1;
525 0 : lab3:
526 0 : z->c = c2;
527 0 : if (z->c >= z->l) goto lab0;
779 peter 528 0 : z->c++;
529 : {
5710 tgl 530 0 : int ret = out_grouping(z, g_v, 97, 251, 1);
531 0 : if (ret < 0) goto lab0;
532 0 : z->c += ret;
533 : }
534 : }
535 0 : lab1:
779 peter 536 0 : z->I[2] = z->c;
5710 tgl 537 0 : lab0:
538 0 : z->c = c1;
539 : }
779 peter 540 0 : { int c3 = z->c;
541 : {
5710 tgl 542 0 : int ret = out_grouping(z, g_v, 97, 251, 1);
543 0 : if (ret < 0) goto lab4;
544 0 : z->c += ret;
545 : }
546 : {
547 0 : int ret = in_grouping(z, g_v, 97, 251, 1);
548 0 : if (ret < 0) goto lab4;
549 0 : z->c += ret;
550 : }
779 peter 551 0 : z->I[1] = z->c;
552 : {
5710 tgl 553 0 : int ret = out_grouping(z, g_v, 97, 251, 1);
554 0 : if (ret < 0) goto lab4;
555 0 : z->c += ret;
556 : }
557 : {
558 0 : int ret = in_grouping(z, g_v, 97, 251, 1);
559 0 : if (ret < 0) goto lab4;
560 0 : z->c += ret;
561 : }
779 peter 562 0 : z->I[0] = z->c;
5710 tgl 563 0 : lab4:
564 0 : z->c = c3;
565 : }
566 0 : return 1;
567 : }
568 :
779 peter 569 0 : static int r_postlude(struct SN_env * z) {
570 : int among_var;
571 0 : while(1) {
572 0 : int c1 = z->c;
573 0 : z->bra = z->c;
574 0 : if (z->c >= z->l || z->p[z->c + 0] >> 5 != 2 || !((35652352 >> (z->p[z->c + 0] & 0x1f)) & 1)) among_var = 7; else
1375 575 0 : among_var = find_among(z, a_1, 7);
5710 tgl 576 0 : if (!(among_var)) goto lab0;
779 peter 577 0 : z->ket = z->c;
578 0 : switch (among_var) {
5710 tgl 579 0 : case 1:
779 peter 580 0 : { int ret = slice_from_s(z, 1, s_7);
5710 tgl 581 0 : if (ret < 0) return ret;
582 : }
583 0 : break;
584 0 : case 2:
779 peter 585 0 : { int ret = slice_from_s(z, 1, s_8);
5710 tgl 586 0 : if (ret < 0) return ret;
587 : }
588 0 : break;
589 0 : case 3:
779 peter 590 0 : { int ret = slice_from_s(z, 1, s_9);
5710 tgl 591 0 : if (ret < 0) return ret;
592 : }
593 0 : break;
594 0 : case 4:
779 peter 595 0 : { int ret = slice_from_s(z, 1, s_10);
1375 596 0 : if (ret < 0) return ret;
597 : }
598 0 : break;
599 0 : case 5:
779 600 0 : { int ret = slice_from_s(z, 1, s_11);
1375 601 0 : if (ret < 0) return ret;
602 : }
603 0 : break;
604 0 : case 6:
779 605 0 : { int ret = slice_del(z);
1375 606 0 : if (ret < 0) return ret;
607 : }
608 0 : break;
609 0 : case 7:
5710 tgl 610 0 : if (z->c >= z->l) goto lab0;
779 peter 611 0 : z->c++;
5710 tgl 612 0 : break;
613 : }
614 0 : continue;
615 0 : lab0:
616 0 : z->c = c1;
617 0 : break;
618 : }
619 0 : return 1;
620 : }
621 :
779 peter 622 0 : static int r_RV(struct SN_env * z) {
623 0 : if (!(z->I[2] <= z->c)) return 0;
5710 tgl 624 0 : return 1;
625 : }
626 :
779 peter 627 0 : static int r_R1(struct SN_env * z) {
628 0 : if (!(z->I[1] <= z->c)) return 0;
5710 tgl 629 0 : return 1;
630 : }
631 :
779 peter 632 0 : static int r_R2(struct SN_env * z) {
633 0 : if (!(z->I[0] <= z->c)) return 0;
5710 tgl 634 0 : return 1;
635 : }
636 :
779 peter 637 0 : static int r_standard_suffix(struct SN_env * z) {
638 : int among_var;
639 0 : z->ket = z->c;
640 0 : among_var = find_among_b(z, a_4, 43);
5710 tgl 641 0 : if (!(among_var)) return 0;
779 peter 642 0 : z->bra = z->c;
643 0 : switch (among_var) {
5710 tgl 644 0 : case 1:
779 peter 645 0 : { int ret = r_R2(z);
1658 tgl 646 0 : if (ret <= 0) return ret;
647 : }
779 peter 648 0 : { int ret = slice_del(z);
5710 tgl 649 0 : if (ret < 0) return ret;
650 : }
651 0 : break;
652 0 : case 2:
779 peter 653 0 : { int ret = r_R2(z);
1658 tgl 654 0 : if (ret <= 0) return ret;
655 : }
779 peter 656 0 : { int ret = slice_del(z);
5710 tgl 657 0 : if (ret < 0) return ret;
658 : }
779 peter 659 0 : { int m1 = z->l - z->c; (void)m1;
660 0 : z->ket = z->c;
661 0 : if (!(eq_s_b(z, 2, s_12))) { z->c = z->l - m1; goto lab0; }
662 0 : z->bra = z->c;
663 0 : { int m2 = z->l - z->c; (void)m2;
664 0 : { int ret = r_R2(z);
1658 tgl 665 0 : if (ret == 0) goto lab2;
5710 666 0 : if (ret < 0) return ret;
667 : }
779 peter 668 0 : { int ret = slice_del(z);
5710 tgl 669 0 : if (ret < 0) return ret;
670 : }
671 0 : goto lab1;
672 0 : lab2:
1658 673 0 : z->c = z->l - m2;
779 peter 674 0 : { int ret = slice_from_s(z, 3, s_13);
5710 tgl 675 0 : if (ret < 0) return ret;
676 : }
677 : }
678 0 : lab1:
679 0 : lab0:
680 : ;
681 : }
682 0 : break;
683 0 : case 3:
779 peter 684 0 : { int ret = r_R2(z);
1658 tgl 685 0 : if (ret <= 0) return ret;
686 : }
779 peter 687 0 : { int ret = slice_from_s(z, 3, s_14);
5710 tgl 688 0 : if (ret < 0) return ret;
689 : }
690 0 : break;
691 0 : case 4:
779 peter 692 0 : { int ret = r_R2(z);
1658 tgl 693 0 : if (ret <= 0) return ret;
694 : }
779 peter 695 0 : { int ret = slice_from_s(z, 1, s_15);
5710 tgl 696 0 : if (ret < 0) return ret;
697 : }
698 0 : break;
699 0 : case 5:
779 peter 700 0 : { int ret = r_R2(z);
1658 tgl 701 0 : if (ret <= 0) return ret;
702 : }
779 peter 703 0 : { int ret = slice_from_s(z, 3, s_16);
5710 tgl 704 0 : if (ret < 0) return ret;
705 : }
706 0 : break;
707 0 : case 6:
779 peter 708 0 : { int ret = r_RV(z);
1658 tgl 709 0 : if (ret <= 0) return ret;
710 : }
779 peter 711 0 : { int ret = slice_del(z);
5710 tgl 712 0 : if (ret < 0) return ret;
713 : }
779 peter 714 0 : { int m3 = z->l - z->c; (void)m3;
715 0 : z->ket = z->c;
716 0 : among_var = find_among_b(z, a_2, 6);
1658 tgl 717 0 : if (!(among_var)) { z->c = z->l - m3; goto lab3; }
779 peter 718 0 : z->bra = z->c;
719 : switch (among_var) {
5710 tgl 720 0 : case 1:
779 peter 721 0 : { int ret = r_R2(z);
1658 tgl 722 0 : if (ret == 0) { z->c = z->l - m3; goto lab3; }
5710 723 0 : if (ret < 0) return ret;
724 : }
779 peter 725 0 : { int ret = slice_del(z);
5710 tgl 726 0 : if (ret < 0) return ret;
727 : }
779 peter 728 0 : z->ket = z->c;
729 0 : if (!(eq_s_b(z, 2, s_17))) { z->c = z->l - m3; goto lab3; }
730 0 : z->bra = z->c;
731 0 : { int ret = r_R2(z);
1658 tgl 732 0 : if (ret == 0) { z->c = z->l - m3; goto lab3; }
5710 733 0 : if (ret < 0) return ret;
734 : }
779 peter 735 0 : { int ret = slice_del(z);
5710 tgl 736 0 : if (ret < 0) return ret;
737 : }
738 0 : break;
739 0 : case 2:
779 peter 740 0 : { int m4 = z->l - z->c; (void)m4;
741 0 : { int ret = r_R2(z);
1658 tgl 742 0 : if (ret == 0) goto lab5;
5710 743 0 : if (ret < 0) return ret;
744 : }
779 peter 745 0 : { int ret = slice_del(z);
5710 tgl 746 0 : if (ret < 0) return ret;
747 : }
748 0 : goto lab4;
749 0 : lab5:
1658 750 0 : z->c = z->l - m4;
779 peter 751 0 : { int ret = r_R1(z);
1658 tgl 752 0 : if (ret == 0) { z->c = z->l - m3; goto lab3; }
5710 753 0 : if (ret < 0) return ret;
754 : }
779 peter 755 0 : { int ret = slice_from_s(z, 3, s_18);
5710 tgl 756 0 : if (ret < 0) return ret;
757 : }
758 : }
759 0 : lab4:
760 0 : break;
761 0 : case 3:
779 peter 762 0 : { int ret = r_R2(z);
1658 tgl 763 0 : if (ret == 0) { z->c = z->l - m3; goto lab3; }
5710 764 0 : if (ret < 0) return ret;
765 : }
779 peter 766 0 : { int ret = slice_del(z);
5710 tgl 767 0 : if (ret < 0) return ret;
768 : }
769 0 : break;
770 0 : case 4:
779 peter 771 0 : { int ret = r_RV(z);
1658 tgl 772 0 : if (ret == 0) { z->c = z->l - m3; goto lab3; }
5710 773 0 : if (ret < 0) return ret;
774 : }
779 peter 775 0 : { int ret = slice_from_s(z, 1, s_19);
5710 tgl 776 0 : if (ret < 0) return ret;
777 : }
778 0 : break;
779 : }
780 0 : lab3:
781 : ;
782 : }
783 0 : break;
784 0 : case 7:
779 peter 785 0 : { int ret = r_R2(z);
1658 tgl 786 0 : if (ret <= 0) return ret;
787 : }
779 peter 788 0 : { int ret = slice_del(z);
5710 tgl 789 0 : if (ret < 0) return ret;
790 : }
779 peter 791 0 : { int m5 = z->l - z->c; (void)m5;
792 0 : z->ket = z->c;
793 0 : if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((4198408 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->c = z->l - m5; goto lab6; }
1658 tgl 794 0 : among_var = find_among_b(z, a_3, 3);
795 0 : if (!(among_var)) { z->c = z->l - m5; goto lab6; }
779 peter 796 0 : z->bra = z->c;
797 : switch (among_var) {
5710 tgl 798 0 : case 1:
779 peter 799 0 : { int m6 = z->l - z->c; (void)m6;
800 0 : { int ret = r_R2(z);
1658 tgl 801 0 : if (ret == 0) goto lab8;
5710 802 0 : if (ret < 0) return ret;
803 : }
779 peter 804 0 : { int ret = slice_del(z);
5710 tgl 805 0 : if (ret < 0) return ret;
806 : }
807 0 : goto lab7;
808 0 : lab8:
1658 809 0 : z->c = z->l - m6;
779 peter 810 0 : { int ret = slice_from_s(z, 3, s_20);
5710 tgl 811 0 : if (ret < 0) return ret;
812 : }
813 : }
814 0 : lab7:
815 0 : break;
816 0 : case 2:
779 peter 817 0 : { int m7 = z->l - z->c; (void)m7;
818 0 : { int ret = r_R2(z);
1658 tgl 819 0 : if (ret == 0) goto lab10;
5710 820 0 : if (ret < 0) return ret;
821 : }
779 peter 822 0 : { int ret = slice_del(z);
5710 tgl 823 0 : if (ret < 0) return ret;
824 : }
825 0 : goto lab9;
826 0 : lab10:
1658 827 0 : z->c = z->l - m7;
779 peter 828 0 : { int ret = slice_from_s(z, 3, s_21);
5710 tgl 829 0 : if (ret < 0) return ret;
830 : }
831 : }
832 0 : lab9:
833 0 : break;
834 0 : case 3:
779 peter 835 0 : { int ret = r_R2(z);
1658 tgl 836 0 : if (ret == 0) { z->c = z->l - m5; goto lab6; }
5710 837 0 : if (ret < 0) return ret;
838 : }
779 peter 839 0 : { int ret = slice_del(z);
5710 tgl 840 0 : if (ret < 0) return ret;
841 : }
842 0 : break;
843 : }
844 0 : lab6:
845 : ;
846 : }
847 0 : break;
848 0 : case 8:
779 peter 849 0 : { int ret = r_R2(z);
1658 tgl 850 0 : if (ret <= 0) return ret;
851 : }
779 peter 852 0 : { int ret = slice_del(z);
5710 tgl 853 0 : if (ret < 0) return ret;
854 : }
779 peter 855 0 : { int m8 = z->l - z->c; (void)m8;
856 0 : z->ket = z->c;
857 0 : if (!(eq_s_b(z, 2, s_22))) { z->c = z->l - m8; goto lab11; }
858 0 : z->bra = z->c;
859 0 : { int ret = r_R2(z);
1658 tgl 860 0 : if (ret == 0) { z->c = z->l - m8; goto lab11; }
5710 861 0 : if (ret < 0) return ret;
862 : }
779 peter 863 0 : { int ret = slice_del(z);
5710 tgl 864 0 : if (ret < 0) return ret;
865 : }
779 peter 866 0 : z->ket = z->c;
867 0 : if (!(eq_s_b(z, 2, s_23))) { z->c = z->l - m8; goto lab11; }
868 0 : z->bra = z->c;
869 0 : { int m9 = z->l - z->c; (void)m9;
870 0 : { int ret = r_R2(z);
1658 tgl 871 0 : if (ret == 0) goto lab13;
5710 872 0 : if (ret < 0) return ret;
873 : }
779 peter 874 0 : { int ret = slice_del(z);
5710 tgl 875 0 : if (ret < 0) return ret;
876 : }
877 0 : goto lab12;
878 0 : lab13:
1658 879 0 : z->c = z->l - m9;
779 peter 880 0 : { int ret = slice_from_s(z, 3, s_24);
5710 tgl 881 0 : if (ret < 0) return ret;
882 : }
883 : }
884 0 : lab12:
885 0 : lab11:
886 : ;
887 : }
888 0 : break;
889 0 : case 9:
779 peter 890 0 : { int ret = slice_from_s(z, 3, s_25);
5710 tgl 891 0 : if (ret < 0) return ret;
892 : }
893 0 : break;
894 0 : case 10:
779 peter 895 0 : { int ret = r_R1(z);
1658 tgl 896 0 : if (ret <= 0) return ret;
897 : }
779 peter 898 0 : { int ret = slice_from_s(z, 2, s_26);
5710 tgl 899 0 : if (ret < 0) return ret;
900 : }
901 0 : break;
902 0 : case 11:
779 peter 903 0 : { int m10 = z->l - z->c; (void)m10;
904 0 : { int ret = r_R2(z);
1658 tgl 905 0 : if (ret == 0) goto lab15;
5710 906 0 : if (ret < 0) return ret;
907 : }
779 peter 908 0 : { int ret = slice_del(z);
5710 tgl 909 0 : if (ret < 0) return ret;
910 : }
911 0 : goto lab14;
912 0 : lab15:
1658 913 0 : z->c = z->l - m10;
779 peter 914 0 : { int ret = r_R1(z);
1658 tgl 915 0 : if (ret <= 0) return ret;
916 : }
779 peter 917 0 : { int ret = slice_from_s(z, 3, s_27);
5710 tgl 918 0 : if (ret < 0) return ret;
919 : }
920 : }
921 0 : lab14:
922 0 : break;
923 0 : case 12:
779 peter 924 0 : { int ret = r_R1(z);
1658 tgl 925 0 : if (ret <= 0) return ret;
926 : }
779 peter 927 0 : if (out_grouping_b(z, g_v, 97, 251, 0)) return 0;
928 0 : { int ret = slice_del(z);
5710 tgl 929 0 : if (ret < 0) return ret;
930 : }
931 0 : break;
932 0 : case 13:
779 peter 933 0 : { int ret = r_RV(z);
1658 tgl 934 0 : if (ret <= 0) return ret;
935 : }
779 peter 936 0 : { int ret = slice_from_s(z, 3, s_28);
5710 tgl 937 0 : if (ret < 0) return ret;
938 : }
779 peter 939 0 : return 0;
940 : break;
5710 tgl 941 0 : case 14:
779 peter 942 0 : { int ret = r_RV(z);
1658 tgl 943 0 : if (ret <= 0) return ret;
944 : }
779 peter 945 0 : { int ret = slice_from_s(z, 3, s_29);
5710 tgl 946 0 : if (ret < 0) return ret;
947 : }
779 peter 948 0 : return 0;
949 : break;
5710 tgl 950 0 : case 15:
779 peter 951 0 : { int m_test11 = z->l - z->c;
952 0 : if (in_grouping_b(z, g_v, 97, 251, 0)) return 0;
953 0 : { int ret = r_RV(z);
1658 tgl 954 0 : if (ret <= 0) return ret;
955 : }
956 0 : z->c = z->l - m_test11;
957 : }
779 peter 958 0 : { int ret = slice_del(z);
5710 tgl 959 0 : if (ret < 0) return ret;
960 : }
779 peter 961 0 : return 0;
962 : break;
963 : }
5710 tgl 964 0 : return 1;
965 : }
966 :
779 peter 967 0 : static int r_i_verb_suffix(struct SN_env * z) {
968 :
969 : { int mlimit1;
970 0 : if (z->c < z->I[2]) return 0;
971 0 : mlimit1 = z->lb; z->lb = z->I[2];
972 0 : z->ket = z->c;
973 0 : if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((68944418 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->lb = mlimit1; return 0; }
1658 tgl 974 0 : if (!(find_among_b(z, a_5, 35))) { z->lb = mlimit1; return 0; }
779 peter 975 0 : z->bra = z->c;
976 0 : { int m2 = z->l - z->c; (void)m2;
977 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'H') goto lab0;
1375 978 0 : z->c--;
979 0 : { z->lb = mlimit1; return 0; }
980 0 : lab0:
981 0 : z->c = z->l - m2;
982 : }
779 983 0 : if (out_grouping_b(z, g_v, 97, 251, 0)) { z->lb = mlimit1; return 0; }
984 0 : { int ret = slice_del(z);
1658 tgl 985 0 : if (ret < 0) return ret;
986 : }
987 0 : z->lb = mlimit1;
988 : }
5710 989 0 : return 1;
990 : }
991 :
779 peter 992 0 : static int r_verb_suffix(struct SN_env * z) {
993 : int among_var;
994 :
995 : { int mlimit1;
996 0 : if (z->c < z->I[2]) return 0;
997 0 : mlimit1 = z->lb; z->lb = z->I[2];
998 0 : z->ket = z->c;
999 0 : among_var = find_among_b(z, a_6, 38);
1658 tgl 1000 0 : if (!(among_var)) { z->lb = mlimit1; return 0; }
779 peter 1001 0 : z->bra = z->c;
1002 0 : switch (among_var) {
5710 tgl 1003 0 : case 1:
779 peter 1004 0 : { int ret = r_R2(z);
1658 tgl 1005 0 : if (ret == 0) { z->lb = mlimit1; return 0; }
5710 1006 0 : if (ret < 0) return ret;
1007 : }
779 peter 1008 0 : { int ret = slice_del(z);
5710 tgl 1009 0 : if (ret < 0) return ret;
1010 : }
1011 0 : break;
1012 0 : case 2:
779 peter 1013 0 : { int ret = slice_del(z);
5710 tgl 1014 0 : if (ret < 0) return ret;
1015 : }
1016 0 : break;
1017 0 : case 3:
779 peter 1018 0 : { int ret = slice_del(z);
5710 tgl 1019 0 : if (ret < 0) return ret;
1020 : }
779 peter 1021 0 : { int m2 = z->l - z->c; (void)m2;
1022 0 : z->ket = z->c;
1023 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'e') { z->c = z->l - m2; goto lab0; }
1658 tgl 1024 0 : z->c--;
779 peter 1025 0 : z->bra = z->c;
1026 0 : { int ret = slice_del(z);
5710 tgl 1027 0 : if (ret < 0) return ret;
1028 : }
1029 0 : lab0:
1030 : ;
1031 : }
1032 0 : break;
1033 : }
1658 1034 0 : z->lb = mlimit1;
1035 : }
5710 1036 0 : return 1;
1037 : }
1038 :
779 peter 1039 0 : static int r_residual_suffix(struct SN_env * z) {
1040 : int among_var;
1041 0 : { int m1 = z->l - z->c; (void)m1;
1042 0 : z->ket = z->c;
1043 0 : if (z->c <= z->lb || z->p[z->c - 1] != 's') { z->c = z->l - m1; goto lab0; }
1658 tgl 1044 0 : z->c--;
779 peter 1045 0 : z->bra = z->c;
1046 0 : { int m_test2 = z->l - z->c;
1047 0 : { int m3 = z->l - z->c; (void)m3;
1048 0 : if (!(eq_s_b(z, 2, s_30))) goto lab2;
1375 1049 0 : goto lab1;
1050 0 : lab2:
1051 0 : z->c = z->l - m3;
779 1052 0 : if (out_grouping_b(z, g_keep_with_s, 97, 232, 0)) { z->c = z->l - m1; goto lab0; }
1053 : }
1375 1054 0 : lab1:
1658 tgl 1055 0 : z->c = z->l - m_test2;
1056 : }
779 peter 1057 0 : { int ret = slice_del(z);
5710 tgl 1058 0 : if (ret < 0) return ret;
1059 : }
1060 0 : lab0:
1061 : ;
1062 : }
1063 :
1064 : { int mlimit4;
779 peter 1065 0 : if (z->c < z->I[2]) return 0;
1066 0 : mlimit4 = z->lb; z->lb = z->I[2];
1067 0 : z->ket = z->c;
1068 0 : if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((278560 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->lb = mlimit4; return 0; }
1375 1069 0 : among_var = find_among_b(z, a_7, 6);
1070 0 : if (!(among_var)) { z->lb = mlimit4; return 0; }
779 1071 0 : z->bra = z->c;
1072 0 : switch (among_var) {
5710 tgl 1073 0 : case 1:
779 peter 1074 0 : { int ret = r_R2(z);
1375 1075 0 : if (ret == 0) { z->lb = mlimit4; return 0; }
5710 tgl 1076 0 : if (ret < 0) return ret;
1077 : }
779 peter 1078 0 : { int m5 = z->l - z->c; (void)m5;
1079 0 : if (z->c <= z->lb || z->p[z->c - 1] != 's') goto lab4;
1658 tgl 1080 0 : z->c--;
1375 peter 1081 0 : goto lab3;
1082 0 : lab4:
1083 0 : z->c = z->l - m5;
779 1084 0 : if (z->c <= z->lb || z->p[z->c - 1] != 't') { z->lb = mlimit4; return 0; }
1658 tgl 1085 0 : z->c--;
1086 : }
1375 peter 1087 0 : lab3:
779 1088 0 : { int ret = slice_del(z);
5710 tgl 1089 0 : if (ret < 0) return ret;
1090 : }
1091 0 : break;
1092 0 : case 2:
779 peter 1093 0 : { int ret = slice_from_s(z, 1, s_31);
5710 tgl 1094 0 : if (ret < 0) return ret;
1095 : }
1096 0 : break;
1097 0 : case 3:
779 peter 1098 0 : { int ret = slice_del(z);
5710 tgl 1099 0 : if (ret < 0) return ret;
1100 : }
1101 0 : break;
1102 : }
1375 peter 1103 0 : z->lb = mlimit4;
1104 : }
5710 tgl 1105 0 : return 1;
1106 : }
1107 :
779 peter 1108 0 : static int r_un_double(struct SN_env * z) {
1109 0 : { int m_test1 = z->l - z->c;
1110 0 : if (z->c - 2 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1069056 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
1658 tgl 1111 0 : if (!(find_among_b(z, a_8, 5))) return 0;
1112 0 : z->c = z->l - m_test1;
1113 : }
779 peter 1114 0 : z->ket = z->c;
5710 tgl 1115 0 : if (z->c <= z->lb) return 0;
779 peter 1116 0 : z->c--;
1117 0 : z->bra = z->c;
1118 0 : { int ret = slice_del(z);
5710 tgl 1119 0 : if (ret < 0) return ret;
1120 : }
1121 0 : return 1;
1122 : }
1123 :
779 peter 1124 0 : static int r_un_accent(struct SN_env * z) {
5710 tgl 1125 0 : { int i = 1;
1126 : while(1) {
779 peter 1127 0 : if (out_grouping_b(z, g_v, 97, 251, 0)) goto lab0;
5710 tgl 1128 0 : i--;
1129 0 : continue;
1130 0 : lab0:
1131 0 : break;
1132 : }
1133 0 : if (i > 0) return 0;
1134 : }
779 peter 1135 0 : z->ket = z->c;
1136 0 : { int m1 = z->l - z->c; (void)m1;
1137 0 : if (z->c <= z->lb || z->p[z->c - 1] != 0xE9) goto lab2;
1658 tgl 1138 0 : z->c--;
5710 1139 0 : goto lab1;
1140 0 : lab2:
1141 0 : z->c = z->l - m1;
779 peter 1142 0 : if (z->c <= z->lb || z->p[z->c - 1] != 0xE8) return 0;
1658 tgl 1143 0 : z->c--;
1144 : }
5710 1145 0 : lab1:
779 peter 1146 0 : z->bra = z->c;
1147 0 : { int ret = slice_from_s(z, 1, s_32);
5710 tgl 1148 0 : if (ret < 0) return ret;
1149 : }
1150 0 : return 1;
1151 : }
1152 :
779 peter 1153 0 : extern int french_ISO_8859_1_stem(struct SN_env * z) {
1154 0 : { int c1 = z->c;
1155 0 : { int ret = r_prelude(z);
5710 tgl 1156 0 : if (ret < 0) return ret;
1157 : }
1158 0 : z->c = c1;
1159 : }
1160 :
779 peter 1161 0 : { int ret = r_mark_regions(z);
1658 tgl 1162 0 : if (ret < 0) return ret;
1163 : }
779 peter 1164 0 : z->lb = z->c; z->c = z->l;
1165 :
1166 0 : { int m2 = z->l - z->c; (void)m2;
1167 0 : { int m3 = z->l - z->c; (void)m3;
1168 0 : { int m4 = z->l - z->c; (void)m4;
1169 0 : { int m5 = z->l - z->c; (void)m5;
1170 0 : { int ret = r_standard_suffix(z);
1035 1171 0 : if (ret == 0) goto lab4;
5710 tgl 1172 0 : if (ret < 0) return ret;
1173 : }
1035 peter 1174 0 : goto lab3;
1175 0 : lab4:
1658 tgl 1176 0 : z->c = z->l - m5;
779 peter 1177 0 : { int ret = r_i_verb_suffix(z);
1035 1178 0 : if (ret == 0) goto lab5;
5710 tgl 1179 0 : if (ret < 0) return ret;
1180 : }
1035 peter 1181 0 : goto lab3;
1182 0 : lab5:
1658 tgl 1183 0 : z->c = z->l - m5;
779 peter 1184 0 : { int ret = r_verb_suffix(z);
1035 1185 0 : if (ret == 0) goto lab2;
5710 tgl 1186 0 : if (ret < 0) return ret;
1187 : }
1188 : }
1035 peter 1189 0 : lab3:
1658 tgl 1190 0 : z->c = z->l - m4;
779 peter 1191 0 : { int m6 = z->l - z->c; (void)m6;
1192 0 : z->ket = z->c;
1193 0 : { int m7 = z->l - z->c; (void)m7;
1194 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'Y') goto lab8;
1658 tgl 1195 0 : z->c--;
779 peter 1196 0 : z->bra = z->c;
1197 0 : { int ret = slice_from_s(z, 1, s_33);
5710 tgl 1198 0 : if (ret < 0) return ret;
1199 : }
1035 peter 1200 0 : goto lab7;
1201 0 : lab8:
5710 tgl 1202 0 : z->c = z->l - m7;
779 peter 1203 0 : if (z->c <= z->lb || z->p[z->c - 1] != 0xE7) { z->c = z->l - m6; goto lab6; }
1658 tgl 1204 0 : z->c--;
779 peter 1205 0 : z->bra = z->c;
1206 0 : { int ret = slice_from_s(z, 1, s_34);
5710 tgl 1207 0 : if (ret < 0) return ret;
1208 : }
1209 : }
1035 peter 1210 0 : lab7:
1211 0 : lab6:
1212 : ;
1213 : }
1214 : }
1215 0 : goto lab1;
1216 0 : lab2:
1658 tgl 1217 0 : z->c = z->l - m3;
779 peter 1218 0 : { int ret = r_residual_suffix(z);
1035 1219 0 : if (ret == 0) goto lab0;
5710 tgl 1220 0 : if (ret < 0) return ret;
1221 : }
1222 : }
1035 peter 1223 0 : lab1:
1224 0 : lab0:
1658 tgl 1225 0 : z->c = z->l - m2;
1226 : }
779 peter 1227 0 : { int m8 = z->l - z->c; (void)m8;
1228 0 : { int ret = r_un_double(z);
5710 tgl 1229 0 : if (ret < 0) return ret;
1230 : }
1231 0 : z->c = z->l - m8;
1232 : }
779 peter 1233 0 : { int m9 = z->l - z->c; (void)m9;
1234 0 : { int ret = r_un_accent(z);
5710 tgl 1235 0 : if (ret < 0) return ret;
1236 : }
1237 0 : z->c = z->l - m9;
1238 : }
1239 0 : z->c = z->lb;
779 peter 1240 0 : { int c10 = z->c;
1241 0 : { int ret = r_postlude(z);
5710 tgl 1242 0 : if (ret < 0) return ret;
1243 : }
1244 0 : z->c = c10;
1245 : }
1246 0 : return 1;
1247 : }
1248 :
779 peter 1249 0 : extern struct SN_env * french_ISO_8859_1_create_env(void) { return SN_create_env(0, 3); }
1250 :
5710 tgl 1251 0 : extern void french_ISO_8859_1_close_env(struct SN_env * z) { SN_close_env(z, 0); }
1252 :
|
