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