Age Owner Branch data TLA 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 : :
69 tgl@sss.pgh.pa.us 208 :UNC 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 : : }
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 : :
1850 peter@eisentraut.org 264 :UBC 0 : static int r_mark_regions(struct SN_env * z) {
69 tgl@sss.pgh.pa.us 265 :UNC 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 : : }
272 : : {
6781 tgl@sss.pgh.pa.us 273 :UBC 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 : : }
69 tgl@sss.pgh.pa.us 277 :UNC 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 : : }
283 : : {
6781 tgl@sss.pgh.pa.us 284 :UBC 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 : : }
69 tgl@sss.pgh.pa.us 288 :UNC 0 : ((SN_local *)z)->i_p2 = z->c;
6781 tgl@sss.pgh.pa.us 289 :UBC 0 : return 1;
290 : : }
291 : :
1850 peter@eisentraut.org 292 : 0 : static int r_R2(struct SN_env * z) {
69 tgl@sss.pgh.pa.us 293 :UNC 0 : return ((SN_local *)z)->i_p2 <= z->c;
294 : : }
295 : :
1850 peter@eisentraut.org 296 :UBC 0 : static int r_particle_etc(struct SN_env * z) {
297 : : int among_var;
298 : : {
299 : : int v_1;
69 tgl@sss.pgh.pa.us 300 [ # # ]:UNC 0 : if (z->c < ((SN_local *)z)->i_p1) return 0;
301 : 0 : v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
1850 peter@eisentraut.org 302 :UBC 0 : z->ket = z->c;
69 tgl@sss.pgh.pa.us 303 :UNC 0 : among_var = find_among_b(z, a_0, 10, 0);
304 [ # # ]: 0 : if (!among_var) { z->lb = v_1; return 0; }
1850 peter@eisentraut.org 305 :UBC 0 : z->bra = z->c;
69 tgl@sss.pgh.pa.us 306 :UNC 0 : z->lb = v_1;
307 : : }
1850 peter@eisentraut.org 308 [ # # # ]:UBC 0 : switch (among_var) {
6781 tgl@sss.pgh.pa.us 309 : 0 : case 1:
1850 peter@eisentraut.org 310 [ # # ]: 0 : if (in_grouping_b_U(z, g_particle_end, 97, 246, 0)) return 0;
6781 tgl@sss.pgh.pa.us 311 : 0 : break;
312 : 0 : case 2:
313 : : {
69 tgl@sss.pgh.pa.us 314 :UNC 0 : int ret = r_R2(z);
2729 tgl@sss.pgh.pa.us 315 [ # # ]:UBC 0 : if (ret <= 0) return ret;
316 : : }
6781 317 : 0 : break;
318 : : }
319 : : {
69 tgl@sss.pgh.pa.us 320 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 321 [ # # ]:UBC 0 : if (ret < 0) return ret;
322 : : }
323 : 0 : return 1;
324 : : }
325 : :
1850 peter@eisentraut.org 326 : 0 : static int r_possessive(struct SN_env * z) {
327 : : int among_var;
328 : : {
329 : : int v_1;
69 tgl@sss.pgh.pa.us 330 [ # # ]:UNC 0 : if (z->c < ((SN_local *)z)->i_p1) return 0;
331 : 0 : v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
1850 peter@eisentraut.org 332 :UBC 0 : z->ket = z->c;
69 tgl@sss.pgh.pa.us 333 :UNC 0 : among_var = find_among_b(z, a_4, 9, 0);
334 [ # # ]: 0 : if (!among_var) { z->lb = v_1; return 0; }
1850 peter@eisentraut.org 335 :UBC 0 : z->bra = z->c;
69 tgl@sss.pgh.pa.us 336 :UNC 0 : z->lb = v_1;
337 : : }
1850 peter@eisentraut.org 338 [ # # # # :UBC 0 : switch (among_var) {
# # # ]
6781 tgl@sss.pgh.pa.us 339 : 0 : case 1:
340 : : {
69 tgl@sss.pgh.pa.us 341 :UNC 0 : int v_2 = z->l - z->c;
1850 peter@eisentraut.org 342 [ # # # # ]:UBC 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'k') goto lab0;
2729 tgl@sss.pgh.pa.us 343 : 0 : z->c--;
6781 344 : 0 : return 0;
345 : 0 : lab0:
69 tgl@sss.pgh.pa.us 346 :UNC 0 : z->c = z->l - v_2;
347 : : }
348 : : {
349 : 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 350 [ # # ]:UBC 0 : if (ret < 0) return ret;
351 : : }
352 : 0 : break;
353 : 0 : case 2:
354 : : {
69 tgl@sss.pgh.pa.us 355 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 356 [ # # ]:UBC 0 : if (ret < 0) return ret;
357 : : }
1850 peter@eisentraut.org 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 : : {
69 tgl@sss.pgh.pa.us 362 :UNC 0 : int ret = slice_from_s(z, 3, s_1);
6781 tgl@sss.pgh.pa.us 363 [ # # ]:UBC 0 : if (ret < 0) return ret;
364 : : }
365 : 0 : break;
366 : 0 : case 3:
367 : : {
69 tgl@sss.pgh.pa.us 368 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 369 [ # # ]:UBC 0 : if (ret < 0) return ret;
370 : : }
371 : 0 : break;
372 : 0 : case 4:
1850 peter@eisentraut.org 373 [ # # # # ]: 0 : if (z->c - 1 <= z->lb || z->p[z->c - 1] != 97) return 0;
69 tgl@sss.pgh.pa.us 374 [ # # ]:UNC 0 : if (!find_among_b(z, a_1, 6, 0)) return 0;
375 : : {
376 : 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 377 [ # # ]:UBC 0 : if (ret < 0) return ret;
378 : : }
379 : 0 : break;
380 : 0 : case 5:
1850 peter@eisentraut.org 381 [ # # # # ]: 0 : if (z->c - 2 <= z->lb || z->p[z->c - 1] != 164) return 0;
69 tgl@sss.pgh.pa.us 382 [ # # ]:UNC 0 : if (!find_among_b(z, a_2, 6, 0)) return 0;
383 : : {
384 : 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 385 [ # # ]:UBC 0 : if (ret < 0) return ret;
386 : : }
387 : 0 : break;
388 : 0 : case 6:
1850 peter@eisentraut.org 389 [ # # # # ]: 0 : if (z->c - 2 <= z->lb || z->p[z->c - 1] != 101) return 0;
69 tgl@sss.pgh.pa.us 390 [ # # ]:UNC 0 : if (!find_among_b(z, a_3, 2, 0)) return 0;
391 : : {
392 : 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 393 [ # # ]:UBC 0 : if (ret < 0) return ret;
394 : : }
395 : 0 : break;
396 : : }
397 : 0 : return 1;
398 : : }
399 : :
1850 peter@eisentraut.org 400 : 0 : static int r_LONG(struct SN_env * z) {
69 tgl@sss.pgh.pa.us 401 :UNC 0 : return find_among_b(z, a_5, 7, 0) != 0;
402 : : }
403 : :
1850 peter@eisentraut.org 404 :UBC 0 : static int r_VI(struct SN_env * z) {
405 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'i') return 0;
2729 tgl@sss.pgh.pa.us 406 : 0 : z->c--;
69 tgl@sss.pgh.pa.us 407 :UNC 0 : return !in_grouping_b_U(z, g_V2, 97, 246, 0);
408 : : }
409 : :
1850 peter@eisentraut.org 410 :UBC 0 : static int r_case_ending(struct SN_env * z) {
411 : : int among_var;
412 : : {
413 : : int v_1;
69 tgl@sss.pgh.pa.us 414 [ # # ]:UNC 0 : if (z->c < ((SN_local *)z)->i_p1) return 0;
415 : 0 : v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
1850 peter@eisentraut.org 416 :UBC 0 : z->ket = z->c;
69 tgl@sss.pgh.pa.us 417 :UNC 0 : among_var = find_among_b(z, a_6, 30, af_6);
418 [ # # ]: 0 : if (!among_var) { z->lb = v_1; return 0; }
1850 peter@eisentraut.org 419 :UBC 0 : z->bra = z->c;
69 tgl@sss.pgh.pa.us 420 :UNC 0 : z->lb = v_1;
421 : : }
1850 peter@eisentraut.org 422 [ # # # # :UBC 0 : switch (among_var) {
# # # #
# ]
6781 tgl@sss.pgh.pa.us 423 : 0 : case 1:
1850 peter@eisentraut.org 424 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'a') return 0;
2729 tgl@sss.pgh.pa.us 425 : 0 : z->c--;
6781 426 : 0 : break;
427 : 0 : case 2:
1850 peter@eisentraut.org 428 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'e') return 0;
2729 tgl@sss.pgh.pa.us 429 : 0 : z->c--;
6781 430 : 0 : break;
431 : 0 : case 3:
1850 peter@eisentraut.org 432 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'i') return 0;
2729 tgl@sss.pgh.pa.us 433 : 0 : z->c--;
6781 434 : 0 : break;
435 : 0 : case 4:
1850 peter@eisentraut.org 436 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'o') return 0;
2729 tgl@sss.pgh.pa.us 437 : 0 : z->c--;
6781 438 : 0 : break;
439 : 0 : case 5:
1850 peter@eisentraut.org 440 [ # # ]: 0 : if (!(eq_s_b(z, 2, s_2))) return 0;
6781 tgl@sss.pgh.pa.us 441 : 0 : break;
442 : 0 : case 6:
1850 peter@eisentraut.org 443 [ # # ]: 0 : if (!(eq_s_b(z, 2, s_3))) return 0;
6781 tgl@sss.pgh.pa.us 444 : 0 : break;
445 : 0 : case 7:
446 : : {
69 tgl@sss.pgh.pa.us 447 :UNC 0 : int v_2 = z->l - z->c;
448 : : {
449 : 0 : int v_3 = z->l - z->c;
450 : : 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;
6781 tgl@sss.pgh.pa.us 455 [ # # ]:UBC 0 : if (ret < 0) return ret;
456 : : }
69 tgl@sss.pgh.pa.us 457 :UNC 0 : break;
458 : 0 : 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 : : } 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; }
1850 peter@eisentraut.org 466 :UBC 0 : z->c = ret;
467 : : }
468 : : }
469 : 0 : z->bra = z->c;
6781 tgl@sss.pgh.pa.us 470 : 0 : lab0:
471 : : ;
472 : : }
473 : 0 : break;
474 : 0 : case 8:
1850 peter@eisentraut.org 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;
6781 tgl@sss.pgh.pa.us 477 : 0 : break;
478 : : }
479 : : {
69 tgl@sss.pgh.pa.us 480 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 481 [ # # ]:UBC 0 : if (ret < 0) return ret;
482 : : }
69 tgl@sss.pgh.pa.us 483 :UNC 0 : ((SN_local *)z)->b_ending_removed = 1;
6781 tgl@sss.pgh.pa.us 484 :UBC 0 : return 1;
485 : : }
486 : :
1850 peter@eisentraut.org 487 : 0 : static int r_other_endings(struct SN_env * z) {
488 : : int among_var;
489 : : {
490 : : int v_1;
69 tgl@sss.pgh.pa.us 491 [ # # ]:UNC 0 : if (z->c < ((SN_local *)z)->i_p2) return 0;
492 : 0 : v_1 = z->lb; z->lb = ((SN_local *)z)->i_p2;
1850 peter@eisentraut.org 493 :UBC 0 : z->ket = z->c;
69 tgl@sss.pgh.pa.us 494 :UNC 0 : among_var = find_among_b(z, a_7, 14, 0);
495 [ # # ]: 0 : if (!among_var) { z->lb = v_1; return 0; }
1850 peter@eisentraut.org 496 :UBC 0 : z->bra = z->c;
69 tgl@sss.pgh.pa.us 497 :UNC 0 : z->lb = v_1;
498 : : }
1850 peter@eisentraut.org 499 [ # # ]:UBC 0 : switch (among_var) {
6781 tgl@sss.pgh.pa.us 500 : 0 : case 1:
501 : : {
69 tgl@sss.pgh.pa.us 502 :UNC 0 : int v_2 = z->l - z->c;
1850 peter@eisentraut.org 503 [ # # ]:UBC 0 : if (!(eq_s_b(z, 2, s_5))) goto lab0;
6781 tgl@sss.pgh.pa.us 504 : 0 : return 0;
505 : 0 : lab0:
69 tgl@sss.pgh.pa.us 506 :UNC 0 : z->c = z->l - v_2;
507 : : }
6781 tgl@sss.pgh.pa.us 508 :UBC 0 : break;
509 : : }
510 : : {
69 tgl@sss.pgh.pa.us 511 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 512 [ # # ]:UBC 0 : if (ret < 0) return ret;
513 : : }
514 : 0 : return 1;
515 : : }
516 : :
1850 peter@eisentraut.org 517 : 0 : static int r_i_plural(struct SN_env * z) {
518 : : {
519 : : int v_1;
69 tgl@sss.pgh.pa.us 520 [ # # ]:UNC 0 : if (z->c < ((SN_local *)z)->i_p1) return 0;
521 : 0 : v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
1850 peter@eisentraut.org 522 :UBC 0 : z->ket = z->c;
69 tgl@sss.pgh.pa.us 523 [ # # # # :UNC 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--;
1850 peter@eisentraut.org 525 :UBC 0 : z->bra = z->c;
69 tgl@sss.pgh.pa.us 526 :UNC 0 : z->lb = v_1;
527 : : }
528 : : {
529 : 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 530 [ # # ]:UBC 0 : if (ret < 0) return ret;
531 : : }
532 : 0 : return 1;
533 : : }
534 : :
1850 peter@eisentraut.org 535 : 0 : static int r_t_plural(struct SN_env * z) {
536 : : int among_var;
537 : : {
538 : : int v_1;
69 tgl@sss.pgh.pa.us 539 [ # # ]:UNC 0 : if (z->c < ((SN_local *)z)->i_p1) return 0;
540 : 0 : v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
1850 peter@eisentraut.org 541 :UBC 0 : z->ket = z->c;
69 tgl@sss.pgh.pa.us 542 [ # # # # ]:UNC 0 : if (z->c <= z->lb || z->p[z->c - 1] != 't') { z->lb = v_1; return 0; }
2729 tgl@sss.pgh.pa.us 543 :UBC 0 : z->c--;
1850 peter@eisentraut.org 544 : 0 : z->bra = z->c;
545 : : {
69 tgl@sss.pgh.pa.us 546 :UNC 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 : : }
550 : : {
551 : 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 552 [ # # ]:UBC 0 : if (ret < 0) return ret;
553 : : }
69 tgl@sss.pgh.pa.us 554 :UNC 0 : z->lb = v_1;
555 : : }
556 : : {
557 : : 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;
1850 peter@eisentraut.org 560 :UBC 0 : z->ket = z->c;
69 tgl@sss.pgh.pa.us 561 [ # # # # ]:UNC 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; }
1850 peter@eisentraut.org 564 :UBC 0 : z->bra = z->c;
69 tgl@sss.pgh.pa.us 565 :UNC 0 : z->lb = v_3;
566 : : }
1850 peter@eisentraut.org 567 [ # # ]:UBC 0 : switch (among_var) {
6781 tgl@sss.pgh.pa.us 568 : 0 : case 1:
569 : : {
69 tgl@sss.pgh.pa.us 570 :UNC 0 : int v_4 = z->l - z->c;
1850 peter@eisentraut.org 571 [ # # ]:UBC 0 : if (!(eq_s_b(z, 2, s_6))) goto lab0;
6781 tgl@sss.pgh.pa.us 572 : 0 : return 0;
573 : 0 : lab0:
69 tgl@sss.pgh.pa.us 574 :UNC 0 : z->c = z->l - v_4;
575 : : }
6781 tgl@sss.pgh.pa.us 576 :UBC 0 : break;
577 : : }
578 : : {
69 tgl@sss.pgh.pa.us 579 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 580 [ # # ]:UBC 0 : if (ret < 0) return ret;
581 : : }
582 : 0 : return 1;
583 : : }
584 : :
1850 peter@eisentraut.org 585 : 0 : static int r_tidy(struct SN_env * z) {
586 : : {
587 : : int v_1;
69 tgl@sss.pgh.pa.us 588 [ # # ]:UNC 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);
2729 tgl@sss.pgh.pa.us 596 [ # # ]:UBC 0 : if (ret == 0) goto lab0;
6781 597 [ # # ]: 0 : if (ret < 0) return ret;
598 : : }
69 tgl@sss.pgh.pa.us 599 :UNC 0 : z->c = z->l - v_3;
1850 peter@eisentraut.org 600 :UBC 0 : z->ket = z->c;
601 : : {
69 tgl@sss.pgh.pa.us 602 :UNC 0 : int ret = skip_b_utf8(z->p, z->c, z->lb, 1);
6781 tgl@sss.pgh.pa.us 603 [ # # ]:UBC 0 : if (ret < 0) goto lab0;
1850 peter@eisentraut.org 604 : 0 : z->c = ret;
605 : : }
606 : 0 : z->bra = z->c;
607 : : {
69 tgl@sss.pgh.pa.us 608 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 609 [ # # ]:UBC 0 : if (ret < 0) return ret;
610 : : }
611 : : }
612 : 0 : lab0:
69 tgl@sss.pgh.pa.us 613 :UNC 0 : z->c = z->l - v_2;
614 : : }
615 : : {
616 : 0 : int v_4 = z->l - z->c;
1850 peter@eisentraut.org 617 :UBC 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 : : {
69 tgl@sss.pgh.pa.us 622 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 623 [ # # ]:UBC 0 : if (ret < 0) return ret;
624 : : }
625 : 0 : lab1:
69 tgl@sss.pgh.pa.us 626 :UNC 0 : z->c = z->l - v_4;
627 : : }
628 : : {
629 : 0 : int v_5 = z->l - z->c;
1850 peter@eisentraut.org 630 :UBC 0 : z->ket = z->c;
631 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'j') goto lab2;
2729 tgl@sss.pgh.pa.us 632 : 0 : z->c--;
1850 peter@eisentraut.org 633 : 0 : z->bra = z->c;
634 : : do {
69 tgl@sss.pgh.pa.us 635 :UNC 0 : int v_6 = z->l - z->c;
636 [ # # # # ]: 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'o') goto lab3;
2729 tgl@sss.pgh.pa.us 637 :UBC 0 : z->c--;
69 tgl@sss.pgh.pa.us 638 :UNC 0 : break;
639 : 0 : lab3:
640 : 0 : z->c = z->l - v_6;
1850 peter@eisentraut.org 641 [ # # # # ]:UBC 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'u') goto lab2;
2729 tgl@sss.pgh.pa.us 642 : 0 : z->c--;
643 : : } while (0);
644 : : {
69 tgl@sss.pgh.pa.us 645 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 646 [ # # ]:UBC 0 : if (ret < 0) return ret;
647 : : }
648 : 0 : lab2:
69 tgl@sss.pgh.pa.us 649 :UNC 0 : z->c = z->l - v_5;
650 : : }
651 : : {
652 : 0 : int v_7 = z->l - z->c;
1850 peter@eisentraut.org 653 :UBC 0 : z->ket = z->c;
69 tgl@sss.pgh.pa.us 654 [ # # # # ]:UNC 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'o') goto lab4;
2729 tgl@sss.pgh.pa.us 655 :UBC 0 : z->c--;
1850 peter@eisentraut.org 656 : 0 : z->bra = z->c;
69 tgl@sss.pgh.pa.us 657 [ # # # # ]:UNC 0 : if (z->c <= z->lb || z->p[z->c - 1] != 'j') goto lab4;
2729 tgl@sss.pgh.pa.us 658 :UBC 0 : z->c--;
659 : : {
69 tgl@sss.pgh.pa.us 660 :UNC 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 661 [ # # ]:UBC 0 : if (ret < 0) return ret;
662 : : }
69 tgl@sss.pgh.pa.us 663 :UNC 0 : lab4:
664 : 0 : z->c = z->l - v_7;
665 : : }
666 : 0 : z->lb = v_1;
667 : : }
1850 peter@eisentraut.org 668 [ # # ]:UBC 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 : : {
69 tgl@sss.pgh.pa.us 673 :UNC 0 : int ret = slice_to(z, &((SN_local *)z)->s_x);
674 [ # # ]: 0 : if (ret < 0) return ret;
675 : : }
676 [ # # ]: 0 : if (!(eq_v_b(z, ((SN_local *)z)->s_x))) return 0;
677 : : {
678 : 0 : int ret = slice_del(z);
6781 tgl@sss.pgh.pa.us 679 [ # # ]:UBC 0 : if (ret < 0) return ret;
680 : : }
681 : 0 : return 1;
682 : : }
683 : :
1850 peter@eisentraut.org 684 : 0 : extern int finnish_UTF_8_stem(struct SN_env * z) {
685 : : {
69 tgl@sss.pgh.pa.us 686 :UNC 0 : int v_1 = z->c;
687 : : {
688 : 0 : int ret = r_mark_regions(z);
6781 tgl@sss.pgh.pa.us 689 [ # # ]:UBC 0 : if (ret < 0) return ret;
690 : : }
69 tgl@sss.pgh.pa.us 691 :UNC 0 : z->c = v_1;
692 : : }
693 : 0 : ((SN_local *)z)->b_ending_removed = 0;
1850 peter@eisentraut.org 694 :UBC 0 : z->lb = z->c; z->c = z->l;
695 : : {
69 tgl@sss.pgh.pa.us 696 :UNC 0 : int v_2 = z->l - z->c;
697 : : {
698 : 0 : int ret = r_particle_etc(z);
6781 tgl@sss.pgh.pa.us 699 [ # # ]:UBC 0 : if (ret < 0) return ret;
700 : : }
69 tgl@sss.pgh.pa.us 701 :UNC 0 : z->c = z->l - v_2;
702 : : }
703 : : {
704 : 0 : int v_3 = z->l - z->c;
705 : : {
706 : 0 : int ret = r_possessive(z);
6781 tgl@sss.pgh.pa.us 707 [ # # ]:UBC 0 : if (ret < 0) return ret;
708 : : }
69 tgl@sss.pgh.pa.us 709 :UNC 0 : z->c = z->l - v_3;
710 : : }
711 : : {
712 : 0 : int v_4 = z->l - z->c;
713 : : {
714 : 0 : int ret = r_case_ending(z);
6781 tgl@sss.pgh.pa.us 715 [ # # ]:UBC 0 : if (ret < 0) return ret;
716 : : }
69 tgl@sss.pgh.pa.us 717 :UNC 0 : z->c = z->l - v_4;
718 : : }
719 : : {
720 : 0 : int v_5 = z->l - z->c;
721 : : {
722 : 0 : int ret = r_other_endings(z);
6781 tgl@sss.pgh.pa.us 723 [ # # ]:UBC 0 : if (ret < 0) return ret;
724 : : }
69 tgl@sss.pgh.pa.us 725 :UNC 0 : z->c = z->l - v_5;
726 : : }
727 : : 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 : : }
735 : 0 : z->c = z->l - v_6;
736 : : }
737 : 0 : break;
738 : 0 : 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 : : }
745 : 0 : z->c = z->l - v_7;
746 : : }
747 : : } while (0);
748 : : {
749 : 0 : int v_8 = z->l - z->c;
750 : : {
751 : 0 : int ret = r_tidy(z);
6781 tgl@sss.pgh.pa.us 752 [ # # ]:UBC 0 : if (ret < 0) return ret;
753 : : }
69 tgl@sss.pgh.pa.us 754 :UNC 0 : z->c = z->l - v_8;
755 : : }
6781 tgl@sss.pgh.pa.us 756 :UBC 0 : z->c = z->lb;
757 : 0 : return 1;
758 : : }
759 : :
69 tgl@sss.pgh.pa.us 760 :UNC 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 : : }
773 : 0 : return z;
774 : : }
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 : : }
780 : 0 : SN_delete_env(z);
781 : 0 : }
782 : :
|
