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 :
357 0 : static int r_prelude(struct SN_env * z) {
358 0 : ((SN_local *)z)->b_Y_found = 0;
359 : {
360 0 : int v_1 = z->c;
361 0 : z->bra = z->c;
362 0 : if (z->c == z->l || z->p[z->c] != '\'') goto lab0;
363 0 : z->c++;
364 0 : z->ket = z->c;
365 : {
366 0 : int ret = slice_del(z);
367 0 : if (ret < 0) return ret;
368 : }
369 0 : lab0:
370 0 : z->c = v_1;
371 : }
372 : {
373 0 : int v_2 = z->c;
374 0 : z->bra = z->c;
375 0 : if (z->c == z->l || z->p[z->c] != 'y') goto lab1;
376 0 : z->c++;
377 0 : z->ket = z->c;
378 : {
379 0 : int ret = slice_from_s(z, 1, s_0);
380 0 : if (ret < 0) return ret;
381 : }
382 0 : ((SN_local *)z)->b_Y_found = 1;
383 0 : lab1:
384 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;
392 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;
395 0 : z->c++;
396 0 : z->ket = z->c;
397 0 : z->c = v_5;
398 0 : break;
399 0 : lab4:
400 0 : z->c = v_5;
401 0 : if (z->c >= z->l) goto lab3;
402 0 : z->c++;
403 : }
404 : {
405 0 : int ret = slice_from_s(z, 1, s_1);
406 0 : if (ret < 0) return ret;
407 : }
408 0 : ((SN_local *)z)->b_Y_found = 1;
409 0 : continue;
410 0 : lab3:
411 0 : z->c = v_4;
412 0 : break;
413 : }
414 0 : z->c = v_3;
415 : }
416 0 : return 1;
417 : }
418 :
419 0 : static int r_mark_regions(struct SN_env * z) {
420 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 : {
432 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);
442 0 : ((SN_local *)z)->i_p1 = z->c;
443 : {
444 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 : }
453 0 : ((SN_local *)z)->i_p2 = z->c;
454 0 : lab0:
455 0 : z->c = v_1;
456 : }
457 0 : return 1;
458 : }
459 :
460 0 : static int r_shortv(struct SN_env * z) {
461 : do {
462 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;
469 0 : if (out_grouping_b(z, g_v, 97, 121, 0)) goto lab1;
470 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;
473 0 : lab1:
474 0 : z->c = z->l - v_1;
475 0 : if (!(eq_s_b(z, 4, s_2))) return 0;
476 : } while (0);
477 0 : return 1;
478 : }
479 :
480 0 : static int r_R1(struct SN_env * z) {
481 0 : return ((SN_local *)z)->i_p1 <= z->c;
482 : }
483 :
484 0 : static int r_R2(struct SN_env * z) {
485 0 : return ((SN_local *)z)->i_p2 <= z->c;
486 : }
487 :
488 0 : static int r_Step_1a(struct SN_env * z) {
489 : int among_var;
490 : {
491 0 : int v_1 = z->l - z->c;
492 0 : z->ket = z->c;
493 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; }
495 0 : z->bra = z->c;
496 : {
497 0 : int ret = slice_del(z);
498 0 : if (ret < 0) return ret;
499 : }
500 0 : lab0:
501 : ;
502 : }
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;
505 0 : among_var = find_among_b(z, a_2, 6, 0);
506 0 : if (!among_var) return 0;
507 0 : z->bra = z->c;
508 0 : switch (among_var) {
509 0 : case 1:
510 : {
511 0 : int ret = slice_from_s(z, 2, s_3);
512 0 : if (ret < 0) return ret;
513 : }
514 0 : break;
515 0 : case 2:
516 : do {
517 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);
522 0 : if (ret < 0) return ret;
523 : }
524 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);
529 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;
535 0 : z->c--;
536 : {
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 : {
542 0 : int ret = slice_del(z);
543 0 : if (ret < 0) return ret;
544 : }
545 0 : break;
546 : }
547 0 : return 1;
548 : }
549 :
550 0 : static int r_Step_1b(struct SN_env * z) {
551 : int among_var;
552 0 : z->ket = z->c;
553 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);
555 0 : z->bra = z->c;
556 : do {
557 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;
591 : switch (among_var) {
592 0 : case 1:
593 : {
594 0 : int v_4 = z->l - z->c;
595 0 : if (out_grouping_b(z, g_v, 97, 121, 0)) goto lab0;
596 0 : if (z->c > z->lb) goto lab0;
597 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);
602 0 : if (ret < 0) return ret;
603 : }
604 0 : break;
605 0 : case 2:
606 0 : if (z->c > z->lb) goto lab0;
607 0 : break;
608 : }
609 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);
679 0 : return 1;
680 : }
681 :
682 0 : static int r_Step_1c(struct SN_env * z) {
683 0 : z->ket = z->c;
684 : do {
685 0 : int v_1 = z->l - z->c;
686 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'y') goto lab0;
687 0 : z->c--;
688 0 : break;
689 0 : lab0:
690 0 : z->c = z->l - v_1;
691 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'Y') return 0;
692 0 : z->c--;
693 : } while (0);
694 0 : z->bra = z->c;
695 0 : if (out_grouping_b(z, g_v, 97, 121, 0)) return 0;
696 0 : if (z->c > z->lb) goto lab1;
697 0 : return 0;
698 0 : lab1:
699 : {
700 0 : int ret = slice_from_s(z, 1, s_10);
701 0 : if (ret < 0) return ret;
702 : }
703 0 : return 1;
704 : }
705 :
706 0 : static int r_Step_2(struct SN_env * z) {
707 : int among_var;
708 0 : z->ket = z->c;
709 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);
711 0 : if (!among_var) return 0;
712 0 : z->bra = z->c;
713 : {
714 0 : int ret = r_R1(z);
715 0 : if (ret <= 0) return ret;
716 : }
717 0 : switch (among_var) {
718 0 : case 1:
719 : {
720 0 : int ret = slice_from_s(z, 4, s_11);
721 0 : if (ret < 0) return ret;
722 : }
723 0 : break;
724 0 : case 2:
725 : {
726 0 : int ret = slice_from_s(z, 4, s_12);
727 0 : if (ret < 0) return ret;
728 : }
729 0 : break;
730 0 : case 3:
731 : {
732 0 : int ret = slice_from_s(z, 4, s_13);
733 0 : if (ret < 0) return ret;
734 : }
735 0 : break;
736 0 : case 4:
737 : {
738 0 : int ret = slice_from_s(z, 4, s_14);
739 0 : if (ret < 0) return ret;
740 : }
741 0 : break;
742 0 : case 5:
743 : {
744 0 : int ret = slice_from_s(z, 3, s_15);
745 0 : if (ret < 0) return ret;
746 : }
747 0 : break;
748 0 : case 6:
749 : {
750 0 : int ret = slice_from_s(z, 3, s_16);
751 0 : if (ret < 0) return ret;
752 : }
753 0 : break;
754 0 : case 7:
755 : {
756 0 : int ret = slice_from_s(z, 3, s_17);
757 0 : if (ret < 0) return ret;
758 : }
759 0 : break;
760 0 : case 8:
761 : {
762 0 : int ret = slice_from_s(z, 2, s_18);
763 0 : if (ret < 0) return ret;
764 : }
765 0 : break;
766 0 : case 9:
767 : {
768 0 : int ret = slice_from_s(z, 3, s_19);
769 0 : if (ret < 0) return ret;
770 : }
771 0 : break;
772 0 : case 10:
773 : {
774 0 : int ret = slice_from_s(z, 3, s_20);
775 0 : if (ret < 0) return ret;
776 : }
777 0 : break;
778 0 : case 11:
779 : {
780 0 : int ret = slice_from_s(z, 3, s_21);
781 0 : if (ret < 0) return ret;
782 : }
783 0 : break;
784 0 : case 12:
785 : {
786 0 : int ret = slice_from_s(z, 3, s_22);
787 0 : if (ret < 0) return ret;
788 : }
789 0 : break;
790 0 : case 13:
791 : {
792 0 : int ret = slice_from_s(z, 2, s_23);
793 0 : if (ret < 0) return ret;
794 : }
795 0 : break;
796 0 : case 14:
797 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);
801 0 : if (ret < 0) return ret;
802 : }
803 0 : break;
804 0 : case 15:
805 : {
806 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:
811 0 : if (in_grouping_b(z, g_valid_LI, 99, 116, 0)) return 0;
812 : {
813 0 : int ret = slice_del(z);
814 0 : if (ret < 0) return ret;
815 : }
816 0 : break;
817 : }
818 0 : return 1;
819 : }
820 :
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;
825 0 : among_var = find_among_b(z, a_8, 9, 0);
826 0 : if (!among_var) return 0;
827 0 : z->bra = z->c;
828 : {
829 0 : int ret = r_R1(z);
830 0 : if (ret <= 0) return ret;
831 : }
832 0 : switch (among_var) {
833 0 : case 1:
834 : {
835 0 : int ret = slice_from_s(z, 4, s_26);
836 0 : if (ret < 0) return ret;
837 : }
838 0 : break;
839 0 : case 2:
840 : {
841 0 : int ret = slice_from_s(z, 3, s_27);
842 0 : if (ret < 0) return ret;
843 : }
844 0 : break;
845 0 : case 3:
846 : {
847 0 : int ret = slice_from_s(z, 2, s_28);
848 0 : if (ret < 0) return ret;
849 : }
850 0 : break;
851 0 : case 4:
852 : {
853 0 : int ret = slice_from_s(z, 2, s_29);
854 0 : if (ret < 0) return ret;
855 : }
856 0 : break;
857 0 : case 5:
858 : {
859 0 : int ret = slice_del(z);
860 0 : if (ret < 0) return ret;
861 : }
862 0 : break;
863 0 : case 6:
864 : {
865 0 : int ret = r_R2(z);
866 0 : if (ret <= 0) return ret;
867 : }
868 : {
869 0 : int ret = slice_del(z);
870 0 : if (ret < 0) return ret;
871 : }
872 0 : break;
873 : }
874 0 : return 1;
875 : }
876 :
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;
881 0 : among_var = find_among_b(z, a_9, 18, 0);
882 0 : if (!among_var) return 0;
883 0 : z->bra = z->c;
884 : {
885 0 : int ret = r_R2(z);
886 0 : if (ret <= 0) return ret;
887 : }
888 0 : switch (among_var) {
889 0 : case 1:
890 : {
891 0 : int ret = slice_del(z);
892 0 : if (ret < 0) return ret;
893 : }
894 0 : break;
895 0 : case 2:
896 : do {
897 0 : int v_1 = z->l - z->c;
898 0 : if (z->c <= z->lb || z->p[z->c - 1] != 's') goto lab0;
899 0 : z->c--;
900 0 : break;
901 0 : lab0:
902 0 : z->c = z->l - v_1;
903 0 : if (z->c <= z->lb || z->p[z->c - 1] != 't') return 0;
904 0 : z->c--;
905 : } while (0);
906 : {
907 0 : int ret = slice_del(z);
908 0 : if (ret < 0) return ret;
909 : }
910 0 : break;
911 : }
912 0 : return 1;
913 : }
914 :
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;
919 0 : among_var = find_among_b(z, a_10, 2, 0);
920 0 : if (!among_var) return 0;
921 0 : z->bra = z->c;
922 0 : switch (among_var) {
923 0 : case 1:
924 : do {
925 : {
926 0 : int ret = r_R2(z);
927 0 : if (ret == 0) goto lab0;
928 0 : if (ret < 0) return ret;
929 : }
930 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);
950 0 : if (ret < 0) return ret;
951 : }
952 0 : break;
953 0 : case 2:
954 : {
955 0 : int ret = r_R2(z);
956 0 : if (ret <= 0) return ret;
957 : }
958 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'l') return 0;
959 0 : z->c--;
960 : {
961 0 : int ret = slice_del(z);
962 0 : if (ret < 0) return ret;
963 : }
964 0 : break;
965 : }
966 0 : return 1;
967 : }
968 :
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;
973 0 : among_var = find_among(z, a_11, 15, 0);
974 0 : if (!among_var) return 0;
975 0 : z->ket = z->c;
976 0 : if (z->c < z->l) return 0;
977 0 : switch (among_var) {
978 0 : case 1:
979 : {
980 0 : int ret = slice_from_s(z, 3, s_30);
981 0 : if (ret < 0) return ret;
982 : }
983 0 : break;
984 0 : case 2:
985 : {
986 0 : int ret = slice_from_s(z, 3, s_31);
987 0 : if (ret < 0) return ret;
988 : }
989 0 : break;
990 0 : case 3:
991 : {
992 0 : int ret = slice_from_s(z, 3, s_32);
993 0 : if (ret < 0) return ret;
994 : }
995 0 : break;
996 0 : case 4:
997 : {
998 0 : int ret = slice_from_s(z, 5, s_33);
999 0 : if (ret < 0) return ret;
1000 : }
1001 0 : break;
1002 0 : case 5:
1003 : {
1004 0 : int ret = slice_from_s(z, 4, s_34);
1005 0 : if (ret < 0) return ret;
1006 : }
1007 0 : break;
1008 0 : case 6:
1009 : {
1010 0 : int ret = slice_from_s(z, 5, s_35);
1011 0 : if (ret < 0) return ret;
1012 : }
1013 0 : break;
1014 0 : case 7:
1015 : {
1016 0 : int ret = slice_from_s(z, 4, s_36);
1017 0 : if (ret < 0) return ret;
1018 : }
1019 0 : break;
1020 0 : case 8:
1021 : {
1022 0 : int ret = slice_from_s(z, 5, s_37);
1023 0 : if (ret < 0) return ret;
1024 : }
1025 0 : break;
1026 : }
1027 0 : return 1;
1028 : }
1029 :
1030 0 : static int r_postlude(struct SN_env * z) {
1031 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;
1036 0 : z->bra = z->c;
1037 0 : if (z->c == z->l || z->p[z->c] != 'Y') goto lab1;
1038 0 : z->c++;
1039 0 : z->ket = z->c;
1040 0 : z->c = v_2;
1041 0 : break;
1042 0 : lab1:
1043 0 : z->c = v_2;
1044 0 : if (z->c >= z->l) goto lab0;
1045 0 : z->c++;
1046 : }
1047 : {
1048 0 : int ret = slice_from_s(z, 1, s_38);
1049 0 : if (ret < 0) return ret;
1050 : }
1051 0 : continue;
1052 0 : lab0:
1053 0 : z->c = v_1;
1054 0 : break;
1055 : }
1056 0 : return 1;
1057 : }
1058 :
1059 0 : extern int english_ISO_8859_1_stem(struct SN_env * z) {
1060 : do {
1061 0 : int v_1 = z->c;
1062 : {
1063 0 : int ret = r_exception1(z);
1064 0 : if (ret == 0) goto lab0;
1065 0 : if (ret < 0) return ret;
1066 : }
1067 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);
1083 0 : if (ret < 0) return ret;
1084 : }
1085 : {
1086 0 : int ret = r_mark_regions(z);
1087 0 : if (ret < 0) return ret;
1088 : }
1089 0 : z->lb = z->c; z->c = z->l;
1090 : {
1091 0 : int v_3 = z->l - z->c;
1092 : {
1093 0 : int ret = r_Step_1a(z);
1094 0 : if (ret < 0) return ret;
1095 : }
1096 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);
1102 0 : if (ret < 0) return ret;
1103 : }
1104 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 : }
1146 0 : z->c = z->lb;
1147 : {
1148 0 : int v_10 = z->c;
1149 : {
1150 0 : int ret = r_postlude(z);
1151 0 : if (ret < 0) return ret;
1152 : }
1153 0 : z->c = v_10;
1154 : }
1155 : } while (0);
1156 0 : return 1;
1157 : }
1158 :
1159 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 :
|
