2 /* This file was generated automatically by the Snowball to ANSI C compiler */
9 extern int english_ISO_8859_1_stem(struct SN_env
* z
);
13 static int r_exception2(struct SN_env
* z
);
14 static int r_exception1(struct SN_env
* z
);
15 static int r_Step_5(struct SN_env
* z
);
16 static int r_Step_4(struct SN_env
* z
);
17 static int r_Step_3(struct SN_env
* z
);
18 static int r_Step_2(struct SN_env
* z
);
19 static int r_Step_1c(struct SN_env
* z
);
20 static int r_Step_1b(struct SN_env
* z
);
21 static int r_Step_1a(struct SN_env
* z
);
22 static int r_R2(struct SN_env
* z
);
23 static int r_R1(struct SN_env
* z
);
24 static int r_shortv(struct SN_env
* z
);
25 static int r_mark_regions(struct SN_env
* z
);
26 static int r_postlude(struct SN_env
* z
);
27 static int r_prelude(struct SN_env
* z
);
33 extern struct SN_env
* english_ISO_8859_1_create_env(void);
34 extern void english_ISO_8859_1_close_env(struct SN_env
* z
);
40 static const symbol s_0_0
[5] = { 'a', 'r', 's', 'e', 'n' };
41 static const symbol s_0_1
[6] = { 'c', 'o', 'm', 'm', 'u', 'n' };
42 static const symbol s_0_2
[5] = { 'g', 'e', 'n', 'e', 'r' };
44 static const struct among a_0
[3] =
46 /* 0 */ { 5, s_0_0
, -1, -1, 0},
47 /* 1 */ { 6, s_0_1
, -1, -1, 0},
48 /* 2 */ { 5, s_0_2
, -1, -1, 0}
51 static const symbol s_1_0
[1] = { '\'' };
52 static const symbol s_1_1
[3] = { '\'', 's', '\'' };
53 static const symbol s_1_2
[2] = { '\'', 's' };
55 static const struct among a_1
[3] =
57 /* 0 */ { 1, s_1_0
, -1, 1, 0},
58 /* 1 */ { 3, s_1_1
, 0, 1, 0},
59 /* 2 */ { 2, s_1_2
, -1, 1, 0}
62 static const symbol s_2_0
[3] = { 'i', 'e', 'd' };
63 static const symbol s_2_1
[1] = { 's' };
64 static const symbol s_2_2
[3] = { 'i', 'e', 's' };
65 static const symbol s_2_3
[4] = { 's', 's', 'e', 's' };
66 static const symbol s_2_4
[2] = { 's', 's' };
67 static const symbol s_2_5
[2] = { 'u', 's' };
69 static const struct among a_2
[6] =
71 /* 0 */ { 3, s_2_0
, -1, 2, 0},
72 /* 1 */ { 1, s_2_1
, -1, 3, 0},
73 /* 2 */ { 3, s_2_2
, 1, 2, 0},
74 /* 3 */ { 4, s_2_3
, 1, 1, 0},
75 /* 4 */ { 2, s_2_4
, 1, -1, 0},
76 /* 5 */ { 2, s_2_5
, 1, -1, 0}
79 static const symbol s_3_1
[2] = { 'b', 'b' };
80 static const symbol s_3_2
[2] = { 'd', 'd' };
81 static const symbol s_3_3
[2] = { 'f', 'f' };
82 static const symbol s_3_4
[2] = { 'g', 'g' };
83 static const symbol s_3_5
[2] = { 'b', 'l' };
84 static const symbol s_3_6
[2] = { 'm', 'm' };
85 static const symbol s_3_7
[2] = { 'n', 'n' };
86 static const symbol s_3_8
[2] = { 'p', 'p' };
87 static const symbol s_3_9
[2] = { 'r', 'r' };
88 static const symbol s_3_10
[2] = { 'a', 't' };
89 static const symbol s_3_11
[2] = { 't', 't' };
90 static const symbol s_3_12
[2] = { 'i', 'z' };
92 static const struct among a_3
[13] =
94 /* 0 */ { 0, 0, -1, 3, 0},
95 /* 1 */ { 2, s_3_1
, 0, 2, 0},
96 /* 2 */ { 2, s_3_2
, 0, 2, 0},
97 /* 3 */ { 2, s_3_3
, 0, 2, 0},
98 /* 4 */ { 2, s_3_4
, 0, 2, 0},
99 /* 5 */ { 2, s_3_5
, 0, 1, 0},
100 /* 6 */ { 2, s_3_6
, 0, 2, 0},
101 /* 7 */ { 2, s_3_7
, 0, 2, 0},
102 /* 8 */ { 2, s_3_8
, 0, 2, 0},
103 /* 9 */ { 2, s_3_9
, 0, 2, 0},
104 /* 10 */ { 2, s_3_10
, 0, 1, 0},
105 /* 11 */ { 2, s_3_11
, 0, 2, 0},
106 /* 12 */ { 2, s_3_12
, 0, 1, 0}
109 static const symbol s_4_0
[2] = { 'e', 'd' };
110 static const symbol s_4_1
[3] = { 'e', 'e', 'd' };
111 static const symbol s_4_2
[3] = { 'i', 'n', 'g' };
112 static const symbol s_4_3
[4] = { 'e', 'd', 'l', 'y' };
113 static const symbol s_4_4
[5] = { 'e', 'e', 'd', 'l', 'y' };
114 static const symbol s_4_5
[5] = { 'i', 'n', 'g', 'l', 'y' };
116 static const struct among a_4
[6] =
118 /* 0 */ { 2, s_4_0
, -1, 2, 0},
119 /* 1 */ { 3, s_4_1
, 0, 1, 0},
120 /* 2 */ { 3, s_4_2
, -1, 2, 0},
121 /* 3 */ { 4, s_4_3
, -1, 2, 0},
122 /* 4 */ { 5, s_4_4
, 3, 1, 0},
123 /* 5 */ { 5, s_4_5
, -1, 2, 0}
126 static const symbol s_5_0
[4] = { 'a', 'n', 'c', 'i' };
127 static const symbol s_5_1
[4] = { 'e', 'n', 'c', 'i' };
128 static const symbol s_5_2
[3] = { 'o', 'g', 'i' };
129 static const symbol s_5_3
[2] = { 'l', 'i' };
130 static const symbol s_5_4
[3] = { 'b', 'l', 'i' };
131 static const symbol s_5_5
[4] = { 'a', 'b', 'l', 'i' };
132 static const symbol s_5_6
[4] = { 'a', 'l', 'l', 'i' };
133 static const symbol s_5_7
[5] = { 'f', 'u', 'l', 'l', 'i' };
134 static const symbol s_5_8
[6] = { 'l', 'e', 's', 's', 'l', 'i' };
135 static const symbol s_5_9
[5] = { 'o', 'u', 's', 'l', 'i' };
136 static const symbol s_5_10
[5] = { 'e', 'n', 't', 'l', 'i' };
137 static const symbol s_5_11
[5] = { 'a', 'l', 'i', 't', 'i' };
138 static const symbol s_5_12
[6] = { 'b', 'i', 'l', 'i', 't', 'i' };
139 static const symbol s_5_13
[5] = { 'i', 'v', 'i', 't', 'i' };
140 static const symbol s_5_14
[6] = { 't', 'i', 'o', 'n', 'a', 'l' };
141 static const symbol s_5_15
[7] = { 'a', 't', 'i', 'o', 'n', 'a', 'l' };
142 static const symbol s_5_16
[5] = { 'a', 'l', 'i', 's', 'm' };
143 static const symbol s_5_17
[5] = { 'a', 't', 'i', 'o', 'n' };
144 static const symbol s_5_18
[7] = { 'i', 'z', 'a', 't', 'i', 'o', 'n' };
145 static const symbol s_5_19
[4] = { 'i', 'z', 'e', 'r' };
146 static const symbol s_5_20
[4] = { 'a', 't', 'o', 'r' };
147 static const symbol s_5_21
[7] = { 'i', 'v', 'e', 'n', 'e', 's', 's' };
148 static const symbol s_5_22
[7] = { 'f', 'u', 'l', 'n', 'e', 's', 's' };
149 static const symbol s_5_23
[7] = { 'o', 'u', 's', 'n', 'e', 's', 's' };
151 static const struct among a_5
[24] =
153 /* 0 */ { 4, s_5_0
, -1, 3, 0},
154 /* 1 */ { 4, s_5_1
, -1, 2, 0},
155 /* 2 */ { 3, s_5_2
, -1, 13, 0},
156 /* 3 */ { 2, s_5_3
, -1, 16, 0},
157 /* 4 */ { 3, s_5_4
, 3, 12, 0},
158 /* 5 */ { 4, s_5_5
, 4, 4, 0},
159 /* 6 */ { 4, s_5_6
, 3, 8, 0},
160 /* 7 */ { 5, s_5_7
, 3, 14, 0},
161 /* 8 */ { 6, s_5_8
, 3, 15, 0},
162 /* 9 */ { 5, s_5_9
, 3, 10, 0},
163 /* 10 */ { 5, s_5_10
, 3, 5, 0},
164 /* 11 */ { 5, s_5_11
, -1, 8, 0},
165 /* 12 */ { 6, s_5_12
, -1, 12, 0},
166 /* 13 */ { 5, s_5_13
, -1, 11, 0},
167 /* 14 */ { 6, s_5_14
, -1, 1, 0},
168 /* 15 */ { 7, s_5_15
, 14, 7, 0},
169 /* 16 */ { 5, s_5_16
, -1, 8, 0},
170 /* 17 */ { 5, s_5_17
, -1, 7, 0},
171 /* 18 */ { 7, s_5_18
, 17, 6, 0},
172 /* 19 */ { 4, s_5_19
, -1, 6, 0},
173 /* 20 */ { 4, s_5_20
, -1, 7, 0},
174 /* 21 */ { 7, s_5_21
, -1, 11, 0},
175 /* 22 */ { 7, s_5_22
, -1, 9, 0},
176 /* 23 */ { 7, s_5_23
, -1, 10, 0}
179 static const symbol s_6_0
[5] = { 'i', 'c', 'a', 't', 'e' };
180 static const symbol s_6_1
[5] = { 'a', 't', 'i', 'v', 'e' };
181 static const symbol s_6_2
[5] = { 'a', 'l', 'i', 'z', 'e' };
182 static const symbol s_6_3
[5] = { 'i', 'c', 'i', 't', 'i' };
183 static const symbol s_6_4
[4] = { 'i', 'c', 'a', 'l' };
184 static const symbol s_6_5
[6] = { 't', 'i', 'o', 'n', 'a', 'l' };
185 static const symbol s_6_6
[7] = { 'a', 't', 'i', 'o', 'n', 'a', 'l' };
186 static const symbol s_6_7
[3] = { 'f', 'u', 'l' };
187 static const symbol s_6_8
[4] = { 'n', 'e', 's', 's' };
189 static const struct among a_6
[9] =
191 /* 0 */ { 5, s_6_0
, -1, 4, 0},
192 /* 1 */ { 5, s_6_1
, -1, 6, 0},
193 /* 2 */ { 5, s_6_2
, -1, 3, 0},
194 /* 3 */ { 5, s_6_3
, -1, 4, 0},
195 /* 4 */ { 4, s_6_4
, -1, 4, 0},
196 /* 5 */ { 6, s_6_5
, -1, 1, 0},
197 /* 6 */ { 7, s_6_6
, 5, 2, 0},
198 /* 7 */ { 3, s_6_7
, -1, 5, 0},
199 /* 8 */ { 4, s_6_8
, -1, 5, 0}
202 static const symbol s_7_0
[2] = { 'i', 'c' };
203 static const symbol s_7_1
[4] = { 'a', 'n', 'c', 'e' };
204 static const symbol s_7_2
[4] = { 'e', 'n', 'c', 'e' };
205 static const symbol s_7_3
[4] = { 'a', 'b', 'l', 'e' };
206 static const symbol s_7_4
[4] = { 'i', 'b', 'l', 'e' };
207 static const symbol s_7_5
[3] = { 'a', 't', 'e' };
208 static const symbol s_7_6
[3] = { 'i', 'v', 'e' };
209 static const symbol s_7_7
[3] = { 'i', 'z', 'e' };
210 static const symbol s_7_8
[3] = { 'i', 't', 'i' };
211 static const symbol s_7_9
[2] = { 'a', 'l' };
212 static const symbol s_7_10
[3] = { 'i', 's', 'm' };
213 static const symbol s_7_11
[3] = { 'i', 'o', 'n' };
214 static const symbol s_7_12
[2] = { 'e', 'r' };
215 static const symbol s_7_13
[3] = { 'o', 'u', 's' };
216 static const symbol s_7_14
[3] = { 'a', 'n', 't' };
217 static const symbol s_7_15
[3] = { 'e', 'n', 't' };
218 static const symbol s_7_16
[4] = { 'm', 'e', 'n', 't' };
219 static const symbol s_7_17
[5] = { 'e', 'm', 'e', 'n', 't' };
221 static const struct among a_7
[18] =
223 /* 0 */ { 2, s_7_0
, -1, 1, 0},
224 /* 1 */ { 4, s_7_1
, -1, 1, 0},
225 /* 2 */ { 4, s_7_2
, -1, 1, 0},
226 /* 3 */ { 4, s_7_3
, -1, 1, 0},
227 /* 4 */ { 4, s_7_4
, -1, 1, 0},
228 /* 5 */ { 3, s_7_5
, -1, 1, 0},
229 /* 6 */ { 3, s_7_6
, -1, 1, 0},
230 /* 7 */ { 3, s_7_7
, -1, 1, 0},
231 /* 8 */ { 3, s_7_8
, -1, 1, 0},
232 /* 9 */ { 2, s_7_9
, -1, 1, 0},
233 /* 10 */ { 3, s_7_10
, -1, 1, 0},
234 /* 11 */ { 3, s_7_11
, -1, 2, 0},
235 /* 12 */ { 2, s_7_12
, -1, 1, 0},
236 /* 13 */ { 3, s_7_13
, -1, 1, 0},
237 /* 14 */ { 3, s_7_14
, -1, 1, 0},
238 /* 15 */ { 3, s_7_15
, -1, 1, 0},
239 /* 16 */ { 4, s_7_16
, 15, 1, 0},
240 /* 17 */ { 5, s_7_17
, 16, 1, 0}
243 static const symbol s_8_0
[1] = { 'e' };
244 static const symbol s_8_1
[1] = { 'l' };
246 static const struct among a_8
[2] =
248 /* 0 */ { 1, s_8_0
, -1, 1, 0},
249 /* 1 */ { 1, s_8_1
, -1, 2, 0}
252 static const symbol s_9_0
[7] = { 's', 'u', 'c', 'c', 'e', 'e', 'd' };
253 static const symbol s_9_1
[7] = { 'p', 'r', 'o', 'c', 'e', 'e', 'd' };
254 static const symbol s_9_2
[6] = { 'e', 'x', 'c', 'e', 'e', 'd' };
255 static const symbol s_9_3
[7] = { 'c', 'a', 'n', 'n', 'i', 'n', 'g' };
256 static const symbol s_9_4
[6] = { 'i', 'n', 'n', 'i', 'n', 'g' };
257 static const symbol s_9_5
[7] = { 'e', 'a', 'r', 'r', 'i', 'n', 'g' };
258 static const symbol s_9_6
[7] = { 'h', 'e', 'r', 'r', 'i', 'n', 'g' };
259 static const symbol s_9_7
[6] = { 'o', 'u', 't', 'i', 'n', 'g' };
261 static const struct among a_9
[8] =
263 /* 0 */ { 7, s_9_0
, -1, -1, 0},
264 /* 1 */ { 7, s_9_1
, -1, -1, 0},
265 /* 2 */ { 6, s_9_2
, -1, -1, 0},
266 /* 3 */ { 7, s_9_3
, -1, -1, 0},
267 /* 4 */ { 6, s_9_4
, -1, -1, 0},
268 /* 5 */ { 7, s_9_5
, -1, -1, 0},
269 /* 6 */ { 7, s_9_6
, -1, -1, 0},
270 /* 7 */ { 6, s_9_7
, -1, -1, 0}
273 static const symbol s_10_0
[5] = { 'a', 'n', 'd', 'e', 's' };
274 static const symbol s_10_1
[5] = { 'a', 't', 'l', 'a', 's' };
275 static const symbol s_10_2
[4] = { 'b', 'i', 'a', 's' };
276 static const symbol s_10_3
[6] = { 'c', 'o', 's', 'm', 'o', 's' };
277 static const symbol s_10_4
[5] = { 'd', 'y', 'i', 'n', 'g' };
278 static const symbol s_10_5
[5] = { 'e', 'a', 'r', 'l', 'y' };
279 static const symbol s_10_6
[6] = { 'g', 'e', 'n', 't', 'l', 'y' };
280 static const symbol s_10_7
[4] = { 'h', 'o', 'w', 'e' };
281 static const symbol s_10_8
[4] = { 'i', 'd', 'l', 'y' };
282 static const symbol s_10_9
[5] = { 'l', 'y', 'i', 'n', 'g' };
283 static const symbol s_10_10
[4] = { 'n', 'e', 'w', 's' };
284 static const symbol s_10_11
[4] = { 'o', 'n', 'l', 'y' };
285 static const symbol s_10_12
[6] = { 's', 'i', 'n', 'g', 'l', 'y' };
286 static const symbol s_10_13
[5] = { 's', 'k', 'i', 'e', 's' };
287 static const symbol s_10_14
[4] = { 's', 'k', 'i', 's' };
288 static const symbol s_10_15
[3] = { 's', 'k', 'y' };
289 static const symbol s_10_16
[5] = { 't', 'y', 'i', 'n', 'g' };
290 static const symbol s_10_17
[4] = { 'u', 'g', 'l', 'y' };
292 static const struct among a_10
[18] =
294 /* 0 */ { 5, s_10_0
, -1, -1, 0},
295 /* 1 */ { 5, s_10_1
, -1, -1, 0},
296 /* 2 */ { 4, s_10_2
, -1, -1, 0},
297 /* 3 */ { 6, s_10_3
, -1, -1, 0},
298 /* 4 */ { 5, s_10_4
, -1, 3, 0},
299 /* 5 */ { 5, s_10_5
, -1, 9, 0},
300 /* 6 */ { 6, s_10_6
, -1, 7, 0},
301 /* 7 */ { 4, s_10_7
, -1, -1, 0},
302 /* 8 */ { 4, s_10_8
, -1, 6, 0},
303 /* 9 */ { 5, s_10_9
, -1, 4, 0},
304 /* 10 */ { 4, s_10_10
, -1, -1, 0},
305 /* 11 */ { 4, s_10_11
, -1, 10, 0},
306 /* 12 */ { 6, s_10_12
, -1, 11, 0},
307 /* 13 */ { 5, s_10_13
, -1, 2, 0},
308 /* 14 */ { 4, s_10_14
, -1, 1, 0},
309 /* 15 */ { 3, s_10_15
, -1, -1, 0},
310 /* 16 */ { 5, s_10_16
, -1, 5, 0},
311 /* 17 */ { 4, s_10_17
, -1, 8, 0}
314 static const unsigned char g_v
[] = { 17, 65, 16, 1 };
316 static const unsigned char g_v_WXY
[] = { 1, 17, 65, 208, 1 };
318 static const unsigned char g_valid_LI
[] = { 55, 141, 2 };
320 static const symbol s_0
[] = { '\'' };
321 static const symbol s_1
[] = { 'y' };
322 static const symbol s_2
[] = { 'Y' };
323 static const symbol s_3
[] = { 'y' };
324 static const symbol s_4
[] = { 'Y' };
325 static const symbol s_5
[] = { 's', 's' };
326 static const symbol s_6
[] = { 'i' };
327 static const symbol s_7
[] = { 'i', 'e' };
328 static const symbol s_8
[] = { 'e', 'e' };
329 static const symbol s_9
[] = { 'e' };
330 static const symbol s_10
[] = { 'e' };
331 static const symbol s_11
[] = { 'y' };
332 static const symbol s_12
[] = { 'Y' };
333 static const symbol s_13
[] = { 'i' };
334 static const symbol s_14
[] = { 't', 'i', 'o', 'n' };
335 static const symbol s_15
[] = { 'e', 'n', 'c', 'e' };
336 static const symbol s_16
[] = { 'a', 'n', 'c', 'e' };
337 static const symbol s_17
[] = { 'a', 'b', 'l', 'e' };
338 static const symbol s_18
[] = { 'e', 'n', 't' };
339 static const symbol s_19
[] = { 'i', 'z', 'e' };
340 static const symbol s_20
[] = { 'a', 't', 'e' };
341 static const symbol s_21
[] = { 'a', 'l' };
342 static const symbol s_22
[] = { 'f', 'u', 'l' };
343 static const symbol s_23
[] = { 'o', 'u', 's' };
344 static const symbol s_24
[] = { 'i', 'v', 'e' };
345 static const symbol s_25
[] = { 'b', 'l', 'e' };
346 static const symbol s_26
[] = { 'l' };
347 static const symbol s_27
[] = { 'o', 'g' };
348 static const symbol s_28
[] = { 'f', 'u', 'l' };
349 static const symbol s_29
[] = { 'l', 'e', 's', 's' };
350 static const symbol s_30
[] = { 't', 'i', 'o', 'n' };
351 static const symbol s_31
[] = { 'a', 't', 'e' };
352 static const symbol s_32
[] = { 'a', 'l' };
353 static const symbol s_33
[] = { 'i', 'c' };
354 static const symbol s_34
[] = { 's' };
355 static const symbol s_35
[] = { 't' };
356 static const symbol s_36
[] = { 'l' };
357 static const symbol s_37
[] = { 's', 'k', 'i' };
358 static const symbol s_38
[] = { 's', 'k', 'y' };
359 static const symbol s_39
[] = { 'd', 'i', 'e' };
360 static const symbol s_40
[] = { 'l', 'i', 'e' };
361 static const symbol s_41
[] = { 't', 'i', 'e' };
362 static const symbol s_42
[] = { 'i', 'd', 'l' };
363 static const symbol s_43
[] = { 'g', 'e', 'n', 't', 'l' };
364 static const symbol s_44
[] = { 'u', 'g', 'l', 'i' };
365 static const symbol s_45
[] = { 'e', 'a', 'r', 'l', 'i' };
366 static const symbol s_46
[] = { 'o', 'n', 'l', 'i' };
367 static const symbol s_47
[] = { 's', 'i', 'n', 'g', 'l' };
368 static const symbol s_48
[] = { 'Y' };
369 static const symbol s_49
[] = { 'y' };
371 static int r_prelude(struct SN_env
* z
) {
372 z
->B
[0] = 0; /* unset Y_found, line 26 */
373 { int c1
= z
->c
; /* do, line 27 */
374 z
->bra
= z
->c
; /* [, line 27 */
375 if (!(eq_s(z
, 1, s_0
))) goto lab0
;
376 z
->ket
= z
->c
; /* ], line 27 */
377 { int ret
= slice_del(z
); /* delete, line 27 */
378 if (ret
< 0) return ret
;
383 { int c2
= z
->c
; /* do, line 28 */
384 z
->bra
= z
->c
; /* [, line 28 */
385 if (!(eq_s(z
, 1, s_1
))) goto lab1
;
386 z
->ket
= z
->c
; /* ], line 28 */
387 { int ret
= slice_from_s(z
, 1, s_2
); /* <-, line 28 */
388 if (ret
< 0) return ret
;
390 z
->B
[0] = 1; /* set Y_found, line 28 */
394 { int c3
= z
->c
; /* do, line 29 */
395 while(1) { /* repeat, line 29 */
397 while(1) { /* goto, line 29 */
399 if (in_grouping(z
, g_v
, 97, 121, 0)) goto lab4
;
400 z
->bra
= z
->c
; /* [, line 29 */
401 if (!(eq_s(z
, 1, s_3
))) goto lab4
;
402 z
->ket
= z
->c
; /* ], line 29 */
407 if (z
->c
>= z
->l
) goto lab3
;
408 z
->c
++; /* goto, line 29 */
410 { int ret
= slice_from_s(z
, 1, s_4
); /* <-, line 29 */
411 if (ret
< 0) return ret
;
413 z
->B
[0] = 1; /* set Y_found, line 29 */
424 static int r_mark_regions(struct SN_env
* z
) {
427 { int c1
= z
->c
; /* do, line 35 */
428 { int c2
= z
->c
; /* or, line 41 */
429 if (z
->c
+ 4 >= z
->l
|| z
->p
[z
->c
+ 4] >> 5 != 3 || !((2375680 >> (z
->p
[z
->c
+ 4] & 0x1f)) & 1)) goto lab2
;
430 if (!(find_among(z
, a_0
, 3))) goto lab2
; /* among, line 36 */
434 { /* gopast */ /* grouping v, line 41 */
435 int ret
= out_grouping(z
, g_v
, 97, 121, 1);
436 if (ret
< 0) goto lab0
;
439 { /* gopast */ /* non v, line 41 */
440 int ret
= in_grouping(z
, g_v
, 97, 121, 1);
441 if (ret
< 0) goto lab0
;
446 z
->I
[0] = z
->c
; /* setmark p1, line 42 */
447 { /* gopast */ /* grouping v, line 43 */
448 int ret
= out_grouping(z
, g_v
, 97, 121, 1);
449 if (ret
< 0) goto lab0
;
452 { /* gopast */ /* non v, line 43 */
453 int ret
= in_grouping(z
, g_v
, 97, 121, 1);
454 if (ret
< 0) goto lab0
;
457 z
->I
[1] = z
->c
; /* setmark p2, line 43 */
464 static int r_shortv(struct SN_env
* z
) {
465 { int m1
= z
->l
- z
->c
; (void)m1
; /* or, line 51 */
466 if (out_grouping_b(z
, g_v_WXY
, 89, 121, 0)) goto lab1
;
467 if (in_grouping_b(z
, g_v
, 97, 121, 0)) goto lab1
;
468 if (out_grouping_b(z
, g_v
, 97, 121, 0)) goto lab1
;
472 if (out_grouping_b(z
, g_v
, 97, 121, 0)) return 0;
473 if (in_grouping_b(z
, g_v
, 97, 121, 0)) return 0;
474 if (z
->c
> z
->lb
) return 0; /* atlimit, line 52 */
480 static int r_R1(struct SN_env
* z
) {
481 if (!(z
->I
[0] <= z
->c
)) return 0;
485 static int r_R2(struct SN_env
* z
) {
486 if (!(z
->I
[1] <= z
->c
)) return 0;
490 static int r_Step_1a(struct SN_env
* z
) {
492 { int m_keep
= z
->l
- z
->c
;/* (void) m_keep;*/ /* try, line 59 */
493 z
->ket
= z
->c
; /* [, line 60 */
494 if (z
->c
<= z
->lb
|| (z
->p
[z
->c
- 1] != 39 && z
->p
[z
->c
- 1] != 115)) { z
->c
= z
->l
- m_keep
; goto lab0
; }
495 among_var
= find_among_b(z
, a_1
, 3); /* substring, line 60 */
496 if (!(among_var
)) { z
->c
= z
->l
- m_keep
; goto lab0
; }
497 z
->bra
= z
->c
; /* ], line 60 */
499 case 0: { z
->c
= z
->l
- m_keep
; goto lab0
; }
501 { int ret
= slice_del(z
); /* delete, line 62 */
502 if (ret
< 0) return ret
;
509 z
->ket
= z
->c
; /* [, line 65 */
510 if (z
->c
<= z
->lb
|| (z
->p
[z
->c
- 1] != 100 && z
->p
[z
->c
- 1] != 115)) return 0;
511 among_var
= find_among_b(z
, a_2
, 6); /* substring, line 65 */
512 if (!(among_var
)) return 0;
513 z
->bra
= z
->c
; /* ], line 65 */
517 { int ret
= slice_from_s(z
, 2, s_5
); /* <-, line 66 */
518 if (ret
< 0) return ret
;
522 { int m1
= z
->l
- z
->c
; (void)m1
; /* or, line 68 */
523 { int ret
= z
->c
- 2;
524 if (z
->lb
> ret
|| ret
> z
->l
) goto lab2
;
525 z
->c
= ret
; /* hop, line 68 */
527 { int ret
= slice_from_s(z
, 1, s_6
); /* <-, line 68 */
528 if (ret
< 0) return ret
;
533 { int ret
= slice_from_s(z
, 2, s_7
); /* <-, line 68 */
534 if (ret
< 0) return ret
;
540 if (z
->c
<= z
->lb
) return 0;
541 z
->c
--; /* next, line 69 */
542 { /* gopast */ /* grouping v, line 69 */
543 int ret
= out_grouping_b(z
, g_v
, 97, 121, 1);
544 if (ret
< 0) return 0;
547 { int ret
= slice_del(z
); /* delete, line 69 */
548 if (ret
< 0) return ret
;
555 static int r_Step_1b(struct SN_env
* z
) {
557 z
->ket
= z
->c
; /* [, line 75 */
558 if (z
->c
- 1 <= z
->lb
|| z
->p
[z
->c
- 1] >> 5 != 3 || !((33554576 >> (z
->p
[z
->c
- 1] & 0x1f)) & 1)) return 0;
559 among_var
= find_among_b(z
, a_4
, 6); /* substring, line 75 */
560 if (!(among_var
)) return 0;
561 z
->bra
= z
->c
; /* ], line 75 */
566 if (ret
== 0) return 0; /* call R1, line 77 */
567 if (ret
< 0) return ret
;
569 { int ret
= slice_from_s(z
, 2, s_8
); /* <-, line 77 */
570 if (ret
< 0) return ret
;
574 { int m_test
= z
->l
- z
->c
; /* test, line 80 */
575 { /* gopast */ /* grouping v, line 80 */
576 int ret
= out_grouping_b(z
, g_v
, 97, 121, 1);
577 if (ret
< 0) return 0;
580 z
->c
= z
->l
- m_test
;
582 { int ret
= slice_del(z
); /* delete, line 80 */
583 if (ret
< 0) return ret
;
585 { int m_test
= z
->l
- z
->c
; /* test, line 81 */
586 if (z
->c
- 1 <= z
->lb
|| z
->p
[z
->c
- 1] >> 5 != 3 || !((68514004 >> (z
->p
[z
->c
- 1] & 0x1f)) & 1)) among_var
= 3; else
587 among_var
= find_among_b(z
, a_3
, 13); /* substring, line 81 */
588 if (!(among_var
)) return 0;
589 z
->c
= z
->l
- m_test
;
595 int ret
= insert_s(z
, z
->c
, z
->c
, 1, s_9
); /* <+, line 83 */
597 if (ret
< 0) return ret
;
601 z
->ket
= z
->c
; /* [, line 86 */
602 if (z
->c
<= z
->lb
) return 0;
603 z
->c
--; /* next, line 86 */
604 z
->bra
= z
->c
; /* ], line 86 */
605 { int ret
= slice_del(z
); /* delete, line 86 */
606 if (ret
< 0) return ret
;
610 if (z
->c
!= z
->I
[0]) return 0; /* atmark, line 87 */
611 { int m_test
= z
->l
- z
->c
; /* test, line 87 */
612 { int ret
= r_shortv(z
);
613 if (ret
== 0) return 0; /* call shortv, line 87 */
614 if (ret
< 0) return ret
;
616 z
->c
= z
->l
- m_test
;
619 int ret
= insert_s(z
, z
->c
, z
->c
, 1, s_10
); /* <+, line 87 */
621 if (ret
< 0) return ret
;
630 static int r_Step_1c(struct SN_env
* z
) {
631 z
->ket
= z
->c
; /* [, line 94 */
632 { int m1
= z
->l
- z
->c
; (void)m1
; /* or, line 94 */
633 if (!(eq_s_b(z
, 1, s_11
))) goto lab1
;
637 if (!(eq_s_b(z
, 1, s_12
))) return 0;
640 z
->bra
= z
->c
; /* ], line 94 */
641 if (out_grouping_b(z
, g_v
, 97, 121, 0)) return 0;
642 { int m2
= z
->l
- z
->c
; (void)m2
; /* not, line 95 */
643 if (z
->c
> z
->lb
) goto lab2
; /* atlimit, line 95 */
648 { int ret
= slice_from_s(z
, 1, s_13
); /* <-, line 96 */
649 if (ret
< 0) return ret
;
654 static int r_Step_2(struct SN_env
* z
) {
656 z
->ket
= z
->c
; /* [, line 100 */
657 if (z
->c
- 1 <= z
->lb
|| z
->p
[z
->c
- 1] >> 5 != 3 || !((815616 >> (z
->p
[z
->c
- 1] & 0x1f)) & 1)) return 0;
658 among_var
= find_among_b(z
, a_5
, 24); /* substring, line 100 */
659 if (!(among_var
)) return 0;
660 z
->bra
= z
->c
; /* ], line 100 */
662 if (ret
== 0) return 0; /* call R1, line 100 */
663 if (ret
< 0) return ret
;
668 { int ret
= slice_from_s(z
, 4, s_14
); /* <-, line 101 */
669 if (ret
< 0) return ret
;
673 { int ret
= slice_from_s(z
, 4, s_15
); /* <-, line 102 */
674 if (ret
< 0) return ret
;
678 { int ret
= slice_from_s(z
, 4, s_16
); /* <-, line 103 */
679 if (ret
< 0) return ret
;
683 { int ret
= slice_from_s(z
, 4, s_17
); /* <-, line 104 */
684 if (ret
< 0) return ret
;
688 { int ret
= slice_from_s(z
, 3, s_18
); /* <-, line 105 */
689 if (ret
< 0) return ret
;
693 { int ret
= slice_from_s(z
, 3, s_19
); /* <-, line 107 */
694 if (ret
< 0) return ret
;
698 { int ret
= slice_from_s(z
, 3, s_20
); /* <-, line 109 */
699 if (ret
< 0) return ret
;
703 { int ret
= slice_from_s(z
, 2, s_21
); /* <-, line 111 */
704 if (ret
< 0) return ret
;
708 { int ret
= slice_from_s(z
, 3, s_22
); /* <-, line 112 */
709 if (ret
< 0) return ret
;
713 { int ret
= slice_from_s(z
, 3, s_23
); /* <-, line 114 */
714 if (ret
< 0) return ret
;
718 { int ret
= slice_from_s(z
, 3, s_24
); /* <-, line 116 */
719 if (ret
< 0) return ret
;
723 { int ret
= slice_from_s(z
, 3, s_25
); /* <-, line 118 */
724 if (ret
< 0) return ret
;
728 if (!(eq_s_b(z
, 1, s_26
))) return 0;
729 { int ret
= slice_from_s(z
, 2, s_27
); /* <-, line 119 */
730 if (ret
< 0) return ret
;
734 { int ret
= slice_from_s(z
, 3, s_28
); /* <-, line 120 */
735 if (ret
< 0) return ret
;
739 { int ret
= slice_from_s(z
, 4, s_29
); /* <-, line 121 */
740 if (ret
< 0) return ret
;
744 if (in_grouping_b(z
, g_valid_LI
, 99, 116, 0)) return 0;
745 { int ret
= slice_del(z
); /* delete, line 122 */
746 if (ret
< 0) return ret
;
753 static int r_Step_3(struct SN_env
* z
) {
755 z
->ket
= z
->c
; /* [, line 127 */
756 if (z
->c
- 2 <= z
->lb
|| z
->p
[z
->c
- 1] >> 5 != 3 || !((528928 >> (z
->p
[z
->c
- 1] & 0x1f)) & 1)) return 0;
757 among_var
= find_among_b(z
, a_6
, 9); /* substring, line 127 */
758 if (!(among_var
)) return 0;
759 z
->bra
= z
->c
; /* ], line 127 */
761 if (ret
== 0) return 0; /* call R1, line 127 */
762 if (ret
< 0) return ret
;
767 { int ret
= slice_from_s(z
, 4, s_30
); /* <-, line 128 */
768 if (ret
< 0) return ret
;
772 { int ret
= slice_from_s(z
, 3, s_31
); /* <-, line 129 */
773 if (ret
< 0) return ret
;
777 { int ret
= slice_from_s(z
, 2, s_32
); /* <-, line 130 */
778 if (ret
< 0) return ret
;
782 { int ret
= slice_from_s(z
, 2, s_33
); /* <-, line 132 */
783 if (ret
< 0) return ret
;
787 { int ret
= slice_del(z
); /* delete, line 134 */
788 if (ret
< 0) return ret
;
793 if (ret
== 0) return 0; /* call R2, line 136 */
794 if (ret
< 0) return ret
;
796 { int ret
= slice_del(z
); /* delete, line 136 */
797 if (ret
< 0) return ret
;
804 static int r_Step_4(struct SN_env
* z
) {
806 z
->ket
= z
->c
; /* [, line 141 */
807 if (z
->c
- 1 <= z
->lb
|| z
->p
[z
->c
- 1] >> 5 != 3 || !((1864232 >> (z
->p
[z
->c
- 1] & 0x1f)) & 1)) return 0;
808 among_var
= find_among_b(z
, a_7
, 18); /* substring, line 141 */
809 if (!(among_var
)) return 0;
810 z
->bra
= z
->c
; /* ], line 141 */
812 if (ret
== 0) return 0; /* call R2, line 141 */
813 if (ret
< 0) return ret
;
818 { int ret
= slice_del(z
); /* delete, line 144 */
819 if (ret
< 0) return ret
;
823 { int m1
= z
->l
- z
->c
; (void)m1
; /* or, line 145 */
824 if (!(eq_s_b(z
, 1, s_34
))) goto lab1
;
828 if (!(eq_s_b(z
, 1, s_35
))) return 0;
831 { int ret
= slice_del(z
); /* delete, line 145 */
832 if (ret
< 0) return ret
;
839 static int r_Step_5(struct SN_env
* z
) {
841 z
->ket
= z
->c
; /* [, line 150 */
842 if (z
->c
<= z
->lb
|| (z
->p
[z
->c
- 1] != 101 && z
->p
[z
->c
- 1] != 108)) return 0;
843 among_var
= find_among_b(z
, a_8
, 2); /* substring, line 150 */
844 if (!(among_var
)) return 0;
845 z
->bra
= z
->c
; /* ], line 150 */
849 { int m1
= z
->l
- z
->c
; (void)m1
; /* or, line 151 */
851 if (ret
== 0) goto lab1
; /* call R2, line 151 */
852 if (ret
< 0) return ret
;
858 if (ret
== 0) return 0; /* call R1, line 151 */
859 if (ret
< 0) return ret
;
861 { int m2
= z
->l
- z
->c
; (void)m2
; /* not, line 151 */
862 { int ret
= r_shortv(z
);
863 if (ret
== 0) goto lab2
; /* call shortv, line 151 */
864 if (ret
< 0) return ret
;
872 { int ret
= slice_del(z
); /* delete, line 151 */
873 if (ret
< 0) return ret
;
878 if (ret
== 0) return 0; /* call R2, line 152 */
879 if (ret
< 0) return ret
;
881 if (!(eq_s_b(z
, 1, s_36
))) return 0;
882 { int ret
= slice_del(z
); /* delete, line 152 */
883 if (ret
< 0) return ret
;
890 static int r_exception2(struct SN_env
* z
) {
891 z
->ket
= z
->c
; /* [, line 158 */
892 if (z
->c
- 5 <= z
->lb
|| (z
->p
[z
->c
- 1] != 100 && z
->p
[z
->c
- 1] != 103)) return 0;
893 if (!(find_among_b(z
, a_9
, 8))) return 0; /* substring, line 158 */
894 z
->bra
= z
->c
; /* ], line 158 */
895 if (z
->c
> z
->lb
) return 0; /* atlimit, line 158 */
899 static int r_exception1(struct SN_env
* z
) {
901 z
->bra
= z
->c
; /* [, line 170 */
902 if (z
->c
+ 2 >= z
->l
|| z
->p
[z
->c
+ 2] >> 5 != 3 || !((42750482 >> (z
->p
[z
->c
+ 2] & 0x1f)) & 1)) return 0;
903 among_var
= find_among(z
, a_10
, 18); /* substring, line 170 */
904 if (!(among_var
)) return 0;
905 z
->ket
= z
->c
; /* ], line 170 */
906 if (z
->c
< z
->l
) return 0; /* atlimit, line 170 */
910 { int ret
= slice_from_s(z
, 3, s_37
); /* <-, line 174 */
911 if (ret
< 0) return ret
;
915 { int ret
= slice_from_s(z
, 3, s_38
); /* <-, line 175 */
916 if (ret
< 0) return ret
;
920 { int ret
= slice_from_s(z
, 3, s_39
); /* <-, line 176 */
921 if (ret
< 0) return ret
;
925 { int ret
= slice_from_s(z
, 3, s_40
); /* <-, line 177 */
926 if (ret
< 0) return ret
;
930 { int ret
= slice_from_s(z
, 3, s_41
); /* <-, line 178 */
931 if (ret
< 0) return ret
;
935 { int ret
= slice_from_s(z
, 3, s_42
); /* <-, line 182 */
936 if (ret
< 0) return ret
;
940 { int ret
= slice_from_s(z
, 5, s_43
); /* <-, line 183 */
941 if (ret
< 0) return ret
;
945 { int ret
= slice_from_s(z
, 4, s_44
); /* <-, line 184 */
946 if (ret
< 0) return ret
;
950 { int ret
= slice_from_s(z
, 5, s_45
); /* <-, line 185 */
951 if (ret
< 0) return ret
;
955 { int ret
= slice_from_s(z
, 4, s_46
); /* <-, line 186 */
956 if (ret
< 0) return ret
;
960 { int ret
= slice_from_s(z
, 5, s_47
); /* <-, line 187 */
961 if (ret
< 0) return ret
;
968 static int r_postlude(struct SN_env
* z
) {
969 if (!(z
->B
[0])) return 0; /* Boolean test Y_found, line 203 */
970 while(1) { /* repeat, line 203 */
972 while(1) { /* goto, line 203 */
974 z
->bra
= z
->c
; /* [, line 203 */
975 if (!(eq_s(z
, 1, s_48
))) goto lab1
;
976 z
->ket
= z
->c
; /* ], line 203 */
981 if (z
->c
>= z
->l
) goto lab0
;
982 z
->c
++; /* goto, line 203 */
984 { int ret
= slice_from_s(z
, 1, s_49
); /* <-, line 203 */
985 if (ret
< 0) return ret
;
995 extern int english_ISO_8859_1_stem(struct SN_env
* z
) {
996 { int c1
= z
->c
; /* or, line 207 */
997 { int ret
= r_exception1(z
);
998 if (ret
== 0) goto lab1
; /* call exception1, line 207 */
999 if (ret
< 0) return ret
;
1004 { int c2
= z
->c
; /* not, line 208 */
1005 { int ret
= z
->c
+ 3;
1006 if (0 > ret
|| ret
> z
->l
) goto lab3
;
1007 z
->c
= ret
; /* hop, line 208 */
1016 { int c3
= z
->c
; /* do, line 209 */
1017 { int ret
= r_prelude(z
);
1018 if (ret
== 0) goto lab4
; /* call prelude, line 209 */
1019 if (ret
< 0) return ret
;
1024 { int c4
= z
->c
; /* do, line 210 */
1025 { int ret
= r_mark_regions(z
);
1026 if (ret
== 0) goto lab5
; /* call mark_regions, line 210 */
1027 if (ret
< 0) return ret
;
1032 z
->lb
= z
->c
; z
->c
= z
->l
; /* backwards, line 211 */
1034 { int m5
= z
->l
- z
->c
; (void)m5
; /* do, line 213 */
1035 { int ret
= r_Step_1a(z
);
1036 if (ret
== 0) goto lab6
; /* call Step_1a, line 213 */
1037 if (ret
< 0) return ret
;
1042 { int m6
= z
->l
- z
->c
; (void)m6
; /* or, line 215 */
1043 { int ret
= r_exception2(z
);
1044 if (ret
== 0) goto lab8
; /* call exception2, line 215 */
1045 if (ret
< 0) return ret
;
1050 { int m7
= z
->l
- z
->c
; (void)m7
; /* do, line 217 */
1051 { int ret
= r_Step_1b(z
);
1052 if (ret
== 0) goto lab9
; /* call Step_1b, line 217 */
1053 if (ret
< 0) return ret
;
1058 { int m8
= z
->l
- z
->c
; (void)m8
; /* do, line 218 */
1059 { int ret
= r_Step_1c(z
);
1060 if (ret
== 0) goto lab10
; /* call Step_1c, line 218 */
1061 if (ret
< 0) return ret
;
1066 { int m9
= z
->l
- z
->c
; (void)m9
; /* do, line 220 */
1067 { int ret
= r_Step_2(z
);
1068 if (ret
== 0) goto lab11
; /* call Step_2, line 220 */
1069 if (ret
< 0) return ret
;
1074 { int m10
= z
->l
- z
->c
; (void)m10
; /* do, line 221 */
1075 { int ret
= r_Step_3(z
);
1076 if (ret
== 0) goto lab12
; /* call Step_3, line 221 */
1077 if (ret
< 0) return ret
;
1082 { int m11
= z
->l
- z
->c
; (void)m11
; /* do, line 222 */
1083 { int ret
= r_Step_4(z
);
1084 if (ret
== 0) goto lab13
; /* call Step_4, line 222 */
1085 if (ret
< 0) return ret
;
1090 { int m12
= z
->l
- z
->c
; (void)m12
; /* do, line 224 */
1091 { int ret
= r_Step_5(z
);
1092 if (ret
== 0) goto lab14
; /* call Step_5, line 224 */
1093 if (ret
< 0) return ret
;
1101 { int c13
= z
->c
; /* do, line 227 */
1102 { int ret
= r_postlude(z
);
1103 if (ret
== 0) goto lab15
; /* call postlude, line 227 */
1104 if (ret
< 0) return ret
;
1114 extern struct SN_env
* english_ISO_8859_1_create_env(void) { return SN_create_env(0, 2, 1); }
1116 extern void english_ISO_8859_1_close_env(struct SN_env
* z
) { SN_close_env(z
, 0); }