ruby-stemmer-dimelo 0.9.3.dimelo1

Sign up to get free protection for your applications and to get access to all the features.
Files changed (95) hide show
  1. checksums.yaml +7 -0
  2. data/MIT-LICENSE +21 -0
  3. data/README.rdoc +117 -0
  4. data/Rakefile +70 -0
  5. data/VERSION +1 -0
  6. data/ext/lingua/extconf.rb +40 -0
  7. data/ext/lingua/stemmer.c +115 -0
  8. data/lib/lingua/stemmer.rb +60 -0
  9. data/libstemmer_c/MANIFEST +72 -0
  10. data/libstemmer_c/Makefile +9 -0
  11. data/libstemmer_c/Makefile.windows +15 -0
  12. data/libstemmer_c/README +125 -0
  13. data/libstemmer_c/examples/stemwords.c +209 -0
  14. data/libstemmer_c/include/libstemmer.h +79 -0
  15. data/libstemmer_c/libstemmer/libstemmer.c +93 -0
  16. data/libstemmer_c/libstemmer/libstemmer_utf8.c +93 -0
  17. data/libstemmer_c/libstemmer/modules.h +195 -0
  18. data/libstemmer_c/libstemmer/modules.txt +51 -0
  19. data/libstemmer_c/libstemmer/modules_utf8.h +123 -0
  20. data/libstemmer_c/libstemmer/modules_utf8.txt +50 -0
  21. data/libstemmer_c/mkinc.mak +86 -0
  22. data/libstemmer_c/mkinc_utf8.mak +54 -0
  23. data/libstemmer_c/runtime/api.c +66 -0
  24. data/libstemmer_c/runtime/api.h +26 -0
  25. data/libstemmer_c/runtime/header.h +58 -0
  26. data/libstemmer_c/runtime/utilities.c +478 -0
  27. data/libstemmer_c/src_c/stem_ISO_8859_1_danish.c +337 -0
  28. data/libstemmer_c/src_c/stem_ISO_8859_1_danish.h +16 -0
  29. data/libstemmer_c/src_c/stem_ISO_8859_1_dutch.c +624 -0
  30. data/libstemmer_c/src_c/stem_ISO_8859_1_dutch.h +16 -0
  31. data/libstemmer_c/src_c/stem_ISO_8859_1_english.c +1117 -0
  32. data/libstemmer_c/src_c/stem_ISO_8859_1_english.h +16 -0
  33. data/libstemmer_c/src_c/stem_ISO_8859_1_finnish.c +762 -0
  34. data/libstemmer_c/src_c/stem_ISO_8859_1_finnish.h +16 -0
  35. data/libstemmer_c/src_c/stem_ISO_8859_1_french.c +1230 -0
  36. data/libstemmer_c/src_c/stem_ISO_8859_1_french.h +16 -0
  37. data/libstemmer_c/src_c/stem_ISO_8859_1_german.c +503 -0
  38. data/libstemmer_c/src_c/stem_ISO_8859_1_german.h +16 -0
  39. data/libstemmer_c/src_c/stem_ISO_8859_1_hungarian.c +1230 -0
  40. data/libstemmer_c/src_c/stem_ISO_8859_1_hungarian.h +16 -0
  41. data/libstemmer_c/src_c/stem_ISO_8859_1_italian.c +1065 -0
  42. data/libstemmer_c/src_c/stem_ISO_8859_1_italian.h +16 -0
  43. data/libstemmer_c/src_c/stem_ISO_8859_1_latin.c +443 -0
  44. data/libstemmer_c/src_c/stem_ISO_8859_1_latin.h +16 -0
  45. data/libstemmer_c/src_c/stem_ISO_8859_1_norwegian.c +297 -0
  46. data/libstemmer_c/src_c/stem_ISO_8859_1_norwegian.h +16 -0
  47. data/libstemmer_c/src_c/stem_ISO_8859_1_porter.c +749 -0
  48. data/libstemmer_c/src_c/stem_ISO_8859_1_porter.h +16 -0
  49. data/libstemmer_c/src_c/stem_ISO_8859_1_portuguese.c +1017 -0
  50. data/libstemmer_c/src_c/stem_ISO_8859_1_portuguese.h +16 -0
  51. data/libstemmer_c/src_c/stem_ISO_8859_1_spanish.c +1093 -0
  52. data/libstemmer_c/src_c/stem_ISO_8859_1_spanish.h +16 -0
  53. data/libstemmer_c/src_c/stem_ISO_8859_1_swedish.c +307 -0
  54. data/libstemmer_c/src_c/stem_ISO_8859_1_swedish.h +16 -0
  55. data/libstemmer_c/src_c/stem_ISO_8859_2_romanian.c +998 -0
  56. data/libstemmer_c/src_c/stem_ISO_8859_2_romanian.h +16 -0
  57. data/libstemmer_c/src_c/stem_KOI8_R_russian.c +700 -0
  58. data/libstemmer_c/src_c/stem_KOI8_R_russian.h +16 -0
  59. data/libstemmer_c/src_c/stem_UTF_8_danish.c +339 -0
  60. data/libstemmer_c/src_c/stem_UTF_8_danish.h +16 -0
  61. data/libstemmer_c/src_c/stem_UTF_8_dutch.c +634 -0
  62. data/libstemmer_c/src_c/stem_UTF_8_dutch.h +16 -0
  63. data/libstemmer_c/src_c/stem_UTF_8_english.c +1125 -0
  64. data/libstemmer_c/src_c/stem_UTF_8_english.h +16 -0
  65. data/libstemmer_c/src_c/stem_UTF_8_finnish.c +768 -0
  66. data/libstemmer_c/src_c/stem_UTF_8_finnish.h +16 -0
  67. data/libstemmer_c/src_c/stem_UTF_8_french.c +1230 -0
  68. data/libstemmer_c/src_c/stem_UTF_8_french.h +16 -0
  69. data/libstemmer_c/src_c/stem_UTF_8_german.c +509 -0
  70. data/libstemmer_c/src_c/stem_UTF_8_german.h +16 -0
  71. data/libstemmer_c/src_c/stem_UTF_8_hungarian.c +1234 -0
  72. data/libstemmer_c/src_c/stem_UTF_8_hungarian.h +16 -0
  73. data/libstemmer_c/src_c/stem_UTF_8_italian.c +1073 -0
  74. data/libstemmer_c/src_c/stem_UTF_8_italian.h +16 -0
  75. data/libstemmer_c/src_c/stem_UTF_8_latin.c +443 -0
  76. data/libstemmer_c/src_c/stem_UTF_8_latin.h +16 -0
  77. data/libstemmer_c/src_c/stem_UTF_8_norwegian.c +299 -0
  78. data/libstemmer_c/src_c/stem_UTF_8_norwegian.h +16 -0
  79. data/libstemmer_c/src_c/stem_UTF_8_porter.c +755 -0
  80. data/libstemmer_c/src_c/stem_UTF_8_porter.h +16 -0
  81. data/libstemmer_c/src_c/stem_UTF_8_portuguese.c +1023 -0
  82. data/libstemmer_c/src_c/stem_UTF_8_portuguese.h +16 -0
  83. data/libstemmer_c/src_c/stem_UTF_8_romanian.c +1004 -0
  84. data/libstemmer_c/src_c/stem_UTF_8_romanian.h +16 -0
  85. data/libstemmer_c/src_c/stem_UTF_8_russian.c +694 -0
  86. data/libstemmer_c/src_c/stem_UTF_8_russian.h +16 -0
  87. data/libstemmer_c/src_c/stem_UTF_8_spanish.c +1097 -0
  88. data/libstemmer_c/src_c/stem_UTF_8_spanish.h +16 -0
  89. data/libstemmer_c/src_c/stem_UTF_8_swedish.c +309 -0
  90. data/libstemmer_c/src_c/stem_UTF_8_swedish.h +16 -0
  91. data/libstemmer_c/src_c/stem_UTF_8_turkish.c +2205 -0
  92. data/libstemmer_c/src_c/stem_UTF_8_turkish.h +16 -0
  93. data/test/helper.rb +3 -0
  94. data/test/lingua/test_stemmer.rb +99 -0
  95. metadata +141 -0
@@ -0,0 +1,16 @@
1
+
2
+ /* This file was generated automatically by the Snowball to ANSI C compiler */
3
+
4
+ #ifdef __cplusplus
5
+ extern "C" {
6
+ #endif
7
+
8
+ extern struct SN_env * dutch_UTF_8_create_env(void);
9
+ extern void dutch_UTF_8_close_env(struct SN_env * z);
10
+
11
+ extern int dutch_UTF_8_stem(struct SN_env * z);
12
+
13
+ #ifdef __cplusplus
14
+ }
15
+ #endif
16
+
@@ -0,0 +1,1125 @@
1
+
2
+ /* This file was generated automatically by the Snowball to ANSI C compiler */
3
+
4
+ #include "../runtime/header.h"
5
+
6
+ #ifdef __cplusplus
7
+ extern "C" {
8
+ #endif
9
+ extern int english_UTF_8_stem(struct SN_env * z);
10
+ #ifdef __cplusplus
11
+ }
12
+ #endif
13
+ static int r_exception2(struct SN_env * z);
14
+ static int r_exception1(struct SN_env * z);
15
+ static int r_Step_5(struct SN_env * z);
16
+ static int r_Step_4(struct SN_env * z);
17
+ static int r_Step_3(struct SN_env * z);
18
+ static int r_Step_2(struct SN_env * z);
19
+ static int r_Step_1c(struct SN_env * z);
20
+ static int r_Step_1b(struct SN_env * z);
21
+ static int r_Step_1a(struct SN_env * z);
22
+ static int r_R2(struct SN_env * z);
23
+ static int r_R1(struct SN_env * z);
24
+ static int r_shortv(struct SN_env * z);
25
+ static int r_mark_regions(struct SN_env * z);
26
+ static int r_postlude(struct SN_env * z);
27
+ static int r_prelude(struct SN_env * z);
28
+ #ifdef __cplusplus
29
+ extern "C" {
30
+ #endif
31
+
32
+
33
+ extern struct SN_env * english_UTF_8_create_env(void);
34
+ extern void english_UTF_8_close_env(struct SN_env * z);
35
+
36
+
37
+ #ifdef __cplusplus
38
+ }
39
+ #endif
40
+ static const symbol s_0_0[5] = { 'a', 'r', 's', 'e', 'n' };
41
+ static const symbol s_0_1[6] = { 'c', 'o', 'm', 'm', 'u', 'n' };
42
+ static const symbol s_0_2[5] = { 'g', 'e', 'n', 'e', 'r' };
43
+
44
+ static const struct among a_0[3] =
45
+ {
46
+ /* 0 */ { 5, s_0_0, -1, -1, 0},
47
+ /* 1 */ { 6, s_0_1, -1, -1, 0},
48
+ /* 2 */ { 5, s_0_2, -1, -1, 0}
49
+ };
50
+
51
+ static const symbol s_1_0[1] = { '\'' };
52
+ static const symbol s_1_1[3] = { '\'', 's', '\'' };
53
+ static const symbol s_1_2[2] = { '\'', 's' };
54
+
55
+ static const struct among a_1[3] =
56
+ {
57
+ /* 0 */ { 1, s_1_0, -1, 1, 0},
58
+ /* 1 */ { 3, s_1_1, 0, 1, 0},
59
+ /* 2 */ { 2, s_1_2, -1, 1, 0}
60
+ };
61
+
62
+ static const symbol s_2_0[3] = { 'i', 'e', 'd' };
63
+ static const symbol s_2_1[1] = { 's' };
64
+ static const symbol s_2_2[3] = { 'i', 'e', 's' };
65
+ static const symbol s_2_3[4] = { 's', 's', 'e', 's' };
66
+ static const symbol s_2_4[2] = { 's', 's' };
67
+ static const symbol s_2_5[2] = { 'u', 's' };
68
+
69
+ static const struct among a_2[6] =
70
+ {
71
+ /* 0 */ { 3, s_2_0, -1, 2, 0},
72
+ /* 1 */ { 1, s_2_1, -1, 3, 0},
73
+ /* 2 */ { 3, s_2_2, 1, 2, 0},
74
+ /* 3 */ { 4, s_2_3, 1, 1, 0},
75
+ /* 4 */ { 2, s_2_4, 1, -1, 0},
76
+ /* 5 */ { 2, s_2_5, 1, -1, 0}
77
+ };
78
+
79
+ static const symbol s_3_1[2] = { 'b', 'b' };
80
+ static const symbol s_3_2[2] = { 'd', 'd' };
81
+ static const symbol s_3_3[2] = { 'f', 'f' };
82
+ static const symbol s_3_4[2] = { 'g', 'g' };
83
+ static const symbol s_3_5[2] = { 'b', 'l' };
84
+ static const symbol s_3_6[2] = { 'm', 'm' };
85
+ static const symbol s_3_7[2] = { 'n', 'n' };
86
+ static const symbol s_3_8[2] = { 'p', 'p' };
87
+ static const symbol s_3_9[2] = { 'r', 'r' };
88
+ static const symbol s_3_10[2] = { 'a', 't' };
89
+ static const symbol s_3_11[2] = { 't', 't' };
90
+ static const symbol s_3_12[2] = { 'i', 'z' };
91
+
92
+ static const struct among a_3[13] =
93
+ {
94
+ /* 0 */ { 0, 0, -1, 3, 0},
95
+ /* 1 */ { 2, s_3_1, 0, 2, 0},
96
+ /* 2 */ { 2, s_3_2, 0, 2, 0},
97
+ /* 3 */ { 2, s_3_3, 0, 2, 0},
98
+ /* 4 */ { 2, s_3_4, 0, 2, 0},
99
+ /* 5 */ { 2, s_3_5, 0, 1, 0},
100
+ /* 6 */ { 2, s_3_6, 0, 2, 0},
101
+ /* 7 */ { 2, s_3_7, 0, 2, 0},
102
+ /* 8 */ { 2, s_3_8, 0, 2, 0},
103
+ /* 9 */ { 2, s_3_9, 0, 2, 0},
104
+ /* 10 */ { 2, s_3_10, 0, 1, 0},
105
+ /* 11 */ { 2, s_3_11, 0, 2, 0},
106
+ /* 12 */ { 2, s_3_12, 0, 1, 0}
107
+ };
108
+
109
+ static const symbol s_4_0[2] = { 'e', 'd' };
110
+ static const symbol s_4_1[3] = { 'e', 'e', 'd' };
111
+ static const symbol s_4_2[3] = { 'i', 'n', 'g' };
112
+ static const symbol s_4_3[4] = { 'e', 'd', 'l', 'y' };
113
+ static const symbol s_4_4[5] = { 'e', 'e', 'd', 'l', 'y' };
114
+ static const symbol s_4_5[5] = { 'i', 'n', 'g', 'l', 'y' };
115
+
116
+ static const struct among a_4[6] =
117
+ {
118
+ /* 0 */ { 2, s_4_0, -1, 2, 0},
119
+ /* 1 */ { 3, s_4_1, 0, 1, 0},
120
+ /* 2 */ { 3, s_4_2, -1, 2, 0},
121
+ /* 3 */ { 4, s_4_3, -1, 2, 0},
122
+ /* 4 */ { 5, s_4_4, 3, 1, 0},
123
+ /* 5 */ { 5, s_4_5, -1, 2, 0}
124
+ };
125
+
126
+ static const symbol s_5_0[4] = { 'a', 'n', 'c', 'i' };
127
+ static const symbol s_5_1[4] = { 'e', 'n', 'c', 'i' };
128
+ static const symbol s_5_2[3] = { 'o', 'g', 'i' };
129
+ static const symbol s_5_3[2] = { 'l', 'i' };
130
+ static const symbol s_5_4[3] = { 'b', 'l', 'i' };
131
+ static const symbol s_5_5[4] = { 'a', 'b', 'l', 'i' };
132
+ static const symbol s_5_6[4] = { 'a', 'l', 'l', 'i' };
133
+ static const symbol s_5_7[5] = { 'f', 'u', 'l', 'l', 'i' };
134
+ static const symbol s_5_8[6] = { 'l', 'e', 's', 's', 'l', 'i' };
135
+ static const symbol s_5_9[5] = { 'o', 'u', 's', 'l', 'i' };
136
+ static const symbol s_5_10[5] = { 'e', 'n', 't', 'l', 'i' };
137
+ static const symbol s_5_11[5] = { 'a', 'l', 'i', 't', 'i' };
138
+ static const symbol s_5_12[6] = { 'b', 'i', 'l', 'i', 't', 'i' };
139
+ static const symbol s_5_13[5] = { 'i', 'v', 'i', 't', 'i' };
140
+ static const symbol s_5_14[6] = { 't', 'i', 'o', 'n', 'a', 'l' };
141
+ static const symbol s_5_15[7] = { 'a', 't', 'i', 'o', 'n', 'a', 'l' };
142
+ static const symbol s_5_16[5] = { 'a', 'l', 'i', 's', 'm' };
143
+ static const symbol s_5_17[5] = { 'a', 't', 'i', 'o', 'n' };
144
+ static const symbol s_5_18[7] = { 'i', 'z', 'a', 't', 'i', 'o', 'n' };
145
+ static const symbol s_5_19[4] = { 'i', 'z', 'e', 'r' };
146
+ static const symbol s_5_20[4] = { 'a', 't', 'o', 'r' };
147
+ static const symbol s_5_21[7] = { 'i', 'v', 'e', 'n', 'e', 's', 's' };
148
+ static const symbol s_5_22[7] = { 'f', 'u', 'l', 'n', 'e', 's', 's' };
149
+ static const symbol s_5_23[7] = { 'o', 'u', 's', 'n', 'e', 's', 's' };
150
+
151
+ static const struct among a_5[24] =
152
+ {
153
+ /* 0 */ { 4, s_5_0, -1, 3, 0},
154
+ /* 1 */ { 4, s_5_1, -1, 2, 0},
155
+ /* 2 */ { 3, s_5_2, -1, 13, 0},
156
+ /* 3 */ { 2, s_5_3, -1, 16, 0},
157
+ /* 4 */ { 3, s_5_4, 3, 12, 0},
158
+ /* 5 */ { 4, s_5_5, 4, 4, 0},
159
+ /* 6 */ { 4, s_5_6, 3, 8, 0},
160
+ /* 7 */ { 5, s_5_7, 3, 14, 0},
161
+ /* 8 */ { 6, s_5_8, 3, 15, 0},
162
+ /* 9 */ { 5, s_5_9, 3, 10, 0},
163
+ /* 10 */ { 5, s_5_10, 3, 5, 0},
164
+ /* 11 */ { 5, s_5_11, -1, 8, 0},
165
+ /* 12 */ { 6, s_5_12, -1, 12, 0},
166
+ /* 13 */ { 5, s_5_13, -1, 11, 0},
167
+ /* 14 */ { 6, s_5_14, -1, 1, 0},
168
+ /* 15 */ { 7, s_5_15, 14, 7, 0},
169
+ /* 16 */ { 5, s_5_16, -1, 8, 0},
170
+ /* 17 */ { 5, s_5_17, -1, 7, 0},
171
+ /* 18 */ { 7, s_5_18, 17, 6, 0},
172
+ /* 19 */ { 4, s_5_19, -1, 6, 0},
173
+ /* 20 */ { 4, s_5_20, -1, 7, 0},
174
+ /* 21 */ { 7, s_5_21, -1, 11, 0},
175
+ /* 22 */ { 7, s_5_22, -1, 9, 0},
176
+ /* 23 */ { 7, s_5_23, -1, 10, 0}
177
+ };
178
+
179
+ static const symbol s_6_0[5] = { 'i', 'c', 'a', 't', 'e' };
180
+ static const symbol s_6_1[5] = { 'a', 't', 'i', 'v', 'e' };
181
+ static const symbol s_6_2[5] = { 'a', 'l', 'i', 'z', 'e' };
182
+ static const symbol s_6_3[5] = { 'i', 'c', 'i', 't', 'i' };
183
+ static const symbol s_6_4[4] = { 'i', 'c', 'a', 'l' };
184
+ static const symbol s_6_5[6] = { 't', 'i', 'o', 'n', 'a', 'l' };
185
+ static const symbol s_6_6[7] = { 'a', 't', 'i', 'o', 'n', 'a', 'l' };
186
+ static const symbol s_6_7[3] = { 'f', 'u', 'l' };
187
+ static const symbol s_6_8[4] = { 'n', 'e', 's', 's' };
188
+
189
+ static const struct among a_6[9] =
190
+ {
191
+ /* 0 */ { 5, s_6_0, -1, 4, 0},
192
+ /* 1 */ { 5, s_6_1, -1, 6, 0},
193
+ /* 2 */ { 5, s_6_2, -1, 3, 0},
194
+ /* 3 */ { 5, s_6_3, -1, 4, 0},
195
+ /* 4 */ { 4, s_6_4, -1, 4, 0},
196
+ /* 5 */ { 6, s_6_5, -1, 1, 0},
197
+ /* 6 */ { 7, s_6_6, 5, 2, 0},
198
+ /* 7 */ { 3, s_6_7, -1, 5, 0},
199
+ /* 8 */ { 4, s_6_8, -1, 5, 0}
200
+ };
201
+
202
+ static const symbol s_7_0[2] = { 'i', 'c' };
203
+ static const symbol s_7_1[4] = { 'a', 'n', 'c', 'e' };
204
+ static const symbol s_7_2[4] = { 'e', 'n', 'c', 'e' };
205
+ static const symbol s_7_3[4] = { 'a', 'b', 'l', 'e' };
206
+ static const symbol s_7_4[4] = { 'i', 'b', 'l', 'e' };
207
+ static const symbol s_7_5[3] = { 'a', 't', 'e' };
208
+ static const symbol s_7_6[3] = { 'i', 'v', 'e' };
209
+ static const symbol s_7_7[3] = { 'i', 'z', 'e' };
210
+ static const symbol s_7_8[3] = { 'i', 't', 'i' };
211
+ static const symbol s_7_9[2] = { 'a', 'l' };
212
+ static const symbol s_7_10[3] = { 'i', 's', 'm' };
213
+ static const symbol s_7_11[3] = { 'i', 'o', 'n' };
214
+ static const symbol s_7_12[2] = { 'e', 'r' };
215
+ static const symbol s_7_13[3] = { 'o', 'u', 's' };
216
+ static const symbol s_7_14[3] = { 'a', 'n', 't' };
217
+ static const symbol s_7_15[3] = { 'e', 'n', 't' };
218
+ static const symbol s_7_16[4] = { 'm', 'e', 'n', 't' };
219
+ static const symbol s_7_17[5] = { 'e', 'm', 'e', 'n', 't' };
220
+
221
+ static const struct among a_7[18] =
222
+ {
223
+ /* 0 */ { 2, s_7_0, -1, 1, 0},
224
+ /* 1 */ { 4, s_7_1, -1, 1, 0},
225
+ /* 2 */ { 4, s_7_2, -1, 1, 0},
226
+ /* 3 */ { 4, s_7_3, -1, 1, 0},
227
+ /* 4 */ { 4, s_7_4, -1, 1, 0},
228
+ /* 5 */ { 3, s_7_5, -1, 1, 0},
229
+ /* 6 */ { 3, s_7_6, -1, 1, 0},
230
+ /* 7 */ { 3, s_7_7, -1, 1, 0},
231
+ /* 8 */ { 3, s_7_8, -1, 1, 0},
232
+ /* 9 */ { 2, s_7_9, -1, 1, 0},
233
+ /* 10 */ { 3, s_7_10, -1, 1, 0},
234
+ /* 11 */ { 3, s_7_11, -1, 2, 0},
235
+ /* 12 */ { 2, s_7_12, -1, 1, 0},
236
+ /* 13 */ { 3, s_7_13, -1, 1, 0},
237
+ /* 14 */ { 3, s_7_14, -1, 1, 0},
238
+ /* 15 */ { 3, s_7_15, -1, 1, 0},
239
+ /* 16 */ { 4, s_7_16, 15, 1, 0},
240
+ /* 17 */ { 5, s_7_17, 16, 1, 0}
241
+ };
242
+
243
+ static const symbol s_8_0[1] = { 'e' };
244
+ static const symbol s_8_1[1] = { 'l' };
245
+
246
+ static const struct among a_8[2] =
247
+ {
248
+ /* 0 */ { 1, s_8_0, -1, 1, 0},
249
+ /* 1 */ { 1, s_8_1, -1, 2, 0}
250
+ };
251
+
252
+ static const symbol s_9_0[7] = { 's', 'u', 'c', 'c', 'e', 'e', 'd' };
253
+ static const symbol s_9_1[7] = { 'p', 'r', 'o', 'c', 'e', 'e', 'd' };
254
+ static const symbol s_9_2[6] = { 'e', 'x', 'c', 'e', 'e', 'd' };
255
+ static const symbol s_9_3[7] = { 'c', 'a', 'n', 'n', 'i', 'n', 'g' };
256
+ static const symbol s_9_4[6] = { 'i', 'n', 'n', 'i', 'n', 'g' };
257
+ static const symbol s_9_5[7] = { 'e', 'a', 'r', 'r', 'i', 'n', 'g' };
258
+ static const symbol s_9_6[7] = { 'h', 'e', 'r', 'r', 'i', 'n', 'g' };
259
+ static const symbol s_9_7[6] = { 'o', 'u', 't', 'i', 'n', 'g' };
260
+
261
+ static const struct among a_9[8] =
262
+ {
263
+ /* 0 */ { 7, s_9_0, -1, -1, 0},
264
+ /* 1 */ { 7, s_9_1, -1, -1, 0},
265
+ /* 2 */ { 6, s_9_2, -1, -1, 0},
266
+ /* 3 */ { 7, s_9_3, -1, -1, 0},
267
+ /* 4 */ { 6, s_9_4, -1, -1, 0},
268
+ /* 5 */ { 7, s_9_5, -1, -1, 0},
269
+ /* 6 */ { 7, s_9_6, -1, -1, 0},
270
+ /* 7 */ { 6, s_9_7, -1, -1, 0}
271
+ };
272
+
273
+ static const symbol s_10_0[5] = { 'a', 'n', 'd', 'e', 's' };
274
+ static const symbol s_10_1[5] = { 'a', 't', 'l', 'a', 's' };
275
+ static const symbol s_10_2[4] = { 'b', 'i', 'a', 's' };
276
+ static const symbol s_10_3[6] = { 'c', 'o', 's', 'm', 'o', 's' };
277
+ static const symbol s_10_4[5] = { 'd', 'y', 'i', 'n', 'g' };
278
+ static const symbol s_10_5[5] = { 'e', 'a', 'r', 'l', 'y' };
279
+ static const symbol s_10_6[6] = { 'g', 'e', 'n', 't', 'l', 'y' };
280
+ static const symbol s_10_7[4] = { 'h', 'o', 'w', 'e' };
281
+ static const symbol s_10_8[4] = { 'i', 'd', 'l', 'y' };
282
+ static const symbol s_10_9[5] = { 'l', 'y', 'i', 'n', 'g' };
283
+ static const symbol s_10_10[4] = { 'n', 'e', 'w', 's' };
284
+ static const symbol s_10_11[4] = { 'o', 'n', 'l', 'y' };
285
+ static const symbol s_10_12[6] = { 's', 'i', 'n', 'g', 'l', 'y' };
286
+ static const symbol s_10_13[5] = { 's', 'k', 'i', 'e', 's' };
287
+ static const symbol s_10_14[4] = { 's', 'k', 'i', 's' };
288
+ static const symbol s_10_15[3] = { 's', 'k', 'y' };
289
+ static const symbol s_10_16[5] = { 't', 'y', 'i', 'n', 'g' };
290
+ static const symbol s_10_17[4] = { 'u', 'g', 'l', 'y' };
291
+
292
+ static const struct among a_10[18] =
293
+ {
294
+ /* 0 */ { 5, s_10_0, -1, -1, 0},
295
+ /* 1 */ { 5, s_10_1, -1, -1, 0},
296
+ /* 2 */ { 4, s_10_2, -1, -1, 0},
297
+ /* 3 */ { 6, s_10_3, -1, -1, 0},
298
+ /* 4 */ { 5, s_10_4, -1, 3, 0},
299
+ /* 5 */ { 5, s_10_5, -1, 9, 0},
300
+ /* 6 */ { 6, s_10_6, -1, 7, 0},
301
+ /* 7 */ { 4, s_10_7, -1, -1, 0},
302
+ /* 8 */ { 4, s_10_8, -1, 6, 0},
303
+ /* 9 */ { 5, s_10_9, -1, 4, 0},
304
+ /* 10 */ { 4, s_10_10, -1, -1, 0},
305
+ /* 11 */ { 4, s_10_11, -1, 10, 0},
306
+ /* 12 */ { 6, s_10_12, -1, 11, 0},
307
+ /* 13 */ { 5, s_10_13, -1, 2, 0},
308
+ /* 14 */ { 4, s_10_14, -1, 1, 0},
309
+ /* 15 */ { 3, s_10_15, -1, -1, 0},
310
+ /* 16 */ { 5, s_10_16, -1, 5, 0},
311
+ /* 17 */ { 4, s_10_17, -1, 8, 0}
312
+ };
313
+
314
+ static const unsigned char g_v[] = { 17, 65, 16, 1 };
315
+
316
+ static const unsigned char g_v_WXY[] = { 1, 17, 65, 208, 1 };
317
+
318
+ static const unsigned char g_valid_LI[] = { 55, 141, 2 };
319
+
320
+ static const symbol s_0[] = { '\'' };
321
+ static const symbol s_1[] = { 'y' };
322
+ static const symbol s_2[] = { 'Y' };
323
+ static const symbol s_3[] = { 'y' };
324
+ static const symbol s_4[] = { 'Y' };
325
+ static const symbol s_5[] = { 's', 's' };
326
+ static const symbol s_6[] = { 'i' };
327
+ static const symbol s_7[] = { 'i', 'e' };
328
+ static const symbol s_8[] = { 'e', 'e' };
329
+ static const symbol s_9[] = { 'e' };
330
+ static const symbol s_10[] = { 'e' };
331
+ static const symbol s_11[] = { 'y' };
332
+ static const symbol s_12[] = { 'Y' };
333
+ static const symbol s_13[] = { 'i' };
334
+ static const symbol s_14[] = { 't', 'i', 'o', 'n' };
335
+ static const symbol s_15[] = { 'e', 'n', 'c', 'e' };
336
+ static const symbol s_16[] = { 'a', 'n', 'c', 'e' };
337
+ static const symbol s_17[] = { 'a', 'b', 'l', 'e' };
338
+ static const symbol s_18[] = { 'e', 'n', 't' };
339
+ static const symbol s_19[] = { 'i', 'z', 'e' };
340
+ static const symbol s_20[] = { 'a', 't', 'e' };
341
+ static const symbol s_21[] = { 'a', 'l' };
342
+ static const symbol s_22[] = { 'f', 'u', 'l' };
343
+ static const symbol s_23[] = { 'o', 'u', 's' };
344
+ static const symbol s_24[] = { 'i', 'v', 'e' };
345
+ static const symbol s_25[] = { 'b', 'l', 'e' };
346
+ static const symbol s_26[] = { 'l' };
347
+ static const symbol s_27[] = { 'o', 'g' };
348
+ static const symbol s_28[] = { 'f', 'u', 'l' };
349
+ static const symbol s_29[] = { 'l', 'e', 's', 's' };
350
+ static const symbol s_30[] = { 't', 'i', 'o', 'n' };
351
+ static const symbol s_31[] = { 'a', 't', 'e' };
352
+ static const symbol s_32[] = { 'a', 'l' };
353
+ static const symbol s_33[] = { 'i', 'c' };
354
+ static const symbol s_34[] = { 's' };
355
+ static const symbol s_35[] = { 't' };
356
+ static const symbol s_36[] = { 'l' };
357
+ static const symbol s_37[] = { 's', 'k', 'i' };
358
+ static const symbol s_38[] = { 's', 'k', 'y' };
359
+ static const symbol s_39[] = { 'd', 'i', 'e' };
360
+ static const symbol s_40[] = { 'l', 'i', 'e' };
361
+ static const symbol s_41[] = { 't', 'i', 'e' };
362
+ static const symbol s_42[] = { 'i', 'd', 'l' };
363
+ static const symbol s_43[] = { 'g', 'e', 'n', 't', 'l' };
364
+ static const symbol s_44[] = { 'u', 'g', 'l', 'i' };
365
+ static const symbol s_45[] = { 'e', 'a', 'r', 'l', 'i' };
366
+ static const symbol s_46[] = { 'o', 'n', 'l', 'i' };
367
+ static const symbol s_47[] = { 's', 'i', 'n', 'g', 'l' };
368
+ static const symbol s_48[] = { 'Y' };
369
+ static const symbol s_49[] = { 'y' };
370
+
371
+ static int r_prelude(struct SN_env * z) {
372
+ z->B[0] = 0; /* unset Y_found, line 26 */
373
+ { int c1 = z->c; /* do, line 27 */
374
+ z->bra = z->c; /* [, line 27 */
375
+ if (!(eq_s(z, 1, s_0))) goto lab0;
376
+ z->ket = z->c; /* ], line 27 */
377
+ { int ret = slice_del(z); /* delete, line 27 */
378
+ if (ret < 0) return ret;
379
+ }
380
+ lab0:
381
+ z->c = c1;
382
+ }
383
+ { int c2 = z->c; /* do, line 28 */
384
+ z->bra = z->c; /* [, line 28 */
385
+ if (!(eq_s(z, 1, s_1))) goto lab1;
386
+ z->ket = z->c; /* ], line 28 */
387
+ { int ret = slice_from_s(z, 1, s_2); /* <-, line 28 */
388
+ if (ret < 0) return ret;
389
+ }
390
+ z->B[0] = 1; /* set Y_found, line 28 */
391
+ lab1:
392
+ z->c = c2;
393
+ }
394
+ { int c3 = z->c; /* do, line 29 */
395
+ while(1) { /* repeat, line 29 */
396
+ int c4 = z->c;
397
+ while(1) { /* goto, line 29 */
398
+ int c5 = z->c;
399
+ if (in_grouping_U(z, g_v, 97, 121, 0)) goto lab4;
400
+ z->bra = z->c; /* [, line 29 */
401
+ if (!(eq_s(z, 1, s_3))) goto lab4;
402
+ z->ket = z->c; /* ], line 29 */
403
+ z->c = c5;
404
+ break;
405
+ lab4:
406
+ z->c = c5;
407
+ { int ret = skip_utf8(z->p, z->c, 0, z->l, 1);
408
+ if (ret < 0) goto lab3;
409
+ z->c = ret; /* goto, line 29 */
410
+ }
411
+ }
412
+ { int ret = slice_from_s(z, 1, s_4); /* <-, line 29 */
413
+ if (ret < 0) return ret;
414
+ }
415
+ z->B[0] = 1; /* set Y_found, line 29 */
416
+ continue;
417
+ lab3:
418
+ z->c = c4;
419
+ break;
420
+ }
421
+ z->c = c3;
422
+ }
423
+ return 1;
424
+ }
425
+
426
+ static int r_mark_regions(struct SN_env * z) {
427
+ z->I[0] = z->l;
428
+ z->I[1] = z->l;
429
+ { int c1 = z->c; /* do, line 35 */
430
+ { int c2 = z->c; /* or, line 41 */
431
+ if (z->c + 4 >= z->l || z->p[z->c + 4] >> 5 != 3 || !((2375680 >> (z->p[z->c + 4] & 0x1f)) & 1)) goto lab2;
432
+ if (!(find_among(z, a_0, 3))) goto lab2; /* among, line 36 */
433
+ goto lab1;
434
+ lab2:
435
+ z->c = c2;
436
+ { /* gopast */ /* grouping v, line 41 */
437
+ int ret = out_grouping_U(z, g_v, 97, 121, 1);
438
+ if (ret < 0) goto lab0;
439
+ z->c += ret;
440
+ }
441
+ { /* gopast */ /* non v, line 41 */
442
+ int ret = in_grouping_U(z, g_v, 97, 121, 1);
443
+ if (ret < 0) goto lab0;
444
+ z->c += ret;
445
+ }
446
+ }
447
+ lab1:
448
+ z->I[0] = z->c; /* setmark p1, line 42 */
449
+ { /* gopast */ /* grouping v, line 43 */
450
+ int ret = out_grouping_U(z, g_v, 97, 121, 1);
451
+ if (ret < 0) goto lab0;
452
+ z->c += ret;
453
+ }
454
+ { /* gopast */ /* non v, line 43 */
455
+ int ret = in_grouping_U(z, g_v, 97, 121, 1);
456
+ if (ret < 0) goto lab0;
457
+ z->c += ret;
458
+ }
459
+ z->I[1] = z->c; /* setmark p2, line 43 */
460
+ lab0:
461
+ z->c = c1;
462
+ }
463
+ return 1;
464
+ }
465
+
466
+ static int r_shortv(struct SN_env * z) {
467
+ { int m1 = z->l - z->c; (void)m1; /* or, line 51 */
468
+ if (out_grouping_b_U(z, g_v_WXY, 89, 121, 0)) goto lab1;
469
+ if (in_grouping_b_U(z, g_v, 97, 121, 0)) goto lab1;
470
+ if (out_grouping_b_U(z, g_v, 97, 121, 0)) goto lab1;
471
+ goto lab0;
472
+ lab1:
473
+ z->c = z->l - m1;
474
+ if (out_grouping_b_U(z, g_v, 97, 121, 0)) return 0;
475
+ if (in_grouping_b_U(z, g_v, 97, 121, 0)) return 0;
476
+ if (z->c > z->lb) return 0; /* atlimit, line 52 */
477
+ }
478
+ lab0:
479
+ return 1;
480
+ }
481
+
482
+ static int r_R1(struct SN_env * z) {
483
+ if (!(z->I[0] <= z->c)) return 0;
484
+ return 1;
485
+ }
486
+
487
+ static int r_R2(struct SN_env * z) {
488
+ if (!(z->I[1] <= z->c)) return 0;
489
+ return 1;
490
+ }
491
+
492
+ static int r_Step_1a(struct SN_env * z) {
493
+ int among_var;
494
+ { int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 59 */
495
+ z->ket = z->c; /* [, line 60 */
496
+ if (z->c <= z->lb || (z->p[z->c - 1] != 39 && z->p[z->c - 1] != 115)) { z->c = z->l - m_keep; goto lab0; }
497
+ among_var = find_among_b(z, a_1, 3); /* substring, line 60 */
498
+ if (!(among_var)) { z->c = z->l - m_keep; goto lab0; }
499
+ z->bra = z->c; /* ], line 60 */
500
+ switch(among_var) {
501
+ case 0: { z->c = z->l - m_keep; goto lab0; }
502
+ case 1:
503
+ { int ret = slice_del(z); /* delete, line 62 */
504
+ if (ret < 0) return ret;
505
+ }
506
+ break;
507
+ }
508
+ lab0:
509
+ ;
510
+ }
511
+ z->ket = z->c; /* [, line 65 */
512
+ if (z->c <= z->lb || (z->p[z->c - 1] != 100 && z->p[z->c - 1] != 115)) return 0;
513
+ among_var = find_among_b(z, a_2, 6); /* substring, line 65 */
514
+ if (!(among_var)) return 0;
515
+ z->bra = z->c; /* ], line 65 */
516
+ switch(among_var) {
517
+ case 0: return 0;
518
+ case 1:
519
+ { int ret = slice_from_s(z, 2, s_5); /* <-, line 66 */
520
+ if (ret < 0) return ret;
521
+ }
522
+ break;
523
+ case 2:
524
+ { int m1 = z->l - z->c; (void)m1; /* or, line 68 */
525
+ { int ret = skip_utf8(z->p, z->c, z->lb, z->l, - 2);
526
+ if (ret < 0) goto lab2;
527
+ z->c = ret; /* hop, line 68 */
528
+ }
529
+ { int ret = slice_from_s(z, 1, s_6); /* <-, line 68 */
530
+ if (ret < 0) return ret;
531
+ }
532
+ goto lab1;
533
+ lab2:
534
+ z->c = z->l - m1;
535
+ { int ret = slice_from_s(z, 2, s_7); /* <-, line 68 */
536
+ if (ret < 0) return ret;
537
+ }
538
+ }
539
+ lab1:
540
+ break;
541
+ case 3:
542
+ { int ret = skip_utf8(z->p, z->c, z->lb, 0, -1);
543
+ if (ret < 0) return 0;
544
+ z->c = ret; /* next, line 69 */
545
+ }
546
+ { /* gopast */ /* grouping v, line 69 */
547
+ int ret = out_grouping_b_U(z, g_v, 97, 121, 1);
548
+ if (ret < 0) return 0;
549
+ z->c -= ret;
550
+ }
551
+ { int ret = slice_del(z); /* delete, line 69 */
552
+ if (ret < 0) return ret;
553
+ }
554
+ break;
555
+ }
556
+ return 1;
557
+ }
558
+
559
+ static int r_Step_1b(struct SN_env * z) {
560
+ int among_var;
561
+ z->ket = z->c; /* [, line 75 */
562
+ if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((33554576 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
563
+ among_var = find_among_b(z, a_4, 6); /* substring, line 75 */
564
+ if (!(among_var)) return 0;
565
+ z->bra = z->c; /* ], line 75 */
566
+ switch(among_var) {
567
+ case 0: return 0;
568
+ case 1:
569
+ { int ret = r_R1(z);
570
+ if (ret == 0) return 0; /* call R1, line 77 */
571
+ if (ret < 0) return ret;
572
+ }
573
+ { int ret = slice_from_s(z, 2, s_8); /* <-, line 77 */
574
+ if (ret < 0) return ret;
575
+ }
576
+ break;
577
+ case 2:
578
+ { int m_test = z->l - z->c; /* test, line 80 */
579
+ { /* gopast */ /* grouping v, line 80 */
580
+ int ret = out_grouping_b_U(z, g_v, 97, 121, 1);
581
+ if (ret < 0) return 0;
582
+ z->c -= ret;
583
+ }
584
+ z->c = z->l - m_test;
585
+ }
586
+ { int ret = slice_del(z); /* delete, line 80 */
587
+ if (ret < 0) return ret;
588
+ }
589
+ { int m_test = z->l - z->c; /* test, line 81 */
590
+ 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
591
+ among_var = find_among_b(z, a_3, 13); /* substring, line 81 */
592
+ if (!(among_var)) return 0;
593
+ z->c = z->l - m_test;
594
+ }
595
+ switch(among_var) {
596
+ case 0: return 0;
597
+ case 1:
598
+ { int c_keep = z->c;
599
+ int ret = insert_s(z, z->c, z->c, 1, s_9); /* <+, line 83 */
600
+ z->c = c_keep;
601
+ if (ret < 0) return ret;
602
+ }
603
+ break;
604
+ case 2:
605
+ z->ket = z->c; /* [, line 86 */
606
+ { int ret = skip_utf8(z->p, z->c, z->lb, 0, -1);
607
+ if (ret < 0) return 0;
608
+ z->c = ret; /* next, line 86 */
609
+ }
610
+ z->bra = z->c; /* ], line 86 */
611
+ { int ret = slice_del(z); /* delete, line 86 */
612
+ if (ret < 0) return ret;
613
+ }
614
+ break;
615
+ case 3:
616
+ if (z->c != z->I[0]) return 0; /* atmark, line 87 */
617
+ { int m_test = z->l - z->c; /* test, line 87 */
618
+ { int ret = r_shortv(z);
619
+ if (ret == 0) return 0; /* call shortv, line 87 */
620
+ if (ret < 0) return ret;
621
+ }
622
+ z->c = z->l - m_test;
623
+ }
624
+ { int c_keep = z->c;
625
+ int ret = insert_s(z, z->c, z->c, 1, s_10); /* <+, line 87 */
626
+ z->c = c_keep;
627
+ if (ret < 0) return ret;
628
+ }
629
+ break;
630
+ }
631
+ break;
632
+ }
633
+ return 1;
634
+ }
635
+
636
+ static int r_Step_1c(struct SN_env * z) {
637
+ z->ket = z->c; /* [, line 94 */
638
+ { int m1 = z->l - z->c; (void)m1; /* or, line 94 */
639
+ if (!(eq_s_b(z, 1, s_11))) goto lab1;
640
+ goto lab0;
641
+ lab1:
642
+ z->c = z->l - m1;
643
+ if (!(eq_s_b(z, 1, s_12))) return 0;
644
+ }
645
+ lab0:
646
+ z->bra = z->c; /* ], line 94 */
647
+ if (out_grouping_b_U(z, g_v, 97, 121, 0)) return 0;
648
+ { int m2 = z->l - z->c; (void)m2; /* not, line 95 */
649
+ if (z->c > z->lb) goto lab2; /* atlimit, line 95 */
650
+ return 0;
651
+ lab2:
652
+ z->c = z->l - m2;
653
+ }
654
+ { int ret = slice_from_s(z, 1, s_13); /* <-, line 96 */
655
+ if (ret < 0) return ret;
656
+ }
657
+ return 1;
658
+ }
659
+
660
+ static int r_Step_2(struct SN_env * z) {
661
+ int among_var;
662
+ z->ket = z->c; /* [, line 100 */
663
+ if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((815616 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
664
+ among_var = find_among_b(z, a_5, 24); /* substring, line 100 */
665
+ if (!(among_var)) return 0;
666
+ z->bra = z->c; /* ], line 100 */
667
+ { int ret = r_R1(z);
668
+ if (ret == 0) return 0; /* call R1, line 100 */
669
+ if (ret < 0) return ret;
670
+ }
671
+ switch(among_var) {
672
+ case 0: return 0;
673
+ case 1:
674
+ { int ret = slice_from_s(z, 4, s_14); /* <-, line 101 */
675
+ if (ret < 0) return ret;
676
+ }
677
+ break;
678
+ case 2:
679
+ { int ret = slice_from_s(z, 4, s_15); /* <-, line 102 */
680
+ if (ret < 0) return ret;
681
+ }
682
+ break;
683
+ case 3:
684
+ { int ret = slice_from_s(z, 4, s_16); /* <-, line 103 */
685
+ if (ret < 0) return ret;
686
+ }
687
+ break;
688
+ case 4:
689
+ { int ret = slice_from_s(z, 4, s_17); /* <-, line 104 */
690
+ if (ret < 0) return ret;
691
+ }
692
+ break;
693
+ case 5:
694
+ { int ret = slice_from_s(z, 3, s_18); /* <-, line 105 */
695
+ if (ret < 0) return ret;
696
+ }
697
+ break;
698
+ case 6:
699
+ { int ret = slice_from_s(z, 3, s_19); /* <-, line 107 */
700
+ if (ret < 0) return ret;
701
+ }
702
+ break;
703
+ case 7:
704
+ { int ret = slice_from_s(z, 3, s_20); /* <-, line 109 */
705
+ if (ret < 0) return ret;
706
+ }
707
+ break;
708
+ case 8:
709
+ { int ret = slice_from_s(z, 2, s_21); /* <-, line 111 */
710
+ if (ret < 0) return ret;
711
+ }
712
+ break;
713
+ case 9:
714
+ { int ret = slice_from_s(z, 3, s_22); /* <-, line 112 */
715
+ if (ret < 0) return ret;
716
+ }
717
+ break;
718
+ case 10:
719
+ { int ret = slice_from_s(z, 3, s_23); /* <-, line 114 */
720
+ if (ret < 0) return ret;
721
+ }
722
+ break;
723
+ case 11:
724
+ { int ret = slice_from_s(z, 3, s_24); /* <-, line 116 */
725
+ if (ret < 0) return ret;
726
+ }
727
+ break;
728
+ case 12:
729
+ { int ret = slice_from_s(z, 3, s_25); /* <-, line 118 */
730
+ if (ret < 0) return ret;
731
+ }
732
+ break;
733
+ case 13:
734
+ if (!(eq_s_b(z, 1, s_26))) return 0;
735
+ { int ret = slice_from_s(z, 2, s_27); /* <-, line 119 */
736
+ if (ret < 0) return ret;
737
+ }
738
+ break;
739
+ case 14:
740
+ { int ret = slice_from_s(z, 3, s_28); /* <-, line 120 */
741
+ if (ret < 0) return ret;
742
+ }
743
+ break;
744
+ case 15:
745
+ { int ret = slice_from_s(z, 4, s_29); /* <-, line 121 */
746
+ if (ret < 0) return ret;
747
+ }
748
+ break;
749
+ case 16:
750
+ if (in_grouping_b_U(z, g_valid_LI, 99, 116, 0)) return 0;
751
+ { int ret = slice_del(z); /* delete, line 122 */
752
+ if (ret < 0) return ret;
753
+ }
754
+ break;
755
+ }
756
+ return 1;
757
+ }
758
+
759
+ static int r_Step_3(struct SN_env * z) {
760
+ int among_var;
761
+ z->ket = z->c; /* [, line 127 */
762
+ if (z->c - 2 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((528928 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
763
+ among_var = find_among_b(z, a_6, 9); /* substring, line 127 */
764
+ if (!(among_var)) return 0;
765
+ z->bra = z->c; /* ], line 127 */
766
+ { int ret = r_R1(z);
767
+ if (ret == 0) return 0; /* call R1, line 127 */
768
+ if (ret < 0) return ret;
769
+ }
770
+ switch(among_var) {
771
+ case 0: return 0;
772
+ case 1:
773
+ { int ret = slice_from_s(z, 4, s_30); /* <-, line 128 */
774
+ if (ret < 0) return ret;
775
+ }
776
+ break;
777
+ case 2:
778
+ { int ret = slice_from_s(z, 3, s_31); /* <-, line 129 */
779
+ if (ret < 0) return ret;
780
+ }
781
+ break;
782
+ case 3:
783
+ { int ret = slice_from_s(z, 2, s_32); /* <-, line 130 */
784
+ if (ret < 0) return ret;
785
+ }
786
+ break;
787
+ case 4:
788
+ { int ret = slice_from_s(z, 2, s_33); /* <-, line 132 */
789
+ if (ret < 0) return ret;
790
+ }
791
+ break;
792
+ case 5:
793
+ { int ret = slice_del(z); /* delete, line 134 */
794
+ if (ret < 0) return ret;
795
+ }
796
+ break;
797
+ case 6:
798
+ { int ret = r_R2(z);
799
+ if (ret == 0) return 0; /* call R2, line 136 */
800
+ if (ret < 0) return ret;
801
+ }
802
+ { int ret = slice_del(z); /* delete, line 136 */
803
+ if (ret < 0) return ret;
804
+ }
805
+ break;
806
+ }
807
+ return 1;
808
+ }
809
+
810
+ static int r_Step_4(struct SN_env * z) {
811
+ int among_var;
812
+ z->ket = z->c; /* [, line 141 */
813
+ if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1864232 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
814
+ among_var = find_among_b(z, a_7, 18); /* substring, line 141 */
815
+ if (!(among_var)) return 0;
816
+ z->bra = z->c; /* ], line 141 */
817
+ { int ret = r_R2(z);
818
+ if (ret == 0) return 0; /* call R2, line 141 */
819
+ if (ret < 0) return ret;
820
+ }
821
+ switch(among_var) {
822
+ case 0: return 0;
823
+ case 1:
824
+ { int ret = slice_del(z); /* delete, line 144 */
825
+ if (ret < 0) return ret;
826
+ }
827
+ break;
828
+ case 2:
829
+ { int m1 = z->l - z->c; (void)m1; /* or, line 145 */
830
+ if (!(eq_s_b(z, 1, s_34))) goto lab1;
831
+ goto lab0;
832
+ lab1:
833
+ z->c = z->l - m1;
834
+ if (!(eq_s_b(z, 1, s_35))) return 0;
835
+ }
836
+ lab0:
837
+ { int ret = slice_del(z); /* delete, line 145 */
838
+ if (ret < 0) return ret;
839
+ }
840
+ break;
841
+ }
842
+ return 1;
843
+ }
844
+
845
+ static int r_Step_5(struct SN_env * z) {
846
+ int among_var;
847
+ z->ket = z->c; /* [, line 150 */
848
+ if (z->c <= z->lb || (z->p[z->c - 1] != 101 && z->p[z->c - 1] != 108)) return 0;
849
+ among_var = find_among_b(z, a_8, 2); /* substring, line 150 */
850
+ if (!(among_var)) return 0;
851
+ z->bra = z->c; /* ], line 150 */
852
+ switch(among_var) {
853
+ case 0: return 0;
854
+ case 1:
855
+ { int m1 = z->l - z->c; (void)m1; /* or, line 151 */
856
+ { int ret = r_R2(z);
857
+ if (ret == 0) goto lab1; /* call R2, line 151 */
858
+ if (ret < 0) return ret;
859
+ }
860
+ goto lab0;
861
+ lab1:
862
+ z->c = z->l - m1;
863
+ { int ret = r_R1(z);
864
+ if (ret == 0) return 0; /* call R1, line 151 */
865
+ if (ret < 0) return ret;
866
+ }
867
+ { int m2 = z->l - z->c; (void)m2; /* not, line 151 */
868
+ { int ret = r_shortv(z);
869
+ if (ret == 0) goto lab2; /* call shortv, line 151 */
870
+ if (ret < 0) return ret;
871
+ }
872
+ return 0;
873
+ lab2:
874
+ z->c = z->l - m2;
875
+ }
876
+ }
877
+ lab0:
878
+ { int ret = slice_del(z); /* delete, line 151 */
879
+ if (ret < 0) return ret;
880
+ }
881
+ break;
882
+ case 2:
883
+ { int ret = r_R2(z);
884
+ if (ret == 0) return 0; /* call R2, line 152 */
885
+ if (ret < 0) return ret;
886
+ }
887
+ if (!(eq_s_b(z, 1, s_36))) return 0;
888
+ { int ret = slice_del(z); /* delete, line 152 */
889
+ if (ret < 0) return ret;
890
+ }
891
+ break;
892
+ }
893
+ return 1;
894
+ }
895
+
896
+ static int r_exception2(struct SN_env * z) {
897
+ z->ket = z->c; /* [, line 158 */
898
+ if (z->c - 5 <= z->lb || (z->p[z->c - 1] != 100 && z->p[z->c - 1] != 103)) return 0;
899
+ if (!(find_among_b(z, a_9, 8))) return 0; /* substring, line 158 */
900
+ z->bra = z->c; /* ], line 158 */
901
+ if (z->c > z->lb) return 0; /* atlimit, line 158 */
902
+ return 1;
903
+ }
904
+
905
+ static int r_exception1(struct SN_env * z) {
906
+ int among_var;
907
+ z->bra = z->c; /* [, line 170 */
908
+ if (z->c + 2 >= z->l || z->p[z->c + 2] >> 5 != 3 || !((42750482 >> (z->p[z->c + 2] & 0x1f)) & 1)) return 0;
909
+ among_var = find_among(z, a_10, 18); /* substring, line 170 */
910
+ if (!(among_var)) return 0;
911
+ z->ket = z->c; /* ], line 170 */
912
+ if (z->c < z->l) return 0; /* atlimit, line 170 */
913
+ switch(among_var) {
914
+ case 0: return 0;
915
+ case 1:
916
+ { int ret = slice_from_s(z, 3, s_37); /* <-, line 174 */
917
+ if (ret < 0) return ret;
918
+ }
919
+ break;
920
+ case 2:
921
+ { int ret = slice_from_s(z, 3, s_38); /* <-, line 175 */
922
+ if (ret < 0) return ret;
923
+ }
924
+ break;
925
+ case 3:
926
+ { int ret = slice_from_s(z, 3, s_39); /* <-, line 176 */
927
+ if (ret < 0) return ret;
928
+ }
929
+ break;
930
+ case 4:
931
+ { int ret = slice_from_s(z, 3, s_40); /* <-, line 177 */
932
+ if (ret < 0) return ret;
933
+ }
934
+ break;
935
+ case 5:
936
+ { int ret = slice_from_s(z, 3, s_41); /* <-, line 178 */
937
+ if (ret < 0) return ret;
938
+ }
939
+ break;
940
+ case 6:
941
+ { int ret = slice_from_s(z, 3, s_42); /* <-, line 182 */
942
+ if (ret < 0) return ret;
943
+ }
944
+ break;
945
+ case 7:
946
+ { int ret = slice_from_s(z, 5, s_43); /* <-, line 183 */
947
+ if (ret < 0) return ret;
948
+ }
949
+ break;
950
+ case 8:
951
+ { int ret = slice_from_s(z, 4, s_44); /* <-, line 184 */
952
+ if (ret < 0) return ret;
953
+ }
954
+ break;
955
+ case 9:
956
+ { int ret = slice_from_s(z, 5, s_45); /* <-, line 185 */
957
+ if (ret < 0) return ret;
958
+ }
959
+ break;
960
+ case 10:
961
+ { int ret = slice_from_s(z, 4, s_46); /* <-, line 186 */
962
+ if (ret < 0) return ret;
963
+ }
964
+ break;
965
+ case 11:
966
+ { int ret = slice_from_s(z, 5, s_47); /* <-, line 187 */
967
+ if (ret < 0) return ret;
968
+ }
969
+ break;
970
+ }
971
+ return 1;
972
+ }
973
+
974
+ static int r_postlude(struct SN_env * z) {
975
+ if (!(z->B[0])) return 0; /* Boolean test Y_found, line 203 */
976
+ while(1) { /* repeat, line 203 */
977
+ int c1 = z->c;
978
+ while(1) { /* goto, line 203 */
979
+ int c2 = z->c;
980
+ z->bra = z->c; /* [, line 203 */
981
+ if (!(eq_s(z, 1, s_48))) goto lab1;
982
+ z->ket = z->c; /* ], line 203 */
983
+ z->c = c2;
984
+ break;
985
+ lab1:
986
+ z->c = c2;
987
+ { int ret = skip_utf8(z->p, z->c, 0, z->l, 1);
988
+ if (ret < 0) goto lab0;
989
+ z->c = ret; /* goto, line 203 */
990
+ }
991
+ }
992
+ { int ret = slice_from_s(z, 1, s_49); /* <-, line 203 */
993
+ if (ret < 0) return ret;
994
+ }
995
+ continue;
996
+ lab0:
997
+ z->c = c1;
998
+ break;
999
+ }
1000
+ return 1;
1001
+ }
1002
+
1003
+ extern int english_UTF_8_stem(struct SN_env * z) {
1004
+ { int c1 = z->c; /* or, line 207 */
1005
+ { int ret = r_exception1(z);
1006
+ if (ret == 0) goto lab1; /* call exception1, line 207 */
1007
+ if (ret < 0) return ret;
1008
+ }
1009
+ goto lab0;
1010
+ lab1:
1011
+ z->c = c1;
1012
+ { int c2 = z->c; /* not, line 208 */
1013
+ { int ret = skip_utf8(z->p, z->c, 0, z->l, + 3);
1014
+ if (ret < 0) goto lab3;
1015
+ z->c = ret; /* hop, line 208 */
1016
+ }
1017
+ goto lab2;
1018
+ lab3:
1019
+ z->c = c2;
1020
+ }
1021
+ goto lab0;
1022
+ lab2:
1023
+ z->c = c1;
1024
+ { int c3 = z->c; /* do, line 209 */
1025
+ { int ret = r_prelude(z);
1026
+ if (ret == 0) goto lab4; /* call prelude, line 209 */
1027
+ if (ret < 0) return ret;
1028
+ }
1029
+ lab4:
1030
+ z->c = c3;
1031
+ }
1032
+ { int c4 = z->c; /* do, line 210 */
1033
+ { int ret = r_mark_regions(z);
1034
+ if (ret == 0) goto lab5; /* call mark_regions, line 210 */
1035
+ if (ret < 0) return ret;
1036
+ }
1037
+ lab5:
1038
+ z->c = c4;
1039
+ }
1040
+ z->lb = z->c; z->c = z->l; /* backwards, line 211 */
1041
+
1042
+ { int m5 = z->l - z->c; (void)m5; /* do, line 213 */
1043
+ { int ret = r_Step_1a(z);
1044
+ if (ret == 0) goto lab6; /* call Step_1a, line 213 */
1045
+ if (ret < 0) return ret;
1046
+ }
1047
+ lab6:
1048
+ z->c = z->l - m5;
1049
+ }
1050
+ { int m6 = z->l - z->c; (void)m6; /* or, line 215 */
1051
+ { int ret = r_exception2(z);
1052
+ if (ret == 0) goto lab8; /* call exception2, line 215 */
1053
+ if (ret < 0) return ret;
1054
+ }
1055
+ goto lab7;
1056
+ lab8:
1057
+ z->c = z->l - m6;
1058
+ { int m7 = z->l - z->c; (void)m7; /* do, line 217 */
1059
+ { int ret = r_Step_1b(z);
1060
+ if (ret == 0) goto lab9; /* call Step_1b, line 217 */
1061
+ if (ret < 0) return ret;
1062
+ }
1063
+ lab9:
1064
+ z->c = z->l - m7;
1065
+ }
1066
+ { int m8 = z->l - z->c; (void)m8; /* do, line 218 */
1067
+ { int ret = r_Step_1c(z);
1068
+ if (ret == 0) goto lab10; /* call Step_1c, line 218 */
1069
+ if (ret < 0) return ret;
1070
+ }
1071
+ lab10:
1072
+ z->c = z->l - m8;
1073
+ }
1074
+ { int m9 = z->l - z->c; (void)m9; /* do, line 220 */
1075
+ { int ret = r_Step_2(z);
1076
+ if (ret == 0) goto lab11; /* call Step_2, line 220 */
1077
+ if (ret < 0) return ret;
1078
+ }
1079
+ lab11:
1080
+ z->c = z->l - m9;
1081
+ }
1082
+ { int m10 = z->l - z->c; (void)m10; /* do, line 221 */
1083
+ { int ret = r_Step_3(z);
1084
+ if (ret == 0) goto lab12; /* call Step_3, line 221 */
1085
+ if (ret < 0) return ret;
1086
+ }
1087
+ lab12:
1088
+ z->c = z->l - m10;
1089
+ }
1090
+ { int m11 = z->l - z->c; (void)m11; /* do, line 222 */
1091
+ { int ret = r_Step_4(z);
1092
+ if (ret == 0) goto lab13; /* call Step_4, line 222 */
1093
+ if (ret < 0) return ret;
1094
+ }
1095
+ lab13:
1096
+ z->c = z->l - m11;
1097
+ }
1098
+ { int m12 = z->l - z->c; (void)m12; /* do, line 224 */
1099
+ { int ret = r_Step_5(z);
1100
+ if (ret == 0) goto lab14; /* call Step_5, line 224 */
1101
+ if (ret < 0) return ret;
1102
+ }
1103
+ lab14:
1104
+ z->c = z->l - m12;
1105
+ }
1106
+ }
1107
+ lab7:
1108
+ z->c = z->lb;
1109
+ { int c13 = z->c; /* do, line 227 */
1110
+ { int ret = r_postlude(z);
1111
+ if (ret == 0) goto lab15; /* call postlude, line 227 */
1112
+ if (ret < 0) return ret;
1113
+ }
1114
+ lab15:
1115
+ z->c = c13;
1116
+ }
1117
+ }
1118
+ lab0:
1119
+ return 1;
1120
+ }
1121
+
1122
+ extern struct SN_env * english_UTF_8_create_env(void) { return SN_create_env(0, 2, 1); }
1123
+
1124
+ extern void english_UTF_8_close_env(struct SN_env * z) { SN_close_env(z, 0); }
1125
+