ferret 0.11.6 → 0.11.8.4

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (185) hide show
  1. data/README +10 -22
  2. data/RELEASE_CHANGES +137 -0
  3. data/RELEASE_NOTES +60 -0
  4. data/Rakefile +379 -274
  5. data/TODO +100 -8
  6. data/bin/ferret-browser +0 -0
  7. data/ext/BZLIB_blocksort.c +1094 -0
  8. data/ext/BZLIB_bzlib.c +1578 -0
  9. data/ext/BZLIB_compress.c +672 -0
  10. data/ext/BZLIB_crctable.c +104 -0
  11. data/ext/BZLIB_decompress.c +626 -0
  12. data/ext/BZLIB_huffman.c +205 -0
  13. data/ext/BZLIB_randtable.c +84 -0
  14. data/ext/{api.c → STEMMER_api.c} +7 -10
  15. data/ext/{libstemmer.c → STEMMER_libstemmer.c} +3 -2
  16. data/ext/{stem_ISO_8859_1_danish.c → STEMMER_stem_ISO_8859_1_danish.c} +123 -124
  17. data/ext/{stem_ISO_8859_1_dutch.c → STEMMER_stem_ISO_8859_1_dutch.c} +177 -188
  18. data/ext/STEMMER_stem_ISO_8859_1_english.c +1117 -0
  19. data/ext/{stem_ISO_8859_1_finnish.c → STEMMER_stem_ISO_8859_1_finnish.c} +276 -306
  20. data/ext/STEMMER_stem_ISO_8859_1_french.c +1246 -0
  21. data/ext/{stem_ISO_8859_1_german.c → STEMMER_stem_ISO_8859_1_german.c} +161 -170
  22. data/ext/STEMMER_stem_ISO_8859_1_hungarian.c +1230 -0
  23. data/ext/STEMMER_stem_ISO_8859_1_italian.c +1065 -0
  24. data/ext/STEMMER_stem_ISO_8859_1_norwegian.c +297 -0
  25. data/ext/{stem_ISO_8859_1_porter.c → STEMMER_stem_ISO_8859_1_porter.c} +263 -290
  26. data/ext/{stem_ISO_8859_1_portuguese.c → STEMMER_stem_ISO_8859_1_portuguese.c} +362 -380
  27. data/ext/STEMMER_stem_ISO_8859_1_spanish.c +1093 -0
  28. data/ext/STEMMER_stem_ISO_8859_1_swedish.c +307 -0
  29. data/ext/STEMMER_stem_ISO_8859_2_romanian.c +998 -0
  30. data/ext/{stem_KOI8_R_russian.c → STEMMER_stem_KOI8_R_russian.c} +244 -245
  31. data/ext/STEMMER_stem_UTF_8_danish.c +339 -0
  32. data/ext/{stem_UTF_8_dutch.c → STEMMER_stem_UTF_8_dutch.c} +192 -211
  33. data/ext/STEMMER_stem_UTF_8_english.c +1125 -0
  34. data/ext/{stem_UTF_8_finnish.c → STEMMER_stem_UTF_8_finnish.c} +284 -324
  35. data/ext/STEMMER_stem_UTF_8_french.c +1256 -0
  36. data/ext/{stem_UTF_8_german.c → STEMMER_stem_UTF_8_german.c} +170 -187
  37. data/ext/STEMMER_stem_UTF_8_hungarian.c +1234 -0
  38. data/ext/STEMMER_stem_UTF_8_italian.c +1073 -0
  39. data/ext/STEMMER_stem_UTF_8_norwegian.c +299 -0
  40. data/ext/{stem_UTF_8_porter.c → STEMMER_stem_UTF_8_porter.c} +271 -310
  41. data/ext/STEMMER_stem_UTF_8_portuguese.c +1023 -0
  42. data/ext/STEMMER_stem_UTF_8_romanian.c +1004 -0
  43. data/ext/STEMMER_stem_UTF_8_russian.c +694 -0
  44. data/ext/STEMMER_stem_UTF_8_spanish.c +1097 -0
  45. data/ext/STEMMER_stem_UTF_8_swedish.c +309 -0
  46. data/ext/STEMMER_stem_UTF_8_turkish.c +2205 -0
  47. data/ext/{utilities.c → STEMMER_utilities.c} +100 -68
  48. data/ext/analysis.c +276 -121
  49. data/ext/analysis.h +190 -143
  50. data/ext/api.h +3 -4
  51. data/ext/array.c +5 -3
  52. data/ext/array.h +52 -43
  53. data/ext/bitvector.c +38 -482
  54. data/ext/bitvector.h +446 -124
  55. data/ext/bzlib.h +282 -0
  56. data/ext/bzlib_private.h +503 -0
  57. data/ext/compound_io.c +23 -22
  58. data/ext/config.h +21 -11
  59. data/ext/document.c +43 -40
  60. data/ext/document.h +31 -21
  61. data/ext/except.c +20 -38
  62. data/ext/except.h +89 -76
  63. data/ext/extconf.rb +3 -2
  64. data/ext/ferret.c +49 -35
  65. data/ext/ferret.h +14 -11
  66. data/ext/field_index.c +262 -0
  67. data/ext/field_index.h +52 -0
  68. data/ext/filter.c +11 -10
  69. data/ext/fs_store.c +65 -47
  70. data/ext/global.c +245 -165
  71. data/ext/global.h +252 -54
  72. data/ext/hash.c +200 -243
  73. data/ext/hash.h +205 -163
  74. data/ext/hashset.c +118 -96
  75. data/ext/hashset.h +110 -82
  76. data/ext/header.h +19 -19
  77. data/ext/helper.c +11 -10
  78. data/ext/helper.h +14 -6
  79. data/ext/index.c +745 -366
  80. data/ext/index.h +503 -529
  81. data/ext/internal.h +1020 -0
  82. data/ext/lang.c +10 -0
  83. data/ext/lang.h +35 -15
  84. data/ext/mempool.c +5 -4
  85. data/ext/mempool.h +30 -22
  86. data/ext/modules.h +35 -7
  87. data/ext/multimapper.c +43 -2
  88. data/ext/multimapper.h +32 -23
  89. data/ext/posh.c +0 -0
  90. data/ext/posh.h +4 -38
  91. data/ext/priorityqueue.c +10 -12
  92. data/ext/priorityqueue.h +33 -21
  93. data/ext/q_boolean.c +22 -9
  94. data/ext/q_const_score.c +3 -2
  95. data/ext/q_filtered_query.c +15 -12
  96. data/ext/q_fuzzy.c +147 -135
  97. data/ext/q_match_all.c +3 -2
  98. data/ext/q_multi_term.c +28 -32
  99. data/ext/q_parser.c +451 -173
  100. data/ext/q_phrase.c +158 -79
  101. data/ext/q_prefix.c +16 -18
  102. data/ext/q_range.c +363 -31
  103. data/ext/q_span.c +130 -141
  104. data/ext/q_term.c +21 -21
  105. data/ext/q_wildcard.c +19 -23
  106. data/ext/r_analysis.c +369 -242
  107. data/ext/r_index.c +421 -434
  108. data/ext/r_qparser.c +142 -92
  109. data/ext/r_search.c +790 -407
  110. data/ext/r_store.c +44 -44
  111. data/ext/r_utils.c +264 -96
  112. data/ext/ram_store.c +29 -23
  113. data/ext/scanner.c +895 -0
  114. data/ext/scanner.h +36 -0
  115. data/ext/scanner_mb.c +6701 -0
  116. data/ext/scanner_utf8.c +4415 -0
  117. data/ext/search.c +210 -87
  118. data/ext/search.h +556 -488
  119. data/ext/similarity.c +17 -16
  120. data/ext/similarity.h +51 -44
  121. data/ext/sort.c +157 -354
  122. data/ext/stem_ISO_8859_1_hungarian.h +16 -0
  123. data/ext/stem_ISO_8859_2_romanian.h +16 -0
  124. data/ext/stem_UTF_8_hungarian.h +16 -0
  125. data/ext/stem_UTF_8_romanian.h +16 -0
  126. data/ext/stem_UTF_8_turkish.h +16 -0
  127. data/ext/stopwords.c +287 -278
  128. data/ext/store.c +57 -51
  129. data/ext/store.h +308 -286
  130. data/ext/symbol.c +10 -0
  131. data/ext/symbol.h +23 -0
  132. data/ext/term_vectors.c +14 -293
  133. data/ext/threading.h +22 -22
  134. data/ext/win32.h +12 -4
  135. data/lib/ferret.rb +2 -1
  136. data/lib/ferret/browser.rb +1 -1
  137. data/lib/ferret/field_symbol.rb +94 -0
  138. data/lib/ferret/index.rb +221 -34
  139. data/lib/ferret/number_tools.rb +6 -6
  140. data/lib/ferret/version.rb +3 -0
  141. data/test/{unit → long_running}/largefile/tc_largefile.rb +1 -1
  142. data/test/test_helper.rb +7 -2
  143. data/test/test_installed.rb +1 -0
  144. data/test/threading/thread_safety_index_test.rb +10 -1
  145. data/test/threading/thread_safety_read_write_test.rb +4 -7
  146. data/test/threading/thread_safety_test.rb +0 -0
  147. data/test/unit/analysis/tc_analyzer.rb +29 -27
  148. data/test/unit/analysis/tc_token_stream.rb +23 -16
  149. data/test/unit/index/tc_index.rb +116 -11
  150. data/test/unit/index/tc_index_reader.rb +27 -27
  151. data/test/unit/index/tc_index_writer.rb +10 -0
  152. data/test/unit/index/th_doc.rb +38 -21
  153. data/test/unit/search/tc_filter.rb +31 -10
  154. data/test/unit/search/tc_index_searcher.rb +6 -0
  155. data/test/unit/search/tm_searcher.rb +53 -1
  156. data/test/unit/store/tc_fs_store.rb +40 -2
  157. data/test/unit/store/tc_ram_store.rb +0 -0
  158. data/test/unit/store/tm_store.rb +0 -0
  159. data/test/unit/store/tm_store_lock.rb +7 -6
  160. data/test/unit/tc_field_symbol.rb +26 -0
  161. data/test/unit/ts_analysis.rb +0 -0
  162. data/test/unit/ts_index.rb +0 -0
  163. data/test/unit/ts_store.rb +0 -0
  164. data/test/unit/ts_utils.rb +0 -0
  165. data/test/unit/utils/tc_number_tools.rb +0 -0
  166. data/test/utils/content_generator.rb +226 -0
  167. metadata +262 -221
  168. data/ext/inc/lang.h +0 -48
  169. data/ext/inc/threading.h +0 -31
  170. data/ext/stem_ISO_8859_1_english.c +0 -1156
  171. data/ext/stem_ISO_8859_1_french.c +0 -1276
  172. data/ext/stem_ISO_8859_1_italian.c +0 -1091
  173. data/ext/stem_ISO_8859_1_norwegian.c +0 -296
  174. data/ext/stem_ISO_8859_1_spanish.c +0 -1119
  175. data/ext/stem_ISO_8859_1_swedish.c +0 -307
  176. data/ext/stem_UTF_8_danish.c +0 -344
  177. data/ext/stem_UTF_8_english.c +0 -1176
  178. data/ext/stem_UTF_8_french.c +0 -1296
  179. data/ext/stem_UTF_8_italian.c +0 -1113
  180. data/ext/stem_UTF_8_norwegian.c +0 -302
  181. data/ext/stem_UTF_8_portuguese.c +0 -1055
  182. data/ext/stem_UTF_8_russian.c +0 -709
  183. data/ext/stem_UTF_8_spanish.c +0 -1137
  184. data/ext/stem_UTF_8_swedish.c +0 -313
  185. data/lib/ferret_version.rb +0 -3
@@ -0,0 +1,307 @@
1
+
2
+ /* This file was generated automatically by the Snowball to ANSI C compiler */
3
+
4
+ #include "header.h"
5
+
6
+ #ifdef __cplusplus
7
+ extern "C" {
8
+ #endif
9
+ extern int swedish_ISO_8859_1_stem(struct SN_env * z);
10
+ #ifdef __cplusplus
11
+ }
12
+ #endif
13
+ static int r_other_suffix(struct SN_env * z);
14
+ static int r_consonant_pair(struct SN_env * z);
15
+ static int r_main_suffix(struct SN_env * z);
16
+ static int r_mark_regions(struct SN_env * z);
17
+ #ifdef __cplusplus
18
+ extern "C" {
19
+ #endif
20
+
21
+
22
+ extern struct SN_env * swedish_ISO_8859_1_create_env(void);
23
+ extern void swedish_ISO_8859_1_close_env(struct SN_env * z);
24
+
25
+
26
+ #ifdef __cplusplus
27
+ }
28
+ #endif
29
+ static const symbol s_0_0[1] = { 'a' };
30
+ static const symbol s_0_1[4] = { 'a', 'r', 'n', 'a' };
31
+ static const symbol s_0_2[4] = { 'e', 'r', 'n', 'a' };
32
+ static const symbol s_0_3[7] = { 'h', 'e', 't', 'e', 'r', 'n', 'a' };
33
+ static const symbol s_0_4[4] = { 'o', 'r', 'n', 'a' };
34
+ static const symbol s_0_5[2] = { 'a', 'd' };
35
+ static const symbol s_0_6[1] = { 'e' };
36
+ static const symbol s_0_7[3] = { 'a', 'd', 'e' };
37
+ static const symbol s_0_8[4] = { 'a', 'n', 'd', 'e' };
38
+ static const symbol s_0_9[4] = { 'a', 'r', 'n', 'e' };
39
+ static const symbol s_0_10[3] = { 'a', 'r', 'e' };
40
+ static const symbol s_0_11[4] = { 'a', 's', 't', 'e' };
41
+ static const symbol s_0_12[2] = { 'e', 'n' };
42
+ static const symbol s_0_13[5] = { 'a', 'n', 'd', 'e', 'n' };
43
+ static const symbol s_0_14[4] = { 'a', 'r', 'e', 'n' };
44
+ static const symbol s_0_15[5] = { 'h', 'e', 't', 'e', 'n' };
45
+ static const symbol s_0_16[3] = { 'e', 'r', 'n' };
46
+ static const symbol s_0_17[2] = { 'a', 'r' };
47
+ static const symbol s_0_18[2] = { 'e', 'r' };
48
+ static const symbol s_0_19[5] = { 'h', 'e', 't', 'e', 'r' };
49
+ static const symbol s_0_20[2] = { 'o', 'r' };
50
+ static const symbol s_0_21[1] = { 's' };
51
+ static const symbol s_0_22[2] = { 'a', 's' };
52
+ static const symbol s_0_23[5] = { 'a', 'r', 'n', 'a', 's' };
53
+ static const symbol s_0_24[5] = { 'e', 'r', 'n', 'a', 's' };
54
+ static const symbol s_0_25[5] = { 'o', 'r', 'n', 'a', 's' };
55
+ static const symbol s_0_26[2] = { 'e', 's' };
56
+ static const symbol s_0_27[4] = { 'a', 'd', 'e', 's' };
57
+ static const symbol s_0_28[5] = { 'a', 'n', 'd', 'e', 's' };
58
+ static const symbol s_0_29[3] = { 'e', 'n', 's' };
59
+ static const symbol s_0_30[5] = { 'a', 'r', 'e', 'n', 's' };
60
+ static const symbol s_0_31[6] = { 'h', 'e', 't', 'e', 'n', 's' };
61
+ static const symbol s_0_32[4] = { 'e', 'r', 'n', 's' };
62
+ static const symbol s_0_33[2] = { 'a', 't' };
63
+ static const symbol s_0_34[5] = { 'a', 'n', 'd', 'e', 't' };
64
+ static const symbol s_0_35[3] = { 'h', 'e', 't' };
65
+ static const symbol s_0_36[3] = { 'a', 's', 't' };
66
+
67
+ static const struct among a_0[37] =
68
+ {
69
+ /* 0 */ { 1, s_0_0, -1, 1, 0},
70
+ /* 1 */ { 4, s_0_1, 0, 1, 0},
71
+ /* 2 */ { 4, s_0_2, 0, 1, 0},
72
+ /* 3 */ { 7, s_0_3, 2, 1, 0},
73
+ /* 4 */ { 4, s_0_4, 0, 1, 0},
74
+ /* 5 */ { 2, s_0_5, -1, 1, 0},
75
+ /* 6 */ { 1, s_0_6, -1, 1, 0},
76
+ /* 7 */ { 3, s_0_7, 6, 1, 0},
77
+ /* 8 */ { 4, s_0_8, 6, 1, 0},
78
+ /* 9 */ { 4, s_0_9, 6, 1, 0},
79
+ /* 10 */ { 3, s_0_10, 6, 1, 0},
80
+ /* 11 */ { 4, s_0_11, 6, 1, 0},
81
+ /* 12 */ { 2, s_0_12, -1, 1, 0},
82
+ /* 13 */ { 5, s_0_13, 12, 1, 0},
83
+ /* 14 */ { 4, s_0_14, 12, 1, 0},
84
+ /* 15 */ { 5, s_0_15, 12, 1, 0},
85
+ /* 16 */ { 3, s_0_16, -1, 1, 0},
86
+ /* 17 */ { 2, s_0_17, -1, 1, 0},
87
+ /* 18 */ { 2, s_0_18, -1, 1, 0},
88
+ /* 19 */ { 5, s_0_19, 18, 1, 0},
89
+ /* 20 */ { 2, s_0_20, -1, 1, 0},
90
+ /* 21 */ { 1, s_0_21, -1, 2, 0},
91
+ /* 22 */ { 2, s_0_22, 21, 1, 0},
92
+ /* 23 */ { 5, s_0_23, 22, 1, 0},
93
+ /* 24 */ { 5, s_0_24, 22, 1, 0},
94
+ /* 25 */ { 5, s_0_25, 22, 1, 0},
95
+ /* 26 */ { 2, s_0_26, 21, 1, 0},
96
+ /* 27 */ { 4, s_0_27, 26, 1, 0},
97
+ /* 28 */ { 5, s_0_28, 26, 1, 0},
98
+ /* 29 */ { 3, s_0_29, 21, 1, 0},
99
+ /* 30 */ { 5, s_0_30, 29, 1, 0},
100
+ /* 31 */ { 6, s_0_31, 29, 1, 0},
101
+ /* 32 */ { 4, s_0_32, 21, 1, 0},
102
+ /* 33 */ { 2, s_0_33, -1, 1, 0},
103
+ /* 34 */ { 5, s_0_34, -1, 1, 0},
104
+ /* 35 */ { 3, s_0_35, -1, 1, 0},
105
+ /* 36 */ { 3, s_0_36, -1, 1, 0}
106
+ };
107
+
108
+ static const symbol s_1_0[2] = { 'd', 'd' };
109
+ static const symbol s_1_1[2] = { 'g', 'd' };
110
+ static const symbol s_1_2[2] = { 'n', 'n' };
111
+ static const symbol s_1_3[2] = { 'd', 't' };
112
+ static const symbol s_1_4[2] = { 'g', 't' };
113
+ static const symbol s_1_5[2] = { 'k', 't' };
114
+ static const symbol s_1_6[2] = { 't', 't' };
115
+
116
+ static const struct among a_1[7] =
117
+ {
118
+ /* 0 */ { 2, s_1_0, -1, -1, 0},
119
+ /* 1 */ { 2, s_1_1, -1, -1, 0},
120
+ /* 2 */ { 2, s_1_2, -1, -1, 0},
121
+ /* 3 */ { 2, s_1_3, -1, -1, 0},
122
+ /* 4 */ { 2, s_1_4, -1, -1, 0},
123
+ /* 5 */ { 2, s_1_5, -1, -1, 0},
124
+ /* 6 */ { 2, s_1_6, -1, -1, 0}
125
+ };
126
+
127
+ static const symbol s_2_0[2] = { 'i', 'g' };
128
+ static const symbol s_2_1[3] = { 'l', 'i', 'g' };
129
+ static const symbol s_2_2[3] = { 'e', 'l', 's' };
130
+ static const symbol s_2_3[5] = { 'f', 'u', 'l', 'l', 't' };
131
+ static const symbol s_2_4[4] = { 'l', 0xF6, 's', 't' };
132
+
133
+ static const struct among a_2[5] =
134
+ {
135
+ /* 0 */ { 2, s_2_0, -1, 1, 0},
136
+ /* 1 */ { 3, s_2_1, 0, 1, 0},
137
+ /* 2 */ { 3, s_2_2, -1, 1, 0},
138
+ /* 3 */ { 5, s_2_3, -1, 3, 0},
139
+ /* 4 */ { 4, s_2_4, -1, 2, 0}
140
+ };
141
+
142
+ static const unsigned char g_v[] = { 17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 0, 32 };
143
+
144
+ static const unsigned char g_s_ending[] = { 119, 127, 149 };
145
+
146
+ static const symbol s_0[] = { 'l', 0xF6, 's' };
147
+ static const symbol s_1[] = { 'f', 'u', 'l', 'l' };
148
+
149
+ static int r_mark_regions(struct SN_env * z) {
150
+ z->I[0] = z->l;
151
+ { int c_test = z->c; /* test, line 29 */
152
+ { int ret = z->c + 3;
153
+ if (0 > ret || ret > z->l) return 0;
154
+ z->c = ret; /* hop, line 29 */
155
+ }
156
+ z->I[1] = z->c; /* setmark x, line 29 */
157
+ z->c = c_test;
158
+ }
159
+ if (out_grouping(z, g_v, 97, 246, 1) < 0) return 0; /* goto */ /* grouping v, line 30 */
160
+ { /* gopast */ /* non v, line 30 */
161
+ int ret = in_grouping(z, g_v, 97, 246, 1);
162
+ if (ret < 0) return 0;
163
+ z->c += ret;
164
+ }
165
+ z->I[0] = z->c; /* setmark p1, line 30 */
166
+ /* try, line 31 */
167
+ if (!(z->I[0] < z->I[1])) goto lab0;
168
+ z->I[0] = z->I[1];
169
+ lab0:
170
+ return 1;
171
+ }
172
+
173
+ static int r_main_suffix(struct SN_env * z) {
174
+ int among_var;
175
+ { int mlimit; /* setlimit, line 37 */
176
+ int m1 = z->l - z->c; (void)m1;
177
+ if (z->c < z->I[0]) return 0;
178
+ z->c = z->I[0]; /* tomark, line 37 */
179
+ mlimit = z->lb; z->lb = z->c;
180
+ z->c = z->l - m1;
181
+ z->ket = z->c; /* [, line 37 */
182
+ if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1851442 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->lb = mlimit; return 0; }
183
+ among_var = find_among_b(z, a_0, 37); /* substring, line 37 */
184
+ if (!(among_var)) { z->lb = mlimit; return 0; }
185
+ z->bra = z->c; /* ], line 37 */
186
+ z->lb = mlimit;
187
+ }
188
+ switch(among_var) {
189
+ case 0: return 0;
190
+ case 1:
191
+ { int ret = slice_del(z); /* delete, line 44 */
192
+ if (ret < 0) return ret;
193
+ }
194
+ break;
195
+ case 2:
196
+ if (in_grouping_b(z, g_s_ending, 98, 121, 0)) return 0;
197
+ { int ret = slice_del(z); /* delete, line 46 */
198
+ if (ret < 0) return ret;
199
+ }
200
+ break;
201
+ }
202
+ return 1;
203
+ }
204
+
205
+ static int r_consonant_pair(struct SN_env * z) {
206
+ { int mlimit; /* setlimit, line 50 */
207
+ int m1 = z->l - z->c; (void)m1;
208
+ if (z->c < z->I[0]) return 0;
209
+ z->c = z->I[0]; /* tomark, line 50 */
210
+ mlimit = z->lb; z->lb = z->c;
211
+ z->c = z->l - m1;
212
+ { int m2 = z->l - z->c; (void)m2; /* and, line 52 */
213
+ if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1064976 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->lb = mlimit; return 0; }
214
+ if (!(find_among_b(z, a_1, 7))) { z->lb = mlimit; return 0; } /* among, line 51 */
215
+ z->c = z->l - m2;
216
+ z->ket = z->c; /* [, line 52 */
217
+ if (z->c <= z->lb) { z->lb = mlimit; return 0; }
218
+ z->c--; /* next, line 52 */
219
+ z->bra = z->c; /* ], line 52 */
220
+ { int ret = slice_del(z); /* delete, line 52 */
221
+ if (ret < 0) return ret;
222
+ }
223
+ }
224
+ z->lb = mlimit;
225
+ }
226
+ return 1;
227
+ }
228
+
229
+ static int r_other_suffix(struct SN_env * z) {
230
+ int among_var;
231
+ { int mlimit; /* setlimit, line 55 */
232
+ int m1 = z->l - z->c; (void)m1;
233
+ if (z->c < z->I[0]) return 0;
234
+ z->c = z->I[0]; /* tomark, line 55 */
235
+ mlimit = z->lb; z->lb = z->c;
236
+ z->c = z->l - m1;
237
+ z->ket = z->c; /* [, line 56 */
238
+ if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1572992 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->lb = mlimit; return 0; }
239
+ among_var = find_among_b(z, a_2, 5); /* substring, line 56 */
240
+ if (!(among_var)) { z->lb = mlimit; return 0; }
241
+ z->bra = z->c; /* ], line 56 */
242
+ switch(among_var) {
243
+ case 0: { z->lb = mlimit; return 0; }
244
+ case 1:
245
+ { int ret = slice_del(z); /* delete, line 57 */
246
+ if (ret < 0) return ret;
247
+ }
248
+ break;
249
+ case 2:
250
+ { int ret = slice_from_s(z, 3, s_0); /* <-, line 58 */
251
+ if (ret < 0) return ret;
252
+ }
253
+ break;
254
+ case 3:
255
+ { int ret = slice_from_s(z, 4, s_1); /* <-, line 59 */
256
+ if (ret < 0) return ret;
257
+ }
258
+ break;
259
+ }
260
+ z->lb = mlimit;
261
+ }
262
+ return 1;
263
+ }
264
+
265
+ extern int swedish_ISO_8859_1_stem(struct SN_env * z) {
266
+ { int c1 = z->c; /* do, line 66 */
267
+ { int ret = r_mark_regions(z);
268
+ if (ret == 0) goto lab0; /* call mark_regions, line 66 */
269
+ if (ret < 0) return ret;
270
+ }
271
+ lab0:
272
+ z->c = c1;
273
+ }
274
+ z->lb = z->c; z->c = z->l; /* backwards, line 67 */
275
+
276
+ { int m2 = z->l - z->c; (void)m2; /* do, line 68 */
277
+ { int ret = r_main_suffix(z);
278
+ if (ret == 0) goto lab1; /* call main_suffix, line 68 */
279
+ if (ret < 0) return ret;
280
+ }
281
+ lab1:
282
+ z->c = z->l - m2;
283
+ }
284
+ { int m3 = z->l - z->c; (void)m3; /* do, line 69 */
285
+ { int ret = r_consonant_pair(z);
286
+ if (ret == 0) goto lab2; /* call consonant_pair, line 69 */
287
+ if (ret < 0) return ret;
288
+ }
289
+ lab2:
290
+ z->c = z->l - m3;
291
+ }
292
+ { int m4 = z->l - z->c; (void)m4; /* do, line 70 */
293
+ { int ret = r_other_suffix(z);
294
+ if (ret == 0) goto lab3; /* call other_suffix, line 70 */
295
+ if (ret < 0) return ret;
296
+ }
297
+ lab3:
298
+ z->c = z->l - m4;
299
+ }
300
+ z->c = z->lb;
301
+ return 1;
302
+ }
303
+
304
+ extern struct SN_env * swedish_ISO_8859_1_create_env(void) { return SN_create_env(0, 2, 0); }
305
+
306
+ extern void swedish_ISO_8859_1_close_env(struct SN_env * z) { SN_close_env(z, 0); }
307
+
@@ -0,0 +1,998 @@
1
+
2
+ /* This file was generated automatically by the Snowball to ANSI C compiler */
3
+
4
+ #include "header.h"
5
+
6
+ #ifdef __cplusplus
7
+ extern "C" {
8
+ #endif
9
+ extern int romanian_ISO_8859_2_stem(struct SN_env * z);
10
+ #ifdef __cplusplus
11
+ }
12
+ #endif
13
+ static int r_vowel_suffix(struct SN_env * z);
14
+ static int r_verb_suffix(struct SN_env * z);
15
+ static int r_combo_suffix(struct SN_env * z);
16
+ static int r_standard_suffix(struct SN_env * z);
17
+ static int r_step_0(struct SN_env * z);
18
+ static int r_R2(struct SN_env * z);
19
+ static int r_R1(struct SN_env * z);
20
+ static int r_RV(struct SN_env * z);
21
+ static int r_mark_regions(struct SN_env * z);
22
+ static int r_postlude(struct SN_env * z);
23
+ static int r_prelude(struct SN_env * z);
24
+ #ifdef __cplusplus
25
+ extern "C" {
26
+ #endif
27
+
28
+
29
+ extern struct SN_env * romanian_ISO_8859_2_create_env(void);
30
+ extern void romanian_ISO_8859_2_close_env(struct SN_env * z);
31
+
32
+
33
+ #ifdef __cplusplus
34
+ }
35
+ #endif
36
+ static const symbol s_0_1[1] = { 'I' };
37
+ static const symbol s_0_2[1] = { 'U' };
38
+
39
+ static const struct among a_0[3] =
40
+ {
41
+ /* 0 */ { 0, 0, -1, 3, 0},
42
+ /* 1 */ { 1, s_0_1, 0, 1, 0},
43
+ /* 2 */ { 1, s_0_2, 0, 2, 0}
44
+ };
45
+
46
+ static const symbol s_1_0[2] = { 'e', 'a' };
47
+ static const symbol s_1_1[4] = { 'a', 0xFE, 'i', 'a' };
48
+ static const symbol s_1_2[3] = { 'a', 'u', 'a' };
49
+ static const symbol s_1_3[3] = { 'i', 'u', 'a' };
50
+ static const symbol s_1_4[4] = { 'a', 0xFE, 'i', 'e' };
51
+ static const symbol s_1_5[3] = { 'e', 'l', 'e' };
52
+ static const symbol s_1_6[3] = { 'i', 'l', 'e' };
53
+ static const symbol s_1_7[4] = { 'i', 'i', 'l', 'e' };
54
+ static const symbol s_1_8[3] = { 'i', 'e', 'i' };
55
+ static const symbol s_1_9[4] = { 'a', 't', 'e', 'i' };
56
+ static const symbol s_1_10[2] = { 'i', 'i' };
57
+ static const symbol s_1_11[4] = { 'u', 'l', 'u', 'i' };
58
+ static const symbol s_1_12[2] = { 'u', 'l' };
59
+ static const symbol s_1_13[4] = { 'e', 'l', 'o', 'r' };
60
+ static const symbol s_1_14[4] = { 'i', 'l', 'o', 'r' };
61
+ static const symbol s_1_15[5] = { 'i', 'i', 'l', 'o', 'r' };
62
+
63
+ static const struct among a_1[16] =
64
+ {
65
+ /* 0 */ { 2, s_1_0, -1, 3, 0},
66
+ /* 1 */ { 4, s_1_1, -1, 7, 0},
67
+ /* 2 */ { 3, s_1_2, -1, 2, 0},
68
+ /* 3 */ { 3, s_1_3, -1, 4, 0},
69
+ /* 4 */ { 4, s_1_4, -1, 7, 0},
70
+ /* 5 */ { 3, s_1_5, -1, 3, 0},
71
+ /* 6 */ { 3, s_1_6, -1, 5, 0},
72
+ /* 7 */ { 4, s_1_7, 6, 4, 0},
73
+ /* 8 */ { 3, s_1_8, -1, 4, 0},
74
+ /* 9 */ { 4, s_1_9, -1, 6, 0},
75
+ /* 10 */ { 2, s_1_10, -1, 4, 0},
76
+ /* 11 */ { 4, s_1_11, -1, 1, 0},
77
+ /* 12 */ { 2, s_1_12, -1, 1, 0},
78
+ /* 13 */ { 4, s_1_13, -1, 3, 0},
79
+ /* 14 */ { 4, s_1_14, -1, 4, 0},
80
+ /* 15 */ { 5, s_1_15, 14, 4, 0}
81
+ };
82
+
83
+ static const symbol s_2_0[5] = { 'i', 'c', 'a', 'l', 'a' };
84
+ static const symbol s_2_1[5] = { 'i', 'c', 'i', 'v', 'a' };
85
+ static const symbol s_2_2[5] = { 'a', 't', 'i', 'v', 'a' };
86
+ static const symbol s_2_3[5] = { 'i', 't', 'i', 'v', 'a' };
87
+ static const symbol s_2_4[5] = { 'i', 'c', 'a', 'l', 'e' };
88
+ static const symbol s_2_5[6] = { 'a', 0xFE, 'i', 'u', 'n', 'e' };
89
+ static const symbol s_2_6[6] = { 'i', 0xFE, 'i', 'u', 'n', 'e' };
90
+ static const symbol s_2_7[6] = { 'a', 't', 'o', 'a', 'r', 'e' };
91
+ static const symbol s_2_8[6] = { 'i', 't', 'o', 'a', 'r', 'e' };
92
+ static const symbol s_2_9[6] = { 0xE3, 't', 'o', 'a', 'r', 'e' };
93
+ static const symbol s_2_10[7] = { 'i', 'c', 'i', 't', 'a', 't', 'e' };
94
+ static const symbol s_2_11[9] = { 'a', 'b', 'i', 'l', 'i', 't', 'a', 't', 'e' };
95
+ static const symbol s_2_12[9] = { 'i', 'b', 'i', 'l', 'i', 't', 'a', 't', 'e' };
96
+ static const symbol s_2_13[7] = { 'i', 'v', 'i', 't', 'a', 't', 'e' };
97
+ static const symbol s_2_14[5] = { 'i', 'c', 'i', 'v', 'e' };
98
+ static const symbol s_2_15[5] = { 'a', 't', 'i', 'v', 'e' };
99
+ static const symbol s_2_16[5] = { 'i', 't', 'i', 'v', 'e' };
100
+ static const symbol s_2_17[5] = { 'i', 'c', 'a', 'l', 'i' };
101
+ static const symbol s_2_18[5] = { 'a', 't', 'o', 'r', 'i' };
102
+ static const symbol s_2_19[7] = { 'i', 'c', 'a', 't', 'o', 'r', 'i' };
103
+ static const symbol s_2_20[5] = { 'i', 't', 'o', 'r', 'i' };
104
+ static const symbol s_2_21[5] = { 0xE3, 't', 'o', 'r', 'i' };
105
+ static const symbol s_2_22[7] = { 'i', 'c', 'i', 't', 'a', 't', 'i' };
106
+ static const symbol s_2_23[9] = { 'a', 'b', 'i', 'l', 'i', 't', 'a', 't', 'i' };
107
+ static const symbol s_2_24[7] = { 'i', 'v', 'i', 't', 'a', 't', 'i' };
108
+ static const symbol s_2_25[5] = { 'i', 'c', 'i', 'v', 'i' };
109
+ static const symbol s_2_26[5] = { 'a', 't', 'i', 'v', 'i' };
110
+ static const symbol s_2_27[5] = { 'i', 't', 'i', 'v', 'i' };
111
+ static const symbol s_2_28[6] = { 'i', 'c', 'i', 't', 0xE3, 'i' };
112
+ static const symbol s_2_29[8] = { 'a', 'b', 'i', 'l', 'i', 't', 0xE3, 'i' };
113
+ static const symbol s_2_30[6] = { 'i', 'v', 'i', 't', 0xE3, 'i' };
114
+ static const symbol s_2_31[7] = { 'i', 'c', 'i', 't', 0xE3, 0xFE, 'i' };
115
+ static const symbol s_2_32[9] = { 'a', 'b', 'i', 'l', 'i', 't', 0xE3, 0xFE, 'i' };
116
+ static const symbol s_2_33[7] = { 'i', 'v', 'i', 't', 0xE3, 0xFE, 'i' };
117
+ static const symbol s_2_34[4] = { 'i', 'c', 'a', 'l' };
118
+ static const symbol s_2_35[4] = { 'a', 't', 'o', 'r' };
119
+ static const symbol s_2_36[6] = { 'i', 'c', 'a', 't', 'o', 'r' };
120
+ static const symbol s_2_37[4] = { 'i', 't', 'o', 'r' };
121
+ static const symbol s_2_38[4] = { 0xE3, 't', 'o', 'r' };
122
+ static const symbol s_2_39[4] = { 'i', 'c', 'i', 'v' };
123
+ static const symbol s_2_40[4] = { 'a', 't', 'i', 'v' };
124
+ static const symbol s_2_41[4] = { 'i', 't', 'i', 'v' };
125
+ static const symbol s_2_42[5] = { 'i', 'c', 'a', 'l', 0xE3 };
126
+ static const symbol s_2_43[5] = { 'i', 'c', 'i', 'v', 0xE3 };
127
+ static const symbol s_2_44[5] = { 'a', 't', 'i', 'v', 0xE3 };
128
+ static const symbol s_2_45[5] = { 'i', 't', 'i', 'v', 0xE3 };
129
+
130
+ static const struct among a_2[46] =
131
+ {
132
+ /* 0 */ { 5, s_2_0, -1, 4, 0},
133
+ /* 1 */ { 5, s_2_1, -1, 4, 0},
134
+ /* 2 */ { 5, s_2_2, -1, 5, 0},
135
+ /* 3 */ { 5, s_2_3, -1, 6, 0},
136
+ /* 4 */ { 5, s_2_4, -1, 4, 0},
137
+ /* 5 */ { 6, s_2_5, -1, 5, 0},
138
+ /* 6 */ { 6, s_2_6, -1, 6, 0},
139
+ /* 7 */ { 6, s_2_7, -1, 5, 0},
140
+ /* 8 */ { 6, s_2_8, -1, 6, 0},
141
+ /* 9 */ { 6, s_2_9, -1, 5, 0},
142
+ /* 10 */ { 7, s_2_10, -1, 4, 0},
143
+ /* 11 */ { 9, s_2_11, -1, 1, 0},
144
+ /* 12 */ { 9, s_2_12, -1, 2, 0},
145
+ /* 13 */ { 7, s_2_13, -1, 3, 0},
146
+ /* 14 */ { 5, s_2_14, -1, 4, 0},
147
+ /* 15 */ { 5, s_2_15, -1, 5, 0},
148
+ /* 16 */ { 5, s_2_16, -1, 6, 0},
149
+ /* 17 */ { 5, s_2_17, -1, 4, 0},
150
+ /* 18 */ { 5, s_2_18, -1, 5, 0},
151
+ /* 19 */ { 7, s_2_19, 18, 4, 0},
152
+ /* 20 */ { 5, s_2_20, -1, 6, 0},
153
+ /* 21 */ { 5, s_2_21, -1, 5, 0},
154
+ /* 22 */ { 7, s_2_22, -1, 4, 0},
155
+ /* 23 */ { 9, s_2_23, -1, 1, 0},
156
+ /* 24 */ { 7, s_2_24, -1, 3, 0},
157
+ /* 25 */ { 5, s_2_25, -1, 4, 0},
158
+ /* 26 */ { 5, s_2_26, -1, 5, 0},
159
+ /* 27 */ { 5, s_2_27, -1, 6, 0},
160
+ /* 28 */ { 6, s_2_28, -1, 4, 0},
161
+ /* 29 */ { 8, s_2_29, -1, 1, 0},
162
+ /* 30 */ { 6, s_2_30, -1, 3, 0},
163
+ /* 31 */ { 7, s_2_31, -1, 4, 0},
164
+ /* 32 */ { 9, s_2_32, -1, 1, 0},
165
+ /* 33 */ { 7, s_2_33, -1, 3, 0},
166
+ /* 34 */ { 4, s_2_34, -1, 4, 0},
167
+ /* 35 */ { 4, s_2_35, -1, 5, 0},
168
+ /* 36 */ { 6, s_2_36, 35, 4, 0},
169
+ /* 37 */ { 4, s_2_37, -1, 6, 0},
170
+ /* 38 */ { 4, s_2_38, -1, 5, 0},
171
+ /* 39 */ { 4, s_2_39, -1, 4, 0},
172
+ /* 40 */ { 4, s_2_40, -1, 5, 0},
173
+ /* 41 */ { 4, s_2_41, -1, 6, 0},
174
+ /* 42 */ { 5, s_2_42, -1, 4, 0},
175
+ /* 43 */ { 5, s_2_43, -1, 4, 0},
176
+ /* 44 */ { 5, s_2_44, -1, 5, 0},
177
+ /* 45 */ { 5, s_2_45, -1, 6, 0}
178
+ };
179
+
180
+ static const symbol s_3_0[3] = { 'i', 'c', 'a' };
181
+ static const symbol s_3_1[5] = { 'a', 'b', 'i', 'l', 'a' };
182
+ static const symbol s_3_2[5] = { 'i', 'b', 'i', 'l', 'a' };
183
+ static const symbol s_3_3[4] = { 'o', 'a', 's', 'a' };
184
+ static const symbol s_3_4[3] = { 'a', 't', 'a' };
185
+ static const symbol s_3_5[3] = { 'i', 't', 'a' };
186
+ static const symbol s_3_6[4] = { 'a', 'n', 't', 'a' };
187
+ static const symbol s_3_7[4] = { 'i', 's', 't', 'a' };
188
+ static const symbol s_3_8[3] = { 'u', 't', 'a' };
189
+ static const symbol s_3_9[3] = { 'i', 'v', 'a' };
190
+ static const symbol s_3_10[2] = { 'i', 'c' };
191
+ static const symbol s_3_11[3] = { 'i', 'c', 'e' };
192
+ static const symbol s_3_12[5] = { 'a', 'b', 'i', 'l', 'e' };
193
+ static const symbol s_3_13[5] = { 'i', 'b', 'i', 'l', 'e' };
194
+ static const symbol s_3_14[4] = { 'i', 's', 'm', 'e' };
195
+ static const symbol s_3_15[4] = { 'i', 'u', 'n', 'e' };
196
+ static const symbol s_3_16[4] = { 'o', 'a', 's', 'e' };
197
+ static const symbol s_3_17[3] = { 'a', 't', 'e' };
198
+ static const symbol s_3_18[5] = { 'i', 't', 'a', 't', 'e' };
199
+ static const symbol s_3_19[3] = { 'i', 't', 'e' };
200
+ static const symbol s_3_20[4] = { 'a', 'n', 't', 'e' };
201
+ static const symbol s_3_21[4] = { 'i', 's', 't', 'e' };
202
+ static const symbol s_3_22[3] = { 'u', 't', 'e' };
203
+ static const symbol s_3_23[3] = { 'i', 'v', 'e' };
204
+ static const symbol s_3_24[3] = { 'i', 'c', 'i' };
205
+ static const symbol s_3_25[5] = { 'a', 'b', 'i', 'l', 'i' };
206
+ static const symbol s_3_26[5] = { 'i', 'b', 'i', 'l', 'i' };
207
+ static const symbol s_3_27[4] = { 'i', 'u', 'n', 'i' };
208
+ static const symbol s_3_28[5] = { 'a', 't', 'o', 'r', 'i' };
209
+ static const symbol s_3_29[3] = { 'o', 's', 'i' };
210
+ static const symbol s_3_30[3] = { 'a', 't', 'i' };
211
+ static const symbol s_3_31[5] = { 'i', 't', 'a', 't', 'i' };
212
+ static const symbol s_3_32[3] = { 'i', 't', 'i' };
213
+ static const symbol s_3_33[4] = { 'a', 'n', 't', 'i' };
214
+ static const symbol s_3_34[4] = { 'i', 's', 't', 'i' };
215
+ static const symbol s_3_35[3] = { 'u', 't', 'i' };
216
+ static const symbol s_3_36[4] = { 'i', 0xBA, 't', 'i' };
217
+ static const symbol s_3_37[3] = { 'i', 'v', 'i' };
218
+ static const symbol s_3_38[3] = { 'o', 0xBA, 'i' };
219
+ static const symbol s_3_39[4] = { 'i', 't', 0xE3, 'i' };
220
+ static const symbol s_3_40[5] = { 'i', 't', 0xE3, 0xFE, 'i' };
221
+ static const symbol s_3_41[4] = { 'a', 'b', 'i', 'l' };
222
+ static const symbol s_3_42[4] = { 'i', 'b', 'i', 'l' };
223
+ static const symbol s_3_43[3] = { 'i', 's', 'm' };
224
+ static const symbol s_3_44[4] = { 'a', 't', 'o', 'r' };
225
+ static const symbol s_3_45[2] = { 'o', 's' };
226
+ static const symbol s_3_46[2] = { 'a', 't' };
227
+ static const symbol s_3_47[2] = { 'i', 't' };
228
+ static const symbol s_3_48[3] = { 'a', 'n', 't' };
229
+ static const symbol s_3_49[3] = { 'i', 's', 't' };
230
+ static const symbol s_3_50[2] = { 'u', 't' };
231
+ static const symbol s_3_51[2] = { 'i', 'v' };
232
+ static const symbol s_3_52[3] = { 'i', 'c', 0xE3 };
233
+ static const symbol s_3_53[5] = { 'a', 'b', 'i', 'l', 0xE3 };
234
+ static const symbol s_3_54[5] = { 'i', 'b', 'i', 'l', 0xE3 };
235
+ static const symbol s_3_55[4] = { 'o', 'a', 's', 0xE3 };
236
+ static const symbol s_3_56[3] = { 'a', 't', 0xE3 };
237
+ static const symbol s_3_57[3] = { 'i', 't', 0xE3 };
238
+ static const symbol s_3_58[4] = { 'a', 'n', 't', 0xE3 };
239
+ static const symbol s_3_59[4] = { 'i', 's', 't', 0xE3 };
240
+ static const symbol s_3_60[3] = { 'u', 't', 0xE3 };
241
+ static const symbol s_3_61[3] = { 'i', 'v', 0xE3 };
242
+
243
+ static const struct among a_3[62] =
244
+ {
245
+ /* 0 */ { 3, s_3_0, -1, 1, 0},
246
+ /* 1 */ { 5, s_3_1, -1, 1, 0},
247
+ /* 2 */ { 5, s_3_2, -1, 1, 0},
248
+ /* 3 */ { 4, s_3_3, -1, 1, 0},
249
+ /* 4 */ { 3, s_3_4, -1, 1, 0},
250
+ /* 5 */ { 3, s_3_5, -1, 1, 0},
251
+ /* 6 */ { 4, s_3_6, -1, 1, 0},
252
+ /* 7 */ { 4, s_3_7, -1, 3, 0},
253
+ /* 8 */ { 3, s_3_8, -1, 1, 0},
254
+ /* 9 */ { 3, s_3_9, -1, 1, 0},
255
+ /* 10 */ { 2, s_3_10, -1, 1, 0},
256
+ /* 11 */ { 3, s_3_11, -1, 1, 0},
257
+ /* 12 */ { 5, s_3_12, -1, 1, 0},
258
+ /* 13 */ { 5, s_3_13, -1, 1, 0},
259
+ /* 14 */ { 4, s_3_14, -1, 3, 0},
260
+ /* 15 */ { 4, s_3_15, -1, 2, 0},
261
+ /* 16 */ { 4, s_3_16, -1, 1, 0},
262
+ /* 17 */ { 3, s_3_17, -1, 1, 0},
263
+ /* 18 */ { 5, s_3_18, 17, 1, 0},
264
+ /* 19 */ { 3, s_3_19, -1, 1, 0},
265
+ /* 20 */ { 4, s_3_20, -1, 1, 0},
266
+ /* 21 */ { 4, s_3_21, -1, 3, 0},
267
+ /* 22 */ { 3, s_3_22, -1, 1, 0},
268
+ /* 23 */ { 3, s_3_23, -1, 1, 0},
269
+ /* 24 */ { 3, s_3_24, -1, 1, 0},
270
+ /* 25 */ { 5, s_3_25, -1, 1, 0},
271
+ /* 26 */ { 5, s_3_26, -1, 1, 0},
272
+ /* 27 */ { 4, s_3_27, -1, 2, 0},
273
+ /* 28 */ { 5, s_3_28, -1, 1, 0},
274
+ /* 29 */ { 3, s_3_29, -1, 1, 0},
275
+ /* 30 */ { 3, s_3_30, -1, 1, 0},
276
+ /* 31 */ { 5, s_3_31, 30, 1, 0},
277
+ /* 32 */ { 3, s_3_32, -1, 1, 0},
278
+ /* 33 */ { 4, s_3_33, -1, 1, 0},
279
+ /* 34 */ { 4, s_3_34, -1, 3, 0},
280
+ /* 35 */ { 3, s_3_35, -1, 1, 0},
281
+ /* 36 */ { 4, s_3_36, -1, 3, 0},
282
+ /* 37 */ { 3, s_3_37, -1, 1, 0},
283
+ /* 38 */ { 3, s_3_38, -1, 1, 0},
284
+ /* 39 */ { 4, s_3_39, -1, 1, 0},
285
+ /* 40 */ { 5, s_3_40, -1, 1, 0},
286
+ /* 41 */ { 4, s_3_41, -1, 1, 0},
287
+ /* 42 */ { 4, s_3_42, -1, 1, 0},
288
+ /* 43 */ { 3, s_3_43, -1, 3, 0},
289
+ /* 44 */ { 4, s_3_44, -1, 1, 0},
290
+ /* 45 */ { 2, s_3_45, -1, 1, 0},
291
+ /* 46 */ { 2, s_3_46, -1, 1, 0},
292
+ /* 47 */ { 2, s_3_47, -1, 1, 0},
293
+ /* 48 */ { 3, s_3_48, -1, 1, 0},
294
+ /* 49 */ { 3, s_3_49, -1, 3, 0},
295
+ /* 50 */ { 2, s_3_50, -1, 1, 0},
296
+ /* 51 */ { 2, s_3_51, -1, 1, 0},
297
+ /* 52 */ { 3, s_3_52, -1, 1, 0},
298
+ /* 53 */ { 5, s_3_53, -1, 1, 0},
299
+ /* 54 */ { 5, s_3_54, -1, 1, 0},
300
+ /* 55 */ { 4, s_3_55, -1, 1, 0},
301
+ /* 56 */ { 3, s_3_56, -1, 1, 0},
302
+ /* 57 */ { 3, s_3_57, -1, 1, 0},
303
+ /* 58 */ { 4, s_3_58, -1, 1, 0},
304
+ /* 59 */ { 4, s_3_59, -1, 3, 0},
305
+ /* 60 */ { 3, s_3_60, -1, 1, 0},
306
+ /* 61 */ { 3, s_3_61, -1, 1, 0}
307
+ };
308
+
309
+ static const symbol s_4_0[2] = { 'e', 'a' };
310
+ static const symbol s_4_1[2] = { 'i', 'a' };
311
+ static const symbol s_4_2[3] = { 'e', 's', 'c' };
312
+ static const symbol s_4_3[3] = { 0xE3, 's', 'c' };
313
+ static const symbol s_4_4[3] = { 'i', 'n', 'd' };
314
+ static const symbol s_4_5[3] = { 0xE2, 'n', 'd' };
315
+ static const symbol s_4_6[3] = { 'a', 'r', 'e' };
316
+ static const symbol s_4_7[3] = { 'e', 'r', 'e' };
317
+ static const symbol s_4_8[3] = { 'i', 'r', 'e' };
318
+ static const symbol s_4_9[3] = { 0xE2, 'r', 'e' };
319
+ static const symbol s_4_10[2] = { 's', 'e' };
320
+ static const symbol s_4_11[3] = { 'a', 's', 'e' };
321
+ static const symbol s_4_12[4] = { 's', 'e', 's', 'e' };
322
+ static const symbol s_4_13[3] = { 'i', 's', 'e' };
323
+ static const symbol s_4_14[3] = { 'u', 's', 'e' };
324
+ static const symbol s_4_15[3] = { 0xE2, 's', 'e' };
325
+ static const symbol s_4_16[4] = { 'e', 0xBA, 't', 'e' };
326
+ static const symbol s_4_17[4] = { 0xE3, 0xBA, 't', 'e' };
327
+ static const symbol s_4_18[3] = { 'e', 'z', 'e' };
328
+ static const symbol s_4_19[2] = { 'a', 'i' };
329
+ static const symbol s_4_20[3] = { 'e', 'a', 'i' };
330
+ static const symbol s_4_21[3] = { 'i', 'a', 'i' };
331
+ static const symbol s_4_22[3] = { 's', 'e', 'i' };
332
+ static const symbol s_4_23[4] = { 'e', 0xBA, 't', 'i' };
333
+ static const symbol s_4_24[4] = { 0xE3, 0xBA, 't', 'i' };
334
+ static const symbol s_4_25[2] = { 'u', 'i' };
335
+ static const symbol s_4_26[3] = { 'e', 'z', 'i' };
336
+ static const symbol s_4_27[3] = { 'a', 0xBA, 'i' };
337
+ static const symbol s_4_28[4] = { 's', 'e', 0xBA, 'i' };
338
+ static const symbol s_4_29[5] = { 'a', 's', 'e', 0xBA, 'i' };
339
+ static const symbol s_4_30[6] = { 's', 'e', 's', 'e', 0xBA, 'i' };
340
+ static const symbol s_4_31[5] = { 'i', 's', 'e', 0xBA, 'i' };
341
+ static const symbol s_4_32[5] = { 'u', 's', 'e', 0xBA, 'i' };
342
+ static const symbol s_4_33[5] = { 0xE2, 's', 'e', 0xBA, 'i' };
343
+ static const symbol s_4_34[3] = { 'i', 0xBA, 'i' };
344
+ static const symbol s_4_35[3] = { 'u', 0xBA, 'i' };
345
+ static const symbol s_4_36[3] = { 0xE2, 0xBA, 'i' };
346
+ static const symbol s_4_37[2] = { 0xE2, 'i' };
347
+ static const symbol s_4_38[3] = { 'a', 0xFE, 'i' };
348
+ static const symbol s_4_39[4] = { 'e', 'a', 0xFE, 'i' };
349
+ static const symbol s_4_40[4] = { 'i', 'a', 0xFE, 'i' };
350
+ static const symbol s_4_41[3] = { 'e', 0xFE, 'i' };
351
+ static const symbol s_4_42[3] = { 'i', 0xFE, 'i' };
352
+ static const symbol s_4_43[3] = { 0xE2, 0xFE, 'i' };
353
+ static const symbol s_4_44[5] = { 'a', 'r', 0xE3, 0xFE, 'i' };
354
+ static const symbol s_4_45[6] = { 's', 'e', 'r', 0xE3, 0xFE, 'i' };
355
+ static const symbol s_4_46[7] = { 'a', 's', 'e', 'r', 0xE3, 0xFE, 'i' };
356
+ static const symbol s_4_47[8] = { 's', 'e', 's', 'e', 'r', 0xE3, 0xFE, 'i' };
357
+ static const symbol s_4_48[7] = { 'i', 's', 'e', 'r', 0xE3, 0xFE, 'i' };
358
+ static const symbol s_4_49[7] = { 'u', 's', 'e', 'r', 0xE3, 0xFE, 'i' };
359
+ static const symbol s_4_50[7] = { 0xE2, 's', 'e', 'r', 0xE3, 0xFE, 'i' };
360
+ static const symbol s_4_51[5] = { 'i', 'r', 0xE3, 0xFE, 'i' };
361
+ static const symbol s_4_52[5] = { 'u', 'r', 0xE3, 0xFE, 'i' };
362
+ static const symbol s_4_53[5] = { 0xE2, 'r', 0xE3, 0xFE, 'i' };
363
+ static const symbol s_4_54[2] = { 'a', 'm' };
364
+ static const symbol s_4_55[3] = { 'e', 'a', 'm' };
365
+ static const symbol s_4_56[3] = { 'i', 'a', 'm' };
366
+ static const symbol s_4_57[2] = { 'e', 'm' };
367
+ static const symbol s_4_58[4] = { 'a', 's', 'e', 'm' };
368
+ static const symbol s_4_59[5] = { 's', 'e', 's', 'e', 'm' };
369
+ static const symbol s_4_60[4] = { 'i', 's', 'e', 'm' };
370
+ static const symbol s_4_61[4] = { 'u', 's', 'e', 'm' };
371
+ static const symbol s_4_62[4] = { 0xE2, 's', 'e', 'm' };
372
+ static const symbol s_4_63[2] = { 'i', 'm' };
373
+ static const symbol s_4_64[2] = { 0xE2, 'm' };
374
+ static const symbol s_4_65[2] = { 0xE3, 'm' };
375
+ static const symbol s_4_66[4] = { 'a', 'r', 0xE3, 'm' };
376
+ static const symbol s_4_67[5] = { 's', 'e', 'r', 0xE3, 'm' };
377
+ static const symbol s_4_68[6] = { 'a', 's', 'e', 'r', 0xE3, 'm' };
378
+ static const symbol s_4_69[7] = { 's', 'e', 's', 'e', 'r', 0xE3, 'm' };
379
+ static const symbol s_4_70[6] = { 'i', 's', 'e', 'r', 0xE3, 'm' };
380
+ static const symbol s_4_71[6] = { 'u', 's', 'e', 'r', 0xE3, 'm' };
381
+ static const symbol s_4_72[6] = { 0xE2, 's', 'e', 'r', 0xE3, 'm' };
382
+ static const symbol s_4_73[4] = { 'i', 'r', 0xE3, 'm' };
383
+ static const symbol s_4_74[4] = { 'u', 'r', 0xE3, 'm' };
384
+ static const symbol s_4_75[4] = { 0xE2, 'r', 0xE3, 'm' };
385
+ static const symbol s_4_76[2] = { 'a', 'u' };
386
+ static const symbol s_4_77[3] = { 'e', 'a', 'u' };
387
+ static const symbol s_4_78[3] = { 'i', 'a', 'u' };
388
+ static const symbol s_4_79[4] = { 'i', 'n', 'd', 'u' };
389
+ static const symbol s_4_80[4] = { 0xE2, 'n', 'd', 'u' };
390
+ static const symbol s_4_81[2] = { 'e', 'z' };
391
+ static const symbol s_4_82[5] = { 'e', 'a', 's', 'c', 0xE3 };
392
+ static const symbol s_4_83[3] = { 'a', 'r', 0xE3 };
393
+ static const symbol s_4_84[4] = { 's', 'e', 'r', 0xE3 };
394
+ static const symbol s_4_85[5] = { 'a', 's', 'e', 'r', 0xE3 };
395
+ static const symbol s_4_86[6] = { 's', 'e', 's', 'e', 'r', 0xE3 };
396
+ static const symbol s_4_87[5] = { 'i', 's', 'e', 'r', 0xE3 };
397
+ static const symbol s_4_88[5] = { 'u', 's', 'e', 'r', 0xE3 };
398
+ static const symbol s_4_89[5] = { 0xE2, 's', 'e', 'r', 0xE3 };
399
+ static const symbol s_4_90[3] = { 'i', 'r', 0xE3 };
400
+ static const symbol s_4_91[3] = { 'u', 'r', 0xE3 };
401
+ static const symbol s_4_92[3] = { 0xE2, 'r', 0xE3 };
402
+ static const symbol s_4_93[4] = { 'e', 'a', 'z', 0xE3 };
403
+
404
+ static const struct among a_4[94] =
405
+ {
406
+ /* 0 */ { 2, s_4_0, -1, 1, 0},
407
+ /* 1 */ { 2, s_4_1, -1, 1, 0},
408
+ /* 2 */ { 3, s_4_2, -1, 1, 0},
409
+ /* 3 */ { 3, s_4_3, -1, 1, 0},
410
+ /* 4 */ { 3, s_4_4, -1, 1, 0},
411
+ /* 5 */ { 3, s_4_5, -1, 1, 0},
412
+ /* 6 */ { 3, s_4_6, -1, 1, 0},
413
+ /* 7 */ { 3, s_4_7, -1, 1, 0},
414
+ /* 8 */ { 3, s_4_8, -1, 1, 0},
415
+ /* 9 */ { 3, s_4_9, -1, 1, 0},
416
+ /* 10 */ { 2, s_4_10, -1, 2, 0},
417
+ /* 11 */ { 3, s_4_11, 10, 1, 0},
418
+ /* 12 */ { 4, s_4_12, 10, 2, 0},
419
+ /* 13 */ { 3, s_4_13, 10, 1, 0},
420
+ /* 14 */ { 3, s_4_14, 10, 1, 0},
421
+ /* 15 */ { 3, s_4_15, 10, 1, 0},
422
+ /* 16 */ { 4, s_4_16, -1, 1, 0},
423
+ /* 17 */ { 4, s_4_17, -1, 1, 0},
424
+ /* 18 */ { 3, s_4_18, -1, 1, 0},
425
+ /* 19 */ { 2, s_4_19, -1, 1, 0},
426
+ /* 20 */ { 3, s_4_20, 19, 1, 0},
427
+ /* 21 */ { 3, s_4_21, 19, 1, 0},
428
+ /* 22 */ { 3, s_4_22, -1, 2, 0},
429
+ /* 23 */ { 4, s_4_23, -1, 1, 0},
430
+ /* 24 */ { 4, s_4_24, -1, 1, 0},
431
+ /* 25 */ { 2, s_4_25, -1, 1, 0},
432
+ /* 26 */ { 3, s_4_26, -1, 1, 0},
433
+ /* 27 */ { 3, s_4_27, -1, 1, 0},
434
+ /* 28 */ { 4, s_4_28, -1, 2, 0},
435
+ /* 29 */ { 5, s_4_29, 28, 1, 0},
436
+ /* 30 */ { 6, s_4_30, 28, 2, 0},
437
+ /* 31 */ { 5, s_4_31, 28, 1, 0},
438
+ /* 32 */ { 5, s_4_32, 28, 1, 0},
439
+ /* 33 */ { 5, s_4_33, 28, 1, 0},
440
+ /* 34 */ { 3, s_4_34, -1, 1, 0},
441
+ /* 35 */ { 3, s_4_35, -1, 1, 0},
442
+ /* 36 */ { 3, s_4_36, -1, 1, 0},
443
+ /* 37 */ { 2, s_4_37, -1, 1, 0},
444
+ /* 38 */ { 3, s_4_38, -1, 2, 0},
445
+ /* 39 */ { 4, s_4_39, 38, 1, 0},
446
+ /* 40 */ { 4, s_4_40, 38, 1, 0},
447
+ /* 41 */ { 3, s_4_41, -1, 2, 0},
448
+ /* 42 */ { 3, s_4_42, -1, 2, 0},
449
+ /* 43 */ { 3, s_4_43, -1, 2, 0},
450
+ /* 44 */ { 5, s_4_44, -1, 1, 0},
451
+ /* 45 */ { 6, s_4_45, -1, 2, 0},
452
+ /* 46 */ { 7, s_4_46, 45, 1, 0},
453
+ /* 47 */ { 8, s_4_47, 45, 2, 0},
454
+ /* 48 */ { 7, s_4_48, 45, 1, 0},
455
+ /* 49 */ { 7, s_4_49, 45, 1, 0},
456
+ /* 50 */ { 7, s_4_50, 45, 1, 0},
457
+ /* 51 */ { 5, s_4_51, -1, 1, 0},
458
+ /* 52 */ { 5, s_4_52, -1, 1, 0},
459
+ /* 53 */ { 5, s_4_53, -1, 1, 0},
460
+ /* 54 */ { 2, s_4_54, -1, 1, 0},
461
+ /* 55 */ { 3, s_4_55, 54, 1, 0},
462
+ /* 56 */ { 3, s_4_56, 54, 1, 0},
463
+ /* 57 */ { 2, s_4_57, -1, 2, 0},
464
+ /* 58 */ { 4, s_4_58, 57, 1, 0},
465
+ /* 59 */ { 5, s_4_59, 57, 2, 0},
466
+ /* 60 */ { 4, s_4_60, 57, 1, 0},
467
+ /* 61 */ { 4, s_4_61, 57, 1, 0},
468
+ /* 62 */ { 4, s_4_62, 57, 1, 0},
469
+ /* 63 */ { 2, s_4_63, -1, 2, 0},
470
+ /* 64 */ { 2, s_4_64, -1, 2, 0},
471
+ /* 65 */ { 2, s_4_65, -1, 2, 0},
472
+ /* 66 */ { 4, s_4_66, 65, 1, 0},
473
+ /* 67 */ { 5, s_4_67, 65, 2, 0},
474
+ /* 68 */ { 6, s_4_68, 67, 1, 0},
475
+ /* 69 */ { 7, s_4_69, 67, 2, 0},
476
+ /* 70 */ { 6, s_4_70, 67, 1, 0},
477
+ /* 71 */ { 6, s_4_71, 67, 1, 0},
478
+ /* 72 */ { 6, s_4_72, 67, 1, 0},
479
+ /* 73 */ { 4, s_4_73, 65, 1, 0},
480
+ /* 74 */ { 4, s_4_74, 65, 1, 0},
481
+ /* 75 */ { 4, s_4_75, 65, 1, 0},
482
+ /* 76 */ { 2, s_4_76, -1, 1, 0},
483
+ /* 77 */ { 3, s_4_77, 76, 1, 0},
484
+ /* 78 */ { 3, s_4_78, 76, 1, 0},
485
+ /* 79 */ { 4, s_4_79, -1, 1, 0},
486
+ /* 80 */ { 4, s_4_80, -1, 1, 0},
487
+ /* 81 */ { 2, s_4_81, -1, 1, 0},
488
+ /* 82 */ { 5, s_4_82, -1, 1, 0},
489
+ /* 83 */ { 3, s_4_83, -1, 1, 0},
490
+ /* 84 */ { 4, s_4_84, -1, 2, 0},
491
+ /* 85 */ { 5, s_4_85, 84, 1, 0},
492
+ /* 86 */ { 6, s_4_86, 84, 2, 0},
493
+ /* 87 */ { 5, s_4_87, 84, 1, 0},
494
+ /* 88 */ { 5, s_4_88, 84, 1, 0},
495
+ /* 89 */ { 5, s_4_89, 84, 1, 0},
496
+ /* 90 */ { 3, s_4_90, -1, 1, 0},
497
+ /* 91 */ { 3, s_4_91, -1, 1, 0},
498
+ /* 92 */ { 3, s_4_92, -1, 1, 0},
499
+ /* 93 */ { 4, s_4_93, -1, 1, 0}
500
+ };
501
+
502
+ static const symbol s_5_0[1] = { 'a' };
503
+ static const symbol s_5_1[1] = { 'e' };
504
+ static const symbol s_5_2[2] = { 'i', 'e' };
505
+ static const symbol s_5_3[1] = { 'i' };
506
+ static const symbol s_5_4[1] = { 0xE3 };
507
+
508
+ static const struct among a_5[5] =
509
+ {
510
+ /* 0 */ { 1, s_5_0, -1, 1, 0},
511
+ /* 1 */ { 1, s_5_1, -1, 1, 0},
512
+ /* 2 */ { 2, s_5_2, 1, 1, 0},
513
+ /* 3 */ { 1, s_5_3, -1, 1, 0},
514
+ /* 4 */ { 1, s_5_4, -1, 1, 0}
515
+ };
516
+
517
+ static const unsigned char g_v[] = { 17, 65, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 32 };
518
+
519
+ static const symbol s_0[] = { 'u' };
520
+ static const symbol s_1[] = { 'U' };
521
+ static const symbol s_2[] = { 'i' };
522
+ static const symbol s_3[] = { 'I' };
523
+ static const symbol s_4[] = { 'i' };
524
+ static const symbol s_5[] = { 'u' };
525
+ static const symbol s_6[] = { 'a' };
526
+ static const symbol s_7[] = { 'e' };
527
+ static const symbol s_8[] = { 'i' };
528
+ static const symbol s_9[] = { 'a', 'b' };
529
+ static const symbol s_10[] = { 'i' };
530
+ static const symbol s_11[] = { 'a', 't' };
531
+ static const symbol s_12[] = { 'a', 0xFE, 'i' };
532
+ static const symbol s_13[] = { 'a', 'b', 'i', 'l' };
533
+ static const symbol s_14[] = { 'i', 'b', 'i', 'l' };
534
+ static const symbol s_15[] = { 'i', 'v' };
535
+ static const symbol s_16[] = { 'i', 'c' };
536
+ static const symbol s_17[] = { 'a', 't' };
537
+ static const symbol s_18[] = { 'i', 't' };
538
+ static const symbol s_19[] = { 0xFE };
539
+ static const symbol s_20[] = { 't' };
540
+ static const symbol s_21[] = { 'i', 's', 't' };
541
+ static const symbol s_22[] = { 'u' };
542
+
543
+ static int r_prelude(struct SN_env * z) {
544
+ while(1) { /* repeat, line 32 */
545
+ int c1 = z->c;
546
+ while(1) { /* goto, line 32 */
547
+ int c2 = z->c;
548
+ if (in_grouping(z, g_v, 97, 238, 0)) goto lab1;
549
+ z->bra = z->c; /* [, line 33 */
550
+ { int c3 = z->c; /* or, line 33 */
551
+ if (!(eq_s(z, 1, s_0))) goto lab3;
552
+ z->ket = z->c; /* ], line 33 */
553
+ if (in_grouping(z, g_v, 97, 238, 0)) goto lab3;
554
+ { int ret = slice_from_s(z, 1, s_1); /* <-, line 33 */
555
+ if (ret < 0) return ret;
556
+ }
557
+ goto lab2;
558
+ lab3:
559
+ z->c = c3;
560
+ if (!(eq_s(z, 1, s_2))) goto lab1;
561
+ z->ket = z->c; /* ], line 34 */
562
+ if (in_grouping(z, g_v, 97, 238, 0)) goto lab1;
563
+ { int ret = slice_from_s(z, 1, s_3); /* <-, line 34 */
564
+ if (ret < 0) return ret;
565
+ }
566
+ }
567
+ lab2:
568
+ z->c = c2;
569
+ break;
570
+ lab1:
571
+ z->c = c2;
572
+ if (z->c >= z->l) goto lab0;
573
+ z->c++; /* goto, line 32 */
574
+ }
575
+ continue;
576
+ lab0:
577
+ z->c = c1;
578
+ break;
579
+ }
580
+ return 1;
581
+ }
582
+
583
+ static int r_mark_regions(struct SN_env * z) {
584
+ z->I[0] = z->l;
585
+ z->I[1] = z->l;
586
+ z->I[2] = z->l;
587
+ { int c1 = z->c; /* do, line 44 */
588
+ { int c2 = z->c; /* or, line 46 */
589
+ if (in_grouping(z, g_v, 97, 238, 0)) goto lab2;
590
+ { int c3 = z->c; /* or, line 45 */
591
+ if (out_grouping(z, g_v, 97, 238, 0)) goto lab4;
592
+ { /* gopast */ /* grouping v, line 45 */
593
+ int ret = out_grouping(z, g_v, 97, 238, 1);
594
+ if (ret < 0) goto lab4;
595
+ z->c += ret;
596
+ }
597
+ goto lab3;
598
+ lab4:
599
+ z->c = c3;
600
+ if (in_grouping(z, g_v, 97, 238, 0)) goto lab2;
601
+ { /* gopast */ /* non v, line 45 */
602
+ int ret = in_grouping(z, g_v, 97, 238, 1);
603
+ if (ret < 0) goto lab2;
604
+ z->c += ret;
605
+ }
606
+ }
607
+ lab3:
608
+ goto lab1;
609
+ lab2:
610
+ z->c = c2;
611
+ if (out_grouping(z, g_v, 97, 238, 0)) goto lab0;
612
+ { int c4 = z->c; /* or, line 47 */
613
+ if (out_grouping(z, g_v, 97, 238, 0)) goto lab6;
614
+ { /* gopast */ /* grouping v, line 47 */
615
+ int ret = out_grouping(z, g_v, 97, 238, 1);
616
+ if (ret < 0) goto lab6;
617
+ z->c += ret;
618
+ }
619
+ goto lab5;
620
+ lab6:
621
+ z->c = c4;
622
+ if (in_grouping(z, g_v, 97, 238, 0)) goto lab0;
623
+ if (z->c >= z->l) goto lab0;
624
+ z->c++; /* next, line 47 */
625
+ }
626
+ lab5:
627
+ ;
628
+ }
629
+ lab1:
630
+ z->I[0] = z->c; /* setmark pV, line 48 */
631
+ lab0:
632
+ z->c = c1;
633
+ }
634
+ { int c5 = z->c; /* do, line 50 */
635
+ { /* gopast */ /* grouping v, line 51 */
636
+ int ret = out_grouping(z, g_v, 97, 238, 1);
637
+ if (ret < 0) goto lab7;
638
+ z->c += ret;
639
+ }
640
+ { /* gopast */ /* non v, line 51 */
641
+ int ret = in_grouping(z, g_v, 97, 238, 1);
642
+ if (ret < 0) goto lab7;
643
+ z->c += ret;
644
+ }
645
+ z->I[1] = z->c; /* setmark p1, line 51 */
646
+ { /* gopast */ /* grouping v, line 52 */
647
+ int ret = out_grouping(z, g_v, 97, 238, 1);
648
+ if (ret < 0) goto lab7;
649
+ z->c += ret;
650
+ }
651
+ { /* gopast */ /* non v, line 52 */
652
+ int ret = in_grouping(z, g_v, 97, 238, 1);
653
+ if (ret < 0) goto lab7;
654
+ z->c += ret;
655
+ }
656
+ z->I[2] = z->c; /* setmark p2, line 52 */
657
+ lab7:
658
+ z->c = c5;
659
+ }
660
+ return 1;
661
+ }
662
+
663
+ static int r_postlude(struct SN_env * z) {
664
+ int among_var;
665
+ while(1) { /* repeat, line 56 */
666
+ int c1 = z->c;
667
+ z->bra = z->c; /* [, line 58 */
668
+ if (z->c >= z->l || (z->p[z->c + 0] != 73 && z->p[z->c + 0] != 85)) among_var = 3; else
669
+ among_var = find_among(z, a_0, 3); /* substring, line 58 */
670
+ if (!(among_var)) goto lab0;
671
+ z->ket = z->c; /* ], line 58 */
672
+ switch(among_var) {
673
+ case 0: goto lab0;
674
+ case 1:
675
+ { int ret = slice_from_s(z, 1, s_4); /* <-, line 59 */
676
+ if (ret < 0) return ret;
677
+ }
678
+ break;
679
+ case 2:
680
+ { int ret = slice_from_s(z, 1, s_5); /* <-, line 60 */
681
+ if (ret < 0) return ret;
682
+ }
683
+ break;
684
+ case 3:
685
+ if (z->c >= z->l) goto lab0;
686
+ z->c++; /* next, line 61 */
687
+ break;
688
+ }
689
+ continue;
690
+ lab0:
691
+ z->c = c1;
692
+ break;
693
+ }
694
+ return 1;
695
+ }
696
+
697
+ static int r_RV(struct SN_env * z) {
698
+ if (!(z->I[0] <= z->c)) return 0;
699
+ return 1;
700
+ }
701
+
702
+ static int r_R1(struct SN_env * z) {
703
+ if (!(z->I[1] <= z->c)) return 0;
704
+ return 1;
705
+ }
706
+
707
+ static int r_R2(struct SN_env * z) {
708
+ if (!(z->I[2] <= z->c)) return 0;
709
+ return 1;
710
+ }
711
+
712
+ static int r_step_0(struct SN_env * z) {
713
+ int among_var;
714
+ z->ket = z->c; /* [, line 73 */
715
+ if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((266786 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
716
+ among_var = find_among_b(z, a_1, 16); /* substring, line 73 */
717
+ if (!(among_var)) return 0;
718
+ z->bra = z->c; /* ], line 73 */
719
+ { int ret = r_R1(z);
720
+ if (ret == 0) return 0; /* call R1, line 73 */
721
+ if (ret < 0) return ret;
722
+ }
723
+ switch(among_var) {
724
+ case 0: return 0;
725
+ case 1:
726
+ { int ret = slice_del(z); /* delete, line 75 */
727
+ if (ret < 0) return ret;
728
+ }
729
+ break;
730
+ case 2:
731
+ { int ret = slice_from_s(z, 1, s_6); /* <-, line 77 */
732
+ if (ret < 0) return ret;
733
+ }
734
+ break;
735
+ case 3:
736
+ { int ret = slice_from_s(z, 1, s_7); /* <-, line 79 */
737
+ if (ret < 0) return ret;
738
+ }
739
+ break;
740
+ case 4:
741
+ { int ret = slice_from_s(z, 1, s_8); /* <-, line 81 */
742
+ if (ret < 0) return ret;
743
+ }
744
+ break;
745
+ case 5:
746
+ { int m1 = z->l - z->c; (void)m1; /* not, line 83 */
747
+ if (!(eq_s_b(z, 2, s_9))) goto lab0;
748
+ return 0;
749
+ lab0:
750
+ z->c = z->l - m1;
751
+ }
752
+ { int ret = slice_from_s(z, 1, s_10); /* <-, line 83 */
753
+ if (ret < 0) return ret;
754
+ }
755
+ break;
756
+ case 6:
757
+ { int ret = slice_from_s(z, 2, s_11); /* <-, line 85 */
758
+ if (ret < 0) return ret;
759
+ }
760
+ break;
761
+ case 7:
762
+ { int ret = slice_from_s(z, 3, s_12); /* <-, line 87 */
763
+ if (ret < 0) return ret;
764
+ }
765
+ break;
766
+ }
767
+ return 1;
768
+ }
769
+
770
+ static int r_combo_suffix(struct SN_env * z) {
771
+ int among_var;
772
+ { int m_test = z->l - z->c; /* test, line 91 */
773
+ z->ket = z->c; /* [, line 92 */
774
+ among_var = find_among_b(z, a_2, 46); /* substring, line 92 */
775
+ if (!(among_var)) return 0;
776
+ z->bra = z->c; /* ], line 92 */
777
+ { int ret = r_R1(z);
778
+ if (ret == 0) return 0; /* call R1, line 92 */
779
+ if (ret < 0) return ret;
780
+ }
781
+ switch(among_var) {
782
+ case 0: return 0;
783
+ case 1:
784
+ { int ret = slice_from_s(z, 4, s_13); /* <-, line 101 */
785
+ if (ret < 0) return ret;
786
+ }
787
+ break;
788
+ case 2:
789
+ { int ret = slice_from_s(z, 4, s_14); /* <-, line 104 */
790
+ if (ret < 0) return ret;
791
+ }
792
+ break;
793
+ case 3:
794
+ { int ret = slice_from_s(z, 2, s_15); /* <-, line 107 */
795
+ if (ret < 0) return ret;
796
+ }
797
+ break;
798
+ case 4:
799
+ { int ret = slice_from_s(z, 2, s_16); /* <-, line 113 */
800
+ if (ret < 0) return ret;
801
+ }
802
+ break;
803
+ case 5:
804
+ { int ret = slice_from_s(z, 2, s_17); /* <-, line 118 */
805
+ if (ret < 0) return ret;
806
+ }
807
+ break;
808
+ case 6:
809
+ { int ret = slice_from_s(z, 2, s_18); /* <-, line 122 */
810
+ if (ret < 0) return ret;
811
+ }
812
+ break;
813
+ }
814
+ z->B[0] = 1; /* set standard_suffix_removed, line 125 */
815
+ z->c = z->l - m_test;
816
+ }
817
+ return 1;
818
+ }
819
+
820
+ static int r_standard_suffix(struct SN_env * z) {
821
+ int among_var;
822
+ z->B[0] = 0; /* unset standard_suffix_removed, line 130 */
823
+ while(1) { /* repeat, line 131 */
824
+ int m1 = z->l - z->c; (void)m1;
825
+ { int ret = r_combo_suffix(z);
826
+ if (ret == 0) goto lab0; /* call combo_suffix, line 131 */
827
+ if (ret < 0) return ret;
828
+ }
829
+ continue;
830
+ lab0:
831
+ z->c = z->l - m1;
832
+ break;
833
+ }
834
+ z->ket = z->c; /* [, line 132 */
835
+ among_var = find_among_b(z, a_3, 62); /* substring, line 132 */
836
+ if (!(among_var)) return 0;
837
+ z->bra = z->c; /* ], line 132 */
838
+ { int ret = r_R2(z);
839
+ if (ret == 0) return 0; /* call R2, line 132 */
840
+ if (ret < 0) return ret;
841
+ }
842
+ switch(among_var) {
843
+ case 0: return 0;
844
+ case 1:
845
+ { int ret = slice_del(z); /* delete, line 149 */
846
+ if (ret < 0) return ret;
847
+ }
848
+ break;
849
+ case 2:
850
+ if (!(eq_s_b(z, 1, s_19))) return 0;
851
+ z->bra = z->c; /* ], line 152 */
852
+ { int ret = slice_from_s(z, 1, s_20); /* <-, line 152 */
853
+ if (ret < 0) return ret;
854
+ }
855
+ break;
856
+ case 3:
857
+ { int ret = slice_from_s(z, 3, s_21); /* <-, line 156 */
858
+ if (ret < 0) return ret;
859
+ }
860
+ break;
861
+ }
862
+ z->B[0] = 1; /* set standard_suffix_removed, line 160 */
863
+ return 1;
864
+ }
865
+
866
+ static int r_verb_suffix(struct SN_env * z) {
867
+ int among_var;
868
+ { int mlimit; /* setlimit, line 164 */
869
+ int m1 = z->l - z->c; (void)m1;
870
+ if (z->c < z->I[0]) return 0;
871
+ z->c = z->I[0]; /* tomark, line 164 */
872
+ mlimit = z->lb; z->lb = z->c;
873
+ z->c = z->l - m1;
874
+ z->ket = z->c; /* [, line 165 */
875
+ among_var = find_among_b(z, a_4, 94); /* substring, line 165 */
876
+ if (!(among_var)) { z->lb = mlimit; return 0; }
877
+ z->bra = z->c; /* ], line 165 */
878
+ switch(among_var) {
879
+ case 0: { z->lb = mlimit; return 0; }
880
+ case 1:
881
+ { int m2 = z->l - z->c; (void)m2; /* or, line 200 */
882
+ if (out_grouping_b(z, g_v, 97, 238, 0)) goto lab1;
883
+ goto lab0;
884
+ lab1:
885
+ z->c = z->l - m2;
886
+ if (!(eq_s_b(z, 1, s_22))) { z->lb = mlimit; return 0; }
887
+ }
888
+ lab0:
889
+ { int ret = slice_del(z); /* delete, line 200 */
890
+ if (ret < 0) return ret;
891
+ }
892
+ break;
893
+ case 2:
894
+ { int ret = slice_del(z); /* delete, line 214 */
895
+ if (ret < 0) return ret;
896
+ }
897
+ break;
898
+ }
899
+ z->lb = mlimit;
900
+ }
901
+ return 1;
902
+ }
903
+
904
+ static int r_vowel_suffix(struct SN_env * z) {
905
+ int among_var;
906
+ z->ket = z->c; /* [, line 219 */
907
+ among_var = find_among_b(z, a_5, 5); /* substring, line 219 */
908
+ if (!(among_var)) return 0;
909
+ z->bra = z->c; /* ], line 219 */
910
+ { int ret = r_RV(z);
911
+ if (ret == 0) return 0; /* call RV, line 219 */
912
+ if (ret < 0) return ret;
913
+ }
914
+ switch(among_var) {
915
+ case 0: return 0;
916
+ case 1:
917
+ { int ret = slice_del(z); /* delete, line 220 */
918
+ if (ret < 0) return ret;
919
+ }
920
+ break;
921
+ }
922
+ return 1;
923
+ }
924
+
925
+ extern int romanian_ISO_8859_2_stem(struct SN_env * z) {
926
+ { int c1 = z->c; /* do, line 226 */
927
+ { int ret = r_prelude(z);
928
+ if (ret == 0) goto lab0; /* call prelude, line 226 */
929
+ if (ret < 0) return ret;
930
+ }
931
+ lab0:
932
+ z->c = c1;
933
+ }
934
+ { int c2 = z->c; /* do, line 227 */
935
+ { int ret = r_mark_regions(z);
936
+ if (ret == 0) goto lab1; /* call mark_regions, line 227 */
937
+ if (ret < 0) return ret;
938
+ }
939
+ lab1:
940
+ z->c = c2;
941
+ }
942
+ z->lb = z->c; z->c = z->l; /* backwards, line 228 */
943
+
944
+ { int m3 = z->l - z->c; (void)m3; /* do, line 229 */
945
+ { int ret = r_step_0(z);
946
+ if (ret == 0) goto lab2; /* call step_0, line 229 */
947
+ if (ret < 0) return ret;
948
+ }
949
+ lab2:
950
+ z->c = z->l - m3;
951
+ }
952
+ { int m4 = z->l - z->c; (void)m4; /* do, line 230 */
953
+ { int ret = r_standard_suffix(z);
954
+ if (ret == 0) goto lab3; /* call standard_suffix, line 230 */
955
+ if (ret < 0) return ret;
956
+ }
957
+ lab3:
958
+ z->c = z->l - m4;
959
+ }
960
+ { int m5 = z->l - z->c; (void)m5; /* do, line 231 */
961
+ { int m6 = z->l - z->c; (void)m6; /* or, line 231 */
962
+ if (!(z->B[0])) goto lab6; /* Boolean test standard_suffix_removed, line 231 */
963
+ goto lab5;
964
+ lab6:
965
+ z->c = z->l - m6;
966
+ { int ret = r_verb_suffix(z);
967
+ if (ret == 0) goto lab4; /* call verb_suffix, line 231 */
968
+ if (ret < 0) return ret;
969
+ }
970
+ }
971
+ lab5:
972
+ lab4:
973
+ z->c = z->l - m5;
974
+ }
975
+ { int m7 = z->l - z->c; (void)m7; /* do, line 232 */
976
+ { int ret = r_vowel_suffix(z);
977
+ if (ret == 0) goto lab7; /* call vowel_suffix, line 232 */
978
+ if (ret < 0) return ret;
979
+ }
980
+ lab7:
981
+ z->c = z->l - m7;
982
+ }
983
+ z->c = z->lb;
984
+ { int c8 = z->c; /* do, line 234 */
985
+ { int ret = r_postlude(z);
986
+ if (ret == 0) goto lab8; /* call postlude, line 234 */
987
+ if (ret < 0) return ret;
988
+ }
989
+ lab8:
990
+ z->c = c8;
991
+ }
992
+ return 1;
993
+ }
994
+
995
+ extern struct SN_env * romanian_ISO_8859_2_create_env(void) { return SN_create_env(0, 3, 1); }
996
+
997
+ extern void romanian_ISO_8859_2_close_env(struct SN_env * z) { SN_close_env(z, 0); }
998
+