ferret 0.11.6 → 0.11.8.4

Sign up to get free protection for your applications and to get access to all the features.
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,1230 @@
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 hungarian_ISO_8859_1_stem(struct SN_env * z);
10
+ #ifdef __cplusplus
11
+ }
12
+ #endif
13
+ static int r_double(struct SN_env * z);
14
+ static int r_undouble(struct SN_env * z);
15
+ static int r_factive(struct SN_env * z);
16
+ static int r_instrum(struct SN_env * z);
17
+ static int r_plur_owner(struct SN_env * z);
18
+ static int r_sing_owner(struct SN_env * z);
19
+ static int r_owned(struct SN_env * z);
20
+ static int r_plural(struct SN_env * z);
21
+ static int r_case_other(struct SN_env * z);
22
+ static int r_case_special(struct SN_env * z);
23
+ static int r_case(struct SN_env * z);
24
+ static int r_v_ending(struct SN_env * z);
25
+ static int r_R1(struct SN_env * z);
26
+ static int r_mark_regions(struct SN_env * z);
27
+ #ifdef __cplusplus
28
+ extern "C" {
29
+ #endif
30
+
31
+
32
+ extern struct SN_env * hungarian_ISO_8859_1_create_env(void);
33
+ extern void hungarian_ISO_8859_1_close_env(struct SN_env * z);
34
+
35
+
36
+ #ifdef __cplusplus
37
+ }
38
+ #endif
39
+ static const symbol s_0_0[2] = { 'c', 's' };
40
+ static const symbol s_0_1[3] = { 'd', 'z', 's' };
41
+ static const symbol s_0_2[2] = { 'g', 'y' };
42
+ static const symbol s_0_3[2] = { 'l', 'y' };
43
+ static const symbol s_0_4[2] = { 'n', 'y' };
44
+ static const symbol s_0_5[2] = { 's', 'z' };
45
+ static const symbol s_0_6[2] = { 't', 'y' };
46
+ static const symbol s_0_7[2] = { 'z', 's' };
47
+
48
+ static const struct among a_0[8] =
49
+ {
50
+ /* 0 */ { 2, s_0_0, -1, -1, 0},
51
+ /* 1 */ { 3, s_0_1, -1, -1, 0},
52
+ /* 2 */ { 2, s_0_2, -1, -1, 0},
53
+ /* 3 */ { 2, s_0_3, -1, -1, 0},
54
+ /* 4 */ { 2, s_0_4, -1, -1, 0},
55
+ /* 5 */ { 2, s_0_5, -1, -1, 0},
56
+ /* 6 */ { 2, s_0_6, -1, -1, 0},
57
+ /* 7 */ { 2, s_0_7, -1, -1, 0}
58
+ };
59
+
60
+ static const symbol s_1_0[1] = { 0xE1 };
61
+ static const symbol s_1_1[1] = { 0xE9 };
62
+
63
+ static const struct among a_1[2] =
64
+ {
65
+ /* 0 */ { 1, s_1_0, -1, 1, 0},
66
+ /* 1 */ { 1, s_1_1, -1, 2, 0}
67
+ };
68
+
69
+ static const symbol s_2_0[2] = { 'b', 'b' };
70
+ static const symbol s_2_1[2] = { 'c', 'c' };
71
+ static const symbol s_2_2[2] = { 'd', 'd' };
72
+ static const symbol s_2_3[2] = { 'f', 'f' };
73
+ static const symbol s_2_4[2] = { 'g', 'g' };
74
+ static const symbol s_2_5[2] = { 'j', 'j' };
75
+ static const symbol s_2_6[2] = { 'k', 'k' };
76
+ static const symbol s_2_7[2] = { 'l', 'l' };
77
+ static const symbol s_2_8[2] = { 'm', 'm' };
78
+ static const symbol s_2_9[2] = { 'n', 'n' };
79
+ static const symbol s_2_10[2] = { 'p', 'p' };
80
+ static const symbol s_2_11[2] = { 'r', 'r' };
81
+ static const symbol s_2_12[3] = { 'c', 'c', 's' };
82
+ static const symbol s_2_13[2] = { 's', 's' };
83
+ static const symbol s_2_14[3] = { 'z', 'z', 's' };
84
+ static const symbol s_2_15[2] = { 't', 't' };
85
+ static const symbol s_2_16[2] = { 'v', 'v' };
86
+ static const symbol s_2_17[3] = { 'g', 'g', 'y' };
87
+ static const symbol s_2_18[3] = { 'l', 'l', 'y' };
88
+ static const symbol s_2_19[3] = { 'n', 'n', 'y' };
89
+ static const symbol s_2_20[3] = { 't', 't', 'y' };
90
+ static const symbol s_2_21[3] = { 's', 's', 'z' };
91
+ static const symbol s_2_22[2] = { 'z', 'z' };
92
+
93
+ static const struct among a_2[23] =
94
+ {
95
+ /* 0 */ { 2, s_2_0, -1, -1, 0},
96
+ /* 1 */ { 2, s_2_1, -1, -1, 0},
97
+ /* 2 */ { 2, s_2_2, -1, -1, 0},
98
+ /* 3 */ { 2, s_2_3, -1, -1, 0},
99
+ /* 4 */ { 2, s_2_4, -1, -1, 0},
100
+ /* 5 */ { 2, s_2_5, -1, -1, 0},
101
+ /* 6 */ { 2, s_2_6, -1, -1, 0},
102
+ /* 7 */ { 2, s_2_7, -1, -1, 0},
103
+ /* 8 */ { 2, s_2_8, -1, -1, 0},
104
+ /* 9 */ { 2, s_2_9, -1, -1, 0},
105
+ /* 10 */ { 2, s_2_10, -1, -1, 0},
106
+ /* 11 */ { 2, s_2_11, -1, -1, 0},
107
+ /* 12 */ { 3, s_2_12, -1, -1, 0},
108
+ /* 13 */ { 2, s_2_13, -1, -1, 0},
109
+ /* 14 */ { 3, s_2_14, -1, -1, 0},
110
+ /* 15 */ { 2, s_2_15, -1, -1, 0},
111
+ /* 16 */ { 2, s_2_16, -1, -1, 0},
112
+ /* 17 */ { 3, s_2_17, -1, -1, 0},
113
+ /* 18 */ { 3, s_2_18, -1, -1, 0},
114
+ /* 19 */ { 3, s_2_19, -1, -1, 0},
115
+ /* 20 */ { 3, s_2_20, -1, -1, 0},
116
+ /* 21 */ { 3, s_2_21, -1, -1, 0},
117
+ /* 22 */ { 2, s_2_22, -1, -1, 0}
118
+ };
119
+
120
+ static const symbol s_3_0[2] = { 'a', 'l' };
121
+ static const symbol s_3_1[2] = { 'e', 'l' };
122
+
123
+ static const struct among a_3[2] =
124
+ {
125
+ /* 0 */ { 2, s_3_0, -1, 1, 0},
126
+ /* 1 */ { 2, s_3_1, -1, 2, 0}
127
+ };
128
+
129
+ static const symbol s_4_0[2] = { 'b', 'a' };
130
+ static const symbol s_4_1[2] = { 'r', 'a' };
131
+ static const symbol s_4_2[2] = { 'b', 'e' };
132
+ static const symbol s_4_3[2] = { 'r', 'e' };
133
+ static const symbol s_4_4[2] = { 'i', 'g' };
134
+ static const symbol s_4_5[3] = { 'n', 'a', 'k' };
135
+ static const symbol s_4_6[3] = { 'n', 'e', 'k' };
136
+ static const symbol s_4_7[3] = { 'v', 'a', 'l' };
137
+ static const symbol s_4_8[3] = { 'v', 'e', 'l' };
138
+ static const symbol s_4_9[2] = { 'u', 'l' };
139
+ static const symbol s_4_10[3] = { 'n', 0xE1, 'l' };
140
+ static const symbol s_4_11[3] = { 'n', 0xE9, 'l' };
141
+ static const symbol s_4_12[3] = { 'b', 0xF3, 'l' };
142
+ static const symbol s_4_13[3] = { 'r', 0xF3, 'l' };
143
+ static const symbol s_4_14[3] = { 't', 0xF3, 'l' };
144
+ static const symbol s_4_15[3] = { 'b', 0xF5, 'l' };
145
+ static const symbol s_4_16[3] = { 'r', 0xF5, 'l' };
146
+ static const symbol s_4_17[3] = { 't', 0xF5, 'l' };
147
+ static const symbol s_4_18[2] = { 0xFC, 'l' };
148
+ static const symbol s_4_19[1] = { 'n' };
149
+ static const symbol s_4_20[2] = { 'a', 'n' };
150
+ static const symbol s_4_21[3] = { 'b', 'a', 'n' };
151
+ static const symbol s_4_22[2] = { 'e', 'n' };
152
+ static const symbol s_4_23[3] = { 'b', 'e', 'n' };
153
+ static const symbol s_4_24[6] = { 'k', 0xE9, 'p', 'p', 'e', 'n' };
154
+ static const symbol s_4_25[2] = { 'o', 'n' };
155
+ static const symbol s_4_26[2] = { 0xF6, 'n' };
156
+ static const symbol s_4_27[4] = { 'k', 0xE9, 'p', 'p' };
157
+ static const symbol s_4_28[3] = { 'k', 'o', 'r' };
158
+ static const symbol s_4_29[1] = { 't' };
159
+ static const symbol s_4_30[2] = { 'a', 't' };
160
+ static const symbol s_4_31[2] = { 'e', 't' };
161
+ static const symbol s_4_32[4] = { 'k', 0xE9, 'n', 't' };
162
+ static const symbol s_4_33[6] = { 'a', 'n', 'k', 0xE9, 'n', 't' };
163
+ static const symbol s_4_34[6] = { 'e', 'n', 'k', 0xE9, 'n', 't' };
164
+ static const symbol s_4_35[6] = { 'o', 'n', 'k', 0xE9, 'n', 't' };
165
+ static const symbol s_4_36[2] = { 'o', 't' };
166
+ static const symbol s_4_37[3] = { 0xE9, 'r', 't' };
167
+ static const symbol s_4_38[2] = { 0xF6, 't' };
168
+ static const symbol s_4_39[3] = { 'h', 'e', 'z' };
169
+ static const symbol s_4_40[3] = { 'h', 'o', 'z' };
170
+ static const symbol s_4_41[3] = { 'h', 0xF6, 'z' };
171
+ static const symbol s_4_42[2] = { 'v', 0xE1 };
172
+ static const symbol s_4_43[2] = { 'v', 0xE9 };
173
+
174
+ static const struct among a_4[44] =
175
+ {
176
+ /* 0 */ { 2, s_4_0, -1, -1, 0},
177
+ /* 1 */ { 2, s_4_1, -1, -1, 0},
178
+ /* 2 */ { 2, s_4_2, -1, -1, 0},
179
+ /* 3 */ { 2, s_4_3, -1, -1, 0},
180
+ /* 4 */ { 2, s_4_4, -1, -1, 0},
181
+ /* 5 */ { 3, s_4_5, -1, -1, 0},
182
+ /* 6 */ { 3, s_4_6, -1, -1, 0},
183
+ /* 7 */ { 3, s_4_7, -1, -1, 0},
184
+ /* 8 */ { 3, s_4_8, -1, -1, 0},
185
+ /* 9 */ { 2, s_4_9, -1, -1, 0},
186
+ /* 10 */ { 3, s_4_10, -1, -1, 0},
187
+ /* 11 */ { 3, s_4_11, -1, -1, 0},
188
+ /* 12 */ { 3, s_4_12, -1, -1, 0},
189
+ /* 13 */ { 3, s_4_13, -1, -1, 0},
190
+ /* 14 */ { 3, s_4_14, -1, -1, 0},
191
+ /* 15 */ { 3, s_4_15, -1, -1, 0},
192
+ /* 16 */ { 3, s_4_16, -1, -1, 0},
193
+ /* 17 */ { 3, s_4_17, -1, -1, 0},
194
+ /* 18 */ { 2, s_4_18, -1, -1, 0},
195
+ /* 19 */ { 1, s_4_19, -1, -1, 0},
196
+ /* 20 */ { 2, s_4_20, 19, -1, 0},
197
+ /* 21 */ { 3, s_4_21, 20, -1, 0},
198
+ /* 22 */ { 2, s_4_22, 19, -1, 0},
199
+ /* 23 */ { 3, s_4_23, 22, -1, 0},
200
+ /* 24 */ { 6, s_4_24, 22, -1, 0},
201
+ /* 25 */ { 2, s_4_25, 19, -1, 0},
202
+ /* 26 */ { 2, s_4_26, 19, -1, 0},
203
+ /* 27 */ { 4, s_4_27, -1, -1, 0},
204
+ /* 28 */ { 3, s_4_28, -1, -1, 0},
205
+ /* 29 */ { 1, s_4_29, -1, -1, 0},
206
+ /* 30 */ { 2, s_4_30, 29, -1, 0},
207
+ /* 31 */ { 2, s_4_31, 29, -1, 0},
208
+ /* 32 */ { 4, s_4_32, 29, -1, 0},
209
+ /* 33 */ { 6, s_4_33, 32, -1, 0},
210
+ /* 34 */ { 6, s_4_34, 32, -1, 0},
211
+ /* 35 */ { 6, s_4_35, 32, -1, 0},
212
+ /* 36 */ { 2, s_4_36, 29, -1, 0},
213
+ /* 37 */ { 3, s_4_37, 29, -1, 0},
214
+ /* 38 */ { 2, s_4_38, 29, -1, 0},
215
+ /* 39 */ { 3, s_4_39, -1, -1, 0},
216
+ /* 40 */ { 3, s_4_40, -1, -1, 0},
217
+ /* 41 */ { 3, s_4_41, -1, -1, 0},
218
+ /* 42 */ { 2, s_4_42, -1, -1, 0},
219
+ /* 43 */ { 2, s_4_43, -1, -1, 0}
220
+ };
221
+
222
+ static const symbol s_5_0[2] = { 0xE1, 'n' };
223
+ static const symbol s_5_1[2] = { 0xE9, 'n' };
224
+ static const symbol s_5_2[6] = { 0xE1, 'n', 'k', 0xE9, 'n', 't' };
225
+
226
+ static const struct among a_5[3] =
227
+ {
228
+ /* 0 */ { 2, s_5_0, -1, 2, 0},
229
+ /* 1 */ { 2, s_5_1, -1, 1, 0},
230
+ /* 2 */ { 6, s_5_2, -1, 3, 0}
231
+ };
232
+
233
+ static const symbol s_6_0[4] = { 's', 't', 'u', 'l' };
234
+ static const symbol s_6_1[5] = { 'a', 's', 't', 'u', 'l' };
235
+ static const symbol s_6_2[5] = { 0xE1, 's', 't', 'u', 'l' };
236
+ static const symbol s_6_3[4] = { 's', 't', 0xFC, 'l' };
237
+ static const symbol s_6_4[5] = { 'e', 's', 't', 0xFC, 'l' };
238
+ static const symbol s_6_5[5] = { 0xE9, 's', 't', 0xFC, 'l' };
239
+
240
+ static const struct among a_6[6] =
241
+ {
242
+ /* 0 */ { 4, s_6_0, -1, 2, 0},
243
+ /* 1 */ { 5, s_6_1, 0, 1, 0},
244
+ /* 2 */ { 5, s_6_2, 0, 3, 0},
245
+ /* 3 */ { 4, s_6_3, -1, 2, 0},
246
+ /* 4 */ { 5, s_6_4, 3, 1, 0},
247
+ /* 5 */ { 5, s_6_5, 3, 4, 0}
248
+ };
249
+
250
+ static const symbol s_7_0[1] = { 0xE1 };
251
+ static const symbol s_7_1[1] = { 0xE9 };
252
+
253
+ static const struct among a_7[2] =
254
+ {
255
+ /* 0 */ { 1, s_7_0, -1, 1, 0},
256
+ /* 1 */ { 1, s_7_1, -1, 2, 0}
257
+ };
258
+
259
+ static const symbol s_8_0[1] = { 'k' };
260
+ static const symbol s_8_1[2] = { 'a', 'k' };
261
+ static const symbol s_8_2[2] = { 'e', 'k' };
262
+ static const symbol s_8_3[2] = { 'o', 'k' };
263
+ static const symbol s_8_4[2] = { 0xE1, 'k' };
264
+ static const symbol s_8_5[2] = { 0xE9, 'k' };
265
+ static const symbol s_8_6[2] = { 0xF6, 'k' };
266
+
267
+ static const struct among a_8[7] =
268
+ {
269
+ /* 0 */ { 1, s_8_0, -1, 7, 0},
270
+ /* 1 */ { 2, s_8_1, 0, 4, 0},
271
+ /* 2 */ { 2, s_8_2, 0, 6, 0},
272
+ /* 3 */ { 2, s_8_3, 0, 5, 0},
273
+ /* 4 */ { 2, s_8_4, 0, 1, 0},
274
+ /* 5 */ { 2, s_8_5, 0, 2, 0},
275
+ /* 6 */ { 2, s_8_6, 0, 3, 0}
276
+ };
277
+
278
+ static const symbol s_9_0[2] = { 0xE9, 'i' };
279
+ static const symbol s_9_1[3] = { 0xE1, 0xE9, 'i' };
280
+ static const symbol s_9_2[3] = { 0xE9, 0xE9, 'i' };
281
+ static const symbol s_9_3[1] = { 0xE9 };
282
+ static const symbol s_9_4[2] = { 'k', 0xE9 };
283
+ static const symbol s_9_5[3] = { 'a', 'k', 0xE9 };
284
+ static const symbol s_9_6[3] = { 'e', 'k', 0xE9 };
285
+ static const symbol s_9_7[3] = { 'o', 'k', 0xE9 };
286
+ static const symbol s_9_8[3] = { 0xE1, 'k', 0xE9 };
287
+ static const symbol s_9_9[3] = { 0xE9, 'k', 0xE9 };
288
+ static const symbol s_9_10[3] = { 0xF6, 'k', 0xE9 };
289
+ static const symbol s_9_11[2] = { 0xE9, 0xE9 };
290
+
291
+ static const struct among a_9[12] =
292
+ {
293
+ /* 0 */ { 2, s_9_0, -1, 7, 0},
294
+ /* 1 */ { 3, s_9_1, 0, 6, 0},
295
+ /* 2 */ { 3, s_9_2, 0, 5, 0},
296
+ /* 3 */ { 1, s_9_3, -1, 9, 0},
297
+ /* 4 */ { 2, s_9_4, 3, 4, 0},
298
+ /* 5 */ { 3, s_9_5, 4, 1, 0},
299
+ /* 6 */ { 3, s_9_6, 4, 1, 0},
300
+ /* 7 */ { 3, s_9_7, 4, 1, 0},
301
+ /* 8 */ { 3, s_9_8, 4, 3, 0},
302
+ /* 9 */ { 3, s_9_9, 4, 2, 0},
303
+ /* 10 */ { 3, s_9_10, 4, 1, 0},
304
+ /* 11 */ { 2, s_9_11, 3, 8, 0}
305
+ };
306
+
307
+ static const symbol s_10_0[1] = { 'a' };
308
+ static const symbol s_10_1[2] = { 'j', 'a' };
309
+ static const symbol s_10_2[1] = { 'd' };
310
+ static const symbol s_10_3[2] = { 'a', 'd' };
311
+ static const symbol s_10_4[2] = { 'e', 'd' };
312
+ static const symbol s_10_5[2] = { 'o', 'd' };
313
+ static const symbol s_10_6[2] = { 0xE1, 'd' };
314
+ static const symbol s_10_7[2] = { 0xE9, 'd' };
315
+ static const symbol s_10_8[2] = { 0xF6, 'd' };
316
+ static const symbol s_10_9[1] = { 'e' };
317
+ static const symbol s_10_10[2] = { 'j', 'e' };
318
+ static const symbol s_10_11[2] = { 'n', 'k' };
319
+ static const symbol s_10_12[3] = { 'u', 'n', 'k' };
320
+ static const symbol s_10_13[3] = { 0xE1, 'n', 'k' };
321
+ static const symbol s_10_14[3] = { 0xE9, 'n', 'k' };
322
+ static const symbol s_10_15[3] = { 0xFC, 'n', 'k' };
323
+ static const symbol s_10_16[2] = { 'u', 'k' };
324
+ static const symbol s_10_17[3] = { 'j', 'u', 'k' };
325
+ static const symbol s_10_18[4] = { 0xE1, 'j', 'u', 'k' };
326
+ static const symbol s_10_19[2] = { 0xFC, 'k' };
327
+ static const symbol s_10_20[3] = { 'j', 0xFC, 'k' };
328
+ static const symbol s_10_21[4] = { 0xE9, 'j', 0xFC, 'k' };
329
+ static const symbol s_10_22[1] = { 'm' };
330
+ static const symbol s_10_23[2] = { 'a', 'm' };
331
+ static const symbol s_10_24[2] = { 'e', 'm' };
332
+ static const symbol s_10_25[2] = { 'o', 'm' };
333
+ static const symbol s_10_26[2] = { 0xE1, 'm' };
334
+ static const symbol s_10_27[2] = { 0xE9, 'm' };
335
+ static const symbol s_10_28[1] = { 'o' };
336
+ static const symbol s_10_29[1] = { 0xE1 };
337
+ static const symbol s_10_30[1] = { 0xE9 };
338
+
339
+ static const struct among a_10[31] =
340
+ {
341
+ /* 0 */ { 1, s_10_0, -1, 18, 0},
342
+ /* 1 */ { 2, s_10_1, 0, 17, 0},
343
+ /* 2 */ { 1, s_10_2, -1, 16, 0},
344
+ /* 3 */ { 2, s_10_3, 2, 13, 0},
345
+ /* 4 */ { 2, s_10_4, 2, 13, 0},
346
+ /* 5 */ { 2, s_10_5, 2, 13, 0},
347
+ /* 6 */ { 2, s_10_6, 2, 14, 0},
348
+ /* 7 */ { 2, s_10_7, 2, 15, 0},
349
+ /* 8 */ { 2, s_10_8, 2, 13, 0},
350
+ /* 9 */ { 1, s_10_9, -1, 18, 0},
351
+ /* 10 */ { 2, s_10_10, 9, 17, 0},
352
+ /* 11 */ { 2, s_10_11, -1, 4, 0},
353
+ /* 12 */ { 3, s_10_12, 11, 1, 0},
354
+ /* 13 */ { 3, s_10_13, 11, 2, 0},
355
+ /* 14 */ { 3, s_10_14, 11, 3, 0},
356
+ /* 15 */ { 3, s_10_15, 11, 1, 0},
357
+ /* 16 */ { 2, s_10_16, -1, 8, 0},
358
+ /* 17 */ { 3, s_10_17, 16, 7, 0},
359
+ /* 18 */ { 4, s_10_18, 17, 5, 0},
360
+ /* 19 */ { 2, s_10_19, -1, 8, 0},
361
+ /* 20 */ { 3, s_10_20, 19, 7, 0},
362
+ /* 21 */ { 4, s_10_21, 20, 6, 0},
363
+ /* 22 */ { 1, s_10_22, -1, 12, 0},
364
+ /* 23 */ { 2, s_10_23, 22, 9, 0},
365
+ /* 24 */ { 2, s_10_24, 22, 9, 0},
366
+ /* 25 */ { 2, s_10_25, 22, 9, 0},
367
+ /* 26 */ { 2, s_10_26, 22, 10, 0},
368
+ /* 27 */ { 2, s_10_27, 22, 11, 0},
369
+ /* 28 */ { 1, s_10_28, -1, 18, 0},
370
+ /* 29 */ { 1, s_10_29, -1, 19, 0},
371
+ /* 30 */ { 1, s_10_30, -1, 20, 0}
372
+ };
373
+
374
+ static const symbol s_11_0[2] = { 'i', 'd' };
375
+ static const symbol s_11_1[3] = { 'a', 'i', 'd' };
376
+ static const symbol s_11_2[4] = { 'j', 'a', 'i', 'd' };
377
+ static const symbol s_11_3[3] = { 'e', 'i', 'd' };
378
+ static const symbol s_11_4[4] = { 'j', 'e', 'i', 'd' };
379
+ static const symbol s_11_5[3] = { 0xE1, 'i', 'd' };
380
+ static const symbol s_11_6[3] = { 0xE9, 'i', 'd' };
381
+ static const symbol s_11_7[1] = { 'i' };
382
+ static const symbol s_11_8[2] = { 'a', 'i' };
383
+ static const symbol s_11_9[3] = { 'j', 'a', 'i' };
384
+ static const symbol s_11_10[2] = { 'e', 'i' };
385
+ static const symbol s_11_11[3] = { 'j', 'e', 'i' };
386
+ static const symbol s_11_12[2] = { 0xE1, 'i' };
387
+ static const symbol s_11_13[2] = { 0xE9, 'i' };
388
+ static const symbol s_11_14[4] = { 'i', 't', 'e', 'k' };
389
+ static const symbol s_11_15[5] = { 'e', 'i', 't', 'e', 'k' };
390
+ static const symbol s_11_16[6] = { 'j', 'e', 'i', 't', 'e', 'k' };
391
+ static const symbol s_11_17[5] = { 0xE9, 'i', 't', 'e', 'k' };
392
+ static const symbol s_11_18[2] = { 'i', 'k' };
393
+ static const symbol s_11_19[3] = { 'a', 'i', 'k' };
394
+ static const symbol s_11_20[4] = { 'j', 'a', 'i', 'k' };
395
+ static const symbol s_11_21[3] = { 'e', 'i', 'k' };
396
+ static const symbol s_11_22[4] = { 'j', 'e', 'i', 'k' };
397
+ static const symbol s_11_23[3] = { 0xE1, 'i', 'k' };
398
+ static const symbol s_11_24[3] = { 0xE9, 'i', 'k' };
399
+ static const symbol s_11_25[3] = { 'i', 'n', 'k' };
400
+ static const symbol s_11_26[4] = { 'a', 'i', 'n', 'k' };
401
+ static const symbol s_11_27[5] = { 'j', 'a', 'i', 'n', 'k' };
402
+ static const symbol s_11_28[4] = { 'e', 'i', 'n', 'k' };
403
+ static const symbol s_11_29[5] = { 'j', 'e', 'i', 'n', 'k' };
404
+ static const symbol s_11_30[4] = { 0xE1, 'i', 'n', 'k' };
405
+ static const symbol s_11_31[4] = { 0xE9, 'i', 'n', 'k' };
406
+ static const symbol s_11_32[5] = { 'a', 'i', 't', 'o', 'k' };
407
+ static const symbol s_11_33[6] = { 'j', 'a', 'i', 't', 'o', 'k' };
408
+ static const symbol s_11_34[5] = { 0xE1, 'i', 't', 'o', 'k' };
409
+ static const symbol s_11_35[2] = { 'i', 'm' };
410
+ static const symbol s_11_36[3] = { 'a', 'i', 'm' };
411
+ static const symbol s_11_37[4] = { 'j', 'a', 'i', 'm' };
412
+ static const symbol s_11_38[3] = { 'e', 'i', 'm' };
413
+ static const symbol s_11_39[4] = { 'j', 'e', 'i', 'm' };
414
+ static const symbol s_11_40[3] = { 0xE1, 'i', 'm' };
415
+ static const symbol s_11_41[3] = { 0xE9, 'i', 'm' };
416
+
417
+ static const struct among a_11[42] =
418
+ {
419
+ /* 0 */ { 2, s_11_0, -1, 10, 0},
420
+ /* 1 */ { 3, s_11_1, 0, 9, 0},
421
+ /* 2 */ { 4, s_11_2, 1, 6, 0},
422
+ /* 3 */ { 3, s_11_3, 0, 9, 0},
423
+ /* 4 */ { 4, s_11_4, 3, 6, 0},
424
+ /* 5 */ { 3, s_11_5, 0, 7, 0},
425
+ /* 6 */ { 3, s_11_6, 0, 8, 0},
426
+ /* 7 */ { 1, s_11_7, -1, 15, 0},
427
+ /* 8 */ { 2, s_11_8, 7, 14, 0},
428
+ /* 9 */ { 3, s_11_9, 8, 11, 0},
429
+ /* 10 */ { 2, s_11_10, 7, 14, 0},
430
+ /* 11 */ { 3, s_11_11, 10, 11, 0},
431
+ /* 12 */ { 2, s_11_12, 7, 12, 0},
432
+ /* 13 */ { 2, s_11_13, 7, 13, 0},
433
+ /* 14 */ { 4, s_11_14, -1, 24, 0},
434
+ /* 15 */ { 5, s_11_15, 14, 21, 0},
435
+ /* 16 */ { 6, s_11_16, 15, 20, 0},
436
+ /* 17 */ { 5, s_11_17, 14, 23, 0},
437
+ /* 18 */ { 2, s_11_18, -1, 29, 0},
438
+ /* 19 */ { 3, s_11_19, 18, 26, 0},
439
+ /* 20 */ { 4, s_11_20, 19, 25, 0},
440
+ /* 21 */ { 3, s_11_21, 18, 26, 0},
441
+ /* 22 */ { 4, s_11_22, 21, 25, 0},
442
+ /* 23 */ { 3, s_11_23, 18, 27, 0},
443
+ /* 24 */ { 3, s_11_24, 18, 28, 0},
444
+ /* 25 */ { 3, s_11_25, -1, 20, 0},
445
+ /* 26 */ { 4, s_11_26, 25, 17, 0},
446
+ /* 27 */ { 5, s_11_27, 26, 16, 0},
447
+ /* 28 */ { 4, s_11_28, 25, 17, 0},
448
+ /* 29 */ { 5, s_11_29, 28, 16, 0},
449
+ /* 30 */ { 4, s_11_30, 25, 18, 0},
450
+ /* 31 */ { 4, s_11_31, 25, 19, 0},
451
+ /* 32 */ { 5, s_11_32, -1, 21, 0},
452
+ /* 33 */ { 6, s_11_33, 32, 20, 0},
453
+ /* 34 */ { 5, s_11_34, -1, 22, 0},
454
+ /* 35 */ { 2, s_11_35, -1, 5, 0},
455
+ /* 36 */ { 3, s_11_36, 35, 4, 0},
456
+ /* 37 */ { 4, s_11_37, 36, 1, 0},
457
+ /* 38 */ { 3, s_11_38, 35, 4, 0},
458
+ /* 39 */ { 4, s_11_39, 38, 1, 0},
459
+ /* 40 */ { 3, s_11_40, 35, 2, 0},
460
+ /* 41 */ { 3, s_11_41, 35, 3, 0}
461
+ };
462
+
463
+ static const unsigned char g_v[] = { 17, 65, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 17, 52, 14 };
464
+
465
+ static const symbol s_0[] = { 'a' };
466
+ static const symbol s_1[] = { 'e' };
467
+ static const symbol s_2[] = { 'e' };
468
+ static const symbol s_3[] = { 'a' };
469
+ static const symbol s_4[] = { 'a' };
470
+ static const symbol s_5[] = { 'a' };
471
+ static const symbol s_6[] = { 'e' };
472
+ static const symbol s_7[] = { 'a' };
473
+ static const symbol s_8[] = { 'e' };
474
+ static const symbol s_9[] = { 'e' };
475
+ static const symbol s_10[] = { 'a' };
476
+ static const symbol s_11[] = { 'e' };
477
+ static const symbol s_12[] = { 'a' };
478
+ static const symbol s_13[] = { 'e' };
479
+ static const symbol s_14[] = { 'a' };
480
+ static const symbol s_15[] = { 'e' };
481
+ static const symbol s_16[] = { 'a' };
482
+ static const symbol s_17[] = { 'e' };
483
+ static const symbol s_18[] = { 'a' };
484
+ static const symbol s_19[] = { 'e' };
485
+ static const symbol s_20[] = { 'a' };
486
+ static const symbol s_21[] = { 'e' };
487
+ static const symbol s_22[] = { 'a' };
488
+ static const symbol s_23[] = { 'e' };
489
+ static const symbol s_24[] = { 'a' };
490
+ static const symbol s_25[] = { 'e' };
491
+ static const symbol s_26[] = { 'a' };
492
+ static const symbol s_27[] = { 'e' };
493
+ static const symbol s_28[] = { 'a' };
494
+ static const symbol s_29[] = { 'e' };
495
+ static const symbol s_30[] = { 'a' };
496
+ static const symbol s_31[] = { 'e' };
497
+ static const symbol s_32[] = { 'a' };
498
+ static const symbol s_33[] = { 'e' };
499
+ static const symbol s_34[] = { 'a' };
500
+ static const symbol s_35[] = { 'e' };
501
+
502
+ static int r_mark_regions(struct SN_env * z) {
503
+ z->I[0] = z->l;
504
+ { int c1 = z->c; /* or, line 51 */
505
+ if (in_grouping(z, g_v, 97, 252, 0)) goto lab1;
506
+ if (in_grouping(z, g_v, 97, 252, 1) < 0) goto lab1; /* goto */ /* non v, line 48 */
507
+ { int c2 = z->c; /* or, line 49 */
508
+ if (z->c + 1 >= z->l || z->p[z->c + 1] >> 5 != 3 || !((101187584 >> (z->p[z->c + 1] & 0x1f)) & 1)) goto lab3;
509
+ if (!(find_among(z, a_0, 8))) goto lab3; /* among, line 49 */
510
+ goto lab2;
511
+ lab3:
512
+ z->c = c2;
513
+ if (z->c >= z->l) goto lab1;
514
+ z->c++; /* next, line 49 */
515
+ }
516
+ lab2:
517
+ z->I[0] = z->c; /* setmark p1, line 50 */
518
+ goto lab0;
519
+ lab1:
520
+ z->c = c1;
521
+ if (out_grouping(z, g_v, 97, 252, 0)) return 0;
522
+ { /* gopast */ /* grouping v, line 53 */
523
+ int ret = out_grouping(z, g_v, 97, 252, 1);
524
+ if (ret < 0) return 0;
525
+ z->c += ret;
526
+ }
527
+ z->I[0] = z->c; /* setmark p1, line 53 */
528
+ }
529
+ lab0:
530
+ return 1;
531
+ }
532
+
533
+ static int r_R1(struct SN_env * z) {
534
+ if (!(z->I[0] <= z->c)) return 0;
535
+ return 1;
536
+ }
537
+
538
+ static int r_v_ending(struct SN_env * z) {
539
+ int among_var;
540
+ z->ket = z->c; /* [, line 61 */
541
+ if (z->c <= z->lb || (z->p[z->c - 1] != 225 && z->p[z->c - 1] != 233)) return 0;
542
+ among_var = find_among_b(z, a_1, 2); /* substring, line 61 */
543
+ if (!(among_var)) return 0;
544
+ z->bra = z->c; /* ], line 61 */
545
+ { int ret = r_R1(z);
546
+ if (ret == 0) return 0; /* call R1, line 61 */
547
+ if (ret < 0) return ret;
548
+ }
549
+ switch(among_var) {
550
+ case 0: return 0;
551
+ case 1:
552
+ { int ret = slice_from_s(z, 1, s_0); /* <-, line 62 */
553
+ if (ret < 0) return ret;
554
+ }
555
+ break;
556
+ case 2:
557
+ { int ret = slice_from_s(z, 1, s_1); /* <-, line 63 */
558
+ if (ret < 0) return ret;
559
+ }
560
+ break;
561
+ }
562
+ return 1;
563
+ }
564
+
565
+ static int r_double(struct SN_env * z) {
566
+ { int m_test = z->l - z->c; /* test, line 68 */
567
+ if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((106790108 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
568
+ if (!(find_among_b(z, a_2, 23))) return 0; /* among, line 68 */
569
+ z->c = z->l - m_test;
570
+ }
571
+ return 1;
572
+ }
573
+
574
+ static int r_undouble(struct SN_env * z) {
575
+ if (z->c <= z->lb) return 0;
576
+ z->c--; /* next, line 73 */
577
+ z->ket = z->c; /* [, line 73 */
578
+ { int ret = z->c - 1;
579
+ if (z->lb > ret || ret > z->l) return 0;
580
+ z->c = ret; /* hop, line 73 */
581
+ }
582
+ z->bra = z->c; /* ], line 73 */
583
+ { int ret = slice_del(z); /* delete, line 73 */
584
+ if (ret < 0) return ret;
585
+ }
586
+ return 1;
587
+ }
588
+
589
+ static int r_instrum(struct SN_env * z) {
590
+ int among_var;
591
+ z->ket = z->c; /* [, line 77 */
592
+ if (z->c - 1 <= z->lb || z->p[z->c - 1] != 108) return 0;
593
+ among_var = find_among_b(z, a_3, 2); /* substring, line 77 */
594
+ if (!(among_var)) return 0;
595
+ z->bra = z->c; /* ], line 77 */
596
+ { int ret = r_R1(z);
597
+ if (ret == 0) return 0; /* call R1, line 77 */
598
+ if (ret < 0) return ret;
599
+ }
600
+ switch(among_var) {
601
+ case 0: return 0;
602
+ case 1:
603
+ { int ret = r_double(z);
604
+ if (ret == 0) return 0; /* call double, line 78 */
605
+ if (ret < 0) return ret;
606
+ }
607
+ break;
608
+ case 2:
609
+ { int ret = r_double(z);
610
+ if (ret == 0) return 0; /* call double, line 79 */
611
+ if (ret < 0) return ret;
612
+ }
613
+ break;
614
+ }
615
+ { int ret = slice_del(z); /* delete, line 81 */
616
+ if (ret < 0) return ret;
617
+ }
618
+ { int ret = r_undouble(z);
619
+ if (ret == 0) return 0; /* call undouble, line 82 */
620
+ if (ret < 0) return ret;
621
+ }
622
+ return 1;
623
+ }
624
+
625
+ static int r_case(struct SN_env * z) {
626
+ z->ket = z->c; /* [, line 87 */
627
+ if (!(find_among_b(z, a_4, 44))) return 0; /* substring, line 87 */
628
+ z->bra = z->c; /* ], line 87 */
629
+ { int ret = r_R1(z);
630
+ if (ret == 0) return 0; /* call R1, line 87 */
631
+ if (ret < 0) return ret;
632
+ }
633
+ { int ret = slice_del(z); /* delete, line 111 */
634
+ if (ret < 0) return ret;
635
+ }
636
+ { int ret = r_v_ending(z);
637
+ if (ret == 0) return 0; /* call v_ending, line 112 */
638
+ if (ret < 0) return ret;
639
+ }
640
+ return 1;
641
+ }
642
+
643
+ static int r_case_special(struct SN_env * z) {
644
+ int among_var;
645
+ z->ket = z->c; /* [, line 116 */
646
+ if (z->c - 1 <= z->lb || (z->p[z->c - 1] != 110 && z->p[z->c - 1] != 116)) return 0;
647
+ among_var = find_among_b(z, a_5, 3); /* substring, line 116 */
648
+ if (!(among_var)) return 0;
649
+ z->bra = z->c; /* ], line 116 */
650
+ { int ret = r_R1(z);
651
+ if (ret == 0) return 0; /* call R1, line 116 */
652
+ if (ret < 0) return ret;
653
+ }
654
+ switch(among_var) {
655
+ case 0: return 0;
656
+ case 1:
657
+ { int ret = slice_from_s(z, 1, s_2); /* <-, line 117 */
658
+ if (ret < 0) return ret;
659
+ }
660
+ break;
661
+ case 2:
662
+ { int ret = slice_from_s(z, 1, s_3); /* <-, line 118 */
663
+ if (ret < 0) return ret;
664
+ }
665
+ break;
666
+ case 3:
667
+ { int ret = slice_from_s(z, 1, s_4); /* <-, line 119 */
668
+ if (ret < 0) return ret;
669
+ }
670
+ break;
671
+ }
672
+ return 1;
673
+ }
674
+
675
+ static int r_case_other(struct SN_env * z) {
676
+ int among_var;
677
+ z->ket = z->c; /* [, line 124 */
678
+ if (z->c - 3 <= z->lb || z->p[z->c - 1] != 108) return 0;
679
+ among_var = find_among_b(z, a_6, 6); /* substring, line 124 */
680
+ if (!(among_var)) return 0;
681
+ z->bra = z->c; /* ], line 124 */
682
+ { int ret = r_R1(z);
683
+ if (ret == 0) return 0; /* call R1, line 124 */
684
+ if (ret < 0) return ret;
685
+ }
686
+ switch(among_var) {
687
+ case 0: return 0;
688
+ case 1:
689
+ { int ret = slice_del(z); /* delete, line 125 */
690
+ if (ret < 0) return ret;
691
+ }
692
+ break;
693
+ case 2:
694
+ { int ret = slice_del(z); /* delete, line 126 */
695
+ if (ret < 0) return ret;
696
+ }
697
+ break;
698
+ case 3:
699
+ { int ret = slice_from_s(z, 1, s_5); /* <-, line 127 */
700
+ if (ret < 0) return ret;
701
+ }
702
+ break;
703
+ case 4:
704
+ { int ret = slice_from_s(z, 1, s_6); /* <-, line 128 */
705
+ if (ret < 0) return ret;
706
+ }
707
+ break;
708
+ }
709
+ return 1;
710
+ }
711
+
712
+ static int r_factive(struct SN_env * z) {
713
+ int among_var;
714
+ z->ket = z->c; /* [, line 133 */
715
+ if (z->c <= z->lb || (z->p[z->c - 1] != 225 && z->p[z->c - 1] != 233)) return 0;
716
+ among_var = find_among_b(z, a_7, 2); /* substring, line 133 */
717
+ if (!(among_var)) return 0;
718
+ z->bra = z->c; /* ], line 133 */
719
+ { int ret = r_R1(z);
720
+ if (ret == 0) return 0; /* call R1, line 133 */
721
+ if (ret < 0) return ret;
722
+ }
723
+ switch(among_var) {
724
+ case 0: return 0;
725
+ case 1:
726
+ { int ret = r_double(z);
727
+ if (ret == 0) return 0; /* call double, line 134 */
728
+ if (ret < 0) return ret;
729
+ }
730
+ break;
731
+ case 2:
732
+ { int ret = r_double(z);
733
+ if (ret == 0) return 0; /* call double, line 135 */
734
+ if (ret < 0) return ret;
735
+ }
736
+ break;
737
+ }
738
+ { int ret = slice_del(z); /* delete, line 137 */
739
+ if (ret < 0) return ret;
740
+ }
741
+ { int ret = r_undouble(z);
742
+ if (ret == 0) return 0; /* call undouble, line 138 */
743
+ if (ret < 0) return ret;
744
+ }
745
+ return 1;
746
+ }
747
+
748
+ static int r_plural(struct SN_env * z) {
749
+ int among_var;
750
+ z->ket = z->c; /* [, line 142 */
751
+ if (z->c <= z->lb || z->p[z->c - 1] != 107) return 0;
752
+ among_var = find_among_b(z, a_8, 7); /* substring, line 142 */
753
+ if (!(among_var)) return 0;
754
+ z->bra = z->c; /* ], line 142 */
755
+ { int ret = r_R1(z);
756
+ if (ret == 0) return 0; /* call R1, line 142 */
757
+ if (ret < 0) return ret;
758
+ }
759
+ switch(among_var) {
760
+ case 0: return 0;
761
+ case 1:
762
+ { int ret = slice_from_s(z, 1, s_7); /* <-, line 143 */
763
+ if (ret < 0) return ret;
764
+ }
765
+ break;
766
+ case 2:
767
+ { int ret = slice_from_s(z, 1, s_8); /* <-, line 144 */
768
+ if (ret < 0) return ret;
769
+ }
770
+ break;
771
+ case 3:
772
+ { int ret = slice_del(z); /* delete, line 145 */
773
+ if (ret < 0) return ret;
774
+ }
775
+ break;
776
+ case 4:
777
+ { int ret = slice_del(z); /* delete, line 146 */
778
+ if (ret < 0) return ret;
779
+ }
780
+ break;
781
+ case 5:
782
+ { int ret = slice_del(z); /* delete, line 147 */
783
+ if (ret < 0) return ret;
784
+ }
785
+ break;
786
+ case 6:
787
+ { int ret = slice_del(z); /* delete, line 148 */
788
+ if (ret < 0) return ret;
789
+ }
790
+ break;
791
+ case 7:
792
+ { int ret = slice_del(z); /* delete, line 149 */
793
+ if (ret < 0) return ret;
794
+ }
795
+ break;
796
+ }
797
+ return 1;
798
+ }
799
+
800
+ static int r_owned(struct SN_env * z) {
801
+ int among_var;
802
+ z->ket = z->c; /* [, line 154 */
803
+ if (z->c <= z->lb || (z->p[z->c - 1] != 105 && z->p[z->c - 1] != 233)) return 0;
804
+ among_var = find_among_b(z, a_9, 12); /* substring, line 154 */
805
+ if (!(among_var)) return 0;
806
+ z->bra = z->c; /* ], line 154 */
807
+ { int ret = r_R1(z);
808
+ if (ret == 0) return 0; /* call R1, line 154 */
809
+ if (ret < 0) return ret;
810
+ }
811
+ switch(among_var) {
812
+ case 0: return 0;
813
+ case 1:
814
+ { int ret = slice_del(z); /* delete, line 155 */
815
+ if (ret < 0) return ret;
816
+ }
817
+ break;
818
+ case 2:
819
+ { int ret = slice_from_s(z, 1, s_9); /* <-, line 156 */
820
+ if (ret < 0) return ret;
821
+ }
822
+ break;
823
+ case 3:
824
+ { int ret = slice_from_s(z, 1, s_10); /* <-, line 157 */
825
+ if (ret < 0) return ret;
826
+ }
827
+ break;
828
+ case 4:
829
+ { int ret = slice_del(z); /* delete, line 158 */
830
+ if (ret < 0) return ret;
831
+ }
832
+ break;
833
+ case 5:
834
+ { int ret = slice_from_s(z, 1, s_11); /* <-, line 159 */
835
+ if (ret < 0) return ret;
836
+ }
837
+ break;
838
+ case 6:
839
+ { int ret = slice_from_s(z, 1, s_12); /* <-, line 160 */
840
+ if (ret < 0) return ret;
841
+ }
842
+ break;
843
+ case 7:
844
+ { int ret = slice_del(z); /* delete, line 161 */
845
+ if (ret < 0) return ret;
846
+ }
847
+ break;
848
+ case 8:
849
+ { int ret = slice_from_s(z, 1, s_13); /* <-, line 162 */
850
+ if (ret < 0) return ret;
851
+ }
852
+ break;
853
+ case 9:
854
+ { int ret = slice_del(z); /* delete, line 163 */
855
+ if (ret < 0) return ret;
856
+ }
857
+ break;
858
+ }
859
+ return 1;
860
+ }
861
+
862
+ static int r_sing_owner(struct SN_env * z) {
863
+ int among_var;
864
+ z->ket = z->c; /* [, line 168 */
865
+ among_var = find_among_b(z, a_10, 31); /* substring, line 168 */
866
+ if (!(among_var)) return 0;
867
+ z->bra = z->c; /* ], line 168 */
868
+ { int ret = r_R1(z);
869
+ if (ret == 0) return 0; /* call R1, line 168 */
870
+ if (ret < 0) return ret;
871
+ }
872
+ switch(among_var) {
873
+ case 0: return 0;
874
+ case 1:
875
+ { int ret = slice_del(z); /* delete, line 169 */
876
+ if (ret < 0) return ret;
877
+ }
878
+ break;
879
+ case 2:
880
+ { int ret = slice_from_s(z, 1, s_14); /* <-, line 170 */
881
+ if (ret < 0) return ret;
882
+ }
883
+ break;
884
+ case 3:
885
+ { int ret = slice_from_s(z, 1, s_15); /* <-, line 171 */
886
+ if (ret < 0) return ret;
887
+ }
888
+ break;
889
+ case 4:
890
+ { int ret = slice_del(z); /* delete, line 172 */
891
+ if (ret < 0) return ret;
892
+ }
893
+ break;
894
+ case 5:
895
+ { int ret = slice_from_s(z, 1, s_16); /* <-, line 173 */
896
+ if (ret < 0) return ret;
897
+ }
898
+ break;
899
+ case 6:
900
+ { int ret = slice_from_s(z, 1, s_17); /* <-, line 174 */
901
+ if (ret < 0) return ret;
902
+ }
903
+ break;
904
+ case 7:
905
+ { int ret = slice_del(z); /* delete, line 175 */
906
+ if (ret < 0) return ret;
907
+ }
908
+ break;
909
+ case 8:
910
+ { int ret = slice_del(z); /* delete, line 176 */
911
+ if (ret < 0) return ret;
912
+ }
913
+ break;
914
+ case 9:
915
+ { int ret = slice_del(z); /* delete, line 177 */
916
+ if (ret < 0) return ret;
917
+ }
918
+ break;
919
+ case 10:
920
+ { int ret = slice_from_s(z, 1, s_18); /* <-, line 178 */
921
+ if (ret < 0) return ret;
922
+ }
923
+ break;
924
+ case 11:
925
+ { int ret = slice_from_s(z, 1, s_19); /* <-, line 179 */
926
+ if (ret < 0) return ret;
927
+ }
928
+ break;
929
+ case 12:
930
+ { int ret = slice_del(z); /* delete, line 180 */
931
+ if (ret < 0) return ret;
932
+ }
933
+ break;
934
+ case 13:
935
+ { int ret = slice_del(z); /* delete, line 181 */
936
+ if (ret < 0) return ret;
937
+ }
938
+ break;
939
+ case 14:
940
+ { int ret = slice_from_s(z, 1, s_20); /* <-, line 182 */
941
+ if (ret < 0) return ret;
942
+ }
943
+ break;
944
+ case 15:
945
+ { int ret = slice_from_s(z, 1, s_21); /* <-, line 183 */
946
+ if (ret < 0) return ret;
947
+ }
948
+ break;
949
+ case 16:
950
+ { int ret = slice_del(z); /* delete, line 184 */
951
+ if (ret < 0) return ret;
952
+ }
953
+ break;
954
+ case 17:
955
+ { int ret = slice_del(z); /* delete, line 185 */
956
+ if (ret < 0) return ret;
957
+ }
958
+ break;
959
+ case 18:
960
+ { int ret = slice_del(z); /* delete, line 186 */
961
+ if (ret < 0) return ret;
962
+ }
963
+ break;
964
+ case 19:
965
+ { int ret = slice_from_s(z, 1, s_22); /* <-, line 187 */
966
+ if (ret < 0) return ret;
967
+ }
968
+ break;
969
+ case 20:
970
+ { int ret = slice_from_s(z, 1, s_23); /* <-, line 188 */
971
+ if (ret < 0) return ret;
972
+ }
973
+ break;
974
+ }
975
+ return 1;
976
+ }
977
+
978
+ static int r_plur_owner(struct SN_env * z) {
979
+ int among_var;
980
+ z->ket = z->c; /* [, line 193 */
981
+ if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((10768 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
982
+ among_var = find_among_b(z, a_11, 42); /* substring, line 193 */
983
+ if (!(among_var)) return 0;
984
+ z->bra = z->c; /* ], line 193 */
985
+ { int ret = r_R1(z);
986
+ if (ret == 0) return 0; /* call R1, line 193 */
987
+ if (ret < 0) return ret;
988
+ }
989
+ switch(among_var) {
990
+ case 0: return 0;
991
+ case 1:
992
+ { int ret = slice_del(z); /* delete, line 194 */
993
+ if (ret < 0) return ret;
994
+ }
995
+ break;
996
+ case 2:
997
+ { int ret = slice_from_s(z, 1, s_24); /* <-, line 195 */
998
+ if (ret < 0) return ret;
999
+ }
1000
+ break;
1001
+ case 3:
1002
+ { int ret = slice_from_s(z, 1, s_25); /* <-, line 196 */
1003
+ if (ret < 0) return ret;
1004
+ }
1005
+ break;
1006
+ case 4:
1007
+ { int ret = slice_del(z); /* delete, line 197 */
1008
+ if (ret < 0) return ret;
1009
+ }
1010
+ break;
1011
+ case 5:
1012
+ { int ret = slice_del(z); /* delete, line 198 */
1013
+ if (ret < 0) return ret;
1014
+ }
1015
+ break;
1016
+ case 6:
1017
+ { int ret = slice_del(z); /* delete, line 199 */
1018
+ if (ret < 0) return ret;
1019
+ }
1020
+ break;
1021
+ case 7:
1022
+ { int ret = slice_from_s(z, 1, s_26); /* <-, line 200 */
1023
+ if (ret < 0) return ret;
1024
+ }
1025
+ break;
1026
+ case 8:
1027
+ { int ret = slice_from_s(z, 1, s_27); /* <-, line 201 */
1028
+ if (ret < 0) return ret;
1029
+ }
1030
+ break;
1031
+ case 9:
1032
+ { int ret = slice_del(z); /* delete, line 202 */
1033
+ if (ret < 0) return ret;
1034
+ }
1035
+ break;
1036
+ case 10:
1037
+ { int ret = slice_del(z); /* delete, line 203 */
1038
+ if (ret < 0) return ret;
1039
+ }
1040
+ break;
1041
+ case 11:
1042
+ { int ret = slice_del(z); /* delete, line 204 */
1043
+ if (ret < 0) return ret;
1044
+ }
1045
+ break;
1046
+ case 12:
1047
+ { int ret = slice_from_s(z, 1, s_28); /* <-, line 205 */
1048
+ if (ret < 0) return ret;
1049
+ }
1050
+ break;
1051
+ case 13:
1052
+ { int ret = slice_from_s(z, 1, s_29); /* <-, line 206 */
1053
+ if (ret < 0) return ret;
1054
+ }
1055
+ break;
1056
+ case 14:
1057
+ { int ret = slice_del(z); /* delete, line 207 */
1058
+ if (ret < 0) return ret;
1059
+ }
1060
+ break;
1061
+ case 15:
1062
+ { int ret = slice_del(z); /* delete, line 208 */
1063
+ if (ret < 0) return ret;
1064
+ }
1065
+ break;
1066
+ case 16:
1067
+ { int ret = slice_del(z); /* delete, line 209 */
1068
+ if (ret < 0) return ret;
1069
+ }
1070
+ break;
1071
+ case 17:
1072
+ { int ret = slice_del(z); /* delete, line 210 */
1073
+ if (ret < 0) return ret;
1074
+ }
1075
+ break;
1076
+ case 18:
1077
+ { int ret = slice_from_s(z, 1, s_30); /* <-, line 211 */
1078
+ if (ret < 0) return ret;
1079
+ }
1080
+ break;
1081
+ case 19:
1082
+ { int ret = slice_from_s(z, 1, s_31); /* <-, line 212 */
1083
+ if (ret < 0) return ret;
1084
+ }
1085
+ break;
1086
+ case 20:
1087
+ { int ret = slice_del(z); /* delete, line 214 */
1088
+ if (ret < 0) return ret;
1089
+ }
1090
+ break;
1091
+ case 21:
1092
+ { int ret = slice_del(z); /* delete, line 215 */
1093
+ if (ret < 0) return ret;
1094
+ }
1095
+ break;
1096
+ case 22:
1097
+ { int ret = slice_from_s(z, 1, s_32); /* <-, line 216 */
1098
+ if (ret < 0) return ret;
1099
+ }
1100
+ break;
1101
+ case 23:
1102
+ { int ret = slice_from_s(z, 1, s_33); /* <-, line 217 */
1103
+ if (ret < 0) return ret;
1104
+ }
1105
+ break;
1106
+ case 24:
1107
+ { int ret = slice_del(z); /* delete, line 218 */
1108
+ if (ret < 0) return ret;
1109
+ }
1110
+ break;
1111
+ case 25:
1112
+ { int ret = slice_del(z); /* delete, line 219 */
1113
+ if (ret < 0) return ret;
1114
+ }
1115
+ break;
1116
+ case 26:
1117
+ { int ret = slice_del(z); /* delete, line 220 */
1118
+ if (ret < 0) return ret;
1119
+ }
1120
+ break;
1121
+ case 27:
1122
+ { int ret = slice_from_s(z, 1, s_34); /* <-, line 221 */
1123
+ if (ret < 0) return ret;
1124
+ }
1125
+ break;
1126
+ case 28:
1127
+ { int ret = slice_from_s(z, 1, s_35); /* <-, line 222 */
1128
+ if (ret < 0) return ret;
1129
+ }
1130
+ break;
1131
+ case 29:
1132
+ { int ret = slice_del(z); /* delete, line 223 */
1133
+ if (ret < 0) return ret;
1134
+ }
1135
+ break;
1136
+ }
1137
+ return 1;
1138
+ }
1139
+
1140
+ extern int hungarian_ISO_8859_1_stem(struct SN_env * z) {
1141
+ { int c1 = z->c; /* do, line 229 */
1142
+ { int ret = r_mark_regions(z);
1143
+ if (ret == 0) goto lab0; /* call mark_regions, line 229 */
1144
+ if (ret < 0) return ret;
1145
+ }
1146
+ lab0:
1147
+ z->c = c1;
1148
+ }
1149
+ z->lb = z->c; z->c = z->l; /* backwards, line 230 */
1150
+
1151
+ { int m2 = z->l - z->c; (void)m2; /* do, line 231 */
1152
+ { int ret = r_instrum(z);
1153
+ if (ret == 0) goto lab1; /* call instrum, line 231 */
1154
+ if (ret < 0) return ret;
1155
+ }
1156
+ lab1:
1157
+ z->c = z->l - m2;
1158
+ }
1159
+ { int m3 = z->l - z->c; (void)m3; /* do, line 232 */
1160
+ { int ret = r_case(z);
1161
+ if (ret == 0) goto lab2; /* call case, line 232 */
1162
+ if (ret < 0) return ret;
1163
+ }
1164
+ lab2:
1165
+ z->c = z->l - m3;
1166
+ }
1167
+ { int m4 = z->l - z->c; (void)m4; /* do, line 233 */
1168
+ { int ret = r_case_special(z);
1169
+ if (ret == 0) goto lab3; /* call case_special, line 233 */
1170
+ if (ret < 0) return ret;
1171
+ }
1172
+ lab3:
1173
+ z->c = z->l - m4;
1174
+ }
1175
+ { int m5 = z->l - z->c; (void)m5; /* do, line 234 */
1176
+ { int ret = r_case_other(z);
1177
+ if (ret == 0) goto lab4; /* call case_other, line 234 */
1178
+ if (ret < 0) return ret;
1179
+ }
1180
+ lab4:
1181
+ z->c = z->l - m5;
1182
+ }
1183
+ { int m6 = z->l - z->c; (void)m6; /* do, line 235 */
1184
+ { int ret = r_factive(z);
1185
+ if (ret == 0) goto lab5; /* call factive, line 235 */
1186
+ if (ret < 0) return ret;
1187
+ }
1188
+ lab5:
1189
+ z->c = z->l - m6;
1190
+ }
1191
+ { int m7 = z->l - z->c; (void)m7; /* do, line 236 */
1192
+ { int ret = r_owned(z);
1193
+ if (ret == 0) goto lab6; /* call owned, line 236 */
1194
+ if (ret < 0) return ret;
1195
+ }
1196
+ lab6:
1197
+ z->c = z->l - m7;
1198
+ }
1199
+ { int m8 = z->l - z->c; (void)m8; /* do, line 237 */
1200
+ { int ret = r_sing_owner(z);
1201
+ if (ret == 0) goto lab7; /* call sing_owner, line 237 */
1202
+ if (ret < 0) return ret;
1203
+ }
1204
+ lab7:
1205
+ z->c = z->l - m8;
1206
+ }
1207
+ { int m9 = z->l - z->c; (void)m9; /* do, line 238 */
1208
+ { int ret = r_plur_owner(z);
1209
+ if (ret == 0) goto lab8; /* call plur_owner, line 238 */
1210
+ if (ret < 0) return ret;
1211
+ }
1212
+ lab8:
1213
+ z->c = z->l - m9;
1214
+ }
1215
+ { int m10 = z->l - z->c; (void)m10; /* do, line 239 */
1216
+ { int ret = r_plural(z);
1217
+ if (ret == 0) goto lab9; /* call plural, line 239 */
1218
+ if (ret < 0) return ret;
1219
+ }
1220
+ lab9:
1221
+ z->c = z->l - m10;
1222
+ }
1223
+ z->c = z->lb;
1224
+ return 1;
1225
+ }
1226
+
1227
+ extern struct SN_env * hungarian_ISO_8859_1_create_env(void) { return SN_create_env(0, 1, 0); }
1228
+
1229
+ extern void hungarian_ISO_8859_1_close_env(struct SN_env * z) { SN_close_env(z, 0); }
1230
+