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 * french_ISO_8859_1_create_env(void);
9
+ extern void french_ISO_8859_1_close_env(struct SN_env * z);
10
+
11
+ extern int french_ISO_8859_1_stem(struct SN_env * z);
12
+
13
+ #ifdef __cplusplus
14
+ }
15
+ #endif
16
+
@@ -0,0 +1,503 @@
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 german_ISO_8859_1_stem(struct SN_env * z);
10
+ #ifdef __cplusplus
11
+ }
12
+ #endif
13
+ static int r_standard_suffix(struct SN_env * z);
14
+ static int r_R2(struct SN_env * z);
15
+ static int r_R1(struct SN_env * z);
16
+ static int r_mark_regions(struct SN_env * z);
17
+ static int r_postlude(struct SN_env * z);
18
+ static int r_prelude(struct SN_env * z);
19
+ #ifdef __cplusplus
20
+ extern "C" {
21
+ #endif
22
+
23
+
24
+ extern struct SN_env * german_ISO_8859_1_create_env(void);
25
+ extern void german_ISO_8859_1_close_env(struct SN_env * z);
26
+
27
+
28
+ #ifdef __cplusplus
29
+ }
30
+ #endif
31
+ static const symbol s_0_1[1] = { 'U' };
32
+ static const symbol s_0_2[1] = { 'Y' };
33
+ static const symbol s_0_3[1] = { 0xE4 };
34
+ static const symbol s_0_4[1] = { 0xF6 };
35
+ static const symbol s_0_5[1] = { 0xFC };
36
+
37
+ static const struct among a_0[6] =
38
+ {
39
+ /* 0 */ { 0, 0, -1, 6, 0},
40
+ /* 1 */ { 1, s_0_1, 0, 2, 0},
41
+ /* 2 */ { 1, s_0_2, 0, 1, 0},
42
+ /* 3 */ { 1, s_0_3, 0, 3, 0},
43
+ /* 4 */ { 1, s_0_4, 0, 4, 0},
44
+ /* 5 */ { 1, s_0_5, 0, 5, 0}
45
+ };
46
+
47
+ static const symbol s_1_0[1] = { 'e' };
48
+ static const symbol s_1_1[2] = { 'e', 'm' };
49
+ static const symbol s_1_2[2] = { 'e', 'n' };
50
+ static const symbol s_1_3[3] = { 'e', 'r', 'n' };
51
+ static const symbol s_1_4[2] = { 'e', 'r' };
52
+ static const symbol s_1_5[1] = { 's' };
53
+ static const symbol s_1_6[2] = { 'e', 's' };
54
+
55
+ static const struct among a_1[7] =
56
+ {
57
+ /* 0 */ { 1, s_1_0, -1, 1, 0},
58
+ /* 1 */ { 2, s_1_1, -1, 1, 0},
59
+ /* 2 */ { 2, s_1_2, -1, 1, 0},
60
+ /* 3 */ { 3, s_1_3, -1, 1, 0},
61
+ /* 4 */ { 2, s_1_4, -1, 1, 0},
62
+ /* 5 */ { 1, s_1_5, -1, 2, 0},
63
+ /* 6 */ { 2, s_1_6, 5, 1, 0}
64
+ };
65
+
66
+ static const symbol s_2_0[2] = { 'e', 'n' };
67
+ static const symbol s_2_1[2] = { 'e', 'r' };
68
+ static const symbol s_2_2[2] = { 's', 't' };
69
+ static const symbol s_2_3[3] = { 'e', 's', 't' };
70
+
71
+ static const struct among a_2[4] =
72
+ {
73
+ /* 0 */ { 2, s_2_0, -1, 1, 0},
74
+ /* 1 */ { 2, s_2_1, -1, 1, 0},
75
+ /* 2 */ { 2, s_2_2, -1, 2, 0},
76
+ /* 3 */ { 3, s_2_3, 2, 1, 0}
77
+ };
78
+
79
+ static const symbol s_3_0[2] = { 'i', 'g' };
80
+ static const symbol s_3_1[4] = { 'l', 'i', 'c', 'h' };
81
+
82
+ static const struct among a_3[2] =
83
+ {
84
+ /* 0 */ { 2, s_3_0, -1, 1, 0},
85
+ /* 1 */ { 4, s_3_1, -1, 1, 0}
86
+ };
87
+
88
+ static const symbol s_4_0[3] = { 'e', 'n', 'd' };
89
+ static const symbol s_4_1[2] = { 'i', 'g' };
90
+ static const symbol s_4_2[3] = { 'u', 'n', 'g' };
91
+ static const symbol s_4_3[4] = { 'l', 'i', 'c', 'h' };
92
+ static const symbol s_4_4[4] = { 'i', 's', 'c', 'h' };
93
+ static const symbol s_4_5[2] = { 'i', 'k' };
94
+ static const symbol s_4_6[4] = { 'h', 'e', 'i', 't' };
95
+ static const symbol s_4_7[4] = { 'k', 'e', 'i', 't' };
96
+
97
+ static const struct among a_4[8] =
98
+ {
99
+ /* 0 */ { 3, s_4_0, -1, 1, 0},
100
+ /* 1 */ { 2, s_4_1, -1, 2, 0},
101
+ /* 2 */ { 3, s_4_2, -1, 1, 0},
102
+ /* 3 */ { 4, s_4_3, -1, 3, 0},
103
+ /* 4 */ { 4, s_4_4, -1, 2, 0},
104
+ /* 5 */ { 2, s_4_5, -1, 2, 0},
105
+ /* 6 */ { 4, s_4_6, -1, 3, 0},
106
+ /* 7 */ { 4, s_4_7, -1, 4, 0}
107
+ };
108
+
109
+ static const unsigned char g_v[] = { 17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32, 8 };
110
+
111
+ static const unsigned char g_s_ending[] = { 117, 30, 5 };
112
+
113
+ static const unsigned char g_st_ending[] = { 117, 30, 4 };
114
+
115
+ static const symbol s_0[] = { 0xDF };
116
+ static const symbol s_1[] = { 's', 's' };
117
+ static const symbol s_2[] = { 'u' };
118
+ static const symbol s_3[] = { 'U' };
119
+ static const symbol s_4[] = { 'y' };
120
+ static const symbol s_5[] = { 'Y' };
121
+ static const symbol s_6[] = { 'y' };
122
+ static const symbol s_7[] = { 'u' };
123
+ static const symbol s_8[] = { 'a' };
124
+ static const symbol s_9[] = { 'o' };
125
+ static const symbol s_10[] = { 'u' };
126
+ static const symbol s_11[] = { 'i', 'g' };
127
+ static const symbol s_12[] = { 'e' };
128
+ static const symbol s_13[] = { 'e' };
129
+ static const symbol s_14[] = { 'e', 'r' };
130
+ static const symbol s_15[] = { 'e', 'n' };
131
+
132
+ static int r_prelude(struct SN_env * z) {
133
+ { int c_test = z->c; /* test, line 30 */
134
+ while(1) { /* repeat, line 30 */
135
+ int c1 = z->c;
136
+ { int c2 = z->c; /* or, line 33 */
137
+ z->bra = z->c; /* [, line 32 */
138
+ if (!(eq_s(z, 1, s_0))) goto lab2;
139
+ z->ket = z->c; /* ], line 32 */
140
+ { int ret = slice_from_s(z, 2, s_1); /* <-, line 32 */
141
+ if (ret < 0) return ret;
142
+ }
143
+ goto lab1;
144
+ lab2:
145
+ z->c = c2;
146
+ if (z->c >= z->l) goto lab0;
147
+ z->c++; /* next, line 33 */
148
+ }
149
+ lab1:
150
+ continue;
151
+ lab0:
152
+ z->c = c1;
153
+ break;
154
+ }
155
+ z->c = c_test;
156
+ }
157
+ while(1) { /* repeat, line 36 */
158
+ int c3 = z->c;
159
+ while(1) { /* goto, line 36 */
160
+ int c4 = z->c;
161
+ if (in_grouping(z, g_v, 97, 252, 0)) goto lab4;
162
+ z->bra = z->c; /* [, line 37 */
163
+ { int c5 = z->c; /* or, line 37 */
164
+ if (!(eq_s(z, 1, s_2))) goto lab6;
165
+ z->ket = z->c; /* ], line 37 */
166
+ if (in_grouping(z, g_v, 97, 252, 0)) goto lab6;
167
+ { int ret = slice_from_s(z, 1, s_3); /* <-, line 37 */
168
+ if (ret < 0) return ret;
169
+ }
170
+ goto lab5;
171
+ lab6:
172
+ z->c = c5;
173
+ if (!(eq_s(z, 1, s_4))) goto lab4;
174
+ z->ket = z->c; /* ], line 38 */
175
+ if (in_grouping(z, g_v, 97, 252, 0)) goto lab4;
176
+ { int ret = slice_from_s(z, 1, s_5); /* <-, line 38 */
177
+ if (ret < 0) return ret;
178
+ }
179
+ }
180
+ lab5:
181
+ z->c = c4;
182
+ break;
183
+ lab4:
184
+ z->c = c4;
185
+ if (z->c >= z->l) goto lab3;
186
+ z->c++; /* goto, line 36 */
187
+ }
188
+ continue;
189
+ lab3:
190
+ z->c = c3;
191
+ break;
192
+ }
193
+ return 1;
194
+ }
195
+
196
+ static int r_mark_regions(struct SN_env * z) {
197
+ z->I[0] = z->l;
198
+ z->I[1] = z->l;
199
+ { int c_test = z->c; /* test, line 47 */
200
+ { int ret = z->c + 3;
201
+ if (0 > ret || ret > z->l) return 0;
202
+ z->c = ret; /* hop, line 47 */
203
+ }
204
+ z->I[2] = z->c; /* setmark x, line 47 */
205
+ z->c = c_test;
206
+ }
207
+ { /* gopast */ /* grouping v, line 49 */
208
+ int ret = out_grouping(z, g_v, 97, 252, 1);
209
+ if (ret < 0) return 0;
210
+ z->c += ret;
211
+ }
212
+ { /* gopast */ /* non v, line 49 */
213
+ int ret = in_grouping(z, g_v, 97, 252, 1);
214
+ if (ret < 0) return 0;
215
+ z->c += ret;
216
+ }
217
+ z->I[0] = z->c; /* setmark p1, line 49 */
218
+ /* try, line 50 */
219
+ if (!(z->I[0] < z->I[2])) goto lab0;
220
+ z->I[0] = z->I[2];
221
+ lab0:
222
+ { /* gopast */ /* grouping v, line 51 */
223
+ int ret = out_grouping(z, g_v, 97, 252, 1);
224
+ if (ret < 0) return 0;
225
+ z->c += ret;
226
+ }
227
+ { /* gopast */ /* non v, line 51 */
228
+ int ret = in_grouping(z, g_v, 97, 252, 1);
229
+ if (ret < 0) return 0;
230
+ z->c += ret;
231
+ }
232
+ z->I[1] = z->c; /* setmark p2, line 51 */
233
+ return 1;
234
+ }
235
+
236
+ static int r_postlude(struct SN_env * z) {
237
+ int among_var;
238
+ while(1) { /* repeat, line 55 */
239
+ int c1 = z->c;
240
+ z->bra = z->c; /* [, line 57 */
241
+ among_var = find_among(z, a_0, 6); /* substring, line 57 */
242
+ if (!(among_var)) goto lab0;
243
+ z->ket = z->c; /* ], line 57 */
244
+ switch(among_var) {
245
+ case 0: goto lab0;
246
+ case 1:
247
+ { int ret = slice_from_s(z, 1, s_6); /* <-, line 58 */
248
+ if (ret < 0) return ret;
249
+ }
250
+ break;
251
+ case 2:
252
+ { int ret = slice_from_s(z, 1, s_7); /* <-, line 59 */
253
+ if (ret < 0) return ret;
254
+ }
255
+ break;
256
+ case 3:
257
+ { int ret = slice_from_s(z, 1, s_8); /* <-, line 60 */
258
+ if (ret < 0) return ret;
259
+ }
260
+ break;
261
+ case 4:
262
+ { int ret = slice_from_s(z, 1, s_9); /* <-, line 61 */
263
+ if (ret < 0) return ret;
264
+ }
265
+ break;
266
+ case 5:
267
+ { int ret = slice_from_s(z, 1, s_10); /* <-, line 62 */
268
+ if (ret < 0) return ret;
269
+ }
270
+ break;
271
+ case 6:
272
+ if (z->c >= z->l) goto lab0;
273
+ z->c++; /* next, line 63 */
274
+ break;
275
+ }
276
+ continue;
277
+ lab0:
278
+ z->c = c1;
279
+ break;
280
+ }
281
+ return 1;
282
+ }
283
+
284
+ static int r_R1(struct SN_env * z) {
285
+ if (!(z->I[0] <= z->c)) return 0;
286
+ return 1;
287
+ }
288
+
289
+ static int r_R2(struct SN_env * z) {
290
+ if (!(z->I[1] <= z->c)) return 0;
291
+ return 1;
292
+ }
293
+
294
+ static int r_standard_suffix(struct SN_env * z) {
295
+ int among_var;
296
+ { int m1 = z->l - z->c; (void)m1; /* do, line 74 */
297
+ z->ket = z->c; /* [, line 75 */
298
+ if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((811040 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab0;
299
+ among_var = find_among_b(z, a_1, 7); /* substring, line 75 */
300
+ if (!(among_var)) goto lab0;
301
+ z->bra = z->c; /* ], line 75 */
302
+ { int ret = r_R1(z);
303
+ if (ret == 0) goto lab0; /* call R1, line 75 */
304
+ if (ret < 0) return ret;
305
+ }
306
+ switch(among_var) {
307
+ case 0: goto lab0;
308
+ case 1:
309
+ { int ret = slice_del(z); /* delete, line 77 */
310
+ if (ret < 0) return ret;
311
+ }
312
+ break;
313
+ case 2:
314
+ if (in_grouping_b(z, g_s_ending, 98, 116, 0)) goto lab0;
315
+ { int ret = slice_del(z); /* delete, line 80 */
316
+ if (ret < 0) return ret;
317
+ }
318
+ break;
319
+ }
320
+ lab0:
321
+ z->c = z->l - m1;
322
+ }
323
+ { int m2 = z->l - z->c; (void)m2; /* do, line 84 */
324
+ z->ket = z->c; /* [, line 85 */
325
+ if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1327104 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab1;
326
+ among_var = find_among_b(z, a_2, 4); /* substring, line 85 */
327
+ if (!(among_var)) goto lab1;
328
+ z->bra = z->c; /* ], line 85 */
329
+ { int ret = r_R1(z);
330
+ if (ret == 0) goto lab1; /* call R1, line 85 */
331
+ if (ret < 0) return ret;
332
+ }
333
+ switch(among_var) {
334
+ case 0: goto lab1;
335
+ case 1:
336
+ { int ret = slice_del(z); /* delete, line 87 */
337
+ if (ret < 0) return ret;
338
+ }
339
+ break;
340
+ case 2:
341
+ if (in_grouping_b(z, g_st_ending, 98, 116, 0)) goto lab1;
342
+ { int ret = z->c - 3;
343
+ if (z->lb > ret || ret > z->l) goto lab1;
344
+ z->c = ret; /* hop, line 90 */
345
+ }
346
+ { int ret = slice_del(z); /* delete, line 90 */
347
+ if (ret < 0) return ret;
348
+ }
349
+ break;
350
+ }
351
+ lab1:
352
+ z->c = z->l - m2;
353
+ }
354
+ { int m3 = z->l - z->c; (void)m3; /* do, line 94 */
355
+ z->ket = z->c; /* [, line 95 */
356
+ if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1051024 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab2;
357
+ among_var = find_among_b(z, a_4, 8); /* substring, line 95 */
358
+ if (!(among_var)) goto lab2;
359
+ z->bra = z->c; /* ], line 95 */
360
+ { int ret = r_R2(z);
361
+ if (ret == 0) goto lab2; /* call R2, line 95 */
362
+ if (ret < 0) return ret;
363
+ }
364
+ switch(among_var) {
365
+ case 0: goto lab2;
366
+ case 1:
367
+ { int ret = slice_del(z); /* delete, line 97 */
368
+ if (ret < 0) return ret;
369
+ }
370
+ { int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 98 */
371
+ z->ket = z->c; /* [, line 98 */
372
+ if (!(eq_s_b(z, 2, s_11))) { z->c = z->l - m_keep; goto lab3; }
373
+ z->bra = z->c; /* ], line 98 */
374
+ { int m4 = z->l - z->c; (void)m4; /* not, line 98 */
375
+ if (!(eq_s_b(z, 1, s_12))) goto lab4;
376
+ { z->c = z->l - m_keep; goto lab3; }
377
+ lab4:
378
+ z->c = z->l - m4;
379
+ }
380
+ { int ret = r_R2(z);
381
+ if (ret == 0) { z->c = z->l - m_keep; goto lab3; } /* call R2, line 98 */
382
+ if (ret < 0) return ret;
383
+ }
384
+ { int ret = slice_del(z); /* delete, line 98 */
385
+ if (ret < 0) return ret;
386
+ }
387
+ lab3:
388
+ ;
389
+ }
390
+ break;
391
+ case 2:
392
+ { int m5 = z->l - z->c; (void)m5; /* not, line 101 */
393
+ if (!(eq_s_b(z, 1, s_13))) goto lab5;
394
+ goto lab2;
395
+ lab5:
396
+ z->c = z->l - m5;
397
+ }
398
+ { int ret = slice_del(z); /* delete, line 101 */
399
+ if (ret < 0) return ret;
400
+ }
401
+ break;
402
+ case 3:
403
+ { int ret = slice_del(z); /* delete, line 104 */
404
+ if (ret < 0) return ret;
405
+ }
406
+ { int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 105 */
407
+ z->ket = z->c; /* [, line 106 */
408
+ { int m6 = z->l - z->c; (void)m6; /* or, line 106 */
409
+ if (!(eq_s_b(z, 2, s_14))) goto lab8;
410
+ goto lab7;
411
+ lab8:
412
+ z->c = z->l - m6;
413
+ if (!(eq_s_b(z, 2, s_15))) { z->c = z->l - m_keep; goto lab6; }
414
+ }
415
+ lab7:
416
+ z->bra = z->c; /* ], line 106 */
417
+ { int ret = r_R1(z);
418
+ if (ret == 0) { z->c = z->l - m_keep; goto lab6; } /* call R1, line 106 */
419
+ if (ret < 0) return ret;
420
+ }
421
+ { int ret = slice_del(z); /* delete, line 106 */
422
+ if (ret < 0) return ret;
423
+ }
424
+ lab6:
425
+ ;
426
+ }
427
+ break;
428
+ case 4:
429
+ { int ret = slice_del(z); /* delete, line 110 */
430
+ if (ret < 0) return ret;
431
+ }
432
+ { int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 111 */
433
+ z->ket = z->c; /* [, line 112 */
434
+ if (z->c - 1 <= z->lb || (z->p[z->c - 1] != 103 && z->p[z->c - 1] != 104)) { z->c = z->l - m_keep; goto lab9; }
435
+ among_var = find_among_b(z, a_3, 2); /* substring, line 112 */
436
+ if (!(among_var)) { z->c = z->l - m_keep; goto lab9; }
437
+ z->bra = z->c; /* ], line 112 */
438
+ { int ret = r_R2(z);
439
+ if (ret == 0) { z->c = z->l - m_keep; goto lab9; } /* call R2, line 112 */
440
+ if (ret < 0) return ret;
441
+ }
442
+ switch(among_var) {
443
+ case 0: { z->c = z->l - m_keep; goto lab9; }
444
+ case 1:
445
+ { int ret = slice_del(z); /* delete, line 114 */
446
+ if (ret < 0) return ret;
447
+ }
448
+ break;
449
+ }
450
+ lab9:
451
+ ;
452
+ }
453
+ break;
454
+ }
455
+ lab2:
456
+ z->c = z->l - m3;
457
+ }
458
+ return 1;
459
+ }
460
+
461
+ extern int german_ISO_8859_1_stem(struct SN_env * z) {
462
+ { int c1 = z->c; /* do, line 125 */
463
+ { int ret = r_prelude(z);
464
+ if (ret == 0) goto lab0; /* call prelude, line 125 */
465
+ if (ret < 0) return ret;
466
+ }
467
+ lab0:
468
+ z->c = c1;
469
+ }
470
+ { int c2 = z->c; /* do, line 126 */
471
+ { int ret = r_mark_regions(z);
472
+ if (ret == 0) goto lab1; /* call mark_regions, line 126 */
473
+ if (ret < 0) return ret;
474
+ }
475
+ lab1:
476
+ z->c = c2;
477
+ }
478
+ z->lb = z->c; z->c = z->l; /* backwards, line 127 */
479
+
480
+ { int m3 = z->l - z->c; (void)m3; /* do, line 128 */
481
+ { int ret = r_standard_suffix(z);
482
+ if (ret == 0) goto lab2; /* call standard_suffix, line 128 */
483
+ if (ret < 0) return ret;
484
+ }
485
+ lab2:
486
+ z->c = z->l - m3;
487
+ }
488
+ z->c = z->lb;
489
+ { int c4 = z->c; /* do, line 129 */
490
+ { int ret = r_postlude(z);
491
+ if (ret == 0) goto lab3; /* call postlude, line 129 */
492
+ if (ret < 0) return ret;
493
+ }
494
+ lab3:
495
+ z->c = c4;
496
+ }
497
+ return 1;
498
+ }
499
+
500
+ extern struct SN_env * german_ISO_8859_1_create_env(void) { return SN_create_env(0, 3, 0); }
501
+
502
+ extern void german_ISO_8859_1_close_env(struct SN_env * z) { SN_close_env(z, 0); }
503
+