Age Owner Branch data TLA Line data Source code
1 : : /* Generated by Snowball 2.2.0 - https://snowballstem.org/ */
2 : :
3 : : #include "header.h"
4 : :
5 : : #ifdef __cplusplus
6 : : extern "C" {
7 : : #endif
8 : : extern int dutch_ISO_8859_1_stem(struct SN_env * z);
9 : : #ifdef __cplusplus
10 : : }
11 : : #endif
12 : : static int r_standard_suffix(struct SN_env * z);
13 : : static int r_undouble(struct SN_env * z);
14 : : static int r_R2(struct SN_env * z);
15 : : static int r_R1(struct SN_env * z);
16 : : static int r_mark_regions(struct SN_env * z);
17 : : static int r_en_ending(struct SN_env * z);
18 : : static int r_e_ending(struct SN_env * z);
19 : : static int r_postlude(struct SN_env * z);
20 : : static int r_prelude(struct SN_env * z);
21 : : #ifdef __cplusplus
22 : : extern "C" {
23 : : #endif
24 : :
25 : :
26 : : extern struct SN_env * dutch_ISO_8859_1_create_env(void);
27 : : extern void dutch_ISO_8859_1_close_env(struct SN_env * z);
28 : :
29 : :
30 : : #ifdef __cplusplus
31 : : }
32 : : #endif
33 : : static const symbol s_0_1[1] = { 0xE1 };
34 : : static const symbol s_0_2[1] = { 0xE4 };
35 : : static const symbol s_0_3[1] = { 0xE9 };
36 : : static const symbol s_0_4[1] = { 0xEB };
37 : : static const symbol s_0_5[1] = { 0xED };
38 : : static const symbol s_0_6[1] = { 0xEF };
39 : : static const symbol s_0_7[1] = { 0xF3 };
40 : : static const symbol s_0_8[1] = { 0xF6 };
41 : : static const symbol s_0_9[1] = { 0xFA };
42 : : static const symbol s_0_10[1] = { 0xFC };
43 : :
44 : : static const struct among a_0[11] =
45 : : {
46 : : { 0, 0, -1, 6, 0},
47 : : { 1, s_0_1, 0, 1, 0},
48 : : { 1, s_0_2, 0, 1, 0},
49 : : { 1, s_0_3, 0, 2, 0},
50 : : { 1, s_0_4, 0, 2, 0},
51 : : { 1, s_0_5, 0, 3, 0},
52 : : { 1, s_0_6, 0, 3, 0},
53 : : { 1, s_0_7, 0, 4, 0},
54 : : { 1, s_0_8, 0, 4, 0},
55 : : { 1, s_0_9, 0, 5, 0},
56 : : { 1, s_0_10, 0, 5, 0}
57 : : };
58 : :
59 : : static const symbol s_1_1[1] = { 'I' };
60 : : static const symbol s_1_2[1] = { 'Y' };
61 : :
62 : : static const struct among a_1[3] =
63 : : {
64 : : { 0, 0, -1, 3, 0},
65 : : { 1, s_1_1, 0, 2, 0},
66 : : { 1, s_1_2, 0, 1, 0}
67 : : };
68 : :
69 : : static const symbol s_2_0[2] = { 'd', 'd' };
70 : : static const symbol s_2_1[2] = { 'k', 'k' };
71 : : static const symbol s_2_2[2] = { 't', 't' };
72 : :
73 : : static const struct among a_2[3] =
74 : : {
75 : : { 2, s_2_0, -1, -1, 0},
76 : : { 2, s_2_1, -1, -1, 0},
77 : : { 2, s_2_2, -1, -1, 0}
78 : : };
79 : :
80 : : static const symbol s_3_0[3] = { 'e', 'n', 'e' };
81 : : static const symbol s_3_1[2] = { 's', 'e' };
82 : : static const symbol s_3_2[2] = { 'e', 'n' };
83 : : static const symbol s_3_3[5] = { 'h', 'e', 'd', 'e', 'n' };
84 : : static const symbol s_3_4[1] = { 's' };
85 : :
86 : : static const struct among a_3[5] =
87 : : {
88 : : { 3, s_3_0, -1, 2, 0},
89 : : { 2, s_3_1, -1, 3, 0},
90 : : { 2, s_3_2, -1, 2, 0},
91 : : { 5, s_3_3, 2, 1, 0},
92 : : { 1, s_3_4, -1, 3, 0}
93 : : };
94 : :
95 : : static const symbol s_4_0[3] = { 'e', 'n', 'd' };
96 : : static const symbol s_4_1[2] = { 'i', 'g' };
97 : : static const symbol s_4_2[3] = { 'i', 'n', 'g' };
98 : : static const symbol s_4_3[4] = { 'l', 'i', 'j', 'k' };
99 : : static const symbol s_4_4[4] = { 'b', 'a', 'a', 'r' };
100 : : static const symbol s_4_5[3] = { 'b', 'a', 'r' };
101 : :
102 : : static const struct among a_4[6] =
103 : : {
104 : : { 3, s_4_0, -1, 1, 0},
105 : : { 2, s_4_1, -1, 2, 0},
106 : : { 3, s_4_2, -1, 1, 0},
107 : : { 4, s_4_3, -1, 3, 0},
108 : : { 4, s_4_4, -1, 4, 0},
109 : : { 3, s_4_5, -1, 5, 0}
110 : : };
111 : :
112 : : static const symbol s_5_0[2] = { 'a', 'a' };
113 : : static const symbol s_5_1[2] = { 'e', 'e' };
114 : : static const symbol s_5_2[2] = { 'o', 'o' };
115 : : static const symbol s_5_3[2] = { 'u', 'u' };
116 : :
117 : : static const struct among a_5[4] =
118 : : {
119 : : { 2, s_5_0, -1, -1, 0},
120 : : { 2, s_5_1, -1, -1, 0},
121 : : { 2, s_5_2, -1, -1, 0},
122 : : { 2, s_5_3, -1, -1, 0}
123 : : };
124 : :
125 : : static const unsigned char g_v[] = { 17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 128 };
126 : :
127 : : static const unsigned char g_v_I[] = { 1, 0, 0, 17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 128 };
128 : :
129 : : static const unsigned char g_v_j[] = { 17, 67, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 128 };
130 : :
131 : : static const symbol s_0[] = { 'a' };
132 : : static const symbol s_1[] = { 'e' };
133 : : static const symbol s_2[] = { 'i' };
134 : : static const symbol s_3[] = { 'o' };
135 : : static const symbol s_4[] = { 'u' };
136 : : static const symbol s_5[] = { 'Y' };
137 : : static const symbol s_6[] = { 'I' };
138 : : static const symbol s_7[] = { 'Y' };
139 : : static const symbol s_8[] = { 'y' };
140 : : static const symbol s_9[] = { 'i' };
141 : : static const symbol s_10[] = { 'g', 'e', 'm' };
142 : : static const symbol s_11[] = { 'h', 'e', 'i', 'd' };
143 : : static const symbol s_12[] = { 'h', 'e', 'i', 'd' };
144 : : static const symbol s_13[] = { 'e', 'n' };
145 : : static const symbol s_14[] = { 'i', 'g' };
146 : :
1150 peter@eisentraut.org 147 :UBC 0 : static int r_prelude(struct SN_env * z) {
148 : : int among_var;
149 : 0 : { int c_test1 = z->c;
150 : 0 : while(1) {
151 : 0 : int c2 = z->c;
152 : 0 : z->bra = z->c;
153 [ # # # # : 0 : if (z->c >= z->l || z->p[z->c + 0] >> 5 != 7 || !((340306450 >> (z->p[z->c + 0] & 0x1f)) & 1)) among_var = 6; else
# # ]
2029 tgl@sss.pgh.pa.us 154 : 0 : among_var = find_among(z, a_0, 11);
6081 155 [ # # ]: 0 : if (!(among_var)) goto lab0;
1150 peter@eisentraut.org 156 : 0 : z->ket = z->c;
157 [ # # # # : 0 : switch (among_var) {
# # # ]
6081 tgl@sss.pgh.pa.us 158 : 0 : case 1:
1150 peter@eisentraut.org 159 : 0 : { int ret = slice_from_s(z, 1, s_0);
6081 tgl@sss.pgh.pa.us 160 [ # # ]: 0 : if (ret < 0) return ret;
161 : : }
162 : 0 : break;
163 : 0 : case 2:
1150 peter@eisentraut.org 164 : 0 : { int ret = slice_from_s(z, 1, s_1);
6081 tgl@sss.pgh.pa.us 165 [ # # ]: 0 : if (ret < 0) return ret;
166 : : }
167 : 0 : break;
168 : 0 : case 3:
1150 peter@eisentraut.org 169 : 0 : { int ret = slice_from_s(z, 1, s_2);
6081 tgl@sss.pgh.pa.us 170 [ # # ]: 0 : if (ret < 0) return ret;
171 : : }
172 : 0 : break;
173 : 0 : case 4:
1150 peter@eisentraut.org 174 : 0 : { int ret = slice_from_s(z, 1, s_3);
6081 tgl@sss.pgh.pa.us 175 [ # # ]: 0 : if (ret < 0) return ret;
176 : : }
177 : 0 : break;
178 : 0 : case 5:
1150 peter@eisentraut.org 179 : 0 : { int ret = slice_from_s(z, 1, s_4);
6081 tgl@sss.pgh.pa.us 180 [ # # ]: 0 : if (ret < 0) return ret;
181 : : }
182 : 0 : break;
183 : 0 : case 6:
184 [ # # ]: 0 : if (z->c >= z->l) goto lab0;
1150 peter@eisentraut.org 185 : 0 : z->c++;
6081 tgl@sss.pgh.pa.us 186 : 0 : break;
187 : : }
188 : 0 : continue;
189 : 0 : lab0:
2029 190 : 0 : z->c = c2;
6081 191 : 0 : break;
192 : : }
2029 193 : 0 : z->c = c_test1;
194 : : }
1150 peter@eisentraut.org 195 : 0 : { int c3 = z->c;
196 : 0 : z->bra = z->c;
197 [ # # # # ]: 0 : if (z->c == z->l || z->p[z->c] != 'y') { z->c = c3; goto lab1; }
2029 tgl@sss.pgh.pa.us 198 : 0 : z->c++;
1150 peter@eisentraut.org 199 : 0 : z->ket = z->c;
200 : 0 : { int ret = slice_from_s(z, 1, s_5);
6081 tgl@sss.pgh.pa.us 201 [ # # ]: 0 : if (ret < 0) return ret;
202 : : }
203 : 0 : lab1:
204 : : ;
205 : : }
1150 peter@eisentraut.org 206 : 0 : while(1) {
207 : 0 : int c4 = z->c;
208 : 0 : while(1) {
2029 tgl@sss.pgh.pa.us 209 : 0 : int c5 = z->c;
1150 peter@eisentraut.org 210 [ # # ]: 0 : if (in_grouping(z, g_v, 97, 232, 0)) goto lab3;
211 : 0 : z->bra = z->c;
212 : 0 : { int c6 = z->c;
213 [ # # # # ]: 0 : if (z->c == z->l || z->p[z->c] != 'i') goto lab5;
2029 tgl@sss.pgh.pa.us 214 : 0 : z->c++;
1150 peter@eisentraut.org 215 : 0 : z->ket = z->c;
216 [ # # ]: 0 : if (in_grouping(z, g_v, 97, 232, 0)) goto lab5;
217 : 0 : { int ret = slice_from_s(z, 1, s_6);
6081 tgl@sss.pgh.pa.us 218 [ # # ]: 0 : if (ret < 0) return ret;
219 : : }
220 : 0 : goto lab4;
221 : 0 : lab5:
2029 222 : 0 : z->c = c6;
1150 peter@eisentraut.org 223 [ # # # # ]: 0 : if (z->c == z->l || z->p[z->c] != 'y') goto lab3;
2029 tgl@sss.pgh.pa.us 224 : 0 : z->c++;
1150 peter@eisentraut.org 225 : 0 : z->ket = z->c;
226 : 0 : { int ret = slice_from_s(z, 1, s_7);
6081 tgl@sss.pgh.pa.us 227 [ # # ]: 0 : if (ret < 0) return ret;
228 : : }
229 : : }
230 : 0 : lab4:
2029 231 : 0 : z->c = c5;
6081 232 : 0 : break;
233 : 0 : lab3:
2029 234 : 0 : z->c = c5;
6081 235 [ # # ]: 0 : if (z->c >= z->l) goto lab2;
1150 peter@eisentraut.org 236 : 0 : z->c++;
237 : : }
6081 tgl@sss.pgh.pa.us 238 : 0 : continue;
239 : 0 : lab2:
2029 240 : 0 : z->c = c4;
6081 241 : 0 : break;
242 : : }
243 : 0 : return 1;
244 : : }
245 : :
1150 peter@eisentraut.org 246 : 0 : static int r_mark_regions(struct SN_env * z) {
247 : 0 : z->I[1] = z->l;
248 : 0 : z->I[0] = z->l;
249 : : {
6081 tgl@sss.pgh.pa.us 250 : 0 : int ret = out_grouping(z, g_v, 97, 232, 1);
251 [ # # ]: 0 : if (ret < 0) return 0;
252 : 0 : z->c += ret;
253 : : }
254 : : {
255 : 0 : int ret = in_grouping(z, g_v, 97, 232, 1);
256 [ # # ]: 0 : if (ret < 0) return 0;
257 : 0 : z->c += ret;
258 : : }
1150 peter@eisentraut.org 259 : 0 : z->I[1] = z->c;
260 : :
261 [ # # ]: 0 : if (!(z->I[1] < 3)) goto lab0;
262 : 0 : z->I[1] = 3;
6081 tgl@sss.pgh.pa.us 263 : 0 : lab0:
264 : : {
265 : 0 : int ret = out_grouping(z, g_v, 97, 232, 1);
266 [ # # ]: 0 : if (ret < 0) return 0;
267 : 0 : z->c += ret;
268 : : }
269 : : {
270 : 0 : int ret = in_grouping(z, g_v, 97, 232, 1);
271 [ # # ]: 0 : if (ret < 0) return 0;
272 : 0 : z->c += ret;
273 : : }
1150 peter@eisentraut.org 274 : 0 : z->I[0] = z->c;
6081 tgl@sss.pgh.pa.us 275 : 0 : return 1;
276 : : }
277 : :
1150 peter@eisentraut.org 278 : 0 : static int r_postlude(struct SN_env * z) {
279 : : int among_var;
280 : 0 : while(1) {
281 : 0 : int c1 = z->c;
282 : 0 : z->bra = z->c;
283 [ # # # # : 0 : if (z->c >= z->l || (z->p[z->c + 0] != 73 && z->p[z->c + 0] != 89)) among_var = 3; else
# # ]
2029 tgl@sss.pgh.pa.us 284 : 0 : among_var = find_among(z, a_1, 3);
6081 285 [ # # ]: 0 : if (!(among_var)) goto lab0;
1150 peter@eisentraut.org 286 : 0 : z->ket = z->c;
287 [ # # # # ]: 0 : switch (among_var) {
6081 tgl@sss.pgh.pa.us 288 : 0 : case 1:
1150 peter@eisentraut.org 289 : 0 : { int ret = slice_from_s(z, 1, s_8);
6081 tgl@sss.pgh.pa.us 290 [ # # ]: 0 : if (ret < 0) return ret;
291 : : }
292 : 0 : break;
293 : 0 : case 2:
1150 peter@eisentraut.org 294 : 0 : { int ret = slice_from_s(z, 1, s_9);
6081 tgl@sss.pgh.pa.us 295 [ # # ]: 0 : if (ret < 0) return ret;
296 : : }
297 : 0 : break;
298 : 0 : case 3:
299 [ # # ]: 0 : if (z->c >= z->l) goto lab0;
1150 peter@eisentraut.org 300 : 0 : z->c++;
6081 tgl@sss.pgh.pa.us 301 : 0 : break;
302 : : }
303 : 0 : continue;
304 : 0 : lab0:
305 : 0 : z->c = c1;
306 : 0 : break;
307 : : }
308 : 0 : return 1;
309 : : }
310 : :
1150 peter@eisentraut.org 311 : 0 : static int r_R1(struct SN_env * z) {
312 [ # # ]: 0 : if (!(z->I[1] <= z->c)) return 0;
6081 tgl@sss.pgh.pa.us 313 : 0 : return 1;
314 : : }
315 : :
1150 peter@eisentraut.org 316 : 0 : static int r_R2(struct SN_env * z) {
317 [ # # ]: 0 : if (!(z->I[0] <= z->c)) return 0;
6081 tgl@sss.pgh.pa.us 318 : 0 : return 1;
319 : : }
320 : :
1150 peter@eisentraut.org 321 : 0 : static int r_undouble(struct SN_env * z) {
322 : 0 : { int m_test1 = z->l - z->c;
323 [ # # # # : 0 : if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1050640 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
# # ]
2029 tgl@sss.pgh.pa.us 324 [ # # ]: 0 : if (!(find_among_b(z, a_2, 3))) return 0;
325 : 0 : z->c = z->l - m_test1;
326 : : }
1150 peter@eisentraut.org 327 : 0 : z->ket = z->c;
6081 tgl@sss.pgh.pa.us 328 [ # # ]: 0 : if (z->c <= z->lb) return 0;
1150 peter@eisentraut.org 329 : 0 : z->c--;
330 : 0 : z->bra = z->c;
331 : 0 : { int ret = slice_del(z);
6081 tgl@sss.pgh.pa.us 332 [ # # ]: 0 : if (ret < 0) return ret;
333 : : }
334 : 0 : return 1;
335 : : }
336 : :
1150 peter@eisentraut.org 337 : 0 : static int r_e_ending(struct SN_env * z) {
338 : 0 : z->I[2] = 0;
339 : 0 : z->ket = z->c;
340 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'e') return 0;
2029 tgl@sss.pgh.pa.us 341 : 0 : z->c--;
1150 peter@eisentraut.org 342 : 0 : z->bra = z->c;
343 : 0 : { int ret = r_R1(z);
2029 tgl@sss.pgh.pa.us 344 [ # # ]: 0 : if (ret <= 0) return ret;
345 : : }
1150 peter@eisentraut.org 346 : 0 : { int m_test1 = z->l - z->c;
347 [ # # ]: 0 : if (out_grouping_b(z, g_v, 97, 232, 0)) return 0;
2029 tgl@sss.pgh.pa.us 348 : 0 : z->c = z->l - m_test1;
349 : : }
1150 peter@eisentraut.org 350 : 0 : { int ret = slice_del(z);
6081 tgl@sss.pgh.pa.us 351 [ # # ]: 0 : if (ret < 0) return ret;
352 : : }
1150 peter@eisentraut.org 353 : 0 : z->I[2] = 1;
354 : 0 : { int ret = r_undouble(z);
2029 tgl@sss.pgh.pa.us 355 [ # # ]: 0 : if (ret <= 0) return ret;
356 : : }
6081 357 : 0 : return 1;
358 : : }
359 : :
1150 peter@eisentraut.org 360 : 0 : static int r_en_ending(struct SN_env * z) {
361 : 0 : { int ret = r_R1(z);
2029 tgl@sss.pgh.pa.us 362 [ # # ]: 0 : if (ret <= 0) return ret;
363 : : }
1150 peter@eisentraut.org 364 : 0 : { int m1 = z->l - z->c; (void)m1;
365 [ # # ]: 0 : if (out_grouping_b(z, g_v, 97, 232, 0)) return 0;
6081 tgl@sss.pgh.pa.us 366 : 0 : z->c = z->l - m1;
1150 peter@eisentraut.org 367 : 0 : { int m2 = z->l - z->c; (void)m2;
368 [ # # ]: 0 : if (!(eq_s_b(z, 3, s_10))) goto lab0;
6081 tgl@sss.pgh.pa.us 369 : 0 : return 0;
370 : 0 : lab0:
371 : 0 : z->c = z->l - m2;
372 : : }
373 : : }
1150 peter@eisentraut.org 374 : 0 : { int ret = slice_del(z);
6081 tgl@sss.pgh.pa.us 375 [ # # ]: 0 : if (ret < 0) return ret;
376 : : }
1150 peter@eisentraut.org 377 : 0 : { int ret = r_undouble(z);
2029 tgl@sss.pgh.pa.us 378 [ # # ]: 0 : if (ret <= 0) return ret;
379 : : }
6081 380 : 0 : return 1;
381 : : }
382 : :
1150 peter@eisentraut.org 383 : 0 : static int r_standard_suffix(struct SN_env * z) {
384 : : int among_var;
385 : 0 : { int m1 = z->l - z->c; (void)m1;
386 : 0 : z->ket = z->c;
387 [ # # # # : 0 : if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((540704 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab0;
# # ]
2029 tgl@sss.pgh.pa.us 388 : 0 : among_var = find_among_b(z, a_3, 5);
6081 389 [ # # ]: 0 : if (!(among_var)) goto lab0;
1150 peter@eisentraut.org 390 : 0 : z->bra = z->c;
391 [ # # # # ]: 0 : switch (among_var) {
6081 tgl@sss.pgh.pa.us 392 : 0 : case 1:
1150 peter@eisentraut.org 393 : 0 : { int ret = r_R1(z);
2029 tgl@sss.pgh.pa.us 394 [ # # ]: 0 : if (ret == 0) goto lab0;
6081 395 [ # # ]: 0 : if (ret < 0) return ret;
396 : : }
1150 peter@eisentraut.org 397 : 0 : { int ret = slice_from_s(z, 4, s_11);
6081 tgl@sss.pgh.pa.us 398 [ # # ]: 0 : if (ret < 0) return ret;
399 : : }
400 : 0 : break;
401 : 0 : case 2:
1150 peter@eisentraut.org 402 : 0 : { int ret = r_en_ending(z);
2029 tgl@sss.pgh.pa.us 403 [ # # ]: 0 : if (ret == 0) goto lab0;
6081 404 [ # # ]: 0 : if (ret < 0) return ret;
405 : : }
406 : 0 : break;
407 : 0 : case 3:
1150 peter@eisentraut.org 408 : 0 : { int ret = r_R1(z);
2029 tgl@sss.pgh.pa.us 409 [ # # ]: 0 : if (ret == 0) goto lab0;
6081 410 [ # # ]: 0 : if (ret < 0) return ret;
411 : : }
1150 peter@eisentraut.org 412 [ # # ]: 0 : if (out_grouping_b(z, g_v_j, 97, 232, 0)) goto lab0;
413 : 0 : { int ret = slice_del(z);
6081 tgl@sss.pgh.pa.us 414 [ # # ]: 0 : if (ret < 0) return ret;
415 : : }
416 : 0 : break;
417 : : }
418 : 0 : lab0:
419 : 0 : z->c = z->l - m1;
420 : : }
1150 peter@eisentraut.org 421 : 0 : { int m2 = z->l - z->c; (void)m2;
422 : 0 : { int ret = r_e_ending(z);
6081 tgl@sss.pgh.pa.us 423 [ # # ]: 0 : if (ret < 0) return ret;
424 : : }
425 : 0 : z->c = z->l - m2;
426 : : }
1150 peter@eisentraut.org 427 : 0 : { int m3 = z->l - z->c; (void)m3;
428 : 0 : z->ket = z->c;
429 [ # # ]: 0 : if (!(eq_s_b(z, 4, s_12))) goto lab1;
430 : 0 : z->bra = z->c;
431 : 0 : { int ret = r_R2(z);
1406 432 [ # # ]: 0 : if (ret == 0) goto lab1;
6081 tgl@sss.pgh.pa.us 433 [ # # ]: 0 : if (ret < 0) return ret;
434 : : }
1150 peter@eisentraut.org 435 : 0 : { int m4 = z->l - z->c; (void)m4;
436 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'c') goto lab2;
2029 tgl@sss.pgh.pa.us 437 : 0 : z->c--;
1406 peter@eisentraut.org 438 : 0 : goto lab1;
439 : 0 : lab2:
6081 tgl@sss.pgh.pa.us 440 : 0 : z->c = z->l - m4;
441 : : }
1150 peter@eisentraut.org 442 : 0 : { int ret = slice_del(z);
6081 tgl@sss.pgh.pa.us 443 [ # # ]: 0 : if (ret < 0) return ret;
444 : : }
1150 peter@eisentraut.org 445 : 0 : z->ket = z->c;
446 [ # # ]: 0 : if (!(eq_s_b(z, 2, s_13))) goto lab1;
447 : 0 : z->bra = z->c;
448 : 0 : { int ret = r_en_ending(z);
1406 449 [ # # ]: 0 : if (ret == 0) goto lab1;
6081 tgl@sss.pgh.pa.us 450 [ # # ]: 0 : if (ret < 0) return ret;
451 : : }
1406 peter@eisentraut.org 452 : 0 : lab1:
6081 tgl@sss.pgh.pa.us 453 : 0 : z->c = z->l - m3;
454 : : }
1150 peter@eisentraut.org 455 : 0 : { int m5 = z->l - z->c; (void)m5;
456 : 0 : z->ket = z->c;
457 [ # # # # : 0 : if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((264336 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab3;
# # ]
2029 tgl@sss.pgh.pa.us 458 : 0 : among_var = find_among_b(z, a_4, 6);
1406 peter@eisentraut.org 459 [ # # ]: 0 : if (!(among_var)) goto lab3;
1150 460 : 0 : z->bra = z->c;
461 [ # # # # : 0 : switch (among_var) {
# # ]
6081 tgl@sss.pgh.pa.us 462 : 0 : case 1:
1150 peter@eisentraut.org 463 : 0 : { int ret = r_R2(z);
1406 464 [ # # ]: 0 : if (ret == 0) goto lab3;
6081 tgl@sss.pgh.pa.us 465 [ # # ]: 0 : if (ret < 0) return ret;
466 : : }
1150 peter@eisentraut.org 467 : 0 : { int ret = slice_del(z);
6081 tgl@sss.pgh.pa.us 468 [ # # ]: 0 : if (ret < 0) return ret;
469 : : }
1150 peter@eisentraut.org 470 : 0 : { int m6 = z->l - z->c; (void)m6;
471 : 0 : z->ket = z->c;
472 [ # # ]: 0 : if (!(eq_s_b(z, 2, s_14))) goto lab5;
473 : 0 : z->bra = z->c;
474 : 0 : { int ret = r_R2(z);
1406 475 [ # # ]: 0 : if (ret == 0) goto lab5;
6081 tgl@sss.pgh.pa.us 476 [ # # ]: 0 : if (ret < 0) return ret;
477 : : }
1150 peter@eisentraut.org 478 : 0 : { int m7 = z->l - z->c; (void)m7;
479 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'e') goto lab6;
2029 tgl@sss.pgh.pa.us 480 : 0 : z->c--;
1406 peter@eisentraut.org 481 : 0 : goto lab5;
482 : 0 : lab6:
6081 tgl@sss.pgh.pa.us 483 : 0 : z->c = z->l - m7;
484 : : }
1150 peter@eisentraut.org 485 : 0 : { int ret = slice_del(z);
6081 tgl@sss.pgh.pa.us 486 [ # # ]: 0 : if (ret < 0) return ret;
487 : : }
1406 peter@eisentraut.org 488 : 0 : goto lab4;
489 : 0 : lab5:
6081 tgl@sss.pgh.pa.us 490 : 0 : z->c = z->l - m6;
1150 peter@eisentraut.org 491 : 0 : { int ret = r_undouble(z);
1406 492 [ # # ]: 0 : if (ret == 0) goto lab3;
6081 tgl@sss.pgh.pa.us 493 [ # # ]: 0 : if (ret < 0) return ret;
494 : : }
495 : : }
1406 peter@eisentraut.org 496 : 0 : lab4:
6081 tgl@sss.pgh.pa.us 497 : 0 : break;
498 : 0 : case 2:
1150 peter@eisentraut.org 499 : 0 : { int ret = r_R2(z);
1406 500 [ # # ]: 0 : if (ret == 0) goto lab3;
6081 tgl@sss.pgh.pa.us 501 [ # # ]: 0 : if (ret < 0) return ret;
502 : : }
1150 peter@eisentraut.org 503 : 0 : { int m8 = z->l - z->c; (void)m8;
504 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'e') goto lab7;
2029 tgl@sss.pgh.pa.us 505 : 0 : z->c--;
1406 peter@eisentraut.org 506 : 0 : goto lab3;
507 : 0 : lab7:
6081 tgl@sss.pgh.pa.us 508 : 0 : z->c = z->l - m8;
509 : : }
1150 peter@eisentraut.org 510 : 0 : { int ret = slice_del(z);
6081 tgl@sss.pgh.pa.us 511 [ # # ]: 0 : if (ret < 0) return ret;
512 : : }
513 : 0 : break;
514 : 0 : case 3:
1150 peter@eisentraut.org 515 : 0 : { int ret = r_R2(z);
1406 516 [ # # ]: 0 : if (ret == 0) goto lab3;
6081 tgl@sss.pgh.pa.us 517 [ # # ]: 0 : if (ret < 0) return ret;
518 : : }
1150 peter@eisentraut.org 519 : 0 : { int ret = slice_del(z);
6081 tgl@sss.pgh.pa.us 520 [ # # ]: 0 : if (ret < 0) return ret;
521 : : }
1150 peter@eisentraut.org 522 : 0 : { int ret = r_e_ending(z);
1406 523 [ # # ]: 0 : if (ret == 0) goto lab3;
6081 tgl@sss.pgh.pa.us 524 [ # # ]: 0 : if (ret < 0) return ret;
525 : : }
526 : 0 : break;
527 : 0 : case 4:
1150 peter@eisentraut.org 528 : 0 : { int ret = r_R2(z);
1406 529 [ # # ]: 0 : if (ret == 0) goto lab3;
6081 tgl@sss.pgh.pa.us 530 [ # # ]: 0 : if (ret < 0) return ret;
531 : : }
1150 peter@eisentraut.org 532 : 0 : { int ret = slice_del(z);
6081 tgl@sss.pgh.pa.us 533 [ # # ]: 0 : if (ret < 0) return ret;
534 : : }
535 : 0 : break;
536 : 0 : case 5:
1150 peter@eisentraut.org 537 : 0 : { int ret = r_R2(z);
1406 538 [ # # ]: 0 : if (ret == 0) goto lab3;
6081 tgl@sss.pgh.pa.us 539 [ # # ]: 0 : if (ret < 0) return ret;
540 : : }
1150 peter@eisentraut.org 541 [ # # ]: 0 : if (!(z->I[2])) goto lab3;
542 : 0 : { int ret = slice_del(z);
6081 tgl@sss.pgh.pa.us 543 [ # # ]: 0 : if (ret < 0) return ret;
544 : : }
545 : 0 : break;
546 : : }
1406 peter@eisentraut.org 547 : 0 : lab3:
6081 tgl@sss.pgh.pa.us 548 : 0 : z->c = z->l - m5;
549 : : }
1150 peter@eisentraut.org 550 : 0 : { int m9 = z->l - z->c; (void)m9;
551 [ # # ]: 0 : if (out_grouping_b(z, g_v_I, 73, 232, 0)) goto lab8;
552 : 0 : { int m_test10 = z->l - z->c;
553 [ # # # # : 0 : if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((2129954 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab8;
# # ]
1406 554 [ # # ]: 0 : if (!(find_among_b(z, a_5, 4))) goto lab8;
1150 555 [ # # ]: 0 : if (out_grouping_b(z, g_v, 97, 232, 0)) goto lab8;
2029 tgl@sss.pgh.pa.us 556 : 0 : z->c = z->l - m_test10;
557 : : }
1150 peter@eisentraut.org 558 : 0 : z->ket = z->c;
1406 559 [ # # ]: 0 : if (z->c <= z->lb) goto lab8;
1150 560 : 0 : z->c--;
561 : 0 : z->bra = z->c;
562 : 0 : { int ret = slice_del(z);
6081 tgl@sss.pgh.pa.us 563 [ # # ]: 0 : if (ret < 0) return ret;
564 : : }
1406 peter@eisentraut.org 565 : 0 : lab8:
6081 tgl@sss.pgh.pa.us 566 : 0 : z->c = z->l - m9;
567 : : }
568 : 0 : return 1;
569 : : }
570 : :
1150 peter@eisentraut.org 571 : 0 : extern int dutch_ISO_8859_1_stem(struct SN_env * z) {
572 : 0 : { int c1 = z->c;
573 : 0 : { int ret = r_prelude(z);
6081 tgl@sss.pgh.pa.us 574 [ # # ]: 0 : if (ret < 0) return ret;
575 : : }
576 : 0 : z->c = c1;
577 : : }
1150 peter@eisentraut.org 578 : 0 : { int c2 = z->c;
579 : 0 : { int ret = r_mark_regions(z);
6081 tgl@sss.pgh.pa.us 580 [ # # ]: 0 : if (ret < 0) return ret;
581 : : }
582 : 0 : z->c = c2;
583 : : }
1150 peter@eisentraut.org 584 : 0 : z->lb = z->c; z->c = z->l;
585 : :
586 : :
587 : 0 : { int ret = r_standard_suffix(z);
2029 tgl@sss.pgh.pa.us 588 [ # # ]: 0 : if (ret < 0) return ret;
589 : : }
6081 590 : 0 : z->c = z->lb;
1150 peter@eisentraut.org 591 : 0 : { int c3 = z->c;
592 : 0 : { int ret = r_postlude(z);
6081 tgl@sss.pgh.pa.us 593 [ # # ]: 0 : if (ret < 0) return ret;
594 : : }
2029 595 : 0 : z->c = c3;
596 : : }
6081 597 : 0 : return 1;
598 : : }
599 : :
1150 peter@eisentraut.org 600 : 0 : extern struct SN_env * dutch_ISO_8859_1_create_env(void) { return SN_create_env(0, 3); }
601 : :
6081 tgl@sss.pgh.pa.us 602 : 0 : extern void dutch_ISO_8859_1_close_env(struct SN_env * z) { SN_close_env(z, 0); }
603 : :
|
