Branch data Line data Source code
1 : : /* Generated from finnish.sbl by Snowball 3.0.0 - https://snowballstem.org/ */
2 : :
3 : : #include "stem_UTF_8_finnish.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_ending_removed;
14 : : symbol * s_x;
15 : : };
16 : :
17 : : typedef struct SN_local SN_local;
18 : :
19 : : #ifdef __cplusplus
20 : : extern "C" {
21 : : #endif
22 : : extern int finnish_UTF_8_stem(struct SN_env * z);
23 : : #ifdef __cplusplus
24 : : }
25 : : #endif
26 : :
27 : : static int r_tidy(struct SN_env * z);
28 : : static int r_other_endings(struct SN_env * z);
29 : : static int r_t_plural(struct SN_env * z);
30 : : static int r_i_plural(struct SN_env * z);
31 : : static int r_case_ending(struct SN_env * z);
32 : : static int r_VI(struct SN_env * z);
33 : : static int r_LONG(struct SN_env * z);
34 : : static int r_possessive(struct SN_env * z);
35 : : static int r_particle_etc(struct SN_env * z);
36 : : static int r_R2(struct SN_env * z);
37 : : static int r_mark_regions(struct SN_env * z);
38 : :
39 : : static const symbol s_0[] = { 'k', 's', 'e' };
40 : : static const symbol s_1[] = { 'k', 's', 'i' };
41 : : static const symbol s_2[] = { 0xC3, 0xA4 };
42 : : static const symbol s_3[] = { 0xC3, 0xB6 };
43 : : static const symbol s_4[] = { 'i', 'e' };
44 : : static const symbol s_5[] = { 'p', 'o' };
45 : : static const symbol s_6[] = { 'p', 'o' };
46 : :
47 : : static const symbol s_0_0[2] = { 'p', 'a' };
48 : : static const symbol s_0_1[3] = { 's', 't', 'i' };
49 : : static const symbol s_0_2[4] = { 'k', 'a', 'a', 'n' };
50 : : static const symbol s_0_3[3] = { 'h', 'a', 'n' };
51 : : static const symbol s_0_4[3] = { 'k', 'i', 'n' };
52 : : static const symbol s_0_5[4] = { 'h', 0xC3, 0xA4, 'n' };
53 : : static const symbol s_0_6[6] = { 'k', 0xC3, 0xA4, 0xC3, 0xA4, 'n' };
54 : : static const symbol s_0_7[2] = { 'k', 'o' };
55 : : static const symbol s_0_8[3] = { 'p', 0xC3, 0xA4 };
56 : : static const symbol s_0_9[3] = { 'k', 0xC3, 0xB6 };
57 : : static const struct among a_0[10] = {
58 : : { 2, s_0_0, 0, 1, 0},
59 : : { 3, s_0_1, 0, 2, 0},
60 : : { 4, s_0_2, 0, 1, 0},
61 : : { 3, s_0_3, 0, 1, 0},
62 : : { 3, s_0_4, 0, 1, 0},
63 : : { 4, s_0_5, 0, 1, 0},
64 : : { 6, s_0_6, 0, 1, 0},
65 : : { 2, s_0_7, 0, 1, 0},
66 : : { 3, s_0_8, 0, 1, 0},
67 : : { 3, s_0_9, 0, 1, 0}
68 : : };
69 : :
70 : : static const symbol s_1_0[3] = { 'l', 'l', 'a' };
71 : : static const symbol s_1_1[2] = { 'n', 'a' };
72 : : static const symbol s_1_2[3] = { 's', 's', 'a' };
73 : : static const symbol s_1_3[2] = { 't', 'a' };
74 : : static const symbol s_1_4[3] = { 'l', 't', 'a' };
75 : : static const symbol s_1_5[3] = { 's', 't', 'a' };
76 : : static const struct among a_1[6] = {
77 : : { 3, s_1_0, 0, -1, 0},
78 : : { 2, s_1_1, 0, -1, 0},
79 : : { 3, s_1_2, 0, -1, 0},
80 : : { 2, s_1_3, 0, -1, 0},
81 : : { 3, s_1_4, -1, -1, 0},
82 : : { 3, s_1_5, -2, -1, 0}
83 : : };
84 : :
85 : : static const symbol s_2_0[4] = { 'l', 'l', 0xC3, 0xA4 };
86 : : static const symbol s_2_1[3] = { 'n', 0xC3, 0xA4 };
87 : : static const symbol s_2_2[4] = { 's', 's', 0xC3, 0xA4 };
88 : : static const symbol s_2_3[3] = { 't', 0xC3, 0xA4 };
89 : : static const symbol s_2_4[4] = { 'l', 't', 0xC3, 0xA4 };
90 : : static const symbol s_2_5[4] = { 's', 't', 0xC3, 0xA4 };
91 : : static const struct among a_2[6] = {
92 : : { 4, s_2_0, 0, -1, 0},
93 : : { 3, s_2_1, 0, -1, 0},
94 : : { 4, s_2_2, 0, -1, 0},
95 : : { 3, s_2_3, 0, -1, 0},
96 : : { 4, s_2_4, -1, -1, 0},
97 : : { 4, s_2_5, -2, -1, 0}
98 : : };
99 : :
100 : : static const symbol s_3_0[3] = { 'l', 'l', 'e' };
101 : : static const symbol s_3_1[3] = { 'i', 'n', 'e' };
102 : : static const struct among a_3[2] = {
103 : : { 3, s_3_0, 0, -1, 0},
104 : : { 3, s_3_1, 0, -1, 0}
105 : : };
106 : :
107 : : static const symbol s_4_0[3] = { 'n', 's', 'a' };
108 : : static const symbol s_4_1[3] = { 'm', 'm', 'e' };
109 : : static const symbol s_4_2[3] = { 'n', 'n', 'e' };
110 : : static const symbol s_4_3[2] = { 'n', 'i' };
111 : : static const symbol s_4_4[2] = { 's', 'i' };
112 : : static const symbol s_4_5[2] = { 'a', 'n' };
113 : : static const symbol s_4_6[2] = { 'e', 'n' };
114 : : static const symbol s_4_7[3] = { 0xC3, 0xA4, 'n' };
115 : : static const symbol s_4_8[4] = { 'n', 's', 0xC3, 0xA4 };
116 : : static const struct among a_4[9] = {
117 : : { 3, s_4_0, 0, 3, 0},
118 : : { 3, s_4_1, 0, 3, 0},
119 : : { 3, s_4_2, 0, 3, 0},
120 : : { 2, s_4_3, 0, 2, 0},
121 : : { 2, s_4_4, 0, 1, 0},
122 : : { 2, s_4_5, 0, 4, 0},
123 : : { 2, s_4_6, 0, 6, 0},
124 : : { 3, s_4_7, 0, 5, 0},
125 : : { 4, s_4_8, 0, 3, 0}
126 : : };
127 : :
128 : : static const symbol s_5_0[2] = { 'a', 'a' };
129 : : static const symbol s_5_1[2] = { 'e', 'e' };
130 : : static const symbol s_5_2[2] = { 'i', 'i' };
131 : : static const symbol s_5_3[2] = { 'o', 'o' };
132 : : static const symbol s_5_4[2] = { 'u', 'u' };
133 : : static const symbol s_5_5[4] = { 0xC3, 0xA4, 0xC3, 0xA4 };
134 : : static const symbol s_5_6[4] = { 0xC3, 0xB6, 0xC3, 0xB6 };
135 : : static const struct among a_5[7] = {
136 : : { 2, s_5_0, 0, -1, 0},
137 : : { 2, s_5_1, 0, -1, 0},
138 : : { 2, s_5_2, 0, -1, 0},
139 : : { 2, s_5_3, 0, -1, 0},
140 : : { 2, s_5_4, 0, -1, 0},
141 : : { 4, s_5_5, 0, -1, 0},
142 : : { 4, s_5_6, 0, -1, 0}
143 : : };
144 : :
145 : : static const symbol s_6_0[1] = { 'a' };
146 : : static const symbol s_6_1[3] = { 'l', 'l', 'a' };
147 : : static const symbol s_6_2[2] = { 'n', 'a' };
148 : : static const symbol s_6_3[3] = { 's', 's', 'a' };
149 : : static const symbol s_6_4[2] = { 't', 'a' };
150 : : static const symbol s_6_5[3] = { 'l', 't', 'a' };
151 : : static const symbol s_6_6[3] = { 's', 't', 'a' };
152 : : static const symbol s_6_7[3] = { 't', 't', 'a' };
153 : : static const symbol s_6_8[3] = { 'l', 'l', 'e' };
154 : : static const symbol s_6_9[3] = { 'i', 'n', 'e' };
155 : : static const symbol s_6_10[3] = { 'k', 's', 'i' };
156 : : static const symbol s_6_11[1] = { 'n' };
157 : : static const symbol s_6_12[3] = { 'h', 'a', 'n' };
158 : : static const symbol s_6_13[3] = { 'd', 'e', 'n' };
159 : : static const symbol s_6_14[4] = { 's', 'e', 'e', 'n' };
160 : : static const symbol s_6_15[3] = { 'h', 'e', 'n' };
161 : : static const symbol s_6_16[4] = { 't', 't', 'e', 'n' };
162 : : static const symbol s_6_17[3] = { 'h', 'i', 'n' };
163 : : static const symbol s_6_18[4] = { 's', 'i', 'i', 'n' };
164 : : static const symbol s_6_19[3] = { 'h', 'o', 'n' };
165 : : static const symbol s_6_20[4] = { 'h', 0xC3, 0xA4, 'n' };
166 : : static const symbol s_6_21[4] = { 'h', 0xC3, 0xB6, 'n' };
167 : : static const symbol s_6_22[2] = { 0xC3, 0xA4 };
168 : : static const symbol s_6_23[4] = { 'l', 'l', 0xC3, 0xA4 };
169 : : static const symbol s_6_24[3] = { 'n', 0xC3, 0xA4 };
170 : : static const symbol s_6_25[4] = { 's', 's', 0xC3, 0xA4 };
171 : : static const symbol s_6_26[3] = { 't', 0xC3, 0xA4 };
172 : : static const symbol s_6_27[4] = { 'l', 't', 0xC3, 0xA4 };
173 : : static const symbol s_6_28[4] = { 's', 't', 0xC3, 0xA4 };
174 : : static const symbol s_6_29[4] = { 't', 't', 0xC3, 0xA4 };
175 : : static const struct among a_6[30] = {
176 : : { 1, s_6_0, 0, 8, 0},
177 : : { 3, s_6_1, -1, -1, 0},
178 : : { 2, s_6_2, -2, -1, 0},
179 : : { 3, s_6_3, -3, -1, 0},
180 : : { 2, s_6_4, -4, -1, 0},
181 : : { 3, s_6_5, -1, -1, 0},
182 : : { 3, s_6_6, -2, -1, 0},
183 : : { 3, s_6_7, -3, 2, 0},
184 : : { 3, s_6_8, 0, -1, 0},
185 : : { 3, s_6_9, 0, -1, 0},
186 : : { 3, s_6_10, 0, -1, 0},
187 : : { 1, s_6_11, 0, 7, 0},
188 : : { 3, s_6_12, -1, 1, 0},
189 : : { 3, s_6_13, -2, -1, 1},
190 : : { 4, s_6_14, -3, -1, 2},
191 : : { 3, s_6_15, -4, 2, 0},
192 : : { 4, s_6_16, -5, -1, 1},
193 : : { 3, s_6_17, -6, 3, 0},
194 : : { 4, s_6_18, -7, -1, 1},
195 : : { 3, s_6_19, -8, 4, 0},
196 : : { 4, s_6_20, -9, 5, 0},
197 : : { 4, s_6_21, -10, 6, 0},
198 : : { 2, s_6_22, 0, 8, 0},
199 : : { 4, s_6_23, -1, -1, 0},
200 : : { 3, s_6_24, -2, -1, 0},
201 : : { 4, s_6_25, -3, -1, 0},
202 : : { 3, s_6_26, -4, -1, 0},
203 : : { 4, s_6_27, -1, -1, 0},
204 : : { 4, s_6_28, -2, -1, 0},
205 : : { 4, s_6_29, -3, 2, 0}
206 : : };
207 : :
208 : 0 : static int af_6(struct SN_env * z) {
209 [ # # # ]: 0 : switch (z->af) {
210 : 0 : case 1: return r_VI(z);
211 : 0 : case 2: return r_LONG(z);
212 : : }
213 : 0 : return -1;
214 : 0 : }
215 : :
216 : : static const symbol s_7_0[3] = { 'e', 'j', 'a' };
217 : : static const symbol s_7_1[3] = { 'm', 'm', 'a' };
218 : : static const symbol s_7_2[4] = { 'i', 'm', 'm', 'a' };
219 : : static const symbol s_7_3[3] = { 'm', 'p', 'a' };
220 : : static const symbol s_7_4[4] = { 'i', 'm', 'p', 'a' };
221 : : static const symbol s_7_5[3] = { 'm', 'm', 'i' };
222 : : static const symbol s_7_6[4] = { 'i', 'm', 'm', 'i' };
223 : : static const symbol s_7_7[3] = { 'm', 'p', 'i' };
224 : : static const symbol s_7_8[4] = { 'i', 'm', 'p', 'i' };
225 : : static const symbol s_7_9[4] = { 'e', 'j', 0xC3, 0xA4 };
226 : : static const symbol s_7_10[4] = { 'm', 'm', 0xC3, 0xA4 };
227 : : static const symbol s_7_11[5] = { 'i', 'm', 'm', 0xC3, 0xA4 };
228 : : static const symbol s_7_12[4] = { 'm', 'p', 0xC3, 0xA4 };
229 : : static const symbol s_7_13[5] = { 'i', 'm', 'p', 0xC3, 0xA4 };
230 : : static const struct among a_7[14] = {
231 : : { 3, s_7_0, 0, -1, 0},
232 : : { 3, s_7_1, 0, 1, 0},
233 : : { 4, s_7_2, -1, -1, 0},
234 : : { 3, s_7_3, 0, 1, 0},
235 : : { 4, s_7_4, -1, -1, 0},
236 : : { 3, s_7_5, 0, 1, 0},
237 : : { 4, s_7_6, -1, -1, 0},
238 : : { 3, s_7_7, 0, 1, 0},
239 : : { 4, s_7_8, -1, -1, 0},
240 : : { 4, s_7_9, 0, -1, 0},
241 : : { 4, s_7_10, 0, 1, 0},
242 : : { 5, s_7_11, -1, -1, 0},
243 : : { 4, s_7_12, 0, 1, 0},
244 : : { 5, s_7_13, -1, -1, 0}
245 : : };
246 : :
247 : : static const symbol s_9_0[3] = { 'm', 'm', 'a' };
248 : : static const symbol s_9_1[4] = { 'i', 'm', 'm', 'a' };
249 : : static const struct among a_9[2] = {
250 : : { 3, s_9_0, 0, 1, 0},
251 : : { 4, s_9_1, -1, -1, 0}
252 : : };
253 : :
254 : : static const unsigned char g_AEI[] = { 17, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8 };
255 : :
256 : : static const unsigned char g_C[] = { 119, 223, 119, 1 };
257 : :
258 : : static const unsigned char g_V1[] = { 17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 };
259 : :
260 : : static const unsigned char g_V2[] = { 17, 65, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 };
261 : :
262 : : static const unsigned char g_particle_end[] = { 17, 97, 24, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 };
263 : :
264 : 0 : static int r_mark_regions(struct SN_env * z) {
265 : 0 : ((SN_local *)z)->i_p1 = z->l;
266 : 0 : ((SN_local *)z)->i_p2 = z->l;
267 : : {
268 : 0 : int ret = out_grouping_U(z, g_V1, 97, 246, 1);
269 [ # # ]: 0 : if (ret < 0) return 0;
270 : 0 : z->c += ret;
271 [ # # ]: 0 : }
272 : : {
273 : 0 : int ret = in_grouping_U(z, g_V1, 97, 246, 1);
274 [ # # ]: 0 : if (ret < 0) return 0;
275 : 0 : z->c += ret;
276 [ # # ]: 0 : }
277 : 0 : ((SN_local *)z)->i_p1 = z->c;
278 : : {
279 : 0 : int ret = out_grouping_U(z, g_V1, 97, 246, 1);
280 [ # # ]: 0 : if (ret < 0) return 0;
281 : 0 : z->c += ret;
282 [ # # ]: 0 : }
283 : : {
284 : 0 : int ret = in_grouping_U(z, g_V1, 97, 246, 1);
285 [ # # ]: 0 : if (ret < 0) return 0;
286 : 0 : z->c += ret;
287 [ # # ]: 0 : }
288 : 0 : ((SN_local *)z)->i_p2 = z->c;
289 : 0 : return 1;
290 : 0 : }
291 : :
292 : 0 : static int r_R2(struct SN_env * z) {
293 : 0 : return ((SN_local *)z)->i_p2 <= z->c;
294 : : }
295 : :
296 : 0 : static int r_particle_etc(struct SN_env * z) {
297 : 0 : int among_var;
298 : : {
299 : 0 : int v_1;
300 [ # # ]: 0 : if (z->c < ((SN_local *)z)->i_p1) return 0;
301 : 0 : v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
302 : 0 : z->ket = z->c;
303 : 0 : among_var = find_among_b(z, a_0, 10, 0);
304 [ # # ]: 0 : if (!among_var) { z->lb = v_1; return 0; }
305 : 0 : z->bra = z->c;
306 : 0 : z->lb = v_1;
307 [ # # ]: 0 : }
308 [ # # # ]: 0 : switch (among_var) {
309 : : case 1:
310 [ # # ]: 0 : if (in_grouping_b_U(z, g_particle_end, 97, 246, 0)) return 0;
311 : 0 : break;
312 : : case 2:
313 : : {
314 : 0 : int ret = r_R2(z);
315 [ # # ]: 0 : if (ret <= 0) return ret;
316 [ # # ]: 0 : }
317 : 0 : break;
318 : : }
319 : : {
320 : 0 : int ret = slice_del(z);
321 [ # # ]: 0 : if (ret < 0) return ret;
322 [ # # ]: 0 : }
323 : 0 : return 1;
324 : 0 : }
325 : :
326 : 0 : static int r_possessive(struct SN_env * z) {
327 : 0 : int among_var;
328 : : {
329 : 0 : int v_1;
330 [ # # ]: 0 : if (z->c < ((SN_local *)z)->i_p1) return 0;
331 : 0 : v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
332 : 0 : z->ket = z->c;
333 : 0 : among_var = find_among_b(z, a_4, 9, 0);
334 [ # # ]: 0 : if (!among_var) { z->lb = v_1; return 0; }
335 : 0 : z->bra = z->c;
336 : 0 : z->lb = v_1;
337 [ # # ]: 0 : }
338 [ # # # # : 0 : switch (among_var) {
# # # ]
339 : : case 1:
340 : : {
341 : 0 : int v_2 = z->l - z->c;
342 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'k') goto lab0;
343 : 0 : z->c--;
344 : 0 : return 0;
345 : : lab0:
346 : 0 : z->c = z->l - v_2;
347 [ # # ]: 0 : }
348 : : {
349 : 0 : int ret = slice_del(z);
350 [ # # ]: 0 : if (ret < 0) return ret;
351 [ # # ]: 0 : }
352 : 0 : break;
353 : : case 2:
354 : : {
355 : 0 : int ret = slice_del(z);
356 [ # # ]: 0 : if (ret < 0) return ret;
357 [ # # ]: 0 : }
358 : 0 : z->ket = z->c;
359 [ # # ]: 0 : if (!(eq_s_b(z, 3, s_0))) return 0;
360 : 0 : z->bra = z->c;
361 : : {
362 : 0 : int ret = slice_from_s(z, 3, s_1);
363 [ # # ]: 0 : if (ret < 0) return ret;
364 [ # # ]: 0 : }
365 : 0 : break;
366 : : case 3:
367 : : {
368 : 0 : int ret = slice_del(z);
369 [ # # ]: 0 : if (ret < 0) return ret;
370 [ # # ]: 0 : }
371 : 0 : break;
372 : : case 4:
373 [ # # # # ]: 0 : if (z->c - 1 <= z->lb || z->p[z->c - 1] != 97) return 0;
374 [ # # ]: 0 : if (!find_among_b(z, a_1, 6, 0)) return 0;
375 : : {
376 : 0 : int ret = slice_del(z);
377 [ # # ]: 0 : if (ret < 0) return ret;
378 [ # # ]: 0 : }
379 : 0 : break;
380 : : case 5:
381 [ # # # # ]: 0 : if (z->c - 2 <= z->lb || z->p[z->c - 1] != 164) return 0;
382 [ # # ]: 0 : if (!find_among_b(z, a_2, 6, 0)) return 0;
383 : : {
384 : 0 : int ret = slice_del(z);
385 [ # # ]: 0 : if (ret < 0) return ret;
386 [ # # ]: 0 : }
387 : 0 : break;
388 : : case 6:
389 [ # # # # ]: 0 : if (z->c - 2 <= z->lb || z->p[z->c - 1] != 101) return 0;
390 [ # # ]: 0 : if (!find_among_b(z, a_3, 2, 0)) return 0;
391 : : {
392 : 0 : int ret = slice_del(z);
393 [ # # ]: 0 : if (ret < 0) return ret;
394 [ # # ]: 0 : }
395 : 0 : break;
396 : : }
397 : 0 : return 1;
398 : 0 : }
399 : :
400 : 0 : static int r_LONG(struct SN_env * z) {
401 : 0 : return find_among_b(z, a_5, 7, 0) != 0;
402 : : }
403 : :
404 : 0 : static int r_VI(struct SN_env * z) {
405 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'i') return 0;
406 : 0 : z->c--;
407 : 0 : return !in_grouping_b_U(z, g_V2, 97, 246, 0);
408 : 0 : }
409 : :
410 : 0 : static int r_case_ending(struct SN_env * z) {
411 : 0 : int among_var;
412 : : {
413 : 0 : int v_1;
414 [ # # ]: 0 : if (z->c < ((SN_local *)z)->i_p1) return 0;
415 : 0 : v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
416 : 0 : z->ket = z->c;
417 : 0 : among_var = find_among_b(z, a_6, 30, af_6);
418 [ # # ]: 0 : if (!among_var) { z->lb = v_1; return 0; }
419 : 0 : z->bra = z->c;
420 : 0 : z->lb = v_1;
421 [ # # ]: 0 : }
422 [ # # # # : 0 : switch (among_var) {
# # # #
# ]
423 : : case 1:
424 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'a') return 0;
425 : 0 : z->c--;
426 : 0 : break;
427 : : case 2:
428 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'e') return 0;
429 : 0 : z->c--;
430 : 0 : break;
431 : : case 3:
432 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'i') return 0;
433 : 0 : z->c--;
434 : 0 : break;
435 : : case 4:
436 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'o') return 0;
437 : 0 : z->c--;
438 : 0 : break;
439 : : case 5:
440 [ # # ]: 0 : if (!(eq_s_b(z, 2, s_2))) return 0;
441 : 0 : break;
442 : : case 6:
443 [ # # ]: 0 : if (!(eq_s_b(z, 2, s_3))) return 0;
444 : 0 : break;
445 : : case 7:
446 : : {
447 : 0 : int v_2 = z->l - z->c;
448 : : {
449 : 0 : int v_3 = z->l - z->c;
450 : 0 : do {
451 : 0 : int v_4 = z->l - z->c;
452 : : {
453 : 0 : int ret = r_LONG(z);
454 [ # # ]: 0 : if (ret == 0) goto lab1;
455 [ # # ]: 0 : if (ret < 0) return ret;
456 [ # # # ]: 0 : }
457 : 0 : break;
458 : : lab1:
459 : 0 : z->c = z->l - v_4;
460 [ # # ]: 0 : if (!(eq_s_b(z, 2, s_4))) { z->c = z->l - v_2; goto lab0; }
461 [ # # # ]: 0 : } while (0);
462 : 0 : z->c = z->l - v_3;
463 : : {
464 : 0 : int ret = skip_b_utf8(z->p, z->c, z->lb, 1);
465 [ # # ]: 0 : if (ret < 0) { z->c = z->l - v_2; goto lab0; }
466 : 0 : z->c = ret;
467 [ # # ]: 0 : }
468 [ # # # ]: 0 : }
469 : 0 : z->bra = z->c;
470 : : lab0:
471 : : ;
472 [ # # ]: 0 : }
473 : 0 : break;
474 : : case 8:
475 [ # # ]: 0 : if (in_grouping_b_U(z, g_V1, 97, 246, 0)) return 0;
476 [ # # ]: 0 : if (in_grouping_b_U(z, g_C, 98, 122, 0)) return 0;
477 : 0 : break;
478 : : }
479 : : {
480 : 0 : int ret = slice_del(z);
481 [ # # ]: 0 : if (ret < 0) return ret;
482 [ # # ]: 0 : }
483 : 0 : ((SN_local *)z)->b_ending_removed = 1;
484 : 0 : return 1;
485 : 0 : }
486 : :
487 : 0 : static int r_other_endings(struct SN_env * z) {
488 : 0 : int among_var;
489 : : {
490 : 0 : int v_1;
491 [ # # ]: 0 : if (z->c < ((SN_local *)z)->i_p2) return 0;
492 : 0 : v_1 = z->lb; z->lb = ((SN_local *)z)->i_p2;
493 : 0 : z->ket = z->c;
494 : 0 : among_var = find_among_b(z, a_7, 14, 0);
495 [ # # ]: 0 : if (!among_var) { z->lb = v_1; return 0; }
496 : 0 : z->bra = z->c;
497 : 0 : z->lb = v_1;
498 [ # # ]: 0 : }
499 [ # # ]: 0 : switch (among_var) {
500 : : case 1:
501 : : {
502 : 0 : int v_2 = z->l - z->c;
503 [ # # ]: 0 : if (!(eq_s_b(z, 2, s_5))) goto lab0;
504 : 0 : return 0;
505 : : lab0:
506 : 0 : z->c = z->l - v_2;
507 [ # # ]: 0 : }
508 : 0 : break;
509 : : }
510 : : {
511 : 0 : int ret = slice_del(z);
512 [ # # ]: 0 : if (ret < 0) return ret;
513 [ # # ]: 0 : }
514 : 0 : return 1;
515 : 0 : }
516 : :
517 : 0 : static int r_i_plural(struct SN_env * z) {
518 : : {
519 : 0 : int v_1;
520 [ # # ]: 0 : if (z->c < ((SN_local *)z)->i_p1) return 0;
521 : 0 : v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
522 : 0 : z->ket = z->c;
523 [ # # # # : 0 : if (z->c <= z->lb || (z->p[z->c - 1] != 105 && z->p[z->c - 1] != 106)) { z->lb = v_1; return 0; }
# # ]
524 : 0 : z->c--;
525 : 0 : z->bra = z->c;
526 : 0 : z->lb = v_1;
527 [ # # ]: 0 : }
528 : : {
529 : 0 : int ret = slice_del(z);
530 [ # # ]: 0 : if (ret < 0) return ret;
531 [ # # ]: 0 : }
532 : 0 : return 1;
533 : 0 : }
534 : :
535 : 0 : static int r_t_plural(struct SN_env * z) {
536 : 0 : int among_var;
537 : : {
538 : 0 : int v_1;
539 [ # # ]: 0 : if (z->c < ((SN_local *)z)->i_p1) return 0;
540 : 0 : v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
541 : 0 : z->ket = z->c;
542 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 't') { z->lb = v_1; return 0; }
543 : 0 : z->c--;
544 : 0 : z->bra = z->c;
545 : : {
546 : 0 : int v_2 = z->l - z->c;
547 [ # # ]: 0 : if (in_grouping_b_U(z, g_V1, 97, 246, 0)) { z->lb = v_1; return 0; }
548 : 0 : z->c = z->l - v_2;
549 [ # # ]: 0 : }
550 : : {
551 : 0 : int ret = slice_del(z);
552 [ # # ]: 0 : if (ret < 0) return ret;
553 [ # # ]: 0 : }
554 : 0 : z->lb = v_1;
555 [ # # ]: 0 : }
556 : : {
557 : 0 : int v_3;
558 [ # # ]: 0 : if (z->c < ((SN_local *)z)->i_p2) return 0;
559 : 0 : v_3 = z->lb; z->lb = ((SN_local *)z)->i_p2;
560 : 0 : z->ket = z->c;
561 [ # # # # ]: 0 : if (z->c - 2 <= z->lb || z->p[z->c - 1] != 97) { z->lb = v_3; return 0; }
562 : 0 : among_var = find_among_b(z, a_9, 2, 0);
563 [ # # ]: 0 : if (!among_var) { z->lb = v_3; return 0; }
564 : 0 : z->bra = z->c;
565 : 0 : z->lb = v_3;
566 [ # # ]: 0 : }
567 [ # # ]: 0 : switch (among_var) {
568 : : case 1:
569 : : {
570 : 0 : int v_4 = z->l - z->c;
571 [ # # ]: 0 : if (!(eq_s_b(z, 2, s_6))) goto lab0;
572 : 0 : return 0;
573 : : lab0:
574 : 0 : z->c = z->l - v_4;
575 [ # # ]: 0 : }
576 : 0 : break;
577 : : }
578 : : {
579 : 0 : int ret = slice_del(z);
580 [ # # ]: 0 : if (ret < 0) return ret;
581 [ # # ]: 0 : }
582 : 0 : return 1;
583 : 0 : }
584 : :
585 : 0 : static int r_tidy(struct SN_env * z) {
586 : : {
587 : 0 : int v_1;
588 [ # # ]: 0 : if (z->c < ((SN_local *)z)->i_p1) return 0;
589 : 0 : v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
590 : : {
591 : 0 : int v_2 = z->l - z->c;
592 : : {
593 : 0 : int v_3 = z->l - z->c;
594 : : {
595 : 0 : int ret = r_LONG(z);
596 [ # # ]: 0 : if (ret == 0) goto lab0;
597 [ # # ]: 0 : if (ret < 0) return ret;
598 [ # # ]: 0 : }
599 : 0 : z->c = z->l - v_3;
600 : 0 : z->ket = z->c;
601 : : {
602 : 0 : int ret = skip_b_utf8(z->p, z->c, z->lb, 1);
603 [ # # ]: 0 : if (ret < 0) goto lab0;
604 : 0 : z->c = ret;
605 [ # # ]: 0 : }
606 : 0 : z->bra = z->c;
607 : : {
608 : 0 : int ret = slice_del(z);
609 [ # # ]: 0 : if (ret < 0) return ret;
610 [ # # ]: 0 : }
611 [ # # # ]: 0 : }
612 : : lab0:
613 : 0 : z->c = z->l - v_2;
614 [ # # ]: 0 : }
615 : : {
616 : 0 : int v_4 = z->l - z->c;
617 : 0 : z->ket = z->c;
618 [ # # ]: 0 : if (in_grouping_b_U(z, g_AEI, 97, 228, 0)) goto lab1;
619 : 0 : z->bra = z->c;
620 [ # # ]: 0 : if (in_grouping_b_U(z, g_C, 98, 122, 0)) goto lab1;
621 : : {
622 : 0 : int ret = slice_del(z);
623 [ # # ]: 0 : if (ret < 0) return ret;
624 [ # # ]: 0 : }
625 : : lab1:
626 : 0 : z->c = z->l - v_4;
627 [ # # ]: 0 : }
628 : : {
629 : 0 : int v_5 = z->l - z->c;
630 : 0 : z->ket = z->c;
631 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'j') goto lab2;
632 : 0 : z->c--;
633 : 0 : z->bra = z->c;
634 : 0 : do {
635 : 0 : int v_6 = z->l - z->c;
636 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'o') goto lab3;
637 : 0 : z->c--;
638 : 0 : break;
639 : : lab3:
640 : 0 : z->c = z->l - v_6;
641 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'u') goto lab2;
642 : 0 : z->c--;
643 [ # # # # ]: 0 : } while (0);
644 : : {
645 : 0 : int ret = slice_del(z);
646 [ # # ]: 0 : if (ret < 0) return ret;
647 [ # # ]: 0 : }
648 : : lab2:
649 : 0 : z->c = z->l - v_5;
650 [ # # ]: 0 : }
651 : : {
652 : 0 : int v_7 = z->l - z->c;
653 : 0 : z->ket = z->c;
654 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'o') goto lab4;
655 : 0 : z->c--;
656 : 0 : z->bra = z->c;
657 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'j') goto lab4;
658 : 0 : z->c--;
659 : : {
660 : 0 : int ret = slice_del(z);
661 [ # # ]: 0 : if (ret < 0) return ret;
662 [ # # ]: 0 : }
663 : : lab4:
664 : 0 : z->c = z->l - v_7;
665 [ # # ]: 0 : }
666 : 0 : z->lb = v_1;
667 [ # # ]: 0 : }
668 [ # # ]: 0 : if (in_grouping_b_U(z, g_V1, 97, 246, 1) < 0) return 0;
669 : 0 : z->ket = z->c;
670 [ # # ]: 0 : if (in_grouping_b_U(z, g_C, 98, 122, 0)) return 0;
671 : 0 : z->bra = z->c;
672 : : {
673 : 0 : int ret = slice_to(z, &((SN_local *)z)->s_x);
674 [ # # ]: 0 : if (ret < 0) return ret;
675 [ # # ]: 0 : }
676 [ # # ]: 0 : if (!(eq_v_b(z, ((SN_local *)z)->s_x))) return 0;
677 : : {
678 : 0 : int ret = slice_del(z);
679 [ # # ]: 0 : if (ret < 0) return ret;
680 [ # # ]: 0 : }
681 : 0 : return 1;
682 : 0 : }
683 : :
684 : 0 : extern int finnish_UTF_8_stem(struct SN_env * z) {
685 : : {
686 : 0 : int v_1 = z->c;
687 : : {
688 : 0 : int ret = r_mark_regions(z);
689 [ # # ]: 0 : if (ret < 0) return ret;
690 [ # # ]: 0 : }
691 : 0 : z->c = v_1;
692 [ # # ]: 0 : }
693 : 0 : ((SN_local *)z)->b_ending_removed = 0;
694 : 0 : z->lb = z->c; z->c = z->l;
695 : : {
696 : 0 : int v_2 = z->l - z->c;
697 : : {
698 : 0 : int ret = r_particle_etc(z);
699 [ # # ]: 0 : if (ret < 0) return ret;
700 [ # # ]: 0 : }
701 : 0 : z->c = z->l - v_2;
702 [ # # ]: 0 : }
703 : : {
704 : 0 : int v_3 = z->l - z->c;
705 : : {
706 : 0 : int ret = r_possessive(z);
707 [ # # ]: 0 : if (ret < 0) return ret;
708 [ # # ]: 0 : }
709 : 0 : z->c = z->l - v_3;
710 [ # # ]: 0 : }
711 : : {
712 : 0 : int v_4 = z->l - z->c;
713 : : {
714 : 0 : int ret = r_case_ending(z);
715 [ # # ]: 0 : if (ret < 0) return ret;
716 [ # # ]: 0 : }
717 : 0 : z->c = z->l - v_4;
718 [ # # ]: 0 : }
719 : : {
720 : 0 : int v_5 = z->l - z->c;
721 : : {
722 : 0 : int ret = r_other_endings(z);
723 [ # # ]: 0 : if (ret < 0) return ret;
724 [ # # ]: 0 : }
725 : 0 : z->c = z->l - v_5;
726 [ # # ]: 0 : }
727 : 0 : do {
728 [ # # ]: 0 : if (!((SN_local *)z)->b_ending_removed) goto lab0;
729 : : {
730 : 0 : int v_6 = z->l - z->c;
731 : : {
732 : 0 : int ret = r_i_plural(z);
733 [ # # ]: 0 : if (ret < 0) return ret;
734 [ # # ]: 0 : }
735 : 0 : z->c = z->l - v_6;
736 [ # # ]: 0 : }
737 : 0 : break;
738 : : lab0:
739 : : {
740 : 0 : int v_7 = z->l - z->c;
741 : : {
742 : 0 : int ret = r_t_plural(z);
743 [ # # ]: 0 : if (ret < 0) return ret;
744 [ # # ]: 0 : }
745 : 0 : z->c = z->l - v_7;
746 [ # # ]: 0 : }
747 : 0 : } while (0);
748 : : {
749 : 0 : int v_8 = z->l - z->c;
750 : : {
751 : 0 : int ret = r_tidy(z);
752 [ # # ]: 0 : if (ret < 0) return ret;
753 [ # # ]: 0 : }
754 : 0 : z->c = z->l - v_8;
755 [ # # ]: 0 : }
756 : 0 : z->c = z->lb;
757 : 0 : return 1;
758 : 0 : }
759 : :
760 : 0 : extern struct SN_env * finnish_UTF_8_create_env(void) {
761 : 0 : struct SN_env * z = SN_new_env(sizeof(SN_local));
762 [ # # ]: 0 : if (z) {
763 : 0 : ((SN_local *)z)->b_ending_removed = 0;
764 : 0 : ((SN_local *)z)->s_x = NULL;
765 : 0 : ((SN_local *)z)->i_p2 = 0;
766 : 0 : ((SN_local *)z)->i_p1 = 0;
767 : :
768 [ # # ]: 0 : if ((((SN_local *)z)->s_x = create_s()) == NULL) {
769 : 0 : finnish_UTF_8_close_env(z);
770 : 0 : return NULL;
771 : : }
772 : 0 : }
773 : 0 : return z;
774 : 0 : }
775 : :
776 : 0 : extern void finnish_UTF_8_close_env(struct SN_env * z) {
777 [ # # ]: 0 : if (z) {
778 : 0 : lose_s(((SN_local *)z)->s_x);
779 : 0 : }
780 : 0 : SN_delete_env(z);
781 : 0 : }
782 : :
|
