Age Owner Branch data TLA Line data Source code
1 : : /* Generated from english.sbl by Snowball 3.0.0 - https://snowballstem.org/ */
2 : :
3 : : #include "stem_ISO_8859_1_english.h"
4 : :
5 : : #include <stddef.h>
6 : :
7 : : #include "snowball_runtime.h"
8 : :
9 : : struct SN_local {
10 : : struct SN_env z;
11 : : int i_p2;
12 : : int i_p1;
13 : : unsigned char b_Y_found;
14 : : };
15 : :
16 : : typedef struct SN_local SN_local;
17 : :
18 : : #ifdef __cplusplus
19 : : extern "C" {
20 : : #endif
21 : : extern int english_ISO_8859_1_stem(struct SN_env * z);
22 : : #ifdef __cplusplus
23 : : }
24 : : #endif
25 : :
26 : : static int r_exception1(struct SN_env * z);
27 : : static int r_Step_5(struct SN_env * z);
28 : : static int r_Step_4(struct SN_env * z);
29 : : static int r_Step_3(struct SN_env * z);
30 : : static int r_Step_2(struct SN_env * z);
31 : : static int r_Step_1c(struct SN_env * z);
32 : : static int r_Step_1b(struct SN_env * z);
33 : : static int r_Step_1a(struct SN_env * z);
34 : : static int r_R2(struct SN_env * z);
35 : : static int r_R1(struct SN_env * z);
36 : : static int r_shortv(struct SN_env * z);
37 : : static int r_mark_regions(struct SN_env * z);
38 : : static int r_postlude(struct SN_env * z);
39 : : static int r_prelude(struct SN_env * z);
40 : :
41 : : static const symbol s_0[] = { 'Y' };
42 : : static const symbol s_1[] = { 'Y' };
43 : : static const symbol s_2[] = { 'p', 'a', 's', 't' };
44 : : static const symbol s_3[] = { 's', 's' };
45 : : static const symbol s_4[] = { 'i' };
46 : : static const symbol s_5[] = { 'i', 'e' };
47 : : static const symbol s_6[] = { 'e', 'e' };
48 : : static const symbol s_7[] = { 'i', 'e' };
49 : : static const symbol s_8[] = { 'e' };
50 : : static const symbol s_9[] = { 'e' };
51 : : static const symbol s_10[] = { 'i' };
52 : : static const symbol s_11[] = { 't', 'i', 'o', 'n' };
53 : : static const symbol s_12[] = { 'e', 'n', 'c', 'e' };
54 : : static const symbol s_13[] = { 'a', 'n', 'c', 'e' };
55 : : static const symbol s_14[] = { 'a', 'b', 'l', 'e' };
56 : : static const symbol s_15[] = { 'e', 'n', 't' };
57 : : static const symbol s_16[] = { 'i', 'z', 'e' };
58 : : static const symbol s_17[] = { 'a', 't', 'e' };
59 : : static const symbol s_18[] = { 'a', 'l' };
60 : : static const symbol s_19[] = { 'f', 'u', 'l' };
61 : : static const symbol s_20[] = { 'o', 'u', 's' };
62 : : static const symbol s_21[] = { 'i', 'v', 'e' };
63 : : static const symbol s_22[] = { 'b', 'l', 'e' };
64 : : static const symbol s_23[] = { 'o', 'g' };
65 : : static const symbol s_24[] = { 'o', 'g' };
66 : : static const symbol s_25[] = { 'l', 'e', 's', 's' };
67 : : static const symbol s_26[] = { 't', 'i', 'o', 'n' };
68 : : static const symbol s_27[] = { 'a', 't', 'e' };
69 : : static const symbol s_28[] = { 'a', 'l' };
70 : : static const symbol s_29[] = { 'i', 'c' };
71 : : static const symbol s_30[] = { 's', 'k', 'i' };
72 : : static const symbol s_31[] = { 's', 'k', 'y' };
73 : : static const symbol s_32[] = { 'i', 'd', 'l' };
74 : : static const symbol s_33[] = { 'g', 'e', 'n', 't', 'l' };
75 : : static const symbol s_34[] = { 'u', 'g', 'l', 'i' };
76 : : static const symbol s_35[] = { 'e', 'a', 'r', 'l', 'i' };
77 : : static const symbol s_36[] = { 'o', 'n', 'l', 'i' };
78 : : static const symbol s_37[] = { 's', 'i', 'n', 'g', 'l' };
79 : : static const symbol s_38[] = { 'y' };
80 : :
81 : : static const symbol s_0_0[5] = { 'a', 'r', 's', 'e', 'n' };
82 : : static const symbol s_0_1[6] = { 'c', 'o', 'm', 'm', 'u', 'n' };
83 : : static const symbol s_0_2[5] = { 'e', 'm', 'e', 'r', 'g' };
84 : : static const symbol s_0_3[5] = { 'g', 'e', 'n', 'e', 'r' };
85 : : static const symbol s_0_4[5] = { 'i', 'n', 't', 'e', 'r' };
86 : : static const symbol s_0_5[5] = { 'l', 'a', 't', 'e', 'r' };
87 : : static const symbol s_0_6[5] = { 'o', 'r', 'g', 'a', 'n' };
88 : : static const symbol s_0_7[4] = { 'p', 'a', 's', 't' };
89 : : static const symbol s_0_8[7] = { 'u', 'n', 'i', 'v', 'e', 'r', 's' };
90 : : static const struct among a_0[9] = {
91 : : { 5, s_0_0, 0, -1, 0},
92 : : { 6, s_0_1, 0, -1, 0},
93 : : { 5, s_0_2, 0, -1, 0},
94 : : { 5, s_0_3, 0, -1, 0},
95 : : { 5, s_0_4, 0, -1, 0},
96 : : { 5, s_0_5, 0, -1, 0},
97 : : { 5, s_0_6, 0, -1, 0},
98 : : { 4, s_0_7, 0, -1, 0},
99 : : { 7, s_0_8, 0, -1, 0}
100 : : };
101 : :
102 : : static const symbol s_1_0[1] = { '\'' };
103 : : static const symbol s_1_1[3] = { '\'', 's', '\'' };
104 : : static const symbol s_1_2[2] = { '\'', 's' };
105 : : static const struct among a_1[3] = {
106 : : { 1, s_1_0, 0, 1, 0},
107 : : { 3, s_1_1, -1, 1, 0},
108 : : { 2, s_1_2, 0, 1, 0}
109 : : };
110 : :
111 : : static const symbol s_2_0[3] = { 'i', 'e', 'd' };
112 : : static const symbol s_2_1[1] = { 's' };
113 : : static const symbol s_2_2[3] = { 'i', 'e', 's' };
114 : : static const symbol s_2_3[4] = { 's', 's', 'e', 's' };
115 : : static const symbol s_2_4[2] = { 's', 's' };
116 : : static const symbol s_2_5[2] = { 'u', 's' };
117 : : static const struct among a_2[6] = {
118 : : { 3, s_2_0, 0, 2, 0},
119 : : { 1, s_2_1, 0, 3, 0},
120 : : { 3, s_2_2, -1, 2, 0},
121 : : { 4, s_2_3, -2, 1, 0},
122 : : { 2, s_2_4, -3, -1, 0},
123 : : { 2, s_2_5, -4, -1, 0}
124 : : };
125 : :
126 : : static const symbol s_3_0[4] = { 's', 'u', 'c', 'c' };
127 : : static const symbol s_3_1[4] = { 'p', 'r', 'o', 'c' };
128 : : static const symbol s_3_2[3] = { 'e', 'x', 'c' };
129 : : static const struct among a_3[3] = {
130 : : { 4, s_3_0, 0, 1, 0},
131 : : { 4, s_3_1, 0, 1, 0},
132 : : { 3, s_3_2, 0, 1, 0}
133 : : };
134 : :
135 : : static const symbol s_4_0[4] = { 'e', 'v', 'e', 'n' };
136 : : static const symbol s_4_1[4] = { 'c', 'a', 'n', 'n' };
137 : : static const symbol s_4_2[3] = { 'i', 'n', 'n' };
138 : : static const symbol s_4_3[4] = { 'e', 'a', 'r', 'r' };
139 : : static const symbol s_4_4[4] = { 'h', 'e', 'r', 'r' };
140 : : static const symbol s_4_5[3] = { 'o', 'u', 't' };
141 : : static const symbol s_4_6[1] = { 'y' };
142 : : static const struct among a_4[7] = {
143 : : { 4, s_4_0, 0, 2, 0},
144 : : { 4, s_4_1, 0, 2, 0},
145 : : { 3, s_4_2, 0, 2, 0},
146 : : { 4, s_4_3, 0, 2, 0},
147 : : { 4, s_4_4, 0, 2, 0},
148 : : { 3, s_4_5, 0, 2, 0},
149 : : { 1, s_4_6, 0, 1, 0}
150 : : };
151 : :
152 : : static const symbol s_5_1[2] = { 'e', 'd' };
153 : : static const symbol s_5_2[3] = { 'e', 'e', 'd' };
154 : : static const symbol s_5_3[3] = { 'i', 'n', 'g' };
155 : : static const symbol s_5_4[4] = { 'e', 'd', 'l', 'y' };
156 : : static const symbol s_5_5[5] = { 'e', 'e', 'd', 'l', 'y' };
157 : : static const symbol s_5_6[5] = { 'i', 'n', 'g', 'l', 'y' };
158 : : static const struct among a_5[7] = {
159 : : { 0, 0, 0, -1, 0},
160 : : { 2, s_5_1, -1, 2, 0},
161 : : { 3, s_5_2, -1, 1, 0},
162 : : { 3, s_5_3, -3, 3, 0},
163 : : { 4, s_5_4, -4, 2, 0},
164 : : { 5, s_5_5, -1, 1, 0},
165 : : { 5, s_5_6, -6, 2, 0}
166 : : };
167 : :
168 : : static const symbol s_6_1[2] = { 'b', 'b' };
169 : : static const symbol s_6_2[2] = { 'd', 'd' };
170 : : static const symbol s_6_3[2] = { 'f', 'f' };
171 : : static const symbol s_6_4[2] = { 'g', 'g' };
172 : : static const symbol s_6_5[2] = { 'b', 'l' };
173 : : static const symbol s_6_6[2] = { 'm', 'm' };
174 : : static const symbol s_6_7[2] = { 'n', 'n' };
175 : : static const symbol s_6_8[2] = { 'p', 'p' };
176 : : static const symbol s_6_9[2] = { 'r', 'r' };
177 : : static const symbol s_6_10[2] = { 'a', 't' };
178 : : static const symbol s_6_11[2] = { 't', 't' };
179 : : static const symbol s_6_12[2] = { 'i', 'z' };
180 : : static const struct among a_6[13] = {
181 : : { 0, 0, 0, 3, 0},
182 : : { 2, s_6_1, -1, 2, 0},
183 : : { 2, s_6_2, -2, 2, 0},
184 : : { 2, s_6_3, -3, 2, 0},
185 : : { 2, s_6_4, -4, 2, 0},
186 : : { 2, s_6_5, -5, 1, 0},
187 : : { 2, s_6_6, -6, 2, 0},
188 : : { 2, s_6_7, -7, 2, 0},
189 : : { 2, s_6_8, -8, 2, 0},
190 : : { 2, s_6_9, -9, 2, 0},
191 : : { 2, s_6_10, -10, 1, 0},
192 : : { 2, s_6_11, -11, 2, 0},
193 : : { 2, s_6_12, -12, 1, 0}
194 : : };
195 : :
196 : : static const symbol s_7_0[4] = { 'a', 'n', 'c', 'i' };
197 : : static const symbol s_7_1[4] = { 'e', 'n', 'c', 'i' };
198 : : static const symbol s_7_2[3] = { 'o', 'g', 'i' };
199 : : static const symbol s_7_3[2] = { 'l', 'i' };
200 : : static const symbol s_7_4[3] = { 'b', 'l', 'i' };
201 : : static const symbol s_7_5[4] = { 'a', 'b', 'l', 'i' };
202 : : static const symbol s_7_6[4] = { 'a', 'l', 'l', 'i' };
203 : : static const symbol s_7_7[5] = { 'f', 'u', 'l', 'l', 'i' };
204 : : static const symbol s_7_8[6] = { 'l', 'e', 's', 's', 'l', 'i' };
205 : : static const symbol s_7_9[5] = { 'o', 'u', 's', 'l', 'i' };
206 : : static const symbol s_7_10[5] = { 'e', 'n', 't', 'l', 'i' };
207 : : static const symbol s_7_11[5] = { 'a', 'l', 'i', 't', 'i' };
208 : : static const symbol s_7_12[6] = { 'b', 'i', 'l', 'i', 't', 'i' };
209 : : static const symbol s_7_13[5] = { 'i', 'v', 'i', 't', 'i' };
210 : : static const symbol s_7_14[6] = { 't', 'i', 'o', 'n', 'a', 'l' };
211 : : static const symbol s_7_15[7] = { 'a', 't', 'i', 'o', 'n', 'a', 'l' };
212 : : static const symbol s_7_16[5] = { 'a', 'l', 'i', 's', 'm' };
213 : : static const symbol s_7_17[5] = { 'a', 't', 'i', 'o', 'n' };
214 : : static const symbol s_7_18[7] = { 'i', 'z', 'a', 't', 'i', 'o', 'n' };
215 : : static const symbol s_7_19[4] = { 'i', 'z', 'e', 'r' };
216 : : static const symbol s_7_20[4] = { 'a', 't', 'o', 'r' };
217 : : static const symbol s_7_21[7] = { 'i', 'v', 'e', 'n', 'e', 's', 's' };
218 : : static const symbol s_7_22[7] = { 'f', 'u', 'l', 'n', 'e', 's', 's' };
219 : : static const symbol s_7_23[7] = { 'o', 'u', 's', 'n', 'e', 's', 's' };
220 : : static const symbol s_7_24[5] = { 'o', 'g', 'i', 's', 't' };
221 : : static const struct among a_7[25] = {
222 : : { 4, s_7_0, 0, 3, 0},
223 : : { 4, s_7_1, 0, 2, 0},
224 : : { 3, s_7_2, 0, 14, 0},
225 : : { 2, s_7_3, 0, 16, 0},
226 : : { 3, s_7_4, -1, 12, 0},
227 : : { 4, s_7_5, -1, 4, 0},
228 : : { 4, s_7_6, -3, 8, 0},
229 : : { 5, s_7_7, -4, 9, 0},
230 : : { 6, s_7_8, -5, 15, 0},
231 : : { 5, s_7_9, -6, 10, 0},
232 : : { 5, s_7_10, -7, 5, 0},
233 : : { 5, s_7_11, 0, 8, 0},
234 : : { 6, s_7_12, 0, 12, 0},
235 : : { 5, s_7_13, 0, 11, 0},
236 : : { 6, s_7_14, 0, 1, 0},
237 : : { 7, s_7_15, -1, 7, 0},
238 : : { 5, s_7_16, 0, 8, 0},
239 : : { 5, s_7_17, 0, 7, 0},
240 : : { 7, s_7_18, -1, 6, 0},
241 : : { 4, s_7_19, 0, 6, 0},
242 : : { 4, s_7_20, 0, 7, 0},
243 : : { 7, s_7_21, 0, 11, 0},
244 : : { 7, s_7_22, 0, 9, 0},
245 : : { 7, s_7_23, 0, 10, 0},
246 : : { 5, s_7_24, 0, 13, 0}
247 : : };
248 : :
249 : : static const symbol s_8_0[5] = { 'i', 'c', 'a', 't', 'e' };
250 : : static const symbol s_8_1[5] = { 'a', 't', 'i', 'v', 'e' };
251 : : static const symbol s_8_2[5] = { 'a', 'l', 'i', 'z', 'e' };
252 : : static const symbol s_8_3[5] = { 'i', 'c', 'i', 't', 'i' };
253 : : static const symbol s_8_4[4] = { 'i', 'c', 'a', 'l' };
254 : : static const symbol s_8_5[6] = { 't', 'i', 'o', 'n', 'a', 'l' };
255 : : static const symbol s_8_6[7] = { 'a', 't', 'i', 'o', 'n', 'a', 'l' };
256 : : static const symbol s_8_7[3] = { 'f', 'u', 'l' };
257 : : static const symbol s_8_8[4] = { 'n', 'e', 's', 's' };
258 : : static const struct among a_8[9] = {
259 : : { 5, s_8_0, 0, 4, 0},
260 : : { 5, s_8_1, 0, 6, 0},
261 : : { 5, s_8_2, 0, 3, 0},
262 : : { 5, s_8_3, 0, 4, 0},
263 : : { 4, s_8_4, 0, 4, 0},
264 : : { 6, s_8_5, 0, 1, 0},
265 : : { 7, s_8_6, -1, 2, 0},
266 : : { 3, s_8_7, 0, 5, 0},
267 : : { 4, s_8_8, 0, 5, 0}
268 : : };
269 : :
270 : : static const symbol s_9_0[2] = { 'i', 'c' };
271 : : static const symbol s_9_1[4] = { 'a', 'n', 'c', 'e' };
272 : : static const symbol s_9_2[4] = { 'e', 'n', 'c', 'e' };
273 : : static const symbol s_9_3[4] = { 'a', 'b', 'l', 'e' };
274 : : static const symbol s_9_4[4] = { 'i', 'b', 'l', 'e' };
275 : : static const symbol s_9_5[3] = { 'a', 't', 'e' };
276 : : static const symbol s_9_6[3] = { 'i', 'v', 'e' };
277 : : static const symbol s_9_7[3] = { 'i', 'z', 'e' };
278 : : static const symbol s_9_8[3] = { 'i', 't', 'i' };
279 : : static const symbol s_9_9[2] = { 'a', 'l' };
280 : : static const symbol s_9_10[3] = { 'i', 's', 'm' };
281 : : static const symbol s_9_11[3] = { 'i', 'o', 'n' };
282 : : static const symbol s_9_12[2] = { 'e', 'r' };
283 : : static const symbol s_9_13[3] = { 'o', 'u', 's' };
284 : : static const symbol s_9_14[3] = { 'a', 'n', 't' };
285 : : static const symbol s_9_15[3] = { 'e', 'n', 't' };
286 : : static const symbol s_9_16[4] = { 'm', 'e', 'n', 't' };
287 : : static const symbol s_9_17[5] = { 'e', 'm', 'e', 'n', 't' };
288 : : static const struct among a_9[18] = {
289 : : { 2, s_9_0, 0, 1, 0},
290 : : { 4, s_9_1, 0, 1, 0},
291 : : { 4, s_9_2, 0, 1, 0},
292 : : { 4, s_9_3, 0, 1, 0},
293 : : { 4, s_9_4, 0, 1, 0},
294 : : { 3, s_9_5, 0, 1, 0},
295 : : { 3, s_9_6, 0, 1, 0},
296 : : { 3, s_9_7, 0, 1, 0},
297 : : { 3, s_9_8, 0, 1, 0},
298 : : { 2, s_9_9, 0, 1, 0},
299 : : { 3, s_9_10, 0, 1, 0},
300 : : { 3, s_9_11, 0, 2, 0},
301 : : { 2, s_9_12, 0, 1, 0},
302 : : { 3, s_9_13, 0, 1, 0},
303 : : { 3, s_9_14, 0, 1, 0},
304 : : { 3, s_9_15, 0, 1, 0},
305 : : { 4, s_9_16, -1, 1, 0},
306 : : { 5, s_9_17, -1, 1, 0}
307 : : };
308 : :
309 : : static const symbol s_10_0[1] = { 'e' };
310 : : static const symbol s_10_1[1] = { 'l' };
311 : : static const struct among a_10[2] = {
312 : : { 1, s_10_0, 0, 1, 0},
313 : : { 1, s_10_1, 0, 2, 0}
314 : : };
315 : :
316 : : static const symbol s_11_0[5] = { 'a', 'n', 'd', 'e', 's' };
317 : : static const symbol s_11_1[5] = { 'a', 't', 'l', 'a', 's' };
318 : : static const symbol s_11_2[4] = { 'b', 'i', 'a', 's' };
319 : : static const symbol s_11_3[6] = { 'c', 'o', 's', 'm', 'o', 's' };
320 : : static const symbol s_11_4[5] = { 'e', 'a', 'r', 'l', 'y' };
321 : : static const symbol s_11_5[6] = { 'g', 'e', 'n', 't', 'l', 'y' };
322 : : static const symbol s_11_6[4] = { 'h', 'o', 'w', 'e' };
323 : : static const symbol s_11_7[4] = { 'i', 'd', 'l', 'y' };
324 : : static const symbol s_11_8[4] = { 'n', 'e', 'w', 's' };
325 : : static const symbol s_11_9[4] = { 'o', 'n', 'l', 'y' };
326 : : static const symbol s_11_10[6] = { 's', 'i', 'n', 'g', 'l', 'y' };
327 : : static const symbol s_11_11[5] = { 's', 'k', 'i', 'e', 's' };
328 : : static const symbol s_11_12[4] = { 's', 'k', 'i', 's' };
329 : : static const symbol s_11_13[3] = { 's', 'k', 'y' };
330 : : static const symbol s_11_14[4] = { 'u', 'g', 'l', 'y' };
331 : : static const struct among a_11[15] = {
332 : : { 5, s_11_0, 0, -1, 0},
333 : : { 5, s_11_1, 0, -1, 0},
334 : : { 4, s_11_2, 0, -1, 0},
335 : : { 6, s_11_3, 0, -1, 0},
336 : : { 5, s_11_4, 0, 6, 0},
337 : : { 6, s_11_5, 0, 4, 0},
338 : : { 4, s_11_6, 0, -1, 0},
339 : : { 4, s_11_7, 0, 3, 0},
340 : : { 4, s_11_8, 0, -1, 0},
341 : : { 4, s_11_9, 0, 7, 0},
342 : : { 6, s_11_10, 0, 8, 0},
343 : : { 5, s_11_11, 0, 2, 0},
344 : : { 4, s_11_12, 0, 1, 0},
345 : : { 3, s_11_13, 0, -1, 0},
346 : : { 4, s_11_14, 0, 5, 0}
347 : : };
348 : :
349 : : static const unsigned char g_aeo[] = { 17, 64 };
350 : :
351 : : static const unsigned char g_v[] = { 17, 65, 16, 1 };
352 : :
353 : : static const unsigned char g_v_WXY[] = { 1, 17, 65, 208, 1 };
354 : :
355 : : static const unsigned char g_valid_LI[] = { 55, 141, 2 };
356 : :
1850 peter@eisentraut.org 357 :UBC 0 : static int r_prelude(struct SN_env * z) {
69 tgl@sss.pgh.pa.us 358 :UNC 0 : ((SN_local *)z)->b_Y_found = 0;
359 : : {
360 : 0 : int v_1 = z->c;
1850 peter@eisentraut.org 361 :UBC 0 : z->bra = z->c;
362 [ # # # # ]: 0 : if (z->c == z->l || z->p[z->c] != '\'') goto lab0;
2729 tgl@sss.pgh.pa.us 363 : 0 : z->c++;
1850 peter@eisentraut.org 364 : 0 : z->ket = z->c;
365 : : {
69 tgl@sss.pgh.pa.us 366 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 367 [ # # ]:UBC 0 : if (ret < 0) return ret;
368 : : }
369 : 0 : lab0:
69 tgl@sss.pgh.pa.us 370 :UNC 0 : z->c = v_1;
371 : : }
372 : : {
373 : 0 : int v_2 = z->c;
1850 peter@eisentraut.org 374 :UBC 0 : z->bra = z->c;
375 [ # # # # ]: 0 : if (z->c == z->l || z->p[z->c] != 'y') goto lab1;
2729 tgl@sss.pgh.pa.us 376 : 0 : z->c++;
1850 peter@eisentraut.org 377 : 0 : z->ket = z->c;
378 : : {
69 tgl@sss.pgh.pa.us 379 :UNC 0 : int ret = slice_from_s(z, 1, s_0);
6781 tgl@sss.pgh.pa.us 380 [ # # ]:UBC 0 : if (ret < 0) return ret;
381 : : }
69 tgl@sss.pgh.pa.us 382 :UNC 0 : ((SN_local *)z)->b_Y_found = 1;
6781 tgl@sss.pgh.pa.us 383 :UBC 0 : lab1:
69 tgl@sss.pgh.pa.us 384 :UNC 0 : z->c = v_2;
385 : : }
386 : : {
387 : 0 : int v_3 = z->c;
388 : 0 : while (1) {
389 : 0 : int v_4 = z->c;
390 : 0 : while (1) {
391 : 0 : int v_5 = z->c;
1850 peter@eisentraut.org 392 [ # # ]:UBC 0 : if (in_grouping(z, g_v, 97, 121, 0)) goto lab4;
393 : 0 : z->bra = z->c;
394 [ # # # # ]: 0 : if (z->c == z->l || z->p[z->c] != 'y') goto lab4;
2729 tgl@sss.pgh.pa.us 395 : 0 : z->c++;
1850 peter@eisentraut.org 396 : 0 : z->ket = z->c;
69 tgl@sss.pgh.pa.us 397 :UNC 0 : z->c = v_5;
6781 tgl@sss.pgh.pa.us 398 :UBC 0 : break;
399 : 0 : lab4:
69 tgl@sss.pgh.pa.us 400 :UNC 0 : z->c = v_5;
6781 tgl@sss.pgh.pa.us 401 [ # # ]:UBC 0 : if (z->c >= z->l) goto lab3;
1850 peter@eisentraut.org 402 : 0 : z->c++;
403 : : }
404 : : {
69 tgl@sss.pgh.pa.us 405 :UNC 0 : int ret = slice_from_s(z, 1, s_1);
6781 tgl@sss.pgh.pa.us 406 [ # # ]:UBC 0 : if (ret < 0) return ret;
407 : : }
69 tgl@sss.pgh.pa.us 408 :UNC 0 : ((SN_local *)z)->b_Y_found = 1;
6781 tgl@sss.pgh.pa.us 409 :UBC 0 : continue;
410 : 0 : lab3:
69 tgl@sss.pgh.pa.us 411 :UNC 0 : z->c = v_4;
6781 tgl@sss.pgh.pa.us 412 :UBC 0 : break;
413 : : }
69 tgl@sss.pgh.pa.us 414 :UNC 0 : z->c = v_3;
415 : : }
6781 tgl@sss.pgh.pa.us 416 :UBC 0 : return 1;
417 : : }
418 : :
1850 peter@eisentraut.org 419 : 0 : static int r_mark_regions(struct SN_env * z) {
69 tgl@sss.pgh.pa.us 420 :UNC 0 : ((SN_local *)z)->i_p1 = z->l;
421 : 0 : ((SN_local *)z)->i_p2 = z->l;
422 : : {
423 : 0 : int v_1 = z->c;
424 : : do {
425 : 0 : int v_2 = z->c;
426 [ # # # # : 0 : if (z->c + 3 >= z->l || z->p[z->c + 3] >> 5 != 3 || !((5513250 >> (z->p[z->c + 3] & 0x1f)) & 1)) goto lab1;
# # ]
427 [ # # ]: 0 : if (!find_among(z, a_0, 9, 0)) goto lab1;
428 : 0 : break;
429 : 0 : lab1:
430 : 0 : z->c = v_2;
431 : : {
6781 tgl@sss.pgh.pa.us 432 :UBC 0 : int ret = out_grouping(z, g_v, 97, 121, 1);
433 [ # # ]: 0 : if (ret < 0) goto lab0;
434 : 0 : z->c += ret;
435 : : }
436 : : {
437 : 0 : int ret = in_grouping(z, g_v, 97, 121, 1);
438 [ # # ]: 0 : if (ret < 0) goto lab0;
439 : 0 : z->c += ret;
440 : : }
441 : : } while (0);
69 tgl@sss.pgh.pa.us 442 :UNC 0 : ((SN_local *)z)->i_p1 = z->c;
443 : : {
6781 tgl@sss.pgh.pa.us 444 :UBC 0 : int ret = out_grouping(z, g_v, 97, 121, 1);
445 [ # # ]: 0 : if (ret < 0) goto lab0;
446 : 0 : z->c += ret;
447 : : }
448 : : {
449 : 0 : int ret = in_grouping(z, g_v, 97, 121, 1);
450 [ # # ]: 0 : if (ret < 0) goto lab0;
451 : 0 : z->c += ret;
452 : : }
69 tgl@sss.pgh.pa.us 453 :UNC 0 : ((SN_local *)z)->i_p2 = z->c;
6781 tgl@sss.pgh.pa.us 454 :UBC 0 : lab0:
69 tgl@sss.pgh.pa.us 455 :UNC 0 : z->c = v_1;
456 : : }
6781 tgl@sss.pgh.pa.us 457 :UBC 0 : return 1;
458 : : }
459 : :
1850 peter@eisentraut.org 460 : 0 : static int r_shortv(struct SN_env * z) {
461 : : do {
69 tgl@sss.pgh.pa.us 462 :UNC 0 : int v_1 = z->l - z->c;
463 [ # # ]: 0 : if (out_grouping_b(z, g_v_WXY, 89, 121, 0)) goto lab0;
464 [ # # ]: 0 : if (in_grouping_b(z, g_v, 97, 121, 0)) goto lab0;
465 [ # # ]: 0 : if (out_grouping_b(z, g_v, 97, 121, 0)) goto lab0;
466 : 0 : break;
467 : 0 : lab0:
468 : 0 : z->c = z->l - v_1;
1850 peter@eisentraut.org 469 [ # # ]:UBC 0 : if (out_grouping_b(z, g_v, 97, 121, 0)) goto lab1;
69 tgl@sss.pgh.pa.us 470 [ # # ]:UNC 0 : if (in_grouping_b(z, g_v, 97, 121, 0)) goto lab1;
471 [ # # ]: 0 : if (z->c > z->lb) goto lab1;
472 : 0 : break;
6781 tgl@sss.pgh.pa.us 473 :UBC 0 : lab1:
69 tgl@sss.pgh.pa.us 474 :UNC 0 : z->c = z->l - v_1;
475 [ # # ]: 0 : if (!(eq_s_b(z, 4, s_2))) return 0;
476 : : } while (0);
6781 tgl@sss.pgh.pa.us 477 :UBC 0 : return 1;
478 : : }
479 : :
1850 peter@eisentraut.org 480 : 0 : static int r_R1(struct SN_env * z) {
69 tgl@sss.pgh.pa.us 481 :UNC 0 : return ((SN_local *)z)->i_p1 <= z->c;
482 : : }
483 : :
1850 peter@eisentraut.org 484 :UBC 0 : static int r_R2(struct SN_env * z) {
69 tgl@sss.pgh.pa.us 485 :UNC 0 : return ((SN_local *)z)->i_p2 <= z->c;
486 : : }
487 : :
1850 peter@eisentraut.org 488 :UBC 0 : static int r_Step_1a(struct SN_env * z) {
489 : : int among_var;
490 : : {
69 tgl@sss.pgh.pa.us 491 :UNC 0 : int v_1 = z->l - z->c;
1850 peter@eisentraut.org 492 :UBC 0 : z->ket = z->c;
69 tgl@sss.pgh.pa.us 493 [ # # # # :UNC 0 : if (z->c <= z->lb || (z->p[z->c - 1] != 39 && z->p[z->c - 1] != 115)) { z->c = z->l - v_1; goto lab0; }
# # ]
494 [ # # ]: 0 : if (!find_among_b(z, a_1, 3, 0)) { z->c = z->l - v_1; goto lab0; }
1850 peter@eisentraut.org 495 :UBC 0 : z->bra = z->c;
496 : : {
69 tgl@sss.pgh.pa.us 497 :UNC 0 : int ret = slice_del(z);
2729 tgl@sss.pgh.pa.us 498 [ # # ]:UBC 0 : if (ret < 0) return ret;
499 : : }
6781 500 : 0 : lab0:
501 : : ;
502 : : }
1850 peter@eisentraut.org 503 : 0 : z->ket = z->c;
504 [ # # # # : 0 : if (z->c <= z->lb || (z->p[z->c - 1] != 100 && z->p[z->c - 1] != 115)) return 0;
# # ]
69 tgl@sss.pgh.pa.us 505 :UNC 0 : among_var = find_among_b(z, a_2, 6, 0);
390 tgl@sss.pgh.pa.us 506 [ # # ]:UBC 0 : if (!among_var) return 0;
1850 peter@eisentraut.org 507 : 0 : z->bra = z->c;
508 [ # # # # ]: 0 : switch (among_var) {
6781 tgl@sss.pgh.pa.us 509 : 0 : case 1:
510 : : {
69 tgl@sss.pgh.pa.us 511 :UNC 0 : int ret = slice_from_s(z, 2, s_3);
6781 tgl@sss.pgh.pa.us 512 [ # # ]:UBC 0 : if (ret < 0) return ret;
513 : : }
514 : 0 : break;
515 : 0 : case 2:
516 : : do {
69 tgl@sss.pgh.pa.us 517 :UNC 0 : int v_2 = z->l - z->c;
518 [ # # ]: 0 : if (z->c - 2 < z->lb) goto lab1;
519 : 0 : z->c -= 2;
520 : : {
521 : 0 : int ret = slice_from_s(z, 1, s_4);
6781 tgl@sss.pgh.pa.us 522 [ # # ]:UBC 0 : if (ret < 0) return ret;
523 : : }
69 tgl@sss.pgh.pa.us 524 :UNC 0 : break;
525 : 0 : lab1:
526 : 0 : z->c = z->l - v_2;
527 : : {
528 : 0 : int ret = slice_from_s(z, 2, s_5);
6781 tgl@sss.pgh.pa.us 529 [ # # ]:UBC 0 : if (ret < 0) return ret;
530 : : }
531 : : } while (0);
532 : 0 : break;
533 : 0 : case 3:
534 [ # # ]: 0 : if (z->c <= z->lb) return 0;
1850 peter@eisentraut.org 535 : 0 : z->c--;
536 : : {
6781 tgl@sss.pgh.pa.us 537 : 0 : int ret = out_grouping_b(z, g_v, 97, 121, 1);
538 [ # # ]: 0 : if (ret < 0) return 0;
539 : 0 : z->c -= ret;
540 : : }
541 : : {
69 tgl@sss.pgh.pa.us 542 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 543 [ # # ]:UBC 0 : if (ret < 0) return ret;
544 : : }
545 : 0 : break;
546 : : }
547 : 0 : return 1;
548 : : }
549 : :
1850 peter@eisentraut.org 550 : 0 : static int r_Step_1b(struct SN_env * z) {
551 : : int among_var;
552 : 0 : z->ket = z->c;
69 tgl@sss.pgh.pa.us 553 [ # # # # :UNC 0 : if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((33554576 >> (z->p[z->c - 1] & 0x1f)) & 1)) among_var = -1; else
# # ]
554 : 0 : among_var = find_among_b(z, a_5, 7, 0);
1850 peter@eisentraut.org 555 :UBC 0 : z->bra = z->c;
556 : : do {
69 tgl@sss.pgh.pa.us 557 :UNC 0 : int v_1 = z->l - z->c;
558 [ # # # # ]: 0 : switch (among_var) {
559 : 0 : case 1:
560 : : {
561 : 0 : int v_2 = z->l - z->c;
562 : : {
563 : 0 : int ret = r_R1(z);
564 [ # # ]: 0 : if (ret == 0) goto lab1;
565 [ # # ]: 0 : if (ret < 0) return ret;
566 : : }
567 : : do {
568 : 0 : int v_3 = z->l - z->c;
569 [ # # # # ]: 0 : if (z->c - 2 <= z->lb || z->p[z->c - 1] != 99) goto lab2;
570 [ # # ]: 0 : if (!find_among_b(z, a_3, 3, 0)) goto lab2;
571 [ # # ]: 0 : if (z->c > z->lb) goto lab2;
572 : 0 : break;
573 : 0 : lab2:
574 : 0 : z->c = z->l - v_3;
575 : : {
576 : 0 : int ret = slice_from_s(z, 2, s_6);
577 [ # # ]: 0 : if (ret < 0) return ret;
578 : : }
579 : : } while (0);
580 : 0 : lab1:
581 : 0 : z->c = z->l - v_2;
582 : : }
583 : 0 : break;
584 : 0 : case 2:
585 : 0 : goto lab0;
586 : : break;
587 : 0 : case 3:
588 [ # # # # : 0 : if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((34881536 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab0;
# # ]
589 : 0 : among_var = find_among_b(z, a_4, 7, 0);
590 [ # # ]: 0 : if (!among_var) goto lab0;
390 tgl@sss.pgh.pa.us 591 [ # # # # ]:UBC 0 : switch (among_var) {
592 : 0 : case 1:
593 : : {
69 tgl@sss.pgh.pa.us 594 :UNC 0 : int v_4 = z->l - z->c;
595 [ # # ]: 0 : if (out_grouping_b(z, g_v, 97, 121, 0)) goto lab0;
390 tgl@sss.pgh.pa.us 596 [ # # ]:UBC 0 : if (z->c > z->lb) goto lab0;
69 tgl@sss.pgh.pa.us 597 :UNC 0 : z->c = z->l - v_4;
598 : : }
599 : 0 : z->bra = z->c;
600 : : {
601 : 0 : int ret = slice_from_s(z, 2, s_7);
390 tgl@sss.pgh.pa.us 602 [ # # ]:UBC 0 : if (ret < 0) return ret;
603 : : }
69 tgl@sss.pgh.pa.us 604 :UNC 0 : break;
605 : 0 : case 2:
606 [ # # ]: 0 : if (z->c > z->lb) goto lab0;
390 tgl@sss.pgh.pa.us 607 :UIC 0 : break;
608 : : }
69 tgl@sss.pgh.pa.us 609 :UNC 0 : break;
610 : : }
611 : 0 : break;
612 : 0 : lab0:
613 : 0 : z->c = z->l - v_1;
614 : : {
615 : 0 : int v_5 = z->l - z->c;
616 : : {
617 : 0 : int ret = out_grouping_b(z, g_v, 97, 121, 1);
618 [ # # ]: 0 : if (ret < 0) return 0;
619 : 0 : z->c -= ret;
620 : : }
621 : 0 : z->c = z->l - v_5;
622 : : }
623 : : {
624 : 0 : int ret = slice_del(z);
625 [ # # ]: 0 : if (ret < 0) return ret;
626 : : }
627 : 0 : z->ket = z->c;
628 : 0 : z->bra = z->c;
629 : : {
630 : 0 : int v_6 = z->l - z->c;
631 [ # # # # : 0 : 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
# # ]
632 : 0 : among_var = find_among_b(z, a_6, 13, 0);
633 [ # # # # ]: 0 : switch (among_var) {
634 : 0 : case 1:
635 : : {
636 : 0 : int ret = slice_from_s(z, 1, s_8);
637 [ # # ]: 0 : if (ret < 0) return ret;
638 : : }
639 : 0 : return 0;
640 : : break;
641 : 0 : case 2:
642 : : {
643 : 0 : int v_7 = z->l - z->c;
644 [ # # ]: 0 : if (in_grouping_b(z, g_aeo, 97, 111, 0)) goto lab3;
645 [ # # ]: 0 : if (z->c > z->lb) goto lab3;
646 : 0 : return 0;
647 : 0 : lab3:
648 : 0 : z->c = z->l - v_7;
649 : : }
650 : 0 : break;
651 : 0 : case 3:
652 [ # # ]: 0 : if (z->c != ((SN_local *)z)->i_p1) return 0;
653 : : {
654 : 0 : int v_8 = z->l - z->c;
655 : : {
656 : 0 : int ret = r_shortv(z);
657 [ # # ]: 0 : if (ret <= 0) return ret;
658 : : }
659 : 0 : z->c = z->l - v_8;
660 : : }
661 : : {
662 : 0 : int ret = slice_from_s(z, 1, s_9);
663 [ # # ]: 0 : if (ret < 0) return ret;
664 : : }
665 : 0 : return 0;
666 : : break;
667 : : }
668 : 0 : z->c = z->l - v_6;
669 : : }
670 : 0 : z->ket = z->c;
671 [ # # ]: 0 : if (z->c <= z->lb) return 0;
672 : 0 : z->c--;
673 : 0 : z->bra = z->c;
674 : : {
675 : 0 : int ret = slice_del(z);
676 [ # # ]: 0 : if (ret < 0) return ret;
677 : : }
678 : : } while (0);
6781 tgl@sss.pgh.pa.us 679 :UBC 0 : return 1;
680 : : }
681 : :
1850 peter@eisentraut.org 682 : 0 : static int r_Step_1c(struct SN_env * z) {
683 : 0 : z->ket = z->c;
684 : : do {
69 tgl@sss.pgh.pa.us 685 :UNC 0 : int v_1 = z->l - z->c;
686 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'y') goto lab0;
2729 tgl@sss.pgh.pa.us 687 :UBC 0 : z->c--;
69 tgl@sss.pgh.pa.us 688 :UNC 0 : break;
689 : 0 : lab0:
690 : 0 : z->c = z->l - v_1;
1850 peter@eisentraut.org 691 [ # # # # ]:UBC 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'Y') return 0;
2729 tgl@sss.pgh.pa.us 692 : 0 : z->c--;
693 : : } while (0);
1850 peter@eisentraut.org 694 : 0 : z->bra = z->c;
695 [ # # ]: 0 : if (out_grouping_b(z, g_v, 97, 121, 0)) return 0;
69 tgl@sss.pgh.pa.us 696 [ # # ]:UNC 0 : if (z->c > z->lb) goto lab1;
2729 tgl@sss.pgh.pa.us 697 :UBC 0 : return 0;
69 tgl@sss.pgh.pa.us 698 :UNC 0 : lab1:
699 : : {
700 : 0 : int ret = slice_from_s(z, 1, s_10);
6781 tgl@sss.pgh.pa.us 701 [ # # ]:UBC 0 : if (ret < 0) return ret;
702 : : }
703 : 0 : return 1;
704 : : }
705 : :
1850 peter@eisentraut.org 706 : 0 : static int r_Step_2(struct SN_env * z) {
707 : : int among_var;
708 : 0 : z->ket = z->c;
69 tgl@sss.pgh.pa.us 709 [ # # # # :UNC 0 : if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1864192 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
# # ]
710 : 0 : among_var = find_among_b(z, a_7, 25, 0);
390 tgl@sss.pgh.pa.us 711 [ # # ]:UBC 0 : if (!among_var) return 0;
1850 peter@eisentraut.org 712 : 0 : z->bra = z->c;
713 : : {
69 tgl@sss.pgh.pa.us 714 :UNC 0 : int ret = r_R1(z);
2729 tgl@sss.pgh.pa.us 715 [ # # ]:UBC 0 : if (ret <= 0) return ret;
716 : : }
1850 peter@eisentraut.org 717 [ # # # # : 0 : switch (among_var) {
# # # # #
# # # # #
# # # ]
6781 tgl@sss.pgh.pa.us 718 : 0 : case 1:
719 : : {
69 tgl@sss.pgh.pa.us 720 :UNC 0 : int ret = slice_from_s(z, 4, s_11);
6781 tgl@sss.pgh.pa.us 721 [ # # ]:UBC 0 : if (ret < 0) return ret;
722 : : }
723 : 0 : break;
724 : 0 : case 2:
725 : : {
69 tgl@sss.pgh.pa.us 726 :UNC 0 : int ret = slice_from_s(z, 4, s_12);
6781 tgl@sss.pgh.pa.us 727 [ # # ]:UBC 0 : if (ret < 0) return ret;
728 : : }
729 : 0 : break;
730 : 0 : case 3:
731 : : {
69 tgl@sss.pgh.pa.us 732 :UNC 0 : int ret = slice_from_s(z, 4, s_13);
6781 tgl@sss.pgh.pa.us 733 [ # # ]:UBC 0 : if (ret < 0) return ret;
734 : : }
735 : 0 : break;
736 : 0 : case 4:
737 : : {
69 tgl@sss.pgh.pa.us 738 :UNC 0 : int ret = slice_from_s(z, 4, s_14);
6781 tgl@sss.pgh.pa.us 739 [ # # ]:UBC 0 : if (ret < 0) return ret;
740 : : }
741 : 0 : break;
742 : 0 : case 5:
743 : : {
69 tgl@sss.pgh.pa.us 744 :UNC 0 : int ret = slice_from_s(z, 3, s_15);
6781 tgl@sss.pgh.pa.us 745 [ # # ]:UBC 0 : if (ret < 0) return ret;
746 : : }
747 : 0 : break;
748 : 0 : case 6:
749 : : {
69 tgl@sss.pgh.pa.us 750 :UNC 0 : int ret = slice_from_s(z, 3, s_16);
6781 tgl@sss.pgh.pa.us 751 [ # # ]:UBC 0 : if (ret < 0) return ret;
752 : : }
753 : 0 : break;
754 : 0 : case 7:
755 : : {
69 tgl@sss.pgh.pa.us 756 :UNC 0 : int ret = slice_from_s(z, 3, s_17);
6781 tgl@sss.pgh.pa.us 757 [ # # ]:UBC 0 : if (ret < 0) return ret;
758 : : }
759 : 0 : break;
760 : 0 : case 8:
761 : : {
69 tgl@sss.pgh.pa.us 762 :UNC 0 : int ret = slice_from_s(z, 2, s_18);
6781 tgl@sss.pgh.pa.us 763 [ # # ]:UBC 0 : if (ret < 0) return ret;
764 : : }
765 : 0 : break;
766 : 0 : case 9:
767 : : {
69 tgl@sss.pgh.pa.us 768 :UNC 0 : int ret = slice_from_s(z, 3, s_19);
6781 tgl@sss.pgh.pa.us 769 [ # # ]:UBC 0 : if (ret < 0) return ret;
770 : : }
771 : 0 : break;
772 : 0 : case 10:
773 : : {
69 tgl@sss.pgh.pa.us 774 :UNC 0 : int ret = slice_from_s(z, 3, s_20);
6781 tgl@sss.pgh.pa.us 775 [ # # ]:UBC 0 : if (ret < 0) return ret;
776 : : }
777 : 0 : break;
778 : 0 : case 11:
779 : : {
69 tgl@sss.pgh.pa.us 780 :UNC 0 : int ret = slice_from_s(z, 3, s_21);
6781 tgl@sss.pgh.pa.us 781 [ # # ]:UBC 0 : if (ret < 0) return ret;
782 : : }
783 : 0 : break;
784 : 0 : case 12:
785 : : {
69 tgl@sss.pgh.pa.us 786 :UNC 0 : int ret = slice_from_s(z, 3, s_22);
6781 tgl@sss.pgh.pa.us 787 [ # # ]:UBC 0 : if (ret < 0) return ret;
788 : : }
789 : 0 : break;
790 : 0 : case 13:
791 : : {
69 tgl@sss.pgh.pa.us 792 :UNC 0 : int ret = slice_from_s(z, 2, s_23);
6781 tgl@sss.pgh.pa.us 793 [ # # ]:UBC 0 : if (ret < 0) return ret;
794 : : }
795 : 0 : break;
796 : 0 : case 14:
69 tgl@sss.pgh.pa.us 797 [ # # # # ]:UNC 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'l') return 0;
798 : 0 : z->c--;
799 : : {
800 : 0 : int ret = slice_from_s(z, 2, s_24);
6781 tgl@sss.pgh.pa.us 801 [ # # ]:UBC 0 : if (ret < 0) return ret;
802 : : }
803 : 0 : break;
804 : 0 : case 15:
805 : : {
69 tgl@sss.pgh.pa.us 806 :UNC 0 : int ret = slice_from_s(z, 4, s_25);
807 [ # # ]: 0 : if (ret < 0) return ret;
808 : : }
809 : 0 : break;
810 : 0 : case 16:
1850 peter@eisentraut.org 811 [ # # ]:UBC 0 : if (in_grouping_b(z, g_valid_LI, 99, 116, 0)) return 0;
812 : : {
69 tgl@sss.pgh.pa.us 813 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 814 [ # # ]:UBC 0 : if (ret < 0) return ret;
815 : : }
816 : 0 : break;
817 : : }
818 : 0 : return 1;
819 : : }
820 : :
1850 peter@eisentraut.org 821 : 0 : static int r_Step_3(struct SN_env * z) {
822 : : int among_var;
823 : 0 : z->ket = z->c;
824 [ # # # # : 0 : if (z->c - 2 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((528928 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
# # ]
69 tgl@sss.pgh.pa.us 825 :UNC 0 : among_var = find_among_b(z, a_8, 9, 0);
390 tgl@sss.pgh.pa.us 826 [ # # ]:UBC 0 : if (!among_var) return 0;
1850 peter@eisentraut.org 827 : 0 : z->bra = z->c;
828 : : {
69 tgl@sss.pgh.pa.us 829 :UNC 0 : int ret = r_R1(z);
2729 tgl@sss.pgh.pa.us 830 [ # # ]:UBC 0 : if (ret <= 0) return ret;
831 : : }
1850 peter@eisentraut.org 832 [ # # # # : 0 : switch (among_var) {
# # # ]
6781 tgl@sss.pgh.pa.us 833 : 0 : case 1:
834 : : {
69 tgl@sss.pgh.pa.us 835 :UNC 0 : int ret = slice_from_s(z, 4, s_26);
6781 tgl@sss.pgh.pa.us 836 [ # # ]:UBC 0 : if (ret < 0) return ret;
837 : : }
838 : 0 : break;
839 : 0 : case 2:
840 : : {
69 tgl@sss.pgh.pa.us 841 :UNC 0 : int ret = slice_from_s(z, 3, s_27);
6781 tgl@sss.pgh.pa.us 842 [ # # ]:UBC 0 : if (ret < 0) return ret;
843 : : }
844 : 0 : break;
845 : 0 : case 3:
846 : : {
69 tgl@sss.pgh.pa.us 847 :UNC 0 : int ret = slice_from_s(z, 2, s_28);
6781 tgl@sss.pgh.pa.us 848 [ # # ]:UBC 0 : if (ret < 0) return ret;
849 : : }
850 : 0 : break;
851 : 0 : case 4:
852 : : {
69 tgl@sss.pgh.pa.us 853 :UNC 0 : int ret = slice_from_s(z, 2, s_29);
6781 tgl@sss.pgh.pa.us 854 [ # # ]:UBC 0 : if (ret < 0) return ret;
855 : : }
856 : 0 : break;
857 : 0 : case 5:
858 : : {
69 tgl@sss.pgh.pa.us 859 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 860 [ # # ]:UBC 0 : if (ret < 0) return ret;
861 : : }
862 : 0 : break;
863 : 0 : case 6:
864 : : {
69 tgl@sss.pgh.pa.us 865 :UNC 0 : int ret = r_R2(z);
2729 tgl@sss.pgh.pa.us 866 [ # # ]:UBC 0 : if (ret <= 0) return ret;
867 : : }
868 : : {
69 tgl@sss.pgh.pa.us 869 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 870 [ # # ]:UBC 0 : if (ret < 0) return ret;
871 : : }
872 : 0 : break;
873 : : }
874 : 0 : return 1;
875 : : }
876 : :
1850 peter@eisentraut.org 877 : 0 : static int r_Step_4(struct SN_env * z) {
878 : : int among_var;
879 : 0 : z->ket = z->c;
880 [ # # # # : 0 : if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1864232 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
# # ]
69 tgl@sss.pgh.pa.us 881 :UNC 0 : among_var = find_among_b(z, a_9, 18, 0);
390 tgl@sss.pgh.pa.us 882 [ # # ]:UBC 0 : if (!among_var) return 0;
1850 peter@eisentraut.org 883 : 0 : z->bra = z->c;
884 : : {
69 tgl@sss.pgh.pa.us 885 :UNC 0 : int ret = r_R2(z);
2729 tgl@sss.pgh.pa.us 886 [ # # ]:UBC 0 : if (ret <= 0) return ret;
887 : : }
1850 peter@eisentraut.org 888 [ # # # ]: 0 : switch (among_var) {
6781 tgl@sss.pgh.pa.us 889 : 0 : case 1:
890 : : {
69 tgl@sss.pgh.pa.us 891 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 892 [ # # ]:UBC 0 : if (ret < 0) return ret;
893 : : }
894 : 0 : break;
895 : 0 : case 2:
896 : : do {
69 tgl@sss.pgh.pa.us 897 :UNC 0 : int v_1 = z->l - z->c;
898 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 's') goto lab0;
2729 tgl@sss.pgh.pa.us 899 :UBC 0 : z->c--;
69 tgl@sss.pgh.pa.us 900 :UNC 0 : break;
901 : 0 : lab0:
902 : 0 : z->c = z->l - v_1;
1850 peter@eisentraut.org 903 [ # # # # ]:UBC 0 : if (z->c <= z->lb || z->p[z->c - 1] != 't') return 0;
2729 tgl@sss.pgh.pa.us 904 : 0 : z->c--;
905 : : } while (0);
906 : : {
69 tgl@sss.pgh.pa.us 907 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 908 [ # # ]:UBC 0 : if (ret < 0) return ret;
909 : : }
910 : 0 : break;
911 : : }
912 : 0 : return 1;
913 : : }
914 : :
1850 peter@eisentraut.org 915 : 0 : static int r_Step_5(struct SN_env * z) {
916 : : int among_var;
917 : 0 : z->ket = z->c;
918 [ # # # # : 0 : if (z->c <= z->lb || (z->p[z->c - 1] != 101 && z->p[z->c - 1] != 108)) return 0;
# # ]
69 tgl@sss.pgh.pa.us 919 :UNC 0 : among_var = find_among_b(z, a_10, 2, 0);
390 tgl@sss.pgh.pa.us 920 [ # # ]:UBC 0 : if (!among_var) return 0;
1850 peter@eisentraut.org 921 : 0 : z->bra = z->c;
922 [ # # # ]: 0 : switch (among_var) {
6781 tgl@sss.pgh.pa.us 923 : 0 : case 1:
924 : : do {
925 : : {
69 tgl@sss.pgh.pa.us 926 :UNC 0 : int ret = r_R2(z);
927 [ # # ]: 0 : if (ret == 0) goto lab0;
6781 tgl@sss.pgh.pa.us 928 [ # # ]:UBC 0 : if (ret < 0) return ret;
929 : : }
69 tgl@sss.pgh.pa.us 930 :UNC 0 : break;
931 : 0 : lab0:
932 : : {
933 : 0 : int ret = r_R1(z);
934 [ # # ]: 0 : if (ret <= 0) return ret;
935 : : }
936 : : {
937 : 0 : int v_1 = z->l - z->c;
938 : : {
939 : 0 : int ret = r_shortv(z);
940 [ # # ]: 0 : if (ret == 0) goto lab1;
941 [ # # ]: 0 : if (ret < 0) return ret;
942 : : }
943 : 0 : return 0;
944 : 0 : lab1:
945 : 0 : z->c = z->l - v_1;
946 : : }
947 : : } while (0);
948 : : {
949 : 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 950 [ # # ]:UBC 0 : if (ret < 0) return ret;
951 : : }
952 : 0 : break;
953 : 0 : case 2:
954 : : {
69 tgl@sss.pgh.pa.us 955 :UNC 0 : int ret = r_R2(z);
2729 tgl@sss.pgh.pa.us 956 [ # # ]:UBC 0 : if (ret <= 0) return ret;
957 : : }
1850 peter@eisentraut.org 958 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'l') return 0;
2729 tgl@sss.pgh.pa.us 959 : 0 : z->c--;
960 : : {
69 tgl@sss.pgh.pa.us 961 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 962 [ # # ]:UBC 0 : if (ret < 0) return ret;
963 : : }
964 : 0 : break;
965 : : }
966 : 0 : return 1;
967 : : }
968 : :
1850 peter@eisentraut.org 969 : 0 : static int r_exception1(struct SN_env * z) {
970 : : int among_var;
971 : 0 : z->bra = z->c;
972 [ # # # # : 0 : if (z->c + 2 >= z->l || z->p[z->c + 2] >> 5 != 3 || !((42750482 >> (z->p[z->c + 2] & 0x1f)) & 1)) return 0;
# # ]
69 tgl@sss.pgh.pa.us 973 :UNC 0 : among_var = find_among(z, a_11, 15, 0);
390 tgl@sss.pgh.pa.us 974 [ # # ]:UBC 0 : if (!among_var) return 0;
1850 peter@eisentraut.org 975 : 0 : z->ket = z->c;
976 [ # # ]: 0 : if (z->c < z->l) return 0;
977 [ # # # # : 0 : switch (among_var) {
# # # # #
# # # ]
6781 tgl@sss.pgh.pa.us 978 : 0 : case 1:
979 : : {
69 tgl@sss.pgh.pa.us 980 :UNC 0 : int ret = slice_from_s(z, 3, s_30);
6781 tgl@sss.pgh.pa.us 981 [ # # ]:UBC 0 : if (ret < 0) return ret;
982 : : }
983 : 0 : break;
984 : 0 : case 2:
985 : : {
69 tgl@sss.pgh.pa.us 986 :UNC 0 : int ret = slice_from_s(z, 3, s_31);
6781 tgl@sss.pgh.pa.us 987 [ # # ]:UBC 0 : if (ret < 0) return ret;
988 : : }
989 : 0 : break;
990 : 0 : case 3:
991 : : {
69 tgl@sss.pgh.pa.us 992 :UNC 0 : int ret = slice_from_s(z, 3, s_32);
6781 tgl@sss.pgh.pa.us 993 [ # # ]:UBC 0 : if (ret < 0) return ret;
994 : : }
995 : 0 : break;
996 : 0 : case 4:
997 : : {
69 tgl@sss.pgh.pa.us 998 :UNC 0 : int ret = slice_from_s(z, 5, s_33);
6781 tgl@sss.pgh.pa.us 999 [ # # ]:UBC 0 : if (ret < 0) return ret;
1000 : : }
1001 : 0 : break;
1002 : 0 : case 5:
1003 : : {
69 tgl@sss.pgh.pa.us 1004 :UNC 0 : int ret = slice_from_s(z, 4, s_34);
6781 tgl@sss.pgh.pa.us 1005 [ # # ]:UBC 0 : if (ret < 0) return ret;
1006 : : }
1007 : 0 : break;
1008 : 0 : case 6:
1009 : : {
69 tgl@sss.pgh.pa.us 1010 :UNC 0 : int ret = slice_from_s(z, 5, s_35);
6781 tgl@sss.pgh.pa.us 1011 [ # # ]:UBC 0 : if (ret < 0) return ret;
1012 : : }
1013 : 0 : break;
1014 : 0 : case 7:
1015 : : {
69 tgl@sss.pgh.pa.us 1016 :UNC 0 : int ret = slice_from_s(z, 4, s_36);
6781 tgl@sss.pgh.pa.us 1017 [ # # ]:UBC 0 : if (ret < 0) return ret;
1018 : : }
1019 : 0 : break;
1020 : 0 : case 8:
1021 : : {
69 tgl@sss.pgh.pa.us 1022 :UNC 0 : int ret = slice_from_s(z, 5, s_37);
6781 tgl@sss.pgh.pa.us 1023 [ # # ]:UBC 0 : if (ret < 0) return ret;
1024 : : }
1025 : 0 : break;
1026 : : }
1027 : 0 : return 1;
1028 : : }
1029 : :
1850 peter@eisentraut.org 1030 : 0 : static int r_postlude(struct SN_env * z) {
69 tgl@sss.pgh.pa.us 1031 [ # # ]:UNC 0 : if (!((SN_local *)z)->b_Y_found) return 0;
1032 : 0 : while (1) {
1033 : 0 : int v_1 = z->c;
1034 : 0 : while (1) {
1035 : 0 : int v_2 = z->c;
1850 peter@eisentraut.org 1036 :UBC 0 : z->bra = z->c;
1037 [ # # # # ]: 0 : if (z->c == z->l || z->p[z->c] != 'Y') goto lab1;
2729 tgl@sss.pgh.pa.us 1038 : 0 : z->c++;
1850 peter@eisentraut.org 1039 : 0 : z->ket = z->c;
69 tgl@sss.pgh.pa.us 1040 :UNC 0 : z->c = v_2;
6781 tgl@sss.pgh.pa.us 1041 :UBC 0 : break;
1042 : 0 : lab1:
69 tgl@sss.pgh.pa.us 1043 :UNC 0 : z->c = v_2;
6781 tgl@sss.pgh.pa.us 1044 [ # # ]:UBC 0 : if (z->c >= z->l) goto lab0;
1850 peter@eisentraut.org 1045 : 0 : z->c++;
1046 : : }
1047 : : {
69 tgl@sss.pgh.pa.us 1048 :UNC 0 : int ret = slice_from_s(z, 1, s_38);
6781 tgl@sss.pgh.pa.us 1049 [ # # ]:UBC 0 : if (ret < 0) return ret;
1050 : : }
1051 : 0 : continue;
1052 : 0 : lab0:
69 tgl@sss.pgh.pa.us 1053 :UNC 0 : z->c = v_1;
6781 tgl@sss.pgh.pa.us 1054 :UBC 0 : break;
1055 : : }
1056 : 0 : return 1;
1057 : : }
1058 : :
1850 peter@eisentraut.org 1059 : 0 : extern int english_ISO_8859_1_stem(struct SN_env * z) {
1060 : : do {
69 tgl@sss.pgh.pa.us 1061 :UNC 0 : int v_1 = z->c;
1062 : : {
1063 : 0 : int ret = r_exception1(z);
1064 [ # # ]: 0 : if (ret == 0) goto lab0;
6781 tgl@sss.pgh.pa.us 1065 [ # # ]:UBC 0 : if (ret < 0) return ret;
1066 : : }
69 tgl@sss.pgh.pa.us 1067 :UNC 0 : break;
1068 : 0 : lab0:
1069 : 0 : z->c = v_1;
1070 : : {
1071 : 0 : int v_2 = z->c;
1072 [ # # ]: 0 : if (z->c + 3 > z->l) goto lab2;
1073 : 0 : z->c += 3;
1074 : 0 : goto lab1;
1075 : 0 : lab2:
1076 : 0 : z->c = v_2;
1077 : : }
1078 : 0 : break;
1079 : 0 : lab1:
1080 : 0 : z->c = v_1;
1081 : : {
1082 : 0 : int ret = r_prelude(z);
2729 tgl@sss.pgh.pa.us 1083 [ # # ]:UBC 0 : if (ret < 0) return ret;
1084 : : }
1085 : : {
69 tgl@sss.pgh.pa.us 1086 :UNC 0 : int ret = r_mark_regions(z);
2729 tgl@sss.pgh.pa.us 1087 [ # # ]:UBC 0 : if (ret < 0) return ret;
1088 : : }
1850 peter@eisentraut.org 1089 : 0 : z->lb = z->c; z->c = z->l;
1090 : : {
69 tgl@sss.pgh.pa.us 1091 :UNC 0 : int v_3 = z->l - z->c;
1092 : : {
1093 : 0 : int ret = r_Step_1a(z);
6781 tgl@sss.pgh.pa.us 1094 [ # # ]:UBC 0 : if (ret < 0) return ret;
1095 : : }
69 tgl@sss.pgh.pa.us 1096 :UNC 0 : z->c = z->l - v_3;
1097 : : }
1098 : : {
1099 : 0 : int v_4 = z->l - z->c;
1100 : : {
1101 : 0 : int ret = r_Step_1b(z);
6781 tgl@sss.pgh.pa.us 1102 [ # # ]:UBC 0 : if (ret < 0) return ret;
1103 : : }
69 tgl@sss.pgh.pa.us 1104 :UNC 0 : z->c = z->l - v_4;
1105 : : }
1106 : : {
1107 : 0 : int v_5 = z->l - z->c;
1108 : : {
1109 : 0 : int ret = r_Step_1c(z);
1110 [ # # ]: 0 : if (ret < 0) return ret;
1111 : : }
1112 : 0 : z->c = z->l - v_5;
1113 : : }
1114 : : {
1115 : 0 : int v_6 = z->l - z->c;
1116 : : {
1117 : 0 : int ret = r_Step_2(z);
1118 [ # # ]: 0 : if (ret < 0) return ret;
1119 : : }
1120 : 0 : z->c = z->l - v_6;
1121 : : }
1122 : : {
1123 : 0 : int v_7 = z->l - z->c;
1124 : : {
1125 : 0 : int ret = r_Step_3(z);
1126 [ # # ]: 0 : if (ret < 0) return ret;
1127 : : }
1128 : 0 : z->c = z->l - v_7;
1129 : : }
1130 : : {
1131 : 0 : int v_8 = z->l - z->c;
1132 : : {
1133 : 0 : int ret = r_Step_4(z);
1134 [ # # ]: 0 : if (ret < 0) return ret;
1135 : : }
1136 : 0 : z->c = z->l - v_8;
1137 : : }
1138 : : {
1139 : 0 : int v_9 = z->l - z->c;
1140 : : {
1141 : 0 : int ret = r_Step_5(z);
1142 [ # # ]: 0 : if (ret < 0) return ret;
1143 : : }
1144 : 0 : z->c = z->l - v_9;
1145 : : }
6781 tgl@sss.pgh.pa.us 1146 :UBC 0 : z->c = z->lb;
1147 : : {
69 tgl@sss.pgh.pa.us 1148 :UNC 0 : int v_10 = z->c;
1149 : : {
1150 : 0 : int ret = r_postlude(z);
6781 tgl@sss.pgh.pa.us 1151 [ # # ]:UBC 0 : if (ret < 0) return ret;
1152 : : }
69 tgl@sss.pgh.pa.us 1153 :UNC 0 : z->c = v_10;
1154 : : }
1155 : : } while (0);
6781 tgl@sss.pgh.pa.us 1156 :UBC 0 : return 1;
1157 : : }
1158 : :
69 tgl@sss.pgh.pa.us 1159 :UNC 0 : extern struct SN_env * english_ISO_8859_1_create_env(void) {
1160 : 0 : struct SN_env * z = SN_new_env(sizeof(SN_local));
1161 [ # # ]: 0 : if (z) {
1162 : 0 : ((SN_local *)z)->b_Y_found = 0;
1163 : 0 : ((SN_local *)z)->i_p2 = 0;
1164 : 0 : ((SN_local *)z)->i_p1 = 0;
1165 : : }
1166 : 0 : return z;
1167 : : }
1168 : :
1169 : 0 : extern void english_ISO_8859_1_close_env(struct SN_env * z) {
1170 : 0 : SN_delete_env(z);
1171 : 0 : }
1172 : :
|
