ruby-stemmer 0.9.2-x86-mswin32

Sign up to get free protection for your applications and to get access to all the features.
Files changed (97) hide show
  1. data/MIT-LICENSE +21 -0
  2. data/README.rdoc +108 -0
  3. data/Rakefile +70 -0
  4. data/TODO +0 -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/1.8/stemmer_native.so +0 -0
  9. data/lib/lingua/1.9/stemmer_native.so +0 -0
  10. data/lib/lingua/stemmer.rb +60 -0
  11. data/libstemmer_c/MANIFEST +72 -0
  12. data/libstemmer_c/Makefile +9 -0
  13. data/libstemmer_c/Makefile.windows +15 -0
  14. data/libstemmer_c/README +125 -0
  15. data/libstemmer_c/examples/stemwords.c +209 -0
  16. data/libstemmer_c/include/libstemmer.h +79 -0
  17. data/libstemmer_c/libstemmer/libstemmer.c +93 -0
  18. data/libstemmer_c/libstemmer/libstemmer_utf8.c +93 -0
  19. data/libstemmer_c/libstemmer/modules.h +195 -0
  20. data/libstemmer_c/libstemmer/modules.txt +51 -0
  21. data/libstemmer_c/libstemmer/modules_utf8.h +123 -0
  22. data/libstemmer_c/libstemmer/modules_utf8.txt +50 -0
  23. data/libstemmer_c/mkinc.mak +86 -0
  24. data/libstemmer_c/mkinc_utf8.mak +54 -0
  25. data/libstemmer_c/runtime/api.c +66 -0
  26. data/libstemmer_c/runtime/api.h +26 -0
  27. data/libstemmer_c/runtime/header.h +58 -0
  28. data/libstemmer_c/runtime/utilities.c +478 -0
  29. data/libstemmer_c/src_c/stem_ISO_8859_1_danish.c +337 -0
  30. data/libstemmer_c/src_c/stem_ISO_8859_1_danish.h +16 -0
  31. data/libstemmer_c/src_c/stem_ISO_8859_1_dutch.c +624 -0
  32. data/libstemmer_c/src_c/stem_ISO_8859_1_dutch.h +16 -0
  33. data/libstemmer_c/src_c/stem_ISO_8859_1_english.c +1117 -0
  34. data/libstemmer_c/src_c/stem_ISO_8859_1_english.h +16 -0
  35. data/libstemmer_c/src_c/stem_ISO_8859_1_finnish.c +762 -0
  36. data/libstemmer_c/src_c/stem_ISO_8859_1_finnish.h +16 -0
  37. data/libstemmer_c/src_c/stem_ISO_8859_1_french.c +1246 -0
  38. data/libstemmer_c/src_c/stem_ISO_8859_1_french.h +16 -0
  39. data/libstemmer_c/src_c/stem_ISO_8859_1_german.c +503 -0
  40. data/libstemmer_c/src_c/stem_ISO_8859_1_german.h +16 -0
  41. data/libstemmer_c/src_c/stem_ISO_8859_1_hungarian.c +1230 -0
  42. data/libstemmer_c/src_c/stem_ISO_8859_1_hungarian.h +16 -0
  43. data/libstemmer_c/src_c/stem_ISO_8859_1_italian.c +1065 -0
  44. data/libstemmer_c/src_c/stem_ISO_8859_1_italian.h +16 -0
  45. data/libstemmer_c/src_c/stem_ISO_8859_1_latin.c +443 -0
  46. data/libstemmer_c/src_c/stem_ISO_8859_1_latin.h +16 -0
  47. data/libstemmer_c/src_c/stem_ISO_8859_1_norwegian.c +297 -0
  48. data/libstemmer_c/src_c/stem_ISO_8859_1_norwegian.h +16 -0
  49. data/libstemmer_c/src_c/stem_ISO_8859_1_porter.c +749 -0
  50. data/libstemmer_c/src_c/stem_ISO_8859_1_porter.h +16 -0
  51. data/libstemmer_c/src_c/stem_ISO_8859_1_portuguese.c +1017 -0
  52. data/libstemmer_c/src_c/stem_ISO_8859_1_portuguese.h +16 -0
  53. data/libstemmer_c/src_c/stem_ISO_8859_1_spanish.c +1093 -0
  54. data/libstemmer_c/src_c/stem_ISO_8859_1_spanish.h +16 -0
  55. data/libstemmer_c/src_c/stem_ISO_8859_1_swedish.c +307 -0
  56. data/libstemmer_c/src_c/stem_ISO_8859_1_swedish.h +16 -0
  57. data/libstemmer_c/src_c/stem_ISO_8859_2_romanian.c +998 -0
  58. data/libstemmer_c/src_c/stem_ISO_8859_2_romanian.h +16 -0
  59. data/libstemmer_c/src_c/stem_KOI8_R_russian.c +700 -0
  60. data/libstemmer_c/src_c/stem_KOI8_R_russian.h +16 -0
  61. data/libstemmer_c/src_c/stem_UTF_8_danish.c +339 -0
  62. data/libstemmer_c/src_c/stem_UTF_8_danish.h +16 -0
  63. data/libstemmer_c/src_c/stem_UTF_8_dutch.c +634 -0
  64. data/libstemmer_c/src_c/stem_UTF_8_dutch.h +16 -0
  65. data/libstemmer_c/src_c/stem_UTF_8_english.c +1125 -0
  66. data/libstemmer_c/src_c/stem_UTF_8_english.h +16 -0
  67. data/libstemmer_c/src_c/stem_UTF_8_finnish.c +768 -0
  68. data/libstemmer_c/src_c/stem_UTF_8_finnish.h +16 -0
  69. data/libstemmer_c/src_c/stem_UTF_8_french.c +1256 -0
  70. data/libstemmer_c/src_c/stem_UTF_8_french.h +16 -0
  71. data/libstemmer_c/src_c/stem_UTF_8_german.c +509 -0
  72. data/libstemmer_c/src_c/stem_UTF_8_german.h +16 -0
  73. data/libstemmer_c/src_c/stem_UTF_8_hungarian.c +1234 -0
  74. data/libstemmer_c/src_c/stem_UTF_8_hungarian.h +16 -0
  75. data/libstemmer_c/src_c/stem_UTF_8_italian.c +1073 -0
  76. data/libstemmer_c/src_c/stem_UTF_8_italian.h +16 -0
  77. data/libstemmer_c/src_c/stem_UTF_8_latin.c +443 -0
  78. data/libstemmer_c/src_c/stem_UTF_8_latin.h +16 -0
  79. data/libstemmer_c/src_c/stem_UTF_8_norwegian.c +299 -0
  80. data/libstemmer_c/src_c/stem_UTF_8_norwegian.h +16 -0
  81. data/libstemmer_c/src_c/stem_UTF_8_porter.c +755 -0
  82. data/libstemmer_c/src_c/stem_UTF_8_porter.h +16 -0
  83. data/libstemmer_c/src_c/stem_UTF_8_portuguese.c +1023 -0
  84. data/libstemmer_c/src_c/stem_UTF_8_portuguese.h +16 -0
  85. data/libstemmer_c/src_c/stem_UTF_8_romanian.c +1004 -0
  86. data/libstemmer_c/src_c/stem_UTF_8_romanian.h +16 -0
  87. data/libstemmer_c/src_c/stem_UTF_8_russian.c +694 -0
  88. data/libstemmer_c/src_c/stem_UTF_8_russian.h +16 -0
  89. data/libstemmer_c/src_c/stem_UTF_8_spanish.c +1097 -0
  90. data/libstemmer_c/src_c/stem_UTF_8_spanish.h +16 -0
  91. data/libstemmer_c/src_c/stem_UTF_8_swedish.c +309 -0
  92. data/libstemmer_c/src_c/stem_UTF_8_swedish.h +16 -0
  93. data/libstemmer_c/src_c/stem_UTF_8_turkish.c +2205 -0
  94. data/libstemmer_c/src_c/stem_UTF_8_turkish.h +16 -0
  95. data/test/helper.rb +3 -0
  96. data/test/lingua/test_stemmer.rb +99 -0
  97. metadata +162 -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_ISO_8859_1_create_env(void);
9
+ extern void dutch_ISO_8859_1_close_env(struct SN_env * z);
10
+
11
+ extern int dutch_ISO_8859_1_stem(struct SN_env * z);
12
+
13
+ #ifdef __cplusplus
14
+ }
15
+ #endif
16
+
@@ -0,0 +1,1117 @@
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_ISO_8859_1_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_ISO_8859_1_create_env(void);
34
+ extern void english_ISO_8859_1_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(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
+ if (z->c >= z->l) goto lab3;
408
+ z->c++; /* goto, line 29 */
409
+ }
410
+ { int ret = slice_from_s(z, 1, s_4); /* <-, line 29 */
411
+ if (ret < 0) return ret;
412
+ }
413
+ z->B[0] = 1; /* set Y_found, line 29 */
414
+ continue;
415
+ lab3:
416
+ z->c = c4;
417
+ break;
418
+ }
419
+ z->c = c3;
420
+ }
421
+ return 1;
422
+ }
423
+
424
+ static int r_mark_regions(struct SN_env * z) {
425
+ z->I[0] = z->l;
426
+ z->I[1] = z->l;
427
+ { int c1 = z->c; /* do, line 35 */
428
+ { int c2 = z->c; /* or, line 41 */
429
+ if (z->c + 4 >= z->l || z->p[z->c + 4] >> 5 != 3 || !((2375680 >> (z->p[z->c + 4] & 0x1f)) & 1)) goto lab2;
430
+ if (!(find_among(z, a_0, 3))) goto lab2; /* among, line 36 */
431
+ goto lab1;
432
+ lab2:
433
+ z->c = c2;
434
+ { /* gopast */ /* grouping v, line 41 */
435
+ int ret = out_grouping(z, g_v, 97, 121, 1);
436
+ if (ret < 0) goto lab0;
437
+ z->c += ret;
438
+ }
439
+ { /* gopast */ /* non v, line 41 */
440
+ int ret = in_grouping(z, g_v, 97, 121, 1);
441
+ if (ret < 0) goto lab0;
442
+ z->c += ret;
443
+ }
444
+ }
445
+ lab1:
446
+ z->I[0] = z->c; /* setmark p1, line 42 */
447
+ { /* gopast */ /* grouping v, line 43 */
448
+ int ret = out_grouping(z, g_v, 97, 121, 1);
449
+ if (ret < 0) goto lab0;
450
+ z->c += ret;
451
+ }
452
+ { /* gopast */ /* non v, line 43 */
453
+ int ret = in_grouping(z, g_v, 97, 121, 1);
454
+ if (ret < 0) goto lab0;
455
+ z->c += ret;
456
+ }
457
+ z->I[1] = z->c; /* setmark p2, line 43 */
458
+ lab0:
459
+ z->c = c1;
460
+ }
461
+ return 1;
462
+ }
463
+
464
+ static int r_shortv(struct SN_env * z) {
465
+ { int m1 = z->l - z->c; (void)m1; /* or, line 51 */
466
+ if (out_grouping_b(z, g_v_WXY, 89, 121, 0)) goto lab1;
467
+ if (in_grouping_b(z, g_v, 97, 121, 0)) goto lab1;
468
+ if (out_grouping_b(z, g_v, 97, 121, 0)) goto lab1;
469
+ goto lab0;
470
+ lab1:
471
+ z->c = z->l - m1;
472
+ if (out_grouping_b(z, g_v, 97, 121, 0)) return 0;
473
+ if (in_grouping_b(z, g_v, 97, 121, 0)) return 0;
474
+ if (z->c > z->lb) return 0; /* atlimit, line 52 */
475
+ }
476
+ lab0:
477
+ return 1;
478
+ }
479
+
480
+ static int r_R1(struct SN_env * z) {
481
+ if (!(z->I[0] <= z->c)) return 0;
482
+ return 1;
483
+ }
484
+
485
+ static int r_R2(struct SN_env * z) {
486
+ if (!(z->I[1] <= z->c)) return 0;
487
+ return 1;
488
+ }
489
+
490
+ static int r_Step_1a(struct SN_env * z) {
491
+ int among_var;
492
+ { int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 59 */
493
+ z->ket = z->c; /* [, line 60 */
494
+ 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; }
495
+ among_var = find_among_b(z, a_1, 3); /* substring, line 60 */
496
+ if (!(among_var)) { z->c = z->l - m_keep; goto lab0; }
497
+ z->bra = z->c; /* ], line 60 */
498
+ switch(among_var) {
499
+ case 0: { z->c = z->l - m_keep; goto lab0; }
500
+ case 1:
501
+ { int ret = slice_del(z); /* delete, line 62 */
502
+ if (ret < 0) return ret;
503
+ }
504
+ break;
505
+ }
506
+ lab0:
507
+ ;
508
+ }
509
+ z->ket = z->c; /* [, line 65 */
510
+ if (z->c <= z->lb || (z->p[z->c - 1] != 100 && z->p[z->c - 1] != 115)) return 0;
511
+ among_var = find_among_b(z, a_2, 6); /* substring, line 65 */
512
+ if (!(among_var)) return 0;
513
+ z->bra = z->c; /* ], line 65 */
514
+ switch(among_var) {
515
+ case 0: return 0;
516
+ case 1:
517
+ { int ret = slice_from_s(z, 2, s_5); /* <-, line 66 */
518
+ if (ret < 0) return ret;
519
+ }
520
+ break;
521
+ case 2:
522
+ { int m1 = z->l - z->c; (void)m1; /* or, line 68 */
523
+ { int ret = z->c - 2;
524
+ if (z->lb > ret || ret > z->l) goto lab2;
525
+ z->c = ret; /* hop, line 68 */
526
+ }
527
+ { int ret = slice_from_s(z, 1, s_6); /* <-, line 68 */
528
+ if (ret < 0) return ret;
529
+ }
530
+ goto lab1;
531
+ lab2:
532
+ z->c = z->l - m1;
533
+ { int ret = slice_from_s(z, 2, s_7); /* <-, line 68 */
534
+ if (ret < 0) return ret;
535
+ }
536
+ }
537
+ lab1:
538
+ break;
539
+ case 3:
540
+ if (z->c <= z->lb) return 0;
541
+ z->c--; /* next, line 69 */
542
+ { /* gopast */ /* grouping v, line 69 */
543
+ int ret = out_grouping_b(z, g_v, 97, 121, 1);
544
+ if (ret < 0) return 0;
545
+ z->c -= ret;
546
+ }
547
+ { int ret = slice_del(z); /* delete, line 69 */
548
+ if (ret < 0) return ret;
549
+ }
550
+ break;
551
+ }
552
+ return 1;
553
+ }
554
+
555
+ static int r_Step_1b(struct SN_env * z) {
556
+ int among_var;
557
+ z->ket = z->c; /* [, line 75 */
558
+ if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((33554576 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
559
+ among_var = find_among_b(z, a_4, 6); /* substring, line 75 */
560
+ if (!(among_var)) return 0;
561
+ z->bra = z->c; /* ], line 75 */
562
+ switch(among_var) {
563
+ case 0: return 0;
564
+ case 1:
565
+ { int ret = r_R1(z);
566
+ if (ret == 0) return 0; /* call R1, line 77 */
567
+ if (ret < 0) return ret;
568
+ }
569
+ { int ret = slice_from_s(z, 2, s_8); /* <-, line 77 */
570
+ if (ret < 0) return ret;
571
+ }
572
+ break;
573
+ case 2:
574
+ { int m_test = z->l - z->c; /* test, line 80 */
575
+ { /* gopast */ /* grouping v, line 80 */
576
+ int ret = out_grouping_b(z, g_v, 97, 121, 1);
577
+ if (ret < 0) return 0;
578
+ z->c -= ret;
579
+ }
580
+ z->c = z->l - m_test;
581
+ }
582
+ { int ret = slice_del(z); /* delete, line 80 */
583
+ if (ret < 0) return ret;
584
+ }
585
+ { int m_test = z->l - z->c; /* test, line 81 */
586
+ 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
587
+ among_var = find_among_b(z, a_3, 13); /* substring, line 81 */
588
+ if (!(among_var)) return 0;
589
+ z->c = z->l - m_test;
590
+ }
591
+ switch(among_var) {
592
+ case 0: return 0;
593
+ case 1:
594
+ { int c_keep = z->c;
595
+ int ret = insert_s(z, z->c, z->c, 1, s_9); /* <+, line 83 */
596
+ z->c = c_keep;
597
+ if (ret < 0) return ret;
598
+ }
599
+ break;
600
+ case 2:
601
+ z->ket = z->c; /* [, line 86 */
602
+ if (z->c <= z->lb) return 0;
603
+ z->c--; /* next, line 86 */
604
+ z->bra = z->c; /* ], line 86 */
605
+ { int ret = slice_del(z); /* delete, line 86 */
606
+ if (ret < 0) return ret;
607
+ }
608
+ break;
609
+ case 3:
610
+ if (z->c != z->I[0]) return 0; /* atmark, line 87 */
611
+ { int m_test = z->l - z->c; /* test, line 87 */
612
+ { int ret = r_shortv(z);
613
+ if (ret == 0) return 0; /* call shortv, line 87 */
614
+ if (ret < 0) return ret;
615
+ }
616
+ z->c = z->l - m_test;
617
+ }
618
+ { int c_keep = z->c;
619
+ int ret = insert_s(z, z->c, z->c, 1, s_10); /* <+, line 87 */
620
+ z->c = c_keep;
621
+ if (ret < 0) return ret;
622
+ }
623
+ break;
624
+ }
625
+ break;
626
+ }
627
+ return 1;
628
+ }
629
+
630
+ static int r_Step_1c(struct SN_env * z) {
631
+ z->ket = z->c; /* [, line 94 */
632
+ { int m1 = z->l - z->c; (void)m1; /* or, line 94 */
633
+ if (!(eq_s_b(z, 1, s_11))) goto lab1;
634
+ goto lab0;
635
+ lab1:
636
+ z->c = z->l - m1;
637
+ if (!(eq_s_b(z, 1, s_12))) return 0;
638
+ }
639
+ lab0:
640
+ z->bra = z->c; /* ], line 94 */
641
+ if (out_grouping_b(z, g_v, 97, 121, 0)) return 0;
642
+ { int m2 = z->l - z->c; (void)m2; /* not, line 95 */
643
+ if (z->c > z->lb) goto lab2; /* atlimit, line 95 */
644
+ return 0;
645
+ lab2:
646
+ z->c = z->l - m2;
647
+ }
648
+ { int ret = slice_from_s(z, 1, s_13); /* <-, line 96 */
649
+ if (ret < 0) return ret;
650
+ }
651
+ return 1;
652
+ }
653
+
654
+ static int r_Step_2(struct SN_env * z) {
655
+ int among_var;
656
+ z->ket = z->c; /* [, line 100 */
657
+ if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((815616 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
658
+ among_var = find_among_b(z, a_5, 24); /* substring, line 100 */
659
+ if (!(among_var)) return 0;
660
+ z->bra = z->c; /* ], line 100 */
661
+ { int ret = r_R1(z);
662
+ if (ret == 0) return 0; /* call R1, line 100 */
663
+ if (ret < 0) return ret;
664
+ }
665
+ switch(among_var) {
666
+ case 0: return 0;
667
+ case 1:
668
+ { int ret = slice_from_s(z, 4, s_14); /* <-, line 101 */
669
+ if (ret < 0) return ret;
670
+ }
671
+ break;
672
+ case 2:
673
+ { int ret = slice_from_s(z, 4, s_15); /* <-, line 102 */
674
+ if (ret < 0) return ret;
675
+ }
676
+ break;
677
+ case 3:
678
+ { int ret = slice_from_s(z, 4, s_16); /* <-, line 103 */
679
+ if (ret < 0) return ret;
680
+ }
681
+ break;
682
+ case 4:
683
+ { int ret = slice_from_s(z, 4, s_17); /* <-, line 104 */
684
+ if (ret < 0) return ret;
685
+ }
686
+ break;
687
+ case 5:
688
+ { int ret = slice_from_s(z, 3, s_18); /* <-, line 105 */
689
+ if (ret < 0) return ret;
690
+ }
691
+ break;
692
+ case 6:
693
+ { int ret = slice_from_s(z, 3, s_19); /* <-, line 107 */
694
+ if (ret < 0) return ret;
695
+ }
696
+ break;
697
+ case 7:
698
+ { int ret = slice_from_s(z, 3, s_20); /* <-, line 109 */
699
+ if (ret < 0) return ret;
700
+ }
701
+ break;
702
+ case 8:
703
+ { int ret = slice_from_s(z, 2, s_21); /* <-, line 111 */
704
+ if (ret < 0) return ret;
705
+ }
706
+ break;
707
+ case 9:
708
+ { int ret = slice_from_s(z, 3, s_22); /* <-, line 112 */
709
+ if (ret < 0) return ret;
710
+ }
711
+ break;
712
+ case 10:
713
+ { int ret = slice_from_s(z, 3, s_23); /* <-, line 114 */
714
+ if (ret < 0) return ret;
715
+ }
716
+ break;
717
+ case 11:
718
+ { int ret = slice_from_s(z, 3, s_24); /* <-, line 116 */
719
+ if (ret < 0) return ret;
720
+ }
721
+ break;
722
+ case 12:
723
+ { int ret = slice_from_s(z, 3, s_25); /* <-, line 118 */
724
+ if (ret < 0) return ret;
725
+ }
726
+ break;
727
+ case 13:
728
+ if (!(eq_s_b(z, 1, s_26))) return 0;
729
+ { int ret = slice_from_s(z, 2, s_27); /* <-, line 119 */
730
+ if (ret < 0) return ret;
731
+ }
732
+ break;
733
+ case 14:
734
+ { int ret = slice_from_s(z, 3, s_28); /* <-, line 120 */
735
+ if (ret < 0) return ret;
736
+ }
737
+ break;
738
+ case 15:
739
+ { int ret = slice_from_s(z, 4, s_29); /* <-, line 121 */
740
+ if (ret < 0) return ret;
741
+ }
742
+ break;
743
+ case 16:
744
+ if (in_grouping_b(z, g_valid_LI, 99, 116, 0)) return 0;
745
+ { int ret = slice_del(z); /* delete, line 122 */
746
+ if (ret < 0) return ret;
747
+ }
748
+ break;
749
+ }
750
+ return 1;
751
+ }
752
+
753
+ static int r_Step_3(struct SN_env * z) {
754
+ int among_var;
755
+ z->ket = z->c; /* [, line 127 */
756
+ if (z->c - 2 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((528928 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
757
+ among_var = find_among_b(z, a_6, 9); /* substring, line 127 */
758
+ if (!(among_var)) return 0;
759
+ z->bra = z->c; /* ], line 127 */
760
+ { int ret = r_R1(z);
761
+ if (ret == 0) return 0; /* call R1, line 127 */
762
+ if (ret < 0) return ret;
763
+ }
764
+ switch(among_var) {
765
+ case 0: return 0;
766
+ case 1:
767
+ { int ret = slice_from_s(z, 4, s_30); /* <-, line 128 */
768
+ if (ret < 0) return ret;
769
+ }
770
+ break;
771
+ case 2:
772
+ { int ret = slice_from_s(z, 3, s_31); /* <-, line 129 */
773
+ if (ret < 0) return ret;
774
+ }
775
+ break;
776
+ case 3:
777
+ { int ret = slice_from_s(z, 2, s_32); /* <-, line 130 */
778
+ if (ret < 0) return ret;
779
+ }
780
+ break;
781
+ case 4:
782
+ { int ret = slice_from_s(z, 2, s_33); /* <-, line 132 */
783
+ if (ret < 0) return ret;
784
+ }
785
+ break;
786
+ case 5:
787
+ { int ret = slice_del(z); /* delete, line 134 */
788
+ if (ret < 0) return ret;
789
+ }
790
+ break;
791
+ case 6:
792
+ { int ret = r_R2(z);
793
+ if (ret == 0) return 0; /* call R2, line 136 */
794
+ if (ret < 0) return ret;
795
+ }
796
+ { int ret = slice_del(z); /* delete, line 136 */
797
+ if (ret < 0) return ret;
798
+ }
799
+ break;
800
+ }
801
+ return 1;
802
+ }
803
+
804
+ static int r_Step_4(struct SN_env * z) {
805
+ int among_var;
806
+ z->ket = z->c; /* [, line 141 */
807
+ if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1864232 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
808
+ among_var = find_among_b(z, a_7, 18); /* substring, line 141 */
809
+ if (!(among_var)) return 0;
810
+ z->bra = z->c; /* ], line 141 */
811
+ { int ret = r_R2(z);
812
+ if (ret == 0) return 0; /* call R2, line 141 */
813
+ if (ret < 0) return ret;
814
+ }
815
+ switch(among_var) {
816
+ case 0: return 0;
817
+ case 1:
818
+ { int ret = slice_del(z); /* delete, line 144 */
819
+ if (ret < 0) return ret;
820
+ }
821
+ break;
822
+ case 2:
823
+ { int m1 = z->l - z->c; (void)m1; /* or, line 145 */
824
+ if (!(eq_s_b(z, 1, s_34))) goto lab1;
825
+ goto lab0;
826
+ lab1:
827
+ z->c = z->l - m1;
828
+ if (!(eq_s_b(z, 1, s_35))) return 0;
829
+ }
830
+ lab0:
831
+ { int ret = slice_del(z); /* delete, line 145 */
832
+ if (ret < 0) return ret;
833
+ }
834
+ break;
835
+ }
836
+ return 1;
837
+ }
838
+
839
+ static int r_Step_5(struct SN_env * z) {
840
+ int among_var;
841
+ z->ket = z->c; /* [, line 150 */
842
+ if (z->c <= z->lb || (z->p[z->c - 1] != 101 && z->p[z->c - 1] != 108)) return 0;
843
+ among_var = find_among_b(z, a_8, 2); /* substring, line 150 */
844
+ if (!(among_var)) return 0;
845
+ z->bra = z->c; /* ], line 150 */
846
+ switch(among_var) {
847
+ case 0: return 0;
848
+ case 1:
849
+ { int m1 = z->l - z->c; (void)m1; /* or, line 151 */
850
+ { int ret = r_R2(z);
851
+ if (ret == 0) goto lab1; /* call R2, line 151 */
852
+ if (ret < 0) return ret;
853
+ }
854
+ goto lab0;
855
+ lab1:
856
+ z->c = z->l - m1;
857
+ { int ret = r_R1(z);
858
+ if (ret == 0) return 0; /* call R1, line 151 */
859
+ if (ret < 0) return ret;
860
+ }
861
+ { int m2 = z->l - z->c; (void)m2; /* not, line 151 */
862
+ { int ret = r_shortv(z);
863
+ if (ret == 0) goto lab2; /* call shortv, line 151 */
864
+ if (ret < 0) return ret;
865
+ }
866
+ return 0;
867
+ lab2:
868
+ z->c = z->l - m2;
869
+ }
870
+ }
871
+ lab0:
872
+ { int ret = slice_del(z); /* delete, line 151 */
873
+ if (ret < 0) return ret;
874
+ }
875
+ break;
876
+ case 2:
877
+ { int ret = r_R2(z);
878
+ if (ret == 0) return 0; /* call R2, line 152 */
879
+ if (ret < 0) return ret;
880
+ }
881
+ if (!(eq_s_b(z, 1, s_36))) return 0;
882
+ { int ret = slice_del(z); /* delete, line 152 */
883
+ if (ret < 0) return ret;
884
+ }
885
+ break;
886
+ }
887
+ return 1;
888
+ }
889
+
890
+ static int r_exception2(struct SN_env * z) {
891
+ z->ket = z->c; /* [, line 158 */
892
+ if (z->c - 5 <= z->lb || (z->p[z->c - 1] != 100 && z->p[z->c - 1] != 103)) return 0;
893
+ if (!(find_among_b(z, a_9, 8))) return 0; /* substring, line 158 */
894
+ z->bra = z->c; /* ], line 158 */
895
+ if (z->c > z->lb) return 0; /* atlimit, line 158 */
896
+ return 1;
897
+ }
898
+
899
+ static int r_exception1(struct SN_env * z) {
900
+ int among_var;
901
+ z->bra = z->c; /* [, line 170 */
902
+ if (z->c + 2 >= z->l || z->p[z->c + 2] >> 5 != 3 || !((42750482 >> (z->p[z->c + 2] & 0x1f)) & 1)) return 0;
903
+ among_var = find_among(z, a_10, 18); /* substring, line 170 */
904
+ if (!(among_var)) return 0;
905
+ z->ket = z->c; /* ], line 170 */
906
+ if (z->c < z->l) return 0; /* atlimit, line 170 */
907
+ switch(among_var) {
908
+ case 0: return 0;
909
+ case 1:
910
+ { int ret = slice_from_s(z, 3, s_37); /* <-, line 174 */
911
+ if (ret < 0) return ret;
912
+ }
913
+ break;
914
+ case 2:
915
+ { int ret = slice_from_s(z, 3, s_38); /* <-, line 175 */
916
+ if (ret < 0) return ret;
917
+ }
918
+ break;
919
+ case 3:
920
+ { int ret = slice_from_s(z, 3, s_39); /* <-, line 176 */
921
+ if (ret < 0) return ret;
922
+ }
923
+ break;
924
+ case 4:
925
+ { int ret = slice_from_s(z, 3, s_40); /* <-, line 177 */
926
+ if (ret < 0) return ret;
927
+ }
928
+ break;
929
+ case 5:
930
+ { int ret = slice_from_s(z, 3, s_41); /* <-, line 178 */
931
+ if (ret < 0) return ret;
932
+ }
933
+ break;
934
+ case 6:
935
+ { int ret = slice_from_s(z, 3, s_42); /* <-, line 182 */
936
+ if (ret < 0) return ret;
937
+ }
938
+ break;
939
+ case 7:
940
+ { int ret = slice_from_s(z, 5, s_43); /* <-, line 183 */
941
+ if (ret < 0) return ret;
942
+ }
943
+ break;
944
+ case 8:
945
+ { int ret = slice_from_s(z, 4, s_44); /* <-, line 184 */
946
+ if (ret < 0) return ret;
947
+ }
948
+ break;
949
+ case 9:
950
+ { int ret = slice_from_s(z, 5, s_45); /* <-, line 185 */
951
+ if (ret < 0) return ret;
952
+ }
953
+ break;
954
+ case 10:
955
+ { int ret = slice_from_s(z, 4, s_46); /* <-, line 186 */
956
+ if (ret < 0) return ret;
957
+ }
958
+ break;
959
+ case 11:
960
+ { int ret = slice_from_s(z, 5, s_47); /* <-, line 187 */
961
+ if (ret < 0) return ret;
962
+ }
963
+ break;
964
+ }
965
+ return 1;
966
+ }
967
+
968
+ static int r_postlude(struct SN_env * z) {
969
+ if (!(z->B[0])) return 0; /* Boolean test Y_found, line 203 */
970
+ while(1) { /* repeat, line 203 */
971
+ int c1 = z->c;
972
+ while(1) { /* goto, line 203 */
973
+ int c2 = z->c;
974
+ z->bra = z->c; /* [, line 203 */
975
+ if (!(eq_s(z, 1, s_48))) goto lab1;
976
+ z->ket = z->c; /* ], line 203 */
977
+ z->c = c2;
978
+ break;
979
+ lab1:
980
+ z->c = c2;
981
+ if (z->c >= z->l) goto lab0;
982
+ z->c++; /* goto, line 203 */
983
+ }
984
+ { int ret = slice_from_s(z, 1, s_49); /* <-, line 203 */
985
+ if (ret < 0) return ret;
986
+ }
987
+ continue;
988
+ lab0:
989
+ z->c = c1;
990
+ break;
991
+ }
992
+ return 1;
993
+ }
994
+
995
+ extern int english_ISO_8859_1_stem(struct SN_env * z) {
996
+ { int c1 = z->c; /* or, line 207 */
997
+ { int ret = r_exception1(z);
998
+ if (ret == 0) goto lab1; /* call exception1, line 207 */
999
+ if (ret < 0) return ret;
1000
+ }
1001
+ goto lab0;
1002
+ lab1:
1003
+ z->c = c1;
1004
+ { int c2 = z->c; /* not, line 208 */
1005
+ { int ret = z->c + 3;
1006
+ if (0 > ret || ret > z->l) goto lab3;
1007
+ z->c = ret; /* hop, line 208 */
1008
+ }
1009
+ goto lab2;
1010
+ lab3:
1011
+ z->c = c2;
1012
+ }
1013
+ goto lab0;
1014
+ lab2:
1015
+ z->c = c1;
1016
+ { int c3 = z->c; /* do, line 209 */
1017
+ { int ret = r_prelude(z);
1018
+ if (ret == 0) goto lab4; /* call prelude, line 209 */
1019
+ if (ret < 0) return ret;
1020
+ }
1021
+ lab4:
1022
+ z->c = c3;
1023
+ }
1024
+ { int c4 = z->c; /* do, line 210 */
1025
+ { int ret = r_mark_regions(z);
1026
+ if (ret == 0) goto lab5; /* call mark_regions, line 210 */
1027
+ if (ret < 0) return ret;
1028
+ }
1029
+ lab5:
1030
+ z->c = c4;
1031
+ }
1032
+ z->lb = z->c; z->c = z->l; /* backwards, line 211 */
1033
+
1034
+ { int m5 = z->l - z->c; (void)m5; /* do, line 213 */
1035
+ { int ret = r_Step_1a(z);
1036
+ if (ret == 0) goto lab6; /* call Step_1a, line 213 */
1037
+ if (ret < 0) return ret;
1038
+ }
1039
+ lab6:
1040
+ z->c = z->l - m5;
1041
+ }
1042
+ { int m6 = z->l - z->c; (void)m6; /* or, line 215 */
1043
+ { int ret = r_exception2(z);
1044
+ if (ret == 0) goto lab8; /* call exception2, line 215 */
1045
+ if (ret < 0) return ret;
1046
+ }
1047
+ goto lab7;
1048
+ lab8:
1049
+ z->c = z->l - m6;
1050
+ { int m7 = z->l - z->c; (void)m7; /* do, line 217 */
1051
+ { int ret = r_Step_1b(z);
1052
+ if (ret == 0) goto lab9; /* call Step_1b, line 217 */
1053
+ if (ret < 0) return ret;
1054
+ }
1055
+ lab9:
1056
+ z->c = z->l - m7;
1057
+ }
1058
+ { int m8 = z->l - z->c; (void)m8; /* do, line 218 */
1059
+ { int ret = r_Step_1c(z);
1060
+ if (ret == 0) goto lab10; /* call Step_1c, line 218 */
1061
+ if (ret < 0) return ret;
1062
+ }
1063
+ lab10:
1064
+ z->c = z->l - m8;
1065
+ }
1066
+ { int m9 = z->l - z->c; (void)m9; /* do, line 220 */
1067
+ { int ret = r_Step_2(z);
1068
+ if (ret == 0) goto lab11; /* call Step_2, line 220 */
1069
+ if (ret < 0) return ret;
1070
+ }
1071
+ lab11:
1072
+ z->c = z->l - m9;
1073
+ }
1074
+ { int m10 = z->l - z->c; (void)m10; /* do, line 221 */
1075
+ { int ret = r_Step_3(z);
1076
+ if (ret == 0) goto lab12; /* call Step_3, line 221 */
1077
+ if (ret < 0) return ret;
1078
+ }
1079
+ lab12:
1080
+ z->c = z->l - m10;
1081
+ }
1082
+ { int m11 = z->l - z->c; (void)m11; /* do, line 222 */
1083
+ { int ret = r_Step_4(z);
1084
+ if (ret == 0) goto lab13; /* call Step_4, line 222 */
1085
+ if (ret < 0) return ret;
1086
+ }
1087
+ lab13:
1088
+ z->c = z->l - m11;
1089
+ }
1090
+ { int m12 = z->l - z->c; (void)m12; /* do, line 224 */
1091
+ { int ret = r_Step_5(z);
1092
+ if (ret == 0) goto lab14; /* call Step_5, line 224 */
1093
+ if (ret < 0) return ret;
1094
+ }
1095
+ lab14:
1096
+ z->c = z->l - m12;
1097
+ }
1098
+ }
1099
+ lab7:
1100
+ z->c = z->lb;
1101
+ { int c13 = z->c; /* do, line 227 */
1102
+ { int ret = r_postlude(z);
1103
+ if (ret == 0) goto lab15; /* call postlude, line 227 */
1104
+ if (ret < 0) return ret;
1105
+ }
1106
+ lab15:
1107
+ z->c = c13;
1108
+ }
1109
+ }
1110
+ lab0:
1111
+ return 1;
1112
+ }
1113
+
1114
+ extern struct SN_env * english_ISO_8859_1_create_env(void) { return SN_create_env(0, 2, 1); }
1115
+
1116
+ extern void english_ISO_8859_1_close_env(struct SN_env * z) { SN_close_env(z, 0); }
1117
+