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