Line data Source code
1 : /* Generated from dutch_porter.sbl by Snowball 3.0.0 - https://snowballstem.org/ */
2 :
3 : #include "stem_ISO_8859_1_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_ISO_8859_1_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[1] = { 0xE1 };
53 : static const symbol s_0_2[1] = { 0xE4 };
54 : static const symbol s_0_3[1] = { 0xE9 };
55 : static const symbol s_0_4[1] = { 0xEB };
56 : static const symbol s_0_5[1] = { 0xED };
57 : static const symbol s_0_6[1] = { 0xEF };
58 : static const symbol s_0_7[1] = { 0xF3 };
59 : static const symbol s_0_8[1] = { 0xF6 };
60 : static const symbol s_0_9[1] = { 0xFA };
61 : static const symbol s_0_10[1] = { 0xFC };
62 : static const struct among a_0[11] = {
63 : { 0, 0, 0, 6, 0},
64 : { 1, s_0_1, -1, 1, 0},
65 : { 1, s_0_2, -2, 1, 0},
66 : { 1, s_0_3, -3, 2, 0},
67 : { 1, s_0_4, -4, 2, 0},
68 : { 1, s_0_5, -5, 3, 0},
69 : { 1, s_0_6, -6, 3, 0},
70 : { 1, s_0_7, -7, 4, 0},
71 : { 1, s_0_8, -8, 4, 0},
72 : { 1, s_0_9, -9, 5, 0},
73 : { 1, 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 >= z->l || z->p[z->c + 0] >> 5 != 7 || !((340306450 >> (z->p[z->c + 0] & 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 0 : if (z->c >= z->l) goto lab0;
181 0 : z->c++;
182 0 : break;
183 : }
184 0 : continue;
185 0 : lab0:
186 0 : z->c = v_2;
187 0 : break;
188 : }
189 0 : z->c = v_1;
190 : }
191 : {
192 0 : int v_3 = z->c;
193 0 : z->bra = z->c;
194 0 : if (z->c == z->l || z->p[z->c] != 'y') { z->c = v_3; goto lab1; }
195 0 : z->c++;
196 0 : z->ket = z->c;
197 : {
198 0 : int ret = slice_from_s(z, 1, s_5);
199 0 : if (ret < 0) return ret;
200 : }
201 0 : lab1:
202 : ;
203 : }
204 0 : while (1) {
205 0 : int v_4 = z->c;
206 : {
207 0 : int ret = out_grouping(z, g_v, 97, 232, 1);
208 0 : if (ret < 0) goto lab2;
209 0 : z->c += ret;
210 : }
211 : {
212 0 : int v_5 = z->c;
213 0 : z->bra = z->c;
214 : do {
215 0 : int v_6 = z->c;
216 0 : if (z->c == z->l || z->p[z->c] != 'i') goto lab4;
217 0 : z->c++;
218 0 : z->ket = z->c;
219 : {
220 0 : int v_7 = z->c;
221 0 : if (in_grouping(z, g_v, 97, 232, 0)) goto lab5;
222 : {
223 0 : int ret = slice_from_s(z, 1, s_6);
224 0 : if (ret < 0) return ret;
225 : }
226 0 : lab5:
227 0 : z->c = v_7;
228 : }
229 0 : break;
230 0 : lab4:
231 0 : z->c = v_6;
232 0 : if (z->c == z->l || z->p[z->c] != 'y') { z->c = v_5; goto lab3; }
233 0 : z->c++;
234 0 : z->ket = z->c;
235 : {
236 0 : int ret = slice_from_s(z, 1, s_7);
237 0 : if (ret < 0) return ret;
238 : }
239 : } while (0);
240 0 : lab3:
241 : ;
242 : }
243 0 : continue;
244 0 : lab2:
245 0 : z->c = v_4;
246 0 : break;
247 : }
248 0 : return 1;
249 : }
250 :
251 0 : static int r_mark_regions(struct SN_env * z) {
252 : int i_x;
253 0 : ((SN_local *)z)->i_p1 = z->l;
254 0 : ((SN_local *)z)->i_p2 = z->l;
255 : {
256 0 : int v_1 = z->c;
257 0 : if (z->c + 3 > z->l) return 0;
258 0 : z->c += 3;
259 0 : i_x = z->c;
260 0 : z->c = v_1;
261 : }
262 : {
263 0 : int ret = out_grouping(z, g_v, 97, 232, 1);
264 0 : if (ret < 0) return 0;
265 0 : z->c += ret;
266 : }
267 : {
268 0 : int ret = in_grouping(z, g_v, 97, 232, 1);
269 0 : if (ret < 0) return 0;
270 0 : z->c += ret;
271 : }
272 0 : ((SN_local *)z)->i_p1 = z->c;
273 0 : if (((SN_local *)z)->i_p1 >= i_x) goto lab0;
274 0 : ((SN_local *)z)->i_p1 = i_x;
275 0 : lab0:
276 : {
277 0 : int ret = out_grouping(z, g_v, 97, 232, 1);
278 0 : if (ret < 0) return 0;
279 0 : z->c += ret;
280 : }
281 : {
282 0 : int ret = in_grouping(z, g_v, 97, 232, 1);
283 0 : if (ret < 0) return 0;
284 0 : z->c += ret;
285 : }
286 0 : ((SN_local *)z)->i_p2 = z->c;
287 0 : return 1;
288 : }
289 :
290 0 : static int r_postlude(struct SN_env * z) {
291 : int among_var;
292 0 : while (1) {
293 0 : int v_1 = z->c;
294 0 : z->bra = z->c;
295 0 : if (z->c >= z->l || (z->p[z->c + 0] != 73 && z->p[z->c + 0] != 89)) among_var = 3; else
296 0 : among_var = find_among(z, a_1, 3, 0);
297 0 : z->ket = z->c;
298 0 : switch (among_var) {
299 0 : case 1:
300 : {
301 0 : int ret = slice_from_s(z, 1, s_8);
302 0 : if (ret < 0) return ret;
303 : }
304 0 : break;
305 0 : case 2:
306 : {
307 0 : int ret = slice_from_s(z, 1, s_9);
308 0 : if (ret < 0) return ret;
309 : }
310 0 : break;
311 0 : case 3:
312 0 : if (z->c >= z->l) goto lab0;
313 0 : z->c++;
314 0 : break;
315 : }
316 0 : continue;
317 0 : lab0:
318 0 : z->c = v_1;
319 0 : break;
320 : }
321 0 : return 1;
322 : }
323 :
324 0 : static int r_R1(struct SN_env * z) {
325 0 : return ((SN_local *)z)->i_p1 <= z->c;
326 : }
327 :
328 0 : static int r_R2(struct SN_env * z) {
329 0 : return ((SN_local *)z)->i_p2 <= z->c;
330 : }
331 :
332 0 : static int r_undouble(struct SN_env * z) {
333 : {
334 0 : int v_1 = z->l - z->c;
335 0 : if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1050640 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
336 0 : if (!find_among_b(z, a_2, 3, 0)) return 0;
337 0 : z->c = z->l - v_1;
338 : }
339 0 : z->ket = z->c;
340 0 : if (z->c <= z->lb) return 0;
341 0 : z->c--;
342 0 : z->bra = z->c;
343 : {
344 0 : int ret = slice_del(z);
345 0 : if (ret < 0) return ret;
346 : }
347 0 : return 1;
348 : }
349 :
350 0 : static int r_e_ending(struct SN_env * z) {
351 0 : ((SN_local *)z)->b_e_found = 0;
352 0 : z->ket = z->c;
353 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'e') return 0;
354 0 : z->c--;
355 0 : z->bra = z->c;
356 : {
357 0 : int ret = r_R1(z);
358 0 : if (ret <= 0) return ret;
359 : }
360 : {
361 0 : int v_1 = z->l - z->c;
362 0 : if (out_grouping_b(z, g_v, 97, 232, 0)) return 0;
363 0 : z->c = z->l - v_1;
364 : }
365 : {
366 0 : int ret = slice_del(z);
367 0 : if (ret < 0) return ret;
368 : }
369 0 : ((SN_local *)z)->b_e_found = 1;
370 0 : return r_undouble(z);
371 : }
372 :
373 0 : static int r_en_ending(struct SN_env * z) {
374 : {
375 0 : int ret = r_R1(z);
376 0 : if (ret <= 0) return ret;
377 : }
378 : {
379 0 : int v_1 = z->l - z->c;
380 0 : if (out_grouping_b(z, g_v, 97, 232, 0)) return 0;
381 0 : z->c = z->l - v_1;
382 : {
383 0 : int v_2 = z->l - z->c;
384 0 : if (!(eq_s_b(z, 3, s_10))) goto lab0;
385 0 : return 0;
386 0 : lab0:
387 0 : z->c = z->l - v_2;
388 : }
389 : }
390 : {
391 0 : int ret = slice_del(z);
392 0 : if (ret < 0) return ret;
393 : }
394 0 : return r_undouble(z);
395 : }
396 :
397 0 : static int r_standard_suffix(struct SN_env * z) {
398 : int among_var;
399 : {
400 0 : int v_1 = z->l - z->c;
401 0 : z->ket = z->c;
402 0 : if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((540704 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab0;
403 0 : among_var = find_among_b(z, a_3, 5, 0);
404 0 : if (!among_var) goto lab0;
405 0 : z->bra = z->c;
406 0 : switch (among_var) {
407 0 : case 1:
408 : {
409 0 : int ret = r_R1(z);
410 0 : if (ret == 0) goto lab0;
411 0 : if (ret < 0) return ret;
412 : }
413 : {
414 0 : int ret = slice_from_s(z, 4, s_11);
415 0 : if (ret < 0) return ret;
416 : }
417 0 : break;
418 0 : case 2:
419 : {
420 0 : int ret = r_en_ending(z);
421 0 : if (ret == 0) goto lab0;
422 0 : if (ret < 0) return ret;
423 : }
424 0 : break;
425 0 : case 3:
426 : {
427 0 : int ret = r_R1(z);
428 0 : if (ret == 0) goto lab0;
429 0 : if (ret < 0) return ret;
430 : }
431 0 : if (out_grouping_b(z, g_v_j, 97, 232, 0)) goto lab0;
432 : {
433 0 : int ret = slice_del(z);
434 0 : if (ret < 0) return ret;
435 : }
436 0 : break;
437 : }
438 0 : lab0:
439 0 : z->c = z->l - v_1;
440 : }
441 : {
442 0 : int v_2 = z->l - z->c;
443 : {
444 0 : int ret = r_e_ending(z);
445 0 : if (ret < 0) return ret;
446 : }
447 0 : z->c = z->l - v_2;
448 : }
449 : {
450 0 : int v_3 = z->l - z->c;
451 0 : z->ket = z->c;
452 0 : if (!(eq_s_b(z, 4, s_12))) goto lab1;
453 0 : z->bra = z->c;
454 : {
455 0 : int ret = r_R2(z);
456 0 : if (ret == 0) goto lab1;
457 0 : if (ret < 0) return ret;
458 : }
459 : {
460 0 : int v_4 = z->l - z->c;
461 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'c') goto lab2;
462 0 : z->c--;
463 0 : goto lab1;
464 0 : lab2:
465 0 : z->c = z->l - v_4;
466 : }
467 : {
468 0 : int ret = slice_del(z);
469 0 : if (ret < 0) return ret;
470 : }
471 0 : z->ket = z->c;
472 0 : if (!(eq_s_b(z, 2, s_13))) goto lab1;
473 0 : z->bra = z->c;
474 : {
475 0 : int ret = r_en_ending(z);
476 0 : if (ret == 0) goto lab1;
477 0 : if (ret < 0) return ret;
478 : }
479 0 : lab1:
480 0 : z->c = z->l - v_3;
481 : }
482 : {
483 0 : int v_5 = z->l - z->c;
484 0 : z->ket = z->c;
485 0 : if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((264336 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab3;
486 0 : among_var = find_among_b(z, a_4, 6, 0);
487 0 : if (!among_var) goto lab3;
488 0 : z->bra = z->c;
489 0 : switch (among_var) {
490 0 : case 1:
491 : {
492 0 : int ret = r_R2(z);
493 0 : if (ret == 0) goto lab3;
494 0 : if (ret < 0) return ret;
495 : }
496 : {
497 0 : int ret = slice_del(z);
498 0 : if (ret < 0) return ret;
499 : }
500 : do {
501 0 : int v_6 = z->l - z->c;
502 0 : z->ket = z->c;
503 0 : if (!(eq_s_b(z, 2, s_14))) goto lab4;
504 0 : z->bra = z->c;
505 : {
506 0 : int ret = r_R2(z);
507 0 : if (ret == 0) goto lab4;
508 0 : if (ret < 0) return ret;
509 : }
510 : {
511 0 : int v_7 = z->l - z->c;
512 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'e') goto lab5;
513 0 : z->c--;
514 0 : goto lab4;
515 0 : lab5:
516 0 : z->c = z->l - v_7;
517 : }
518 : {
519 0 : int ret = slice_del(z);
520 0 : if (ret < 0) return ret;
521 : }
522 0 : break;
523 0 : lab4:
524 0 : z->c = z->l - v_6;
525 : {
526 0 : int ret = r_undouble(z);
527 0 : if (ret == 0) goto lab3;
528 0 : if (ret < 0) return ret;
529 : }
530 : } while (0);
531 0 : break;
532 0 : case 2:
533 : {
534 0 : int ret = r_R2(z);
535 0 : if (ret == 0) goto lab3;
536 0 : if (ret < 0) return ret;
537 : }
538 : {
539 0 : int v_8 = z->l - z->c;
540 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'e') goto lab6;
541 0 : z->c--;
542 0 : goto lab3;
543 0 : lab6:
544 0 : z->c = z->l - v_8;
545 : }
546 : {
547 0 : int ret = slice_del(z);
548 0 : if (ret < 0) return ret;
549 : }
550 0 : break;
551 0 : case 3:
552 : {
553 0 : int ret = r_R2(z);
554 0 : if (ret == 0) goto lab3;
555 0 : if (ret < 0) return ret;
556 : }
557 : {
558 0 : int ret = slice_del(z);
559 0 : if (ret < 0) return ret;
560 : }
561 : {
562 0 : int ret = r_e_ending(z);
563 0 : if (ret == 0) goto lab3;
564 0 : if (ret < 0) return ret;
565 : }
566 0 : break;
567 0 : case 4:
568 : {
569 0 : int ret = r_R2(z);
570 0 : if (ret == 0) goto lab3;
571 0 : if (ret < 0) return ret;
572 : }
573 : {
574 0 : int ret = slice_del(z);
575 0 : if (ret < 0) return ret;
576 : }
577 0 : break;
578 0 : case 5:
579 : {
580 0 : int ret = r_R2(z);
581 0 : if (ret == 0) goto lab3;
582 0 : if (ret < 0) return ret;
583 : }
584 0 : if (!((SN_local *)z)->b_e_found) goto lab3;
585 : {
586 0 : int ret = slice_del(z);
587 0 : if (ret < 0) return ret;
588 : }
589 0 : break;
590 : }
591 0 : lab3:
592 0 : z->c = z->l - v_5;
593 : }
594 : {
595 0 : int v_9 = z->l - z->c;
596 0 : if (out_grouping_b(z, g_v_I, 73, 232, 0)) goto lab7;
597 : {
598 0 : int v_10 = z->l - z->c;
599 0 : if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((2129954 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab7;
600 0 : if (!find_among_b(z, a_5, 4, 0)) goto lab7;
601 0 : if (out_grouping_b(z, g_v, 97, 232, 0)) goto lab7;
602 0 : z->c = z->l - v_10;
603 : }
604 0 : z->ket = z->c;
605 0 : if (z->c <= z->lb) goto lab7;
606 0 : z->c--;
607 0 : z->bra = z->c;
608 : {
609 0 : int ret = slice_del(z);
610 0 : if (ret < 0) return ret;
611 : }
612 0 : lab7:
613 0 : z->c = z->l - v_9;
614 : }
615 0 : return 1;
616 : }
617 :
618 0 : extern int dutch_porter_ISO_8859_1_stem(struct SN_env * z) {
619 : {
620 0 : int v_1 = z->c;
621 : {
622 0 : int ret = r_prelude(z);
623 0 : if (ret < 0) return ret;
624 : }
625 0 : z->c = v_1;
626 : }
627 : {
628 0 : int v_2 = z->c;
629 : {
630 0 : int ret = r_mark_regions(z);
631 0 : if (ret < 0) return ret;
632 : }
633 0 : z->c = v_2;
634 : }
635 0 : z->lb = z->c; z->c = z->l;
636 : {
637 0 : int ret = r_standard_suffix(z);
638 0 : if (ret < 0) return ret;
639 : }
640 0 : z->c = z->lb;
641 : {
642 0 : int v_3 = z->c;
643 : {
644 0 : int ret = r_postlude(z);
645 0 : if (ret < 0) return ret;
646 : }
647 0 : z->c = v_3;
648 : }
649 0 : return 1;
650 : }
651 :
652 0 : extern struct SN_env * dutch_porter_ISO_8859_1_create_env(void) {
653 0 : struct SN_env * z = SN_new_env(sizeof(SN_local));
654 0 : if (z) {
655 0 : ((SN_local *)z)->i_p2 = 0;
656 0 : ((SN_local *)z)->i_p1 = 0;
657 0 : ((SN_local *)z)->b_e_found = 0;
658 : }
659 0 : return z;
660 : }
661 :
662 0 : extern void dutch_porter_ISO_8859_1_close_env(struct SN_env * z) {
663 0 : SN_delete_env(z);
664 0 : }
665 :
|
