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