PostgreSQL Source Code  git master
stem_UTF_8_porter.c
Go to the documentation of this file.
1 /* Generated by Snowball 2.2.0 - https://snowballstem.org/ */
2 
3 #include "header.h"
4 
5 #ifdef __cplusplus
6 extern "C" {
7 #endif
8 extern int porter_UTF_8_stem(struct SN_env * z);
9 #ifdef __cplusplus
10 }
11 #endif
12 static int r_Step_5b(struct SN_env * z);
13 static int r_Step_5a(struct SN_env * z);
14 static int r_Step_4(struct SN_env * z);
15 static int r_Step_3(struct SN_env * z);
16 static int r_Step_2(struct SN_env * z);
17 static int r_Step_1c(struct SN_env * z);
18 static int r_Step_1b(struct SN_env * z);
19 static int r_Step_1a(struct SN_env * z);
20 static int r_R2(struct SN_env * z);
21 static int r_R1(struct SN_env * z);
22 static int r_shortv(struct SN_env * z);
23 #ifdef __cplusplus
24 extern "C" {
25 #endif
26 
27 
28 extern struct SN_env * porter_UTF_8_create_env(void);
29 extern void porter_UTF_8_close_env(struct SN_env * z);
30 
31 
32 #ifdef __cplusplus
33 }
34 #endif
35 static const symbol s_0_0[1] = { 's' };
36 static const symbol s_0_1[3] = { 'i', 'e', 's' };
37 static const symbol s_0_2[4] = { 's', 's', 'e', 's' };
38 static const symbol s_0_3[2] = { 's', 's' };
39 
40 static const struct among a_0[4] =
41 {
42 { 1, s_0_0, -1, 3, 0},
43 { 3, s_0_1, 0, 2, 0},
44 { 4, s_0_2, 0, 1, 0},
45 { 2, s_0_3, 0, -1, 0}
46 };
47 
48 static const symbol s_1_1[2] = { 'b', 'b' };
49 static const symbol s_1_2[2] = { 'd', 'd' };
50 static const symbol s_1_3[2] = { 'f', 'f' };
51 static const symbol s_1_4[2] = { 'g', 'g' };
52 static const symbol s_1_5[2] = { 'b', 'l' };
53 static const symbol s_1_6[2] = { 'm', 'm' };
54 static const symbol s_1_7[2] = { 'n', 'n' };
55 static const symbol s_1_8[2] = { 'p', 'p' };
56 static const symbol s_1_9[2] = { 'r', 'r' };
57 static const symbol s_1_10[2] = { 'a', 't' };
58 static const symbol s_1_11[2] = { 't', 't' };
59 static const symbol s_1_12[2] = { 'i', 'z' };
60 
61 static const struct among a_1[13] =
62 {
63 { 0, 0, -1, 3, 0},
64 { 2, s_1_1, 0, 2, 0},
65 { 2, s_1_2, 0, 2, 0},
66 { 2, s_1_3, 0, 2, 0},
67 { 2, s_1_4, 0, 2, 0},
68 { 2, s_1_5, 0, 1, 0},
69 { 2, s_1_6, 0, 2, 0},
70 { 2, s_1_7, 0, 2, 0},
71 { 2, s_1_8, 0, 2, 0},
72 { 2, s_1_9, 0, 2, 0},
73 { 2, s_1_10, 0, 1, 0},
74 { 2, s_1_11, 0, 2, 0},
75 { 2, s_1_12, 0, 1, 0}
76 };
77 
78 static const symbol s_2_0[2] = { 'e', 'd' };
79 static const symbol s_2_1[3] = { 'e', 'e', 'd' };
80 static const symbol s_2_2[3] = { 'i', 'n', 'g' };
81 
82 static const struct among a_2[3] =
83 {
84 { 2, s_2_0, -1, 2, 0},
85 { 3, s_2_1, 0, 1, 0},
86 { 3, s_2_2, -1, 2, 0}
87 };
88 
89 static const symbol s_3_0[4] = { 'a', 'n', 'c', 'i' };
90 static const symbol s_3_1[4] = { 'e', 'n', 'c', 'i' };
91 static const symbol s_3_2[4] = { 'a', 'b', 'l', 'i' };
92 static const symbol s_3_3[3] = { 'e', 'l', 'i' };
93 static const symbol s_3_4[4] = { 'a', 'l', 'l', 'i' };
94 static const symbol s_3_5[5] = { 'o', 'u', 's', 'l', 'i' };
95 static const symbol s_3_6[5] = { 'e', 'n', 't', 'l', 'i' };
96 static const symbol s_3_7[5] = { 'a', 'l', 'i', 't', 'i' };
97 static const symbol s_3_8[6] = { 'b', 'i', 'l', 'i', 't', 'i' };
98 static const symbol s_3_9[5] = { 'i', 'v', 'i', 't', 'i' };
99 static const symbol s_3_10[6] = { 't', 'i', 'o', 'n', 'a', 'l' };
100 static const symbol s_3_11[7] = { 'a', 't', 'i', 'o', 'n', 'a', 'l' };
101 static const symbol s_3_12[5] = { 'a', 'l', 'i', 's', 'm' };
102 static const symbol s_3_13[5] = { 'a', 't', 'i', 'o', 'n' };
103 static const symbol s_3_14[7] = { 'i', 'z', 'a', 't', 'i', 'o', 'n' };
104 static const symbol s_3_15[4] = { 'i', 'z', 'e', 'r' };
105 static const symbol s_3_16[4] = { 'a', 't', 'o', 'r' };
106 static const symbol s_3_17[7] = { 'i', 'v', 'e', 'n', 'e', 's', 's' };
107 static const symbol s_3_18[7] = { 'f', 'u', 'l', 'n', 'e', 's', 's' };
108 static const symbol s_3_19[7] = { 'o', 'u', 's', 'n', 'e', 's', 's' };
109 
110 static const struct among a_3[20] =
111 {
112 { 4, s_3_0, -1, 3, 0},
113 { 4, s_3_1, -1, 2, 0},
114 { 4, s_3_2, -1, 4, 0},
115 { 3, s_3_3, -1, 6, 0},
116 { 4, s_3_4, -1, 9, 0},
117 { 5, s_3_5, -1, 11, 0},
118 { 5, s_3_6, -1, 5, 0},
119 { 5, s_3_7, -1, 9, 0},
120 { 6, s_3_8, -1, 13, 0},
121 { 5, s_3_9, -1, 12, 0},
122 { 6, s_3_10, -1, 1, 0},
123 { 7, s_3_11, 10, 8, 0},
124 { 5, s_3_12, -1, 9, 0},
125 { 5, s_3_13, -1, 8, 0},
126 { 7, s_3_14, 13, 7, 0},
127 { 4, s_3_15, -1, 7, 0},
128 { 4, s_3_16, -1, 8, 0},
129 { 7, s_3_17, -1, 12, 0},
130 { 7, s_3_18, -1, 10, 0},
131 { 7, s_3_19, -1, 11, 0}
132 };
133 
134 static const symbol s_4_0[5] = { 'i', 'c', 'a', 't', 'e' };
135 static const symbol s_4_1[5] = { 'a', 't', 'i', 'v', 'e' };
136 static const symbol s_4_2[5] = { 'a', 'l', 'i', 'z', 'e' };
137 static const symbol s_4_3[5] = { 'i', 'c', 'i', 't', 'i' };
138 static const symbol s_4_4[4] = { 'i', 'c', 'a', 'l' };
139 static const symbol s_4_5[3] = { 'f', 'u', 'l' };
140 static const symbol s_4_6[4] = { 'n', 'e', 's', 's' };
141 
142 static const struct among a_4[7] =
143 {
144 { 5, s_4_0, -1, 2, 0},
145 { 5, s_4_1, -1, 3, 0},
146 { 5, s_4_2, -1, 1, 0},
147 { 5, s_4_3, -1, 2, 0},
148 { 4, s_4_4, -1, 2, 0},
149 { 3, s_4_5, -1, 3, 0},
150 { 4, s_4_6, -1, 3, 0}
151 };
152 
153 static const symbol s_5_0[2] = { 'i', 'c' };
154 static const symbol s_5_1[4] = { 'a', 'n', 'c', 'e' };
155 static const symbol s_5_2[4] = { 'e', 'n', 'c', 'e' };
156 static const symbol s_5_3[4] = { 'a', 'b', 'l', 'e' };
157 static const symbol s_5_4[4] = { 'i', 'b', 'l', 'e' };
158 static const symbol s_5_5[3] = { 'a', 't', 'e' };
159 static const symbol s_5_6[3] = { 'i', 'v', 'e' };
160 static const symbol s_5_7[3] = { 'i', 'z', 'e' };
161 static const symbol s_5_8[3] = { 'i', 't', 'i' };
162 static const symbol s_5_9[2] = { 'a', 'l' };
163 static const symbol s_5_10[3] = { 'i', 's', 'm' };
164 static const symbol s_5_11[3] = { 'i', 'o', 'n' };
165 static const symbol s_5_12[2] = { 'e', 'r' };
166 static const symbol s_5_13[3] = { 'o', 'u', 's' };
167 static const symbol s_5_14[3] = { 'a', 'n', 't' };
168 static const symbol s_5_15[3] = { 'e', 'n', 't' };
169 static const symbol s_5_16[4] = { 'm', 'e', 'n', 't' };
170 static const symbol s_5_17[5] = { 'e', 'm', 'e', 'n', 't' };
171 static const symbol s_5_18[2] = { 'o', 'u' };
172 
173 static const struct among a_5[19] =
174 {
175 { 2, s_5_0, -1, 1, 0},
176 { 4, s_5_1, -1, 1, 0},
177 { 4, s_5_2, -1, 1, 0},
178 { 4, s_5_3, -1, 1, 0},
179 { 4, s_5_4, -1, 1, 0},
180 { 3, s_5_5, -1, 1, 0},
181 { 3, s_5_6, -1, 1, 0},
182 { 3, s_5_7, -1, 1, 0},
183 { 3, s_5_8, -1, 1, 0},
184 { 2, s_5_9, -1, 1, 0},
185 { 3, s_5_10, -1, 1, 0},
186 { 3, s_5_11, -1, 2, 0},
187 { 2, s_5_12, -1, 1, 0},
188 { 3, s_5_13, -1, 1, 0},
189 { 3, s_5_14, -1, 1, 0},
190 { 3, s_5_15, -1, 1, 0},
191 { 4, s_5_16, 15, 1, 0},
192 { 5, s_5_17, 16, 1, 0},
193 { 2, s_5_18, -1, 1, 0}
194 };
195 
196 static const unsigned char g_v[] = { 17, 65, 16, 1 };
197 
198 static const unsigned char g_v_WXY[] = { 1, 17, 65, 208, 1 };
199 
200 static const symbol s_0[] = { 's', 's' };
201 static const symbol s_1[] = { 'i' };
202 static const symbol s_2[] = { 'e', 'e' };
203 static const symbol s_3[] = { 'e' };
204 static const symbol s_4[] = { 'e' };
205 static const symbol s_5[] = { 'i' };
206 static const symbol s_6[] = { 't', 'i', 'o', 'n' };
207 static const symbol s_7[] = { 'e', 'n', 'c', 'e' };
208 static const symbol s_8[] = { 'a', 'n', 'c', 'e' };
209 static const symbol s_9[] = { 'a', 'b', 'l', 'e' };
210 static const symbol s_10[] = { 'e', 'n', 't' };
211 static const symbol s_11[] = { 'e' };
212 static const symbol s_12[] = { 'i', 'z', 'e' };
213 static const symbol s_13[] = { 'a', 't', 'e' };
214 static const symbol s_14[] = { 'a', 'l' };
215 static const symbol s_15[] = { 'f', 'u', 'l' };
216 static const symbol s_16[] = { 'o', 'u', 's' };
217 static const symbol s_17[] = { 'i', 'v', 'e' };
218 static const symbol s_18[] = { 'b', 'l', 'e' };
219 static const symbol s_19[] = { 'a', 'l' };
220 static const symbol s_20[] = { 'i', 'c' };
221 static const symbol s_21[] = { 'Y' };
222 static const symbol s_22[] = { 'Y' };
223 static const symbol s_23[] = { 'y' };
224 
225 static int r_shortv(struct SN_env * z) {
226  if (out_grouping_b_U(z, g_v_WXY, 89, 121, 0)) return 0;
227  if (in_grouping_b_U(z, g_v, 97, 121, 0)) return 0;
228  if (out_grouping_b_U(z, g_v, 97, 121, 0)) return 0;
229  return 1;
230 }
231 
232 static int r_R1(struct SN_env * z) {
233  if (!(z->I[1] <= z->c)) return 0;
234  return 1;
235 }
236 
237 static int r_R2(struct SN_env * z) {
238  if (!(z->I[0] <= z->c)) return 0;
239  return 1;
240 }
241 
242 static int r_Step_1a(struct SN_env * z) {
243  int among_var;
244  z->ket = z->c;
245  if (z->c <= z->lb || z->p[z->c - 1] != 115) return 0;
246  among_var = find_among_b(z, a_0, 4);
247  if (!(among_var)) return 0;
248  z->bra = z->c;
249  switch (among_var) {
250  case 1:
251  { int ret = slice_from_s(z, 2, s_0);
252  if (ret < 0) return ret;
253  }
254  break;
255  case 2:
256  { int ret = slice_from_s(z, 1, s_1);
257  if (ret < 0) return ret;
258  }
259  break;
260  case 3:
261  { int ret = slice_del(z);
262  if (ret < 0) return ret;
263  }
264  break;
265  }
266  return 1;
267 }
268 
269 static int r_Step_1b(struct SN_env * z) {
270  int among_var;
271  z->ket = z->c;
272  if (z->c - 1 <= z->lb || (z->p[z->c - 1] != 100 && z->p[z->c - 1] != 103)) return 0;
273  among_var = find_among_b(z, a_2, 3);
274  if (!(among_var)) return 0;
275  z->bra = z->c;
276  switch (among_var) {
277  case 1:
278  { int ret = r_R1(z);
279  if (ret <= 0) return ret;
280  }
281  { int ret = slice_from_s(z, 2, s_2);
282  if (ret < 0) return ret;
283  }
284  break;
285  case 2:
286  { int m_test1 = z->l - z->c;
287  {
288  int ret = out_grouping_b_U(z, g_v, 97, 121, 1);
289  if (ret < 0) return 0;
290  z->c -= ret;
291  }
292  z->c = z->l - m_test1;
293  }
294  { int ret = slice_del(z);
295  if (ret < 0) return ret;
296  }
297  { int m_test2 = z->l - z->c;
298  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
299  among_var = find_among_b(z, a_1, 13);
300  if (!(among_var)) return 0;
301  z->c = z->l - m_test2;
302  }
303  switch (among_var) {
304  case 1:
305  { int ret;
306  { int saved_c = z->c;
307  ret = insert_s(z, z->c, z->c, 1, s_3);
308  z->c = saved_c;
309  }
310  if (ret < 0) return ret;
311  }
312  break;
313  case 2:
314  z->ket = z->c;
315  { int ret = skip_b_utf8(z->p, z->c, z->lb, 1);
316  if (ret < 0) return 0;
317  z->c = ret;
318  }
319  z->bra = z->c;
320  { int ret = slice_del(z);
321  if (ret < 0) return ret;
322  }
323  break;
324  case 3:
325  if (z->c != z->I[1]) return 0;
326  { int m_test3 = z->l - z->c;
327  { int ret = r_shortv(z);
328  if (ret <= 0) return ret;
329  }
330  z->c = z->l - m_test3;
331  }
332  { int ret;
333  { int saved_c = z->c;
334  ret = insert_s(z, z->c, z->c, 1, s_4);
335  z->c = saved_c;
336  }
337  if (ret < 0) return ret;
338  }
339  break;
340  }
341  break;
342  }
343  return 1;
344 }
345 
346 static int r_Step_1c(struct SN_env * z) {
347  z->ket = z->c;
348  { int m1 = z->l - z->c; (void)m1;
349  if (z->c <= z->lb || z->p[z->c - 1] != 'y') goto lab1;
350  z->c--;
351  goto lab0;
352  lab1:
353  z->c = z->l - m1;
354  if (z->c <= z->lb || z->p[z->c - 1] != 'Y') return 0;
355  z->c--;
356  }
357 lab0:
358  z->bra = z->c;
359  {
360  int ret = out_grouping_b_U(z, g_v, 97, 121, 1);
361  if (ret < 0) return 0;
362  z->c -= ret;
363  }
364  { int ret = slice_from_s(z, 1, s_5);
365  if (ret < 0) return ret;
366  }
367  return 1;
368 }
369 
370 static int r_Step_2(struct SN_env * z) {
371  int among_var;
372  z->ket = z->c;
373  if (z->c - 2 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((815616 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
374  among_var = find_among_b(z, a_3, 20);
375  if (!(among_var)) return 0;
376  z->bra = z->c;
377  { int ret = r_R1(z);
378  if (ret <= 0) return ret;
379  }
380  switch (among_var) {
381  case 1:
382  { int ret = slice_from_s(z, 4, s_6);
383  if (ret < 0) return ret;
384  }
385  break;
386  case 2:
387  { int ret = slice_from_s(z, 4, s_7);
388  if (ret < 0) return ret;
389  }
390  break;
391  case 3:
392  { int ret = slice_from_s(z, 4, s_8);
393  if (ret < 0) return ret;
394  }
395  break;
396  case 4:
397  { int ret = slice_from_s(z, 4, s_9);
398  if (ret < 0) return ret;
399  }
400  break;
401  case 5:
402  { int ret = slice_from_s(z, 3, s_10);
403  if (ret < 0) return ret;
404  }
405  break;
406  case 6:
407  { int ret = slice_from_s(z, 1, s_11);
408  if (ret < 0) return ret;
409  }
410  break;
411  case 7:
412  { int ret = slice_from_s(z, 3, s_12);
413  if (ret < 0) return ret;
414  }
415  break;
416  case 8:
417  { int ret = slice_from_s(z, 3, s_13);
418  if (ret < 0) return ret;
419  }
420  break;
421  case 9:
422  { int ret = slice_from_s(z, 2, s_14);
423  if (ret < 0) return ret;
424  }
425  break;
426  case 10:
427  { int ret = slice_from_s(z, 3, s_15);
428  if (ret < 0) return ret;
429  }
430  break;
431  case 11:
432  { int ret = slice_from_s(z, 3, s_16);
433  if (ret < 0) return ret;
434  }
435  break;
436  case 12:
437  { int ret = slice_from_s(z, 3, s_17);
438  if (ret < 0) return ret;
439  }
440  break;
441  case 13:
442  { int ret = slice_from_s(z, 3, s_18);
443  if (ret < 0) return ret;
444  }
445  break;
446  }
447  return 1;
448 }
449 
450 static int r_Step_3(struct SN_env * z) {
451  int among_var;
452  z->ket = z->c;
453  if (z->c - 2 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((528928 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
454  among_var = find_among_b(z, a_4, 7);
455  if (!(among_var)) return 0;
456  z->bra = z->c;
457  { int ret = r_R1(z);
458  if (ret <= 0) return ret;
459  }
460  switch (among_var) {
461  case 1:
462  { int ret = slice_from_s(z, 2, s_19);
463  if (ret < 0) return ret;
464  }
465  break;
466  case 2:
467  { int ret = slice_from_s(z, 2, s_20);
468  if (ret < 0) return ret;
469  }
470  break;
471  case 3:
472  { int ret = slice_del(z);
473  if (ret < 0) return ret;
474  }
475  break;
476  }
477  return 1;
478 }
479 
480 static int r_Step_4(struct SN_env * z) {
481  int among_var;
482  z->ket = z->c;
483  if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((3961384 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
484  among_var = find_among_b(z, a_5, 19);
485  if (!(among_var)) return 0;
486  z->bra = z->c;
487  { int ret = r_R2(z);
488  if (ret <= 0) return ret;
489  }
490  switch (among_var) {
491  case 1:
492  { int ret = slice_del(z);
493  if (ret < 0) return ret;
494  }
495  break;
496  case 2:
497  { int m1 = z->l - z->c; (void)m1;
498  if (z->c <= z->lb || z->p[z->c - 1] != 's') goto lab1;
499  z->c--;
500  goto lab0;
501  lab1:
502  z->c = z->l - m1;
503  if (z->c <= z->lb || z->p[z->c - 1] != 't') return 0;
504  z->c--;
505  }
506  lab0:
507  { int ret = slice_del(z);
508  if (ret < 0) return ret;
509  }
510  break;
511  }
512  return 1;
513 }
514 
515 static int r_Step_5a(struct SN_env * z) {
516  z->ket = z->c;
517  if (z->c <= z->lb || z->p[z->c - 1] != 'e') return 0;
518  z->c--;
519  z->bra = z->c;
520  { int m1 = z->l - z->c; (void)m1;
521  { int ret = r_R2(z);
522  if (ret == 0) goto lab1;
523  if (ret < 0) return ret;
524  }
525  goto lab0;
526  lab1:
527  z->c = z->l - m1;
528  { int ret = r_R1(z);
529  if (ret <= 0) return ret;
530  }
531  { int m2 = z->l - z->c; (void)m2;
532  { int ret = r_shortv(z);
533  if (ret == 0) goto lab2;
534  if (ret < 0) return ret;
535  }
536  return 0;
537  lab2:
538  z->c = z->l - m2;
539  }
540  }
541 lab0:
542  { int ret = slice_del(z);
543  if (ret < 0) return ret;
544  }
545  return 1;
546 }
547 
548 static int r_Step_5b(struct SN_env * z) {
549  z->ket = z->c;
550  if (z->c <= z->lb || z->p[z->c - 1] != 'l') return 0;
551  z->c--;
552  z->bra = z->c;
553  { int ret = r_R2(z);
554  if (ret <= 0) return ret;
555  }
556  if (z->c <= z->lb || z->p[z->c - 1] != 'l') return 0;
557  z->c--;
558  { int ret = slice_del(z);
559  if (ret < 0) return ret;
560  }
561  return 1;
562 }
563 
564 extern int porter_UTF_8_stem(struct SN_env * z) {
565  z->I[2] = 0;
566  { int c1 = z->c;
567  z->bra = z->c;
568  if (z->c == z->l || z->p[z->c] != 'y') goto lab0;
569  z->c++;
570  z->ket = z->c;
571  { int ret = slice_from_s(z, 1, s_21);
572  if (ret < 0) return ret;
573  }
574  z->I[2] = 1;
575  lab0:
576  z->c = c1;
577  }
578  { int c2 = z->c;
579  while(1) {
580  int c3 = z->c;
581  while(1) {
582  int c4 = z->c;
583  if (in_grouping_U(z, g_v, 97, 121, 0)) goto lab3;
584  z->bra = z->c;
585  if (z->c == z->l || z->p[z->c] != 'y') goto lab3;
586  z->c++;
587  z->ket = z->c;
588  z->c = c4;
589  break;
590  lab3:
591  z->c = c4;
592  { int ret = skip_utf8(z->p, z->c, z->l, 1);
593  if (ret < 0) goto lab2;
594  z->c = ret;
595  }
596  }
597  { int ret = slice_from_s(z, 1, s_22);
598  if (ret < 0) return ret;
599  }
600  z->I[2] = 1;
601  continue;
602  lab2:
603  z->c = c3;
604  break;
605  }
606  z->c = c2;
607  }
608  z->I[1] = z->l;
609  z->I[0] = z->l;
610  { int c5 = z->c;
611  {
612  int ret = out_grouping_U(z, g_v, 97, 121, 1);
613  if (ret < 0) goto lab4;
614  z->c += ret;
615  }
616  {
617  int ret = in_grouping_U(z, g_v, 97, 121, 1);
618  if (ret < 0) goto lab4;
619  z->c += ret;
620  }
621  z->I[1] = z->c;
622  {
623  int ret = out_grouping_U(z, g_v, 97, 121, 1);
624  if (ret < 0) goto lab4;
625  z->c += ret;
626  }
627  {
628  int ret = in_grouping_U(z, g_v, 97, 121, 1);
629  if (ret < 0) goto lab4;
630  z->c += ret;
631  }
632  z->I[0] = z->c;
633  lab4:
634  z->c = c5;
635  }
636  z->lb = z->c; z->c = z->l;
637 
638  { int m6 = z->l - z->c; (void)m6;
639  { int ret = r_Step_1a(z);
640  if (ret < 0) return ret;
641  }
642  z->c = z->l - m6;
643  }
644  { int m7 = z->l - z->c; (void)m7;
645  { int ret = r_Step_1b(z);
646  if (ret < 0) return ret;
647  }
648  z->c = z->l - m7;
649  }
650  { int m8 = z->l - z->c; (void)m8;
651  { int ret = r_Step_1c(z);
652  if (ret < 0) return ret;
653  }
654  z->c = z->l - m8;
655  }
656  { int m9 = z->l - z->c; (void)m9;
657  { int ret = r_Step_2(z);
658  if (ret < 0) return ret;
659  }
660  z->c = z->l - m9;
661  }
662  { int m10 = z->l - z->c; (void)m10;
663  { int ret = r_Step_3(z);
664  if (ret < 0) return ret;
665  }
666  z->c = z->l - m10;
667  }
668  { int m11 = z->l - z->c; (void)m11;
669  { int ret = r_Step_4(z);
670  if (ret < 0) return ret;
671  }
672  z->c = z->l - m11;
673  }
674  { int m12 = z->l - z->c; (void)m12;
675  { int ret = r_Step_5a(z);
676  if (ret < 0) return ret;
677  }
678  z->c = z->l - m12;
679  }
680  { int m13 = z->l - z->c; (void)m13;
681  { int ret = r_Step_5b(z);
682  if (ret < 0) return ret;
683  }
684  z->c = z->l - m13;
685  }
686  z->c = z->lb;
687  { int c14 = z->c;
688  if (!(z->I[2])) goto lab5;
689  while(1) {
690  int c15 = z->c;
691  while(1) {
692  int c16 = z->c;
693  z->bra = z->c;
694  if (z->c == z->l || z->p[z->c] != 'Y') goto lab7;
695  z->c++;
696  z->ket = z->c;
697  z->c = c16;
698  break;
699  lab7:
700  z->c = c16;
701  { int ret = skip_utf8(z->p, z->c, z->l, 1);
702  if (ret < 0) goto lab6;
703  z->c = ret;
704  }
705  }
706  { int ret = slice_from_s(z, 1, s_23);
707  if (ret < 0) return ret;
708  }
709  continue;
710  lab6:
711  z->c = c15;
712  break;
713  }
714  lab5:
715  z->c = c14;
716  }
717  return 1;
718 }
719 
720 extern struct SN_env * porter_UTF_8_create_env(void) { return SN_create_env(0, 3); }
721 
722 extern void porter_UTF_8_close_env(struct SN_env * z) { SN_close_env(z, 0); }
723 
struct SN_env * SN_create_env(int S_size, int I_size)
Definition: api.c:3
void SN_close_env(struct SN_env *z, int S_size)
Definition: api.c:34
unsigned char symbol
Definition: api.h:2
static const symbol s_0_2[4]
static const symbol s_1_5[2]
static const symbol s_2[]
void porter_UTF_8_close_env(struct SN_env *z)
static const symbol s_5_6[3]
static const symbol s_3_12[5]
static const struct among a_3[20]
static const symbol s_3_8[6]
static const symbol s_4[]
static const symbol s_3_15[4]
static const symbol s_1_9[2]
static const symbol s_1_6[2]
static const symbol s_3_14[7]
static const symbol s_4_6[4]
static const symbol s_5_12[2]
static int r_Step_5b(struct SN_env *z)
static int r_Step_3(struct SN_env *z)
static const symbol s_1_2[2]
static const symbol s_0_0[1]
static const symbol s_5_0[2]
static const symbol s_4_3[5]
static const symbol s_4_4[4]
static const symbol s_2_0[2]
static const symbol s_1_3[2]
static const symbol s_2_1[3]
static const symbol s_3_0[4]
static const symbol s_3_6[5]
static const symbol s_6[]
static const symbol s_5_9[2]
static const symbol s_21[]
static const symbol s_3[]
struct SN_env * porter_UTF_8_create_env(void)
static const symbol s_3_4[4]
static const symbol s_5_17[5]
static int r_R2(struct SN_env *z)
static const symbol s_7[]
static const symbol s_5_7[3]
static const symbol s_13[]
static const symbol s_1_7[2]
int porter_UTF_8_stem(struct SN_env *z)
static const symbol s_1_1[2]
static const symbol s_20[]
static const symbol s_3_17[7]
static const symbol s_3_10[6]
static const symbol s_3_13[5]
static const symbol s_19[]
static const symbol s_23[]
static const symbol s_5_14[3]
static const symbol s_4_5[3]
static int r_Step_1c(struct SN_env *z)
static const symbol s_0_1[3]
static const unsigned char g_v_WXY[]
static int r_R1(struct SN_env *z)
static const symbol s_5_3[4]
static const symbol s_16[]
static const symbol s_5_4[4]
static const symbol s_14[]
static int r_Step_5a(struct SN_env *z)
static const symbol s_22[]
static const symbol s_1_11[2]
static const symbol s_4_0[5]
static const symbol s_10[]
static const struct among a_0[4]
static const symbol s_1_10[2]
static const symbol s_5_2[4]
static const symbol s_1[]
static const symbol s_3_19[7]
static int r_Step_1a(struct SN_env *z)
static int r_shortv(struct SN_env *z)
static const struct among a_2[3]
static const symbol s_1_8[2]
static const struct among a_5[19]
static const symbol s_3_1[4]
static const symbol s_1_4[2]
static const symbol s_3_3[3]
static const symbol s_3_9[5]
static const symbol s_2_2[3]
static const struct among a_1[13]
static const symbol s_11[]
static const symbol s_12[]
static const symbol s_5_8[3]
static const symbol s_3_18[7]
static const symbol s_5_11[3]
static int r_Step_4(struct SN_env *z)
static int r_Step_2(struct SN_env *z)
static const struct among a_4[7]
static const symbol s_5_16[4]
static const symbol s_5_15[3]
static const symbol s_18[]
static const symbol s_17[]
static const symbol s_5_13[3]
static int r_Step_1b(struct SN_env *z)
static const symbol s_0_3[2]
static const symbol s_3_2[4]
static const symbol s_5_5[3]
static const symbol s_5_10[3]
static const unsigned char g_v[]
static const symbol s_8[]
static const symbol s_9[]
static const symbol s_3_7[5]
static const symbol s_4_1[5]
static const symbol s_5[]
static const symbol s_5_18[2]
static const symbol s_3_5[5]
static const symbol s_15[]
static const symbol s_1_12[2]
static const symbol s_3_16[4]
static const symbol s_4_2[5]
static const symbol s_5_1[4]
static const symbol s_0[]
static const symbol s_3_11[7]
Definition: api.h:14
int lb
Definition: api.h:16
symbol * p
Definition: api.h:15
int * I
Definition: api.h:18
int ket
Definition: api.h:16
int c
Definition: api.h:16
int bra
Definition: api.h:16
int l
Definition: api.h:16
Definition: header.h:16
int find_among_b(struct SN_env *z, const struct among *v, int v_size)
Definition: utilities.c:298
int out_grouping_U(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:141
int insert_s(struct SN_env *z, int bra, int ket, int s_size, const symbol *s)
Definition: utilities.c:435
int slice_del(struct SN_env *z)
Definition: utilities.c:431
int in_grouping_U(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:117
int in_grouping_b_U(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:129
int skip_b_utf8(const symbol *p, int c, int limit, int n)
Definition: utilities.c:52
int out_grouping_b_U(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:153
int skip_utf8(const symbol *p, int c, int limit, int n)
Definition: utilities.c:27
int slice_from_s(struct SN_env *z, int s_size, const symbol *s)
Definition: utilities.c:422