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
@@ -1,1113 +0,0 @@
1
-
2
- /* This file was generated automatically by the Snowball to ANSI C compiler */
3
-
4
- #include "header.h"
5
-
6
- extern int italian_UTF_8_stem(struct SN_env * z);
7
- static int r_vowel_suffix(struct SN_env * z);
8
- static int r_verb_suffix(struct SN_env * z);
9
- static int r_standard_suffix(struct SN_env * z);
10
- static int r_attached_pronoun(struct SN_env * z);
11
- static int r_R2(struct SN_env * z);
12
- static int r_R1(struct SN_env * z);
13
- static int r_RV(struct SN_env * z);
14
- static int r_mark_regions(struct SN_env * z);
15
- static int r_postlude(struct SN_env * z);
16
- static int r_prelude(struct SN_env * z);
17
-
18
- extern struct SN_env * italian_UTF_8_create_env(void);
19
- extern void italian_UTF_8_close_env(struct SN_env * z);
20
-
21
- static symbol s_0_1[2] = { 'q', 'u' };
22
- static symbol s_0_2[2] = { 0xC3, 0xA1 };
23
- static symbol s_0_3[2] = { 0xC3, 0xA9 };
24
- static symbol s_0_4[2] = { 0xC3, 0xAD };
25
- static symbol s_0_5[2] = { 0xC3, 0xB3 };
26
- static symbol s_0_6[2] = { 0xC3, 0xBA };
27
-
28
- static struct among a_0[7] =
29
- {
30
- /* 0 */ { 0, 0, -1, 7, 0},
31
- /* 1 */ { 2, s_0_1, 0, 6, 0},
32
- /* 2 */ { 2, s_0_2, 0, 1, 0},
33
- /* 3 */ { 2, s_0_3, 0, 2, 0},
34
- /* 4 */ { 2, s_0_4, 0, 3, 0},
35
- /* 5 */ { 2, s_0_5, 0, 4, 0},
36
- /* 6 */ { 2, s_0_6, 0, 5, 0}
37
- };
38
-
39
- static symbol s_1_1[1] = { 'I' };
40
- static symbol s_1_2[1] = { 'U' };
41
-
42
- static struct among a_1[3] =
43
- {
44
- /* 0 */ { 0, 0, -1, 3, 0},
45
- /* 1 */ { 1, s_1_1, 0, 1, 0},
46
- /* 2 */ { 1, s_1_2, 0, 2, 0}
47
- };
48
-
49
- static symbol s_2_0[2] = { 'l', 'a' };
50
- static symbol s_2_1[4] = { 'c', 'e', 'l', 'a' };
51
- static symbol s_2_2[6] = { 'g', 'l', 'i', 'e', 'l', 'a' };
52
- static symbol s_2_3[4] = { 'm', 'e', 'l', 'a' };
53
- static symbol s_2_4[4] = { 't', 'e', 'l', 'a' };
54
- static symbol s_2_5[4] = { 'v', 'e', 'l', 'a' };
55
- static symbol s_2_6[2] = { 'l', 'e' };
56
- static symbol s_2_7[4] = { 'c', 'e', 'l', 'e' };
57
- static symbol s_2_8[6] = { 'g', 'l', 'i', 'e', 'l', 'e' };
58
- static symbol s_2_9[4] = { 'm', 'e', 'l', 'e' };
59
- static symbol s_2_10[4] = { 't', 'e', 'l', 'e' };
60
- static symbol s_2_11[4] = { 'v', 'e', 'l', 'e' };
61
- static symbol s_2_12[2] = { 'n', 'e' };
62
- static symbol s_2_13[4] = { 'c', 'e', 'n', 'e' };
63
- static symbol s_2_14[6] = { 'g', 'l', 'i', 'e', 'n', 'e' };
64
- static symbol s_2_15[4] = { 'm', 'e', 'n', 'e' };
65
- static symbol s_2_16[4] = { 's', 'e', 'n', 'e' };
66
- static symbol s_2_17[4] = { 't', 'e', 'n', 'e' };
67
- static symbol s_2_18[4] = { 'v', 'e', 'n', 'e' };
68
- static symbol s_2_19[2] = { 'c', 'i' };
69
- static symbol s_2_20[2] = { 'l', 'i' };
70
- static symbol s_2_21[4] = { 'c', 'e', 'l', 'i' };
71
- static symbol s_2_22[6] = { 'g', 'l', 'i', 'e', 'l', 'i' };
72
- static symbol s_2_23[4] = { 'm', 'e', 'l', 'i' };
73
- static symbol s_2_24[4] = { 't', 'e', 'l', 'i' };
74
- static symbol s_2_25[4] = { 'v', 'e', 'l', 'i' };
75
- static symbol s_2_26[3] = { 'g', 'l', 'i' };
76
- static symbol s_2_27[2] = { 'm', 'i' };
77
- static symbol s_2_28[2] = { 's', 'i' };
78
- static symbol s_2_29[2] = { 't', 'i' };
79
- static symbol s_2_30[2] = { 'v', 'i' };
80
- static symbol s_2_31[2] = { 'l', 'o' };
81
- static symbol s_2_32[4] = { 'c', 'e', 'l', 'o' };
82
- static symbol s_2_33[6] = { 'g', 'l', 'i', 'e', 'l', 'o' };
83
- static symbol s_2_34[4] = { 'm', 'e', 'l', 'o' };
84
- static symbol s_2_35[4] = { 't', 'e', 'l', 'o' };
85
- static symbol s_2_36[4] = { 'v', 'e', 'l', 'o' };
86
-
87
- static struct among a_2[37] =
88
- {
89
- /* 0 */ { 2, s_2_0, -1, -1, 0},
90
- /* 1 */ { 4, s_2_1, 0, -1, 0},
91
- /* 2 */ { 6, s_2_2, 0, -1, 0},
92
- /* 3 */ { 4, s_2_3, 0, -1, 0},
93
- /* 4 */ { 4, s_2_4, 0, -1, 0},
94
- /* 5 */ { 4, s_2_5, 0, -1, 0},
95
- /* 6 */ { 2, s_2_6, -1, -1, 0},
96
- /* 7 */ { 4, s_2_7, 6, -1, 0},
97
- /* 8 */ { 6, s_2_8, 6, -1, 0},
98
- /* 9 */ { 4, s_2_9, 6, -1, 0},
99
- /* 10 */ { 4, s_2_10, 6, -1, 0},
100
- /* 11 */ { 4, s_2_11, 6, -1, 0},
101
- /* 12 */ { 2, s_2_12, -1, -1, 0},
102
- /* 13 */ { 4, s_2_13, 12, -1, 0},
103
- /* 14 */ { 6, s_2_14, 12, -1, 0},
104
- /* 15 */ { 4, s_2_15, 12, -1, 0},
105
- /* 16 */ { 4, s_2_16, 12, -1, 0},
106
- /* 17 */ { 4, s_2_17, 12, -1, 0},
107
- /* 18 */ { 4, s_2_18, 12, -1, 0},
108
- /* 19 */ { 2, s_2_19, -1, -1, 0},
109
- /* 20 */ { 2, s_2_20, -1, -1, 0},
110
- /* 21 */ { 4, s_2_21, 20, -1, 0},
111
- /* 22 */ { 6, s_2_22, 20, -1, 0},
112
- /* 23 */ { 4, s_2_23, 20, -1, 0},
113
- /* 24 */ { 4, s_2_24, 20, -1, 0},
114
- /* 25 */ { 4, s_2_25, 20, -1, 0},
115
- /* 26 */ { 3, s_2_26, 20, -1, 0},
116
- /* 27 */ { 2, s_2_27, -1, -1, 0},
117
- /* 28 */ { 2, s_2_28, -1, -1, 0},
118
- /* 29 */ { 2, s_2_29, -1, -1, 0},
119
- /* 30 */ { 2, s_2_30, -1, -1, 0},
120
- /* 31 */ { 2, s_2_31, -1, -1, 0},
121
- /* 32 */ { 4, s_2_32, 31, -1, 0},
122
- /* 33 */ { 6, s_2_33, 31, -1, 0},
123
- /* 34 */ { 4, s_2_34, 31, -1, 0},
124
- /* 35 */ { 4, s_2_35, 31, -1, 0},
125
- /* 36 */ { 4, s_2_36, 31, -1, 0}
126
- };
127
-
128
- static symbol s_3_0[4] = { 'a', 'n', 'd', 'o' };
129
- static symbol s_3_1[4] = { 'e', 'n', 'd', 'o' };
130
- static symbol s_3_2[2] = { 'a', 'r' };
131
- static symbol s_3_3[2] = { 'e', 'r' };
132
- static symbol s_3_4[2] = { 'i', 'r' };
133
-
134
- static struct among a_3[5] =
135
- {
136
- /* 0 */ { 4, s_3_0, -1, 1, 0},
137
- /* 1 */ { 4, s_3_1, -1, 1, 0},
138
- /* 2 */ { 2, s_3_2, -1, 2, 0},
139
- /* 3 */ { 2, s_3_3, -1, 2, 0},
140
- /* 4 */ { 2, s_3_4, -1, 2, 0}
141
- };
142
-
143
- static symbol s_4_0[2] = { 'i', 'c' };
144
- static symbol s_4_1[4] = { 'a', 'b', 'i', 'l' };
145
- static symbol s_4_2[2] = { 'o', 's' };
146
- static symbol s_4_3[2] = { 'i', 'v' };
147
-
148
- static struct among a_4[4] =
149
- {
150
- /* 0 */ { 2, s_4_0, -1, -1, 0},
151
- /* 1 */ { 4, s_4_1, -1, -1, 0},
152
- /* 2 */ { 2, s_4_2, -1, -1, 0},
153
- /* 3 */ { 2, s_4_3, -1, 1, 0}
154
- };
155
-
156
- static symbol s_5_0[2] = { 'i', 'c' };
157
- static symbol s_5_1[4] = { 'a', 'b', 'i', 'l' };
158
- static symbol s_5_2[2] = { 'i', 'v' };
159
-
160
- static struct among a_5[3] =
161
- {
162
- /* 0 */ { 2, s_5_0, -1, 1, 0},
163
- /* 1 */ { 4, s_5_1, -1, 1, 0},
164
- /* 2 */ { 2, s_5_2, -1, 1, 0}
165
- };
166
-
167
- static symbol s_6_0[3] = { 'i', 'c', 'a' };
168
- static symbol s_6_1[5] = { 'l', 'o', 'g', 'i', 'a' };
169
- static symbol s_6_2[3] = { 'o', 's', 'a' };
170
- static symbol s_6_3[4] = { 'i', 's', 't', 'a' };
171
- static symbol s_6_4[3] = { 'i', 'v', 'a' };
172
- static symbol s_6_5[4] = { 'a', 'n', 'z', 'a' };
173
- static symbol s_6_6[4] = { 'e', 'n', 'z', 'a' };
174
- static symbol s_6_7[3] = { 'i', 'c', 'e' };
175
- static symbol s_6_8[6] = { 'a', 't', 'r', 'i', 'c', 'e' };
176
- static symbol s_6_9[4] = { 'i', 'c', 'h', 'e' };
177
- static symbol s_6_10[5] = { 'l', 'o', 'g', 'i', 'e' };
178
- static symbol s_6_11[5] = { 'a', 'b', 'i', 'l', 'e' };
179
- static symbol s_6_12[5] = { 'i', 'b', 'i', 'l', 'e' };
180
- static symbol s_6_13[6] = { 'u', 's', 'i', 'o', 'n', 'e' };
181
- static symbol s_6_14[6] = { 'a', 'z', 'i', 'o', 'n', 'e' };
182
- static symbol s_6_15[6] = { 'u', 'z', 'i', 'o', 'n', 'e' };
183
- static symbol s_6_16[5] = { 'a', 't', 'o', 'r', 'e' };
184
- static symbol s_6_17[3] = { 'o', 's', 'e' };
185
- static symbol s_6_18[4] = { 'a', 'n', 't', 'e' };
186
- static symbol s_6_19[5] = { 'm', 'e', 'n', 't', 'e' };
187
- static symbol s_6_20[6] = { 'a', 'm', 'e', 'n', 't', 'e' };
188
- static symbol s_6_21[4] = { 'i', 's', 't', 'e' };
189
- static symbol s_6_22[3] = { 'i', 'v', 'e' };
190
- static symbol s_6_23[4] = { 'a', 'n', 'z', 'e' };
191
- static symbol s_6_24[4] = { 'e', 'n', 'z', 'e' };
192
- static symbol s_6_25[3] = { 'i', 'c', 'i' };
193
- static symbol s_6_26[6] = { 'a', 't', 'r', 'i', 'c', 'i' };
194
- static symbol s_6_27[4] = { 'i', 'c', 'h', 'i' };
195
- static symbol s_6_28[5] = { 'a', 'b', 'i', 'l', 'i' };
196
- static symbol s_6_29[5] = { 'i', 'b', 'i', 'l', 'i' };
197
- static symbol s_6_30[4] = { 'i', 's', 'm', 'i' };
198
- static symbol s_6_31[6] = { 'u', 's', 'i', 'o', 'n', 'i' };
199
- static symbol s_6_32[6] = { 'a', 'z', 'i', 'o', 'n', 'i' };
200
- static symbol s_6_33[6] = { 'u', 'z', 'i', 'o', 'n', 'i' };
201
- static symbol s_6_34[5] = { 'a', 't', 'o', 'r', 'i' };
202
- static symbol s_6_35[3] = { 'o', 's', 'i' };
203
- static symbol s_6_36[4] = { 'a', 'n', 't', 'i' };
204
- static symbol s_6_37[6] = { 'a', 'm', 'e', 'n', 't', 'i' };
205
- static symbol s_6_38[6] = { 'i', 'm', 'e', 'n', 't', 'i' };
206
- static symbol s_6_39[4] = { 'i', 's', 't', 'i' };
207
- static symbol s_6_40[3] = { 'i', 'v', 'i' };
208
- static symbol s_6_41[3] = { 'i', 'c', 'o' };
209
- static symbol s_6_42[4] = { 'i', 's', 'm', 'o' };
210
- static symbol s_6_43[3] = { 'o', 's', 'o' };
211
- static symbol s_6_44[6] = { 'a', 'm', 'e', 'n', 't', 'o' };
212
- static symbol s_6_45[6] = { 'i', 'm', 'e', 'n', 't', 'o' };
213
- static symbol s_6_46[3] = { 'i', 'v', 'o' };
214
- static symbol s_6_47[4] = { 'i', 't', 0xC3, 0xA0 };
215
- static symbol s_6_48[5] = { 'i', 's', 't', 0xC3, 0xA0 };
216
- static symbol s_6_49[5] = { 'i', 's', 't', 0xC3, 0xA8 };
217
- static symbol s_6_50[5] = { 'i', 's', 't', 0xC3, 0xAC };
218
-
219
- static struct among a_6[51] =
220
- {
221
- /* 0 */ { 3, s_6_0, -1, 1, 0},
222
- /* 1 */ { 5, s_6_1, -1, 3, 0},
223
- /* 2 */ { 3, s_6_2, -1, 1, 0},
224
- /* 3 */ { 4, s_6_3, -1, 1, 0},
225
- /* 4 */ { 3, s_6_4, -1, 9, 0},
226
- /* 5 */ { 4, s_6_5, -1, 1, 0},
227
- /* 6 */ { 4, s_6_6, -1, 5, 0},
228
- /* 7 */ { 3, s_6_7, -1, 1, 0},
229
- /* 8 */ { 6, s_6_8, 7, 1, 0},
230
- /* 9 */ { 4, s_6_9, -1, 1, 0},
231
- /* 10 */ { 5, s_6_10, -1, 3, 0},
232
- /* 11 */ { 5, s_6_11, -1, 1, 0},
233
- /* 12 */ { 5, s_6_12, -1, 1, 0},
234
- /* 13 */ { 6, s_6_13, -1, 4, 0},
235
- /* 14 */ { 6, s_6_14, -1, 2, 0},
236
- /* 15 */ { 6, s_6_15, -1, 4, 0},
237
- /* 16 */ { 5, s_6_16, -1, 2, 0},
238
- /* 17 */ { 3, s_6_17, -1, 1, 0},
239
- /* 18 */ { 4, s_6_18, -1, 1, 0},
240
- /* 19 */ { 5, s_6_19, -1, 1, 0},
241
- /* 20 */ { 6, s_6_20, 19, 7, 0},
242
- /* 21 */ { 4, s_6_21, -1, 1, 0},
243
- /* 22 */ { 3, s_6_22, -1, 9, 0},
244
- /* 23 */ { 4, s_6_23, -1, 1, 0},
245
- /* 24 */ { 4, s_6_24, -1, 5, 0},
246
- /* 25 */ { 3, s_6_25, -1, 1, 0},
247
- /* 26 */ { 6, s_6_26, 25, 1, 0},
248
- /* 27 */ { 4, s_6_27, -1, 1, 0},
249
- /* 28 */ { 5, s_6_28, -1, 1, 0},
250
- /* 29 */ { 5, s_6_29, -1, 1, 0},
251
- /* 30 */ { 4, s_6_30, -1, 1, 0},
252
- /* 31 */ { 6, s_6_31, -1, 4, 0},
253
- /* 32 */ { 6, s_6_32, -1, 2, 0},
254
- /* 33 */ { 6, s_6_33, -1, 4, 0},
255
- /* 34 */ { 5, s_6_34, -1, 2, 0},
256
- /* 35 */ { 3, s_6_35, -1, 1, 0},
257
- /* 36 */ { 4, s_6_36, -1, 1, 0},
258
- /* 37 */ { 6, s_6_37, -1, 6, 0},
259
- /* 38 */ { 6, s_6_38, -1, 6, 0},
260
- /* 39 */ { 4, s_6_39, -1, 1, 0},
261
- /* 40 */ { 3, s_6_40, -1, 9, 0},
262
- /* 41 */ { 3, s_6_41, -1, 1, 0},
263
- /* 42 */ { 4, s_6_42, -1, 1, 0},
264
- /* 43 */ { 3, s_6_43, -1, 1, 0},
265
- /* 44 */ { 6, s_6_44, -1, 6, 0},
266
- /* 45 */ { 6, s_6_45, -1, 6, 0},
267
- /* 46 */ { 3, s_6_46, -1, 9, 0},
268
- /* 47 */ { 4, s_6_47, -1, 8, 0},
269
- /* 48 */ { 5, s_6_48, -1, 1, 0},
270
- /* 49 */ { 5, s_6_49, -1, 1, 0},
271
- /* 50 */ { 5, s_6_50, -1, 1, 0}
272
- };
273
-
274
- static symbol s_7_0[4] = { 'i', 's', 'c', 'a' };
275
- static symbol s_7_1[4] = { 'e', 'n', 'd', 'a' };
276
- static symbol s_7_2[3] = { 'a', 't', 'a' };
277
- static symbol s_7_3[3] = { 'i', 't', 'a' };
278
- static symbol s_7_4[3] = { 'u', 't', 'a' };
279
- static symbol s_7_5[3] = { 'a', 'v', 'a' };
280
- static symbol s_7_6[3] = { 'e', 'v', 'a' };
281
- static symbol s_7_7[3] = { 'i', 'v', 'a' };
282
- static symbol s_7_8[6] = { 'e', 'r', 'e', 'b', 'b', 'e' };
283
- static symbol s_7_9[6] = { 'i', 'r', 'e', 'b', 'b', 'e' };
284
- static symbol s_7_10[4] = { 'i', 's', 'c', 'e' };
285
- static symbol s_7_11[4] = { 'e', 'n', 'd', 'e' };
286
- static symbol s_7_12[3] = { 'a', 'r', 'e' };
287
- static symbol s_7_13[3] = { 'e', 'r', 'e' };
288
- static symbol s_7_14[3] = { 'i', 'r', 'e' };
289
- static symbol s_7_15[4] = { 'a', 's', 's', 'e' };
290
- static symbol s_7_16[3] = { 'a', 't', 'e' };
291
- static symbol s_7_17[5] = { 'a', 'v', 'a', 't', 'e' };
292
- static symbol s_7_18[5] = { 'e', 'v', 'a', 't', 'e' };
293
- static symbol s_7_19[5] = { 'i', 'v', 'a', 't', 'e' };
294
- static symbol s_7_20[3] = { 'e', 't', 'e' };
295
- static symbol s_7_21[5] = { 'e', 'r', 'e', 't', 'e' };
296
- static symbol s_7_22[5] = { 'i', 'r', 'e', 't', 'e' };
297
- static symbol s_7_23[3] = { 'i', 't', 'e' };
298
- static symbol s_7_24[6] = { 'e', 'r', 'e', 's', 't', 'e' };
299
- static symbol s_7_25[6] = { 'i', 'r', 'e', 's', 't', 'e' };
300
- static symbol s_7_26[3] = { 'u', 't', 'e' };
301
- static symbol s_7_27[4] = { 'e', 'r', 'a', 'i' };
302
- static symbol s_7_28[4] = { 'i', 'r', 'a', 'i' };
303
- static symbol s_7_29[4] = { 'i', 's', 'c', 'i' };
304
- static symbol s_7_30[4] = { 'e', 'n', 'd', 'i' };
305
- static symbol s_7_31[4] = { 'e', 'r', 'e', 'i' };
306
- static symbol s_7_32[4] = { 'i', 'r', 'e', 'i' };
307
- static symbol s_7_33[4] = { 'a', 's', 's', 'i' };
308
- static symbol s_7_34[3] = { 'a', 't', 'i' };
309
- static symbol s_7_35[3] = { 'i', 't', 'i' };
310
- static symbol s_7_36[6] = { 'e', 'r', 'e', 's', 't', 'i' };
311
- static symbol s_7_37[6] = { 'i', 'r', 'e', 's', 't', 'i' };
312
- static symbol s_7_38[3] = { 'u', 't', 'i' };
313
- static symbol s_7_39[3] = { 'a', 'v', 'i' };
314
- static symbol s_7_40[3] = { 'e', 'v', 'i' };
315
- static symbol s_7_41[3] = { 'i', 'v', 'i' };
316
- static symbol s_7_42[4] = { 'i', 's', 'c', 'o' };
317
- static symbol s_7_43[4] = { 'a', 'n', 'd', 'o' };
318
- static symbol s_7_44[4] = { 'e', 'n', 'd', 'o' };
319
- static symbol s_7_45[4] = { 'Y', 'a', 'm', 'o' };
320
- static symbol s_7_46[4] = { 'i', 'a', 'm', 'o' };
321
- static symbol s_7_47[5] = { 'a', 'v', 'a', 'm', 'o' };
322
- static symbol s_7_48[5] = { 'e', 'v', 'a', 'm', 'o' };
323
- static symbol s_7_49[5] = { 'i', 'v', 'a', 'm', 'o' };
324
- static symbol s_7_50[5] = { 'e', 'r', 'e', 'm', 'o' };
325
- static symbol s_7_51[5] = { 'i', 'r', 'e', 'm', 'o' };
326
- static symbol s_7_52[6] = { 'a', 's', 's', 'i', 'm', 'o' };
327
- static symbol s_7_53[4] = { 'a', 'm', 'm', 'o' };
328
- static symbol s_7_54[4] = { 'e', 'm', 'm', 'o' };
329
- static symbol s_7_55[6] = { 'e', 'r', 'e', 'm', 'm', 'o' };
330
- static symbol s_7_56[6] = { 'i', 'r', 'e', 'm', 'm', 'o' };
331
- static symbol s_7_57[4] = { 'i', 'm', 'm', 'o' };
332
- static symbol s_7_58[3] = { 'a', 'n', 'o' };
333
- static symbol s_7_59[6] = { 'i', 's', 'c', 'a', 'n', 'o' };
334
- static symbol s_7_60[5] = { 'a', 'v', 'a', 'n', 'o' };
335
- static symbol s_7_61[5] = { 'e', 'v', 'a', 'n', 'o' };
336
- static symbol s_7_62[5] = { 'i', 'v', 'a', 'n', 'o' };
337
- static symbol s_7_63[6] = { 'e', 'r', 'a', 'n', 'n', 'o' };
338
- static symbol s_7_64[6] = { 'i', 'r', 'a', 'n', 'n', 'o' };
339
- static symbol s_7_65[3] = { 'o', 'n', 'o' };
340
- static symbol s_7_66[6] = { 'i', 's', 'c', 'o', 'n', 'o' };
341
- static symbol s_7_67[5] = { 'a', 'r', 'o', 'n', 'o' };
342
- static symbol s_7_68[5] = { 'e', 'r', 'o', 'n', 'o' };
343
- static symbol s_7_69[5] = { 'i', 'r', 'o', 'n', 'o' };
344
- static symbol s_7_70[8] = { 'e', 'r', 'e', 'b', 'b', 'e', 'r', 'o' };
345
- static symbol s_7_71[8] = { 'i', 'r', 'e', 'b', 'b', 'e', 'r', 'o' };
346
- static symbol s_7_72[6] = { 'a', 's', 's', 'e', 'r', 'o' };
347
- static symbol s_7_73[6] = { 'e', 's', 's', 'e', 'r', 'o' };
348
- static symbol s_7_74[6] = { 'i', 's', 's', 'e', 'r', 'o' };
349
- static symbol s_7_75[3] = { 'a', 't', 'o' };
350
- static symbol s_7_76[3] = { 'i', 't', 'o' };
351
- static symbol s_7_77[3] = { 'u', 't', 'o' };
352
- static symbol s_7_78[3] = { 'a', 'v', 'o' };
353
- static symbol s_7_79[3] = { 'e', 'v', 'o' };
354
- static symbol s_7_80[3] = { 'i', 'v', 'o' };
355
- static symbol s_7_81[2] = { 'a', 'r' };
356
- static symbol s_7_82[2] = { 'i', 'r' };
357
- static symbol s_7_83[4] = { 'e', 'r', 0xC3, 0xA0 };
358
- static symbol s_7_84[4] = { 'i', 'r', 0xC3, 0xA0 };
359
- static symbol s_7_85[4] = { 'e', 'r', 0xC3, 0xB2 };
360
- static symbol s_7_86[4] = { 'i', 'r', 0xC3, 0xB2 };
361
-
362
- static struct among a_7[87] =
363
- {
364
- /* 0 */ { 4, s_7_0, -1, 1, 0},
365
- /* 1 */ { 4, s_7_1, -1, 1, 0},
366
- /* 2 */ { 3, s_7_2, -1, 1, 0},
367
- /* 3 */ { 3, s_7_3, -1, 1, 0},
368
- /* 4 */ { 3, s_7_4, -1, 1, 0},
369
- /* 5 */ { 3, s_7_5, -1, 1, 0},
370
- /* 6 */ { 3, s_7_6, -1, 1, 0},
371
- /* 7 */ { 3, s_7_7, -1, 1, 0},
372
- /* 8 */ { 6, s_7_8, -1, 1, 0},
373
- /* 9 */ { 6, s_7_9, -1, 1, 0},
374
- /* 10 */ { 4, s_7_10, -1, 1, 0},
375
- /* 11 */ { 4, s_7_11, -1, 1, 0},
376
- /* 12 */ { 3, s_7_12, -1, 1, 0},
377
- /* 13 */ { 3, s_7_13, -1, 1, 0},
378
- /* 14 */ { 3, s_7_14, -1, 1, 0},
379
- /* 15 */ { 4, s_7_15, -1, 1, 0},
380
- /* 16 */ { 3, s_7_16, -1, 1, 0},
381
- /* 17 */ { 5, s_7_17, 16, 1, 0},
382
- /* 18 */ { 5, s_7_18, 16, 1, 0},
383
- /* 19 */ { 5, s_7_19, 16, 1, 0},
384
- /* 20 */ { 3, s_7_20, -1, 1, 0},
385
- /* 21 */ { 5, s_7_21, 20, 1, 0},
386
- /* 22 */ { 5, s_7_22, 20, 1, 0},
387
- /* 23 */ { 3, s_7_23, -1, 1, 0},
388
- /* 24 */ { 6, s_7_24, -1, 1, 0},
389
- /* 25 */ { 6, s_7_25, -1, 1, 0},
390
- /* 26 */ { 3, s_7_26, -1, 1, 0},
391
- /* 27 */ { 4, s_7_27, -1, 1, 0},
392
- /* 28 */ { 4, s_7_28, -1, 1, 0},
393
- /* 29 */ { 4, s_7_29, -1, 1, 0},
394
- /* 30 */ { 4, s_7_30, -1, 1, 0},
395
- /* 31 */ { 4, s_7_31, -1, 1, 0},
396
- /* 32 */ { 4, s_7_32, -1, 1, 0},
397
- /* 33 */ { 4, s_7_33, -1, 1, 0},
398
- /* 34 */ { 3, s_7_34, -1, 1, 0},
399
- /* 35 */ { 3, s_7_35, -1, 1, 0},
400
- /* 36 */ { 6, s_7_36, -1, 1, 0},
401
- /* 37 */ { 6, s_7_37, -1, 1, 0},
402
- /* 38 */ { 3, s_7_38, -1, 1, 0},
403
- /* 39 */ { 3, s_7_39, -1, 1, 0},
404
- /* 40 */ { 3, s_7_40, -1, 1, 0},
405
- /* 41 */ { 3, s_7_41, -1, 1, 0},
406
- /* 42 */ { 4, s_7_42, -1, 1, 0},
407
- /* 43 */ { 4, s_7_43, -1, 1, 0},
408
- /* 44 */ { 4, s_7_44, -1, 1, 0},
409
- /* 45 */ { 4, s_7_45, -1, 1, 0},
410
- /* 46 */ { 4, s_7_46, -1, 1, 0},
411
- /* 47 */ { 5, s_7_47, -1, 1, 0},
412
- /* 48 */ { 5, s_7_48, -1, 1, 0},
413
- /* 49 */ { 5, s_7_49, -1, 1, 0},
414
- /* 50 */ { 5, s_7_50, -1, 1, 0},
415
- /* 51 */ { 5, s_7_51, -1, 1, 0},
416
- /* 52 */ { 6, s_7_52, -1, 1, 0},
417
- /* 53 */ { 4, s_7_53, -1, 1, 0},
418
- /* 54 */ { 4, s_7_54, -1, 1, 0},
419
- /* 55 */ { 6, s_7_55, 54, 1, 0},
420
- /* 56 */ { 6, s_7_56, 54, 1, 0},
421
- /* 57 */ { 4, s_7_57, -1, 1, 0},
422
- /* 58 */ { 3, s_7_58, -1, 1, 0},
423
- /* 59 */ { 6, s_7_59, 58, 1, 0},
424
- /* 60 */ { 5, s_7_60, 58, 1, 0},
425
- /* 61 */ { 5, s_7_61, 58, 1, 0},
426
- /* 62 */ { 5, s_7_62, 58, 1, 0},
427
- /* 63 */ { 6, s_7_63, -1, 1, 0},
428
- /* 64 */ { 6, s_7_64, -1, 1, 0},
429
- /* 65 */ { 3, s_7_65, -1, 1, 0},
430
- /* 66 */ { 6, s_7_66, 65, 1, 0},
431
- /* 67 */ { 5, s_7_67, 65, 1, 0},
432
- /* 68 */ { 5, s_7_68, 65, 1, 0},
433
- /* 69 */ { 5, s_7_69, 65, 1, 0},
434
- /* 70 */ { 8, s_7_70, -1, 1, 0},
435
- /* 71 */ { 8, s_7_71, -1, 1, 0},
436
- /* 72 */ { 6, s_7_72, -1, 1, 0},
437
- /* 73 */ { 6, s_7_73, -1, 1, 0},
438
- /* 74 */ { 6, s_7_74, -1, 1, 0},
439
- /* 75 */ { 3, s_7_75, -1, 1, 0},
440
- /* 76 */ { 3, s_7_76, -1, 1, 0},
441
- /* 77 */ { 3, s_7_77, -1, 1, 0},
442
- /* 78 */ { 3, s_7_78, -1, 1, 0},
443
- /* 79 */ { 3, s_7_79, -1, 1, 0},
444
- /* 80 */ { 3, s_7_80, -1, 1, 0},
445
- /* 81 */ { 2, s_7_81, -1, 1, 0},
446
- /* 82 */ { 2, s_7_82, -1, 1, 0},
447
- /* 83 */ { 4, s_7_83, -1, 1, 0},
448
- /* 84 */ { 4, s_7_84, -1, 1, 0},
449
- /* 85 */ { 4, s_7_85, -1, 1, 0},
450
- /* 86 */ { 4, s_7_86, -1, 1, 0}
451
- };
452
-
453
- static unsigned char g_v[] = { 17, 65, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 128, 128, 8, 2, 1 };
454
-
455
- static unsigned char g_AEIO[] = { 17, 65, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 128, 128, 8, 2 };
456
-
457
- static unsigned char g_CG[] = { 17 };
458
-
459
- static symbol s_0[] = { 0xC3, 0xA0 };
460
- static symbol s_1[] = { 0xC3, 0xA8 };
461
- static symbol s_2[] = { 0xC3, 0xAC };
462
- static symbol s_3[] = { 0xC3, 0xB2 };
463
- static symbol s_4[] = { 0xC3, 0xB9 };
464
- static symbol s_5[] = { 'q', 'U' };
465
- static symbol s_6[] = { 'u' };
466
- static symbol s_7[] = { 'U' };
467
- static symbol s_8[] = { 'i' };
468
- static symbol s_9[] = { 'I' };
469
- static symbol s_10[] = { 'i' };
470
- static symbol s_11[] = { 'u' };
471
- static symbol s_12[] = { 'e' };
472
- static symbol s_13[] = { 'i', 'c' };
473
- static symbol s_14[] = { 'l', 'o', 'g' };
474
- static symbol s_15[] = { 'u' };
475
- static symbol s_16[] = { 'e', 'n', 't', 'e' };
476
- static symbol s_17[] = { 'a', 't' };
477
- static symbol s_18[] = { 'a', 't' };
478
- static symbol s_19[] = { 'i', 'c' };
479
- static symbol s_20[] = { 'i' };
480
- static symbol s_21[] = { 'h' };
481
-
482
- static int r_prelude(struct SN_env * z) {
483
- int among_var;
484
- { int c_test = z->c; /* test, line 35 */
485
- while(1) { /* repeat, line 35 */
486
- int c = z->c;
487
- z->bra = z->c; /* [, line 36 */
488
- among_var = find_among(z, a_0, 7); /* substring, line 36 */
489
- if (!(among_var)) goto lab0;
490
- z->ket = z->c; /* ], line 36 */
491
- switch(among_var) {
492
- case 0: goto lab0;
493
- case 1:
494
- { int ret;
495
- ret = slice_from_s(z, 2, s_0); /* <-, line 37 */
496
- if (ret < 0) return ret;
497
- }
498
- break;
499
- case 2:
500
- { int ret;
501
- ret = slice_from_s(z, 2, s_1); /* <-, line 38 */
502
- if (ret < 0) return ret;
503
- }
504
- break;
505
- case 3:
506
- { int ret;
507
- ret = slice_from_s(z, 2, s_2); /* <-, line 39 */
508
- if (ret < 0) return ret;
509
- }
510
- break;
511
- case 4:
512
- { int ret;
513
- ret = slice_from_s(z, 2, s_3); /* <-, line 40 */
514
- if (ret < 0) return ret;
515
- }
516
- break;
517
- case 5:
518
- { int ret;
519
- ret = slice_from_s(z, 2, s_4); /* <-, line 41 */
520
- if (ret < 0) return ret;
521
- }
522
- break;
523
- case 6:
524
- { int ret;
525
- ret = slice_from_s(z, 2, s_5); /* <-, line 42 */
526
- if (ret < 0) return ret;
527
- }
528
- break;
529
- case 7:
530
- { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
531
- if (c < 0) goto lab0;
532
- z->c = c; /* next, line 43 */
533
- }
534
- break;
535
- }
536
- continue;
537
- lab0:
538
- z->c = c;
539
- break;
540
- }
541
- z->c = c_test;
542
- }
543
- while(1) { /* repeat, line 46 */
544
- int c = z->c;
545
- while(1) { /* goto, line 46 */
546
- int c = z->c;
547
- if (!(in_grouping_U(z, g_v, 97, 249))) goto lab2;
548
- z->bra = z->c; /* [, line 47 */
549
- { int c = z->c; /* or, line 47 */
550
- if (!(eq_s(z, 1, s_6))) goto lab4;
551
- z->ket = z->c; /* ], line 47 */
552
- if (!(in_grouping_U(z, g_v, 97, 249))) goto lab4;
553
- { int ret;
554
- ret = slice_from_s(z, 1, s_7); /* <-, line 47 */
555
- if (ret < 0) return ret;
556
- }
557
- goto lab3;
558
- lab4:
559
- z->c = c;
560
- if (!(eq_s(z, 1, s_8))) goto lab2;
561
- z->ket = z->c; /* ], line 48 */
562
- if (!(in_grouping_U(z, g_v, 97, 249))) goto lab2;
563
- { int ret;
564
- ret = slice_from_s(z, 1, s_9); /* <-, line 48 */
565
- if (ret < 0) return ret;
566
- }
567
- }
568
- lab3:
569
- z->c = c;
570
- break;
571
- lab2:
572
- z->c = c;
573
- { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
574
- if (c < 0) goto lab1;
575
- z->c = c; /* goto, line 46 */
576
- }
577
- }
578
- continue;
579
- lab1:
580
- z->c = c;
581
- break;
582
- }
583
- return 1;
584
- }
585
-
586
- static int r_mark_regions(struct SN_env * z) {
587
- z->I[0] = z->l;
588
- z->I[1] = z->l;
589
- z->I[2] = z->l;
590
- { int c = z->c; /* do, line 58 */
591
- { int c = z->c; /* or, line 60 */
592
- if (!(in_grouping_U(z, g_v, 97, 249))) goto lab2;
593
- { int c = z->c; /* or, line 59 */
594
- if (!(out_grouping_U(z, g_v, 97, 249))) goto lab4;
595
- while(1) { /* gopast, line 59 */
596
- if (!(in_grouping_U(z, g_v, 97, 249))) goto lab5;
597
- break;
598
- lab5:
599
- { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
600
- if (c < 0) goto lab4;
601
- z->c = c; /* gopast, line 59 */
602
- }
603
- }
604
- goto lab3;
605
- lab4:
606
- z->c = c;
607
- if (!(in_grouping_U(z, g_v, 97, 249))) goto lab2;
608
- while(1) { /* gopast, line 59 */
609
- if (!(out_grouping_U(z, g_v, 97, 249))) goto lab6;
610
- break;
611
- lab6:
612
- { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
613
- if (c < 0) goto lab2;
614
- z->c = c; /* gopast, line 59 */
615
- }
616
- }
617
- }
618
- lab3:
619
- goto lab1;
620
- lab2:
621
- z->c = c;
622
- if (!(out_grouping_U(z, g_v, 97, 249))) goto lab0;
623
- { int c = z->c; /* or, line 61 */
624
- if (!(out_grouping_U(z, g_v, 97, 249))) goto lab8;
625
- while(1) { /* gopast, line 61 */
626
- if (!(in_grouping_U(z, g_v, 97, 249))) goto lab9;
627
- break;
628
- lab9:
629
- { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
630
- if (c < 0) goto lab8;
631
- z->c = c; /* gopast, line 61 */
632
- }
633
- }
634
- goto lab7;
635
- lab8:
636
- z->c = c;
637
- if (!(in_grouping_U(z, g_v, 97, 249))) goto lab0;
638
- { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
639
- if (c < 0) goto lab0;
640
- z->c = c; /* next, line 61 */
641
- }
642
- }
643
- lab7:
644
- ;
645
- }
646
- lab1:
647
- z->I[0] = z->c; /* setmark pV, line 62 */
648
- lab0:
649
- z->c = c;
650
- }
651
- { int c = z->c; /* do, line 64 */
652
- while(1) { /* gopast, line 65 */
653
- if (!(in_grouping_U(z, g_v, 97, 249))) goto lab11;
654
- break;
655
- lab11:
656
- { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
657
- if (c < 0) goto lab10;
658
- z->c = c; /* gopast, line 65 */
659
- }
660
- }
661
- while(1) { /* gopast, line 65 */
662
- if (!(out_grouping_U(z, g_v, 97, 249))) goto lab12;
663
- break;
664
- lab12:
665
- { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
666
- if (c < 0) goto lab10;
667
- z->c = c; /* gopast, line 65 */
668
- }
669
- }
670
- z->I[1] = z->c; /* setmark p1, line 65 */
671
- while(1) { /* gopast, line 66 */
672
- if (!(in_grouping_U(z, g_v, 97, 249))) goto lab13;
673
- break;
674
- lab13:
675
- { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
676
- if (c < 0) goto lab10;
677
- z->c = c; /* gopast, line 66 */
678
- }
679
- }
680
- while(1) { /* gopast, line 66 */
681
- if (!(out_grouping_U(z, g_v, 97, 249))) goto lab14;
682
- break;
683
- lab14:
684
- { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
685
- if (c < 0) goto lab10;
686
- z->c = c; /* gopast, line 66 */
687
- }
688
- }
689
- z->I[2] = z->c; /* setmark p2, line 66 */
690
- lab10:
691
- z->c = c;
692
- }
693
- return 1;
694
- }
695
-
696
- static int r_postlude(struct SN_env * z) {
697
- int among_var;
698
- while(1) { /* repeat, line 70 */
699
- int c = z->c;
700
- z->bra = z->c; /* [, line 72 */
701
- among_var = find_among(z, a_1, 3); /* substring, line 72 */
702
- if (!(among_var)) goto lab0;
703
- z->ket = z->c; /* ], line 72 */
704
- switch(among_var) {
705
- case 0: goto lab0;
706
- case 1:
707
- { int ret;
708
- ret = slice_from_s(z, 1, s_10); /* <-, line 73 */
709
- if (ret < 0) return ret;
710
- }
711
- break;
712
- case 2:
713
- { int ret;
714
- ret = slice_from_s(z, 1, s_11); /* <-, line 74 */
715
- if (ret < 0) return ret;
716
- }
717
- break;
718
- case 3:
719
- { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
720
- if (c < 0) goto lab0;
721
- z->c = c; /* next, line 75 */
722
- }
723
- break;
724
- }
725
- continue;
726
- lab0:
727
- z->c = c;
728
- break;
729
- }
730
- return 1;
731
- }
732
-
733
- static int r_RV(struct SN_env * z) {
734
- if (!(z->I[0] <= z->c)) return 0;
735
- return 1;
736
- }
737
-
738
- static int r_R1(struct SN_env * z) {
739
- if (!(z->I[1] <= z->c)) return 0;
740
- return 1;
741
- }
742
-
743
- static int r_R2(struct SN_env * z) {
744
- if (!(z->I[2] <= z->c)) return 0;
745
- return 1;
746
- }
747
-
748
- static int r_attached_pronoun(struct SN_env * z) {
749
- int among_var;
750
- z->ket = z->c; /* [, line 87 */
751
- if (!(find_among_b(z, a_2, 37))) return 0; /* substring, line 87 */
752
- z->bra = z->c; /* ], line 87 */
753
- among_var = find_among_b(z, a_3, 5); /* among, line 97 */
754
- if (!(among_var)) return 0;
755
- { int ret = r_RV(z);
756
- if (ret == 0) return 0; /* call RV, line 97 */
757
- if (ret < 0) return ret;
758
- }
759
- switch(among_var) {
760
- case 0: return 0;
761
- case 1:
762
- { int ret;
763
- ret = slice_del(z); /* delete, line 98 */
764
- if (ret < 0) return ret;
765
- }
766
- break;
767
- case 2:
768
- { int ret;
769
- ret = slice_from_s(z, 1, s_12); /* <-, line 99 */
770
- if (ret < 0) return ret;
771
- }
772
- break;
773
- }
774
- return 1;
775
- }
776
-
777
- static int r_standard_suffix(struct SN_env * z) {
778
- int among_var;
779
- z->ket = z->c; /* [, line 104 */
780
- among_var = find_among_b(z, a_6, 51); /* substring, line 104 */
781
- if (!(among_var)) return 0;
782
- z->bra = z->c; /* ], line 104 */
783
- switch(among_var) {
784
- case 0: return 0;
785
- case 1:
786
- { int ret = r_R2(z);
787
- if (ret == 0) return 0; /* call R2, line 111 */
788
- if (ret < 0) return ret;
789
- }
790
- { int ret;
791
- ret = slice_del(z); /* delete, line 111 */
792
- if (ret < 0) return ret;
793
- }
794
- break;
795
- case 2:
796
- { int ret = r_R2(z);
797
- if (ret == 0) return 0; /* call R2, line 113 */
798
- if (ret < 0) return ret;
799
- }
800
- { int ret;
801
- ret = slice_del(z); /* delete, line 113 */
802
- if (ret < 0) return ret;
803
- }
804
- { int m = z->l - z->c; (void) m; /* try, line 114 */
805
- z->ket = z->c; /* [, line 114 */
806
- if (!(eq_s_b(z, 2, s_13))) { z->c = z->l - m; goto lab0; }
807
- z->bra = z->c; /* ], line 114 */
808
- { int ret = r_R2(z);
809
- if (ret == 0) { z->c = z->l - m; goto lab0; } /* call R2, line 114 */
810
- if (ret < 0) return ret;
811
- }
812
- { int ret;
813
- ret = slice_del(z); /* delete, line 114 */
814
- if (ret < 0) return ret;
815
- }
816
- lab0:
817
- ;
818
- }
819
- break;
820
- case 3:
821
- { int ret = r_R2(z);
822
- if (ret == 0) return 0; /* call R2, line 117 */
823
- if (ret < 0) return ret;
824
- }
825
- { int ret;
826
- ret = slice_from_s(z, 3, s_14); /* <-, line 117 */
827
- if (ret < 0) return ret;
828
- }
829
- break;
830
- case 4:
831
- { int ret = r_R2(z);
832
- if (ret == 0) return 0; /* call R2, line 119 */
833
- if (ret < 0) return ret;
834
- }
835
- { int ret;
836
- ret = slice_from_s(z, 1, s_15); /* <-, line 119 */
837
- if (ret < 0) return ret;
838
- }
839
- break;
840
- case 5:
841
- { int ret = r_R2(z);
842
- if (ret == 0) return 0; /* call R2, line 121 */
843
- if (ret < 0) return ret;
844
- }
845
- { int ret;
846
- ret = slice_from_s(z, 4, s_16); /* <-, line 121 */
847
- if (ret < 0) return ret;
848
- }
849
- break;
850
- case 6:
851
- { int ret = r_RV(z);
852
- if (ret == 0) return 0; /* call RV, line 123 */
853
- if (ret < 0) return ret;
854
- }
855
- { int ret;
856
- ret = slice_del(z); /* delete, line 123 */
857
- if (ret < 0) return ret;
858
- }
859
- break;
860
- case 7:
861
- { int ret = r_R1(z);
862
- if (ret == 0) return 0; /* call R1, line 125 */
863
- if (ret < 0) return ret;
864
- }
865
- { int ret;
866
- ret = slice_del(z); /* delete, line 125 */
867
- if (ret < 0) return ret;
868
- }
869
- { int m = z->l - z->c; (void) m; /* try, line 126 */
870
- z->ket = z->c; /* [, line 127 */
871
- among_var = find_among_b(z, a_4, 4); /* substring, line 127 */
872
- if (!(among_var)) { z->c = z->l - m; goto lab1; }
873
- z->bra = z->c; /* ], line 127 */
874
- { int ret = r_R2(z);
875
- if (ret == 0) { z->c = z->l - m; goto lab1; } /* call R2, line 127 */
876
- if (ret < 0) return ret;
877
- }
878
- { int ret;
879
- ret = slice_del(z); /* delete, line 127 */
880
- if (ret < 0) return ret;
881
- }
882
- switch(among_var) {
883
- case 0: { z->c = z->l - m; goto lab1; }
884
- case 1:
885
- z->ket = z->c; /* [, line 128 */
886
- if (!(eq_s_b(z, 2, s_17))) { z->c = z->l - m; goto lab1; }
887
- z->bra = z->c; /* ], line 128 */
888
- { int ret = r_R2(z);
889
- if (ret == 0) { z->c = z->l - m; goto lab1; } /* call R2, line 128 */
890
- if (ret < 0) return ret;
891
- }
892
- { int ret;
893
- ret = slice_del(z); /* delete, line 128 */
894
- if (ret < 0) return ret;
895
- }
896
- break;
897
- }
898
- lab1:
899
- ;
900
- }
901
- break;
902
- case 8:
903
- { int ret = r_R2(z);
904
- if (ret == 0) return 0; /* call R2, line 134 */
905
- if (ret < 0) return ret;
906
- }
907
- { int ret;
908
- ret = slice_del(z); /* delete, line 134 */
909
- if (ret < 0) return ret;
910
- }
911
- { int m = z->l - z->c; (void) m; /* try, line 135 */
912
- z->ket = z->c; /* [, line 136 */
913
- among_var = find_among_b(z, a_5, 3); /* substring, line 136 */
914
- if (!(among_var)) { z->c = z->l - m; goto lab2; }
915
- z->bra = z->c; /* ], line 136 */
916
- switch(among_var) {
917
- case 0: { z->c = z->l - m; goto lab2; }
918
- case 1:
919
- { int ret = r_R2(z);
920
- if (ret == 0) { z->c = z->l - m; goto lab2; } /* call R2, line 137 */
921
- if (ret < 0) return ret;
922
- }
923
- { int ret;
924
- ret = slice_del(z); /* delete, line 137 */
925
- if (ret < 0) return ret;
926
- }
927
- break;
928
- }
929
- lab2:
930
- ;
931
- }
932
- break;
933
- case 9:
934
- { int ret = r_R2(z);
935
- if (ret == 0) return 0; /* call R2, line 142 */
936
- if (ret < 0) return ret;
937
- }
938
- { int ret;
939
- ret = slice_del(z); /* delete, line 142 */
940
- if (ret < 0) return ret;
941
- }
942
- { int m = z->l - z->c; (void) m; /* try, line 143 */
943
- z->ket = z->c; /* [, line 143 */
944
- if (!(eq_s_b(z, 2, s_18))) { z->c = z->l - m; goto lab3; }
945
- z->bra = z->c; /* ], line 143 */
946
- { int ret = r_R2(z);
947
- if (ret == 0) { z->c = z->l - m; goto lab3; } /* call R2, line 143 */
948
- if (ret < 0) return ret;
949
- }
950
- { int ret;
951
- ret = slice_del(z); /* delete, line 143 */
952
- if (ret < 0) return ret;
953
- }
954
- z->ket = z->c; /* [, line 143 */
955
- if (!(eq_s_b(z, 2, s_19))) { z->c = z->l - m; goto lab3; }
956
- z->bra = z->c; /* ], line 143 */
957
- { int ret = r_R2(z);
958
- if (ret == 0) { z->c = z->l - m; goto lab3; } /* call R2, line 143 */
959
- if (ret < 0) return ret;
960
- }
961
- { int ret;
962
- ret = slice_del(z); /* delete, line 143 */
963
- if (ret < 0) return ret;
964
- }
965
- lab3:
966
- ;
967
- }
968
- break;
969
- }
970
- return 1;
971
- }
972
-
973
- static int r_verb_suffix(struct SN_env * z) {
974
- int among_var;
975
- { int m3; /* setlimit, line 148 */
976
- int m = z->l - z->c; (void) m;
977
- if (z->c < z->I[0]) return 0;
978
- z->c = z->I[0]; /* tomark, line 148 */
979
- m3 = z->lb; z->lb = z->c;
980
- z->c = z->l - m;
981
- z->ket = z->c; /* [, line 149 */
982
- among_var = find_among_b(z, a_7, 87); /* substring, line 149 */
983
- if (!(among_var)) { z->lb = m3; return 0; }
984
- z->bra = z->c; /* ], line 149 */
985
- switch(among_var) {
986
- case 0: { z->lb = m3; return 0; }
987
- case 1:
988
- { int ret;
989
- ret = slice_del(z); /* delete, line 163 */
990
- if (ret < 0) return ret;
991
- }
992
- break;
993
- }
994
- z->lb = m3;
995
- }
996
- return 1;
997
- }
998
-
999
- static int r_vowel_suffix(struct SN_env * z) {
1000
- { int m = z->l - z->c; (void) m; /* try, line 171 */
1001
- z->ket = z->c; /* [, line 172 */
1002
- if (!(in_grouping_b_U(z, g_AEIO, 97, 242))) { z->c = z->l - m; goto lab0; }
1003
- z->bra = z->c; /* ], line 172 */
1004
- { int ret = r_RV(z);
1005
- if (ret == 0) { z->c = z->l - m; goto lab0; } /* call RV, line 172 */
1006
- if (ret < 0) return ret;
1007
- }
1008
- { int ret;
1009
- ret = slice_del(z); /* delete, line 172 */
1010
- if (ret < 0) return ret;
1011
- }
1012
- z->ket = z->c; /* [, line 173 */
1013
- if (!(eq_s_b(z, 1, s_20))) { z->c = z->l - m; goto lab0; }
1014
- z->bra = z->c; /* ], line 173 */
1015
- { int ret = r_RV(z);
1016
- if (ret == 0) { z->c = z->l - m; goto lab0; } /* call RV, line 173 */
1017
- if (ret < 0) return ret;
1018
- }
1019
- { int ret;
1020
- ret = slice_del(z); /* delete, line 173 */
1021
- if (ret < 0) return ret;
1022
- }
1023
- lab0:
1024
- ;
1025
- }
1026
- { int m = z->l - z->c; (void) m; /* try, line 175 */
1027
- z->ket = z->c; /* [, line 176 */
1028
- if (!(eq_s_b(z, 1, s_21))) { z->c = z->l - m; goto lab1; }
1029
- z->bra = z->c; /* ], line 176 */
1030
- if (!(in_grouping_b_U(z, g_CG, 99, 103))) { z->c = z->l - m; goto lab1; }
1031
- { int ret = r_RV(z);
1032
- if (ret == 0) { z->c = z->l - m; goto lab1; } /* call RV, line 176 */
1033
- if (ret < 0) return ret;
1034
- }
1035
- { int ret;
1036
- ret = slice_del(z); /* delete, line 176 */
1037
- if (ret < 0) return ret;
1038
- }
1039
- lab1:
1040
- ;
1041
- }
1042
- return 1;
1043
- }
1044
-
1045
- extern int italian_UTF_8_stem(struct SN_env * z) {
1046
- { int c = z->c; /* do, line 182 */
1047
- { int ret = r_prelude(z);
1048
- if (ret == 0) goto lab0; /* call prelude, line 182 */
1049
- if (ret < 0) return ret;
1050
- }
1051
- lab0:
1052
- z->c = c;
1053
- }
1054
- { int c = z->c; /* do, line 183 */
1055
- { int ret = r_mark_regions(z);
1056
- if (ret == 0) goto lab1; /* call mark_regions, line 183 */
1057
- if (ret < 0) return ret;
1058
- }
1059
- lab1:
1060
- z->c = c;
1061
- }
1062
- z->lb = z->c; z->c = z->l; /* backwards, line 184 */
1063
-
1064
- { int m = z->l - z->c; (void) m; /* do, line 185 */
1065
- { int ret = r_attached_pronoun(z);
1066
- if (ret == 0) goto lab2; /* call attached_pronoun, line 185 */
1067
- if (ret < 0) return ret;
1068
- }
1069
- lab2:
1070
- z->c = z->l - m;
1071
- }
1072
- { int m = z->l - z->c; (void) m; /* do, line 186 */
1073
- { int m = z->l - z->c; (void) m; /* or, line 186 */
1074
- { int ret = r_standard_suffix(z);
1075
- if (ret == 0) goto lab5; /* call standard_suffix, line 186 */
1076
- if (ret < 0) return ret;
1077
- }
1078
- goto lab4;
1079
- lab5:
1080
- z->c = z->l - m;
1081
- { int ret = r_verb_suffix(z);
1082
- if (ret == 0) goto lab3; /* call verb_suffix, line 186 */
1083
- if (ret < 0) return ret;
1084
- }
1085
- }
1086
- lab4:
1087
- lab3:
1088
- z->c = z->l - m;
1089
- }
1090
- { int m = z->l - z->c; (void) m; /* do, line 187 */
1091
- { int ret = r_vowel_suffix(z);
1092
- if (ret == 0) goto lab6; /* call vowel_suffix, line 187 */
1093
- if (ret < 0) return ret;
1094
- }
1095
- lab6:
1096
- z->c = z->l - m;
1097
- }
1098
- z->c = z->lb;
1099
- { int c = z->c; /* do, line 189 */
1100
- { int ret = r_postlude(z);
1101
- if (ret == 0) goto lab7; /* call postlude, line 189 */
1102
- if (ret < 0) return ret;
1103
- }
1104
- lab7:
1105
- z->c = c;
1106
- }
1107
- return 1;
1108
- }
1109
-
1110
- extern struct SN_env * italian_UTF_8_create_env(void) { return SN_create_env(0, 3, 0); }
1111
-
1112
- extern void italian_UTF_8_close_env(struct SN_env * z) { SN_close_env(z); }
1113
-