isomorfeus-ferret 0.12.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (222) hide show
  1. checksums.yaml +7 -0
  2. data/LICENSE +612 -0
  3. data/README.md +44 -0
  4. data/ext/isomorfeus_ferret_ext/benchmark.c +223 -0
  5. data/ext/isomorfeus_ferret_ext/benchmark.h +45 -0
  6. data/ext/isomorfeus_ferret_ext/benchmarks_all.h +25 -0
  7. data/ext/isomorfeus_ferret_ext/bm_bitvector.c +123 -0
  8. data/ext/isomorfeus_ferret_ext/bm_hash.c +118 -0
  9. data/ext/isomorfeus_ferret_ext/bm_micro_string.c +40 -0
  10. data/ext/isomorfeus_ferret_ext/bm_store.c +93 -0
  11. data/ext/isomorfeus_ferret_ext/email.rl +21 -0
  12. data/ext/isomorfeus_ferret_ext/extconf.rb +5 -0
  13. data/ext/isomorfeus_ferret_ext/fio_tmpfile.h +53 -0
  14. data/ext/isomorfeus_ferret_ext/frb_analysis.c +2577 -0
  15. data/ext/isomorfeus_ferret_ext/frb_index.c +3457 -0
  16. data/ext/isomorfeus_ferret_ext/frb_lang.c +9 -0
  17. data/ext/isomorfeus_ferret_ext/frb_lang.h +17 -0
  18. data/ext/isomorfeus_ferret_ext/frb_qparser.c +629 -0
  19. data/ext/isomorfeus_ferret_ext/frb_search.c +4460 -0
  20. data/ext/isomorfeus_ferret_ext/frb_store.c +515 -0
  21. data/ext/isomorfeus_ferret_ext/frb_threading.h +30 -0
  22. data/ext/isomorfeus_ferret_ext/frb_utils.c +1127 -0
  23. data/ext/isomorfeus_ferret_ext/frt_analysis.c +1644 -0
  24. data/ext/isomorfeus_ferret_ext/frt_analysis.h +247 -0
  25. data/ext/isomorfeus_ferret_ext/frt_array.c +124 -0
  26. data/ext/isomorfeus_ferret_ext/frt_array.h +54 -0
  27. data/ext/isomorfeus_ferret_ext/frt_bitvector.c +95 -0
  28. data/ext/isomorfeus_ferret_ext/frt_bitvector.h +586 -0
  29. data/ext/isomorfeus_ferret_ext/frt_compound_io.c +374 -0
  30. data/ext/isomorfeus_ferret_ext/frt_config.h +44 -0
  31. data/ext/isomorfeus_ferret_ext/frt_document.c +134 -0
  32. data/ext/isomorfeus_ferret_ext/frt_document.h +52 -0
  33. data/ext/isomorfeus_ferret_ext/frt_except.c +95 -0
  34. data/ext/isomorfeus_ferret_ext/frt_except.h +188 -0
  35. data/ext/isomorfeus_ferret_ext/frt_field_index.c +233 -0
  36. data/ext/isomorfeus_ferret_ext/frt_field_index.h +42 -0
  37. data/ext/isomorfeus_ferret_ext/frt_filter.c +157 -0
  38. data/ext/isomorfeus_ferret_ext/frt_fs_store.c +502 -0
  39. data/ext/isomorfeus_ferret_ext/frt_global.c +427 -0
  40. data/ext/isomorfeus_ferret_ext/frt_global.h +290 -0
  41. data/ext/isomorfeus_ferret_ext/frt_hash.c +518 -0
  42. data/ext/isomorfeus_ferret_ext/frt_hash.h +466 -0
  43. data/ext/isomorfeus_ferret_ext/frt_hashset.c +191 -0
  44. data/ext/isomorfeus_ferret_ext/frt_hashset.h +206 -0
  45. data/ext/isomorfeus_ferret_ext/frt_helper.c +62 -0
  46. data/ext/isomorfeus_ferret_ext/frt_helper.h +13 -0
  47. data/ext/isomorfeus_ferret_ext/frt_ind.c +353 -0
  48. data/ext/isomorfeus_ferret_ext/frt_ind.h +54 -0
  49. data/ext/isomorfeus_ferret_ext/frt_index.c +6377 -0
  50. data/ext/isomorfeus_ferret_ext/frt_index.h +880 -0
  51. data/ext/isomorfeus_ferret_ext/frt_lang.c +104 -0
  52. data/ext/isomorfeus_ferret_ext/frt_lang.h +44 -0
  53. data/ext/isomorfeus_ferret_ext/frt_mempool.c +87 -0
  54. data/ext/isomorfeus_ferret_ext/frt_mempool.h +33 -0
  55. data/ext/isomorfeus_ferret_ext/frt_multimapper.c +349 -0
  56. data/ext/isomorfeus_ferret_ext/frt_multimapper.h +52 -0
  57. data/ext/isomorfeus_ferret_ext/frt_posh.c +1006 -0
  58. data/ext/isomorfeus_ferret_ext/frt_posh.h +973 -0
  59. data/ext/isomorfeus_ferret_ext/frt_priorityqueue.c +147 -0
  60. data/ext/isomorfeus_ferret_ext/frt_priorityqueue.h +147 -0
  61. data/ext/isomorfeus_ferret_ext/frt_q_boolean.c +1612 -0
  62. data/ext/isomorfeus_ferret_ext/frt_q_const_score.c +157 -0
  63. data/ext/isomorfeus_ferret_ext/frt_q_filtered_query.c +209 -0
  64. data/ext/isomorfeus_ferret_ext/frt_q_fuzzy.c +281 -0
  65. data/ext/isomorfeus_ferret_ext/frt_q_match_all.c +147 -0
  66. data/ext/isomorfeus_ferret_ext/frt_q_multi_term.c +672 -0
  67. data/ext/isomorfeus_ferret_ext/frt_q_parser.c +3084 -0
  68. data/ext/isomorfeus_ferret_ext/frt_q_phrase.c +1182 -0
  69. data/ext/isomorfeus_ferret_ext/frt_q_prefix.c +98 -0
  70. data/ext/isomorfeus_ferret_ext/frt_q_range.c +665 -0
  71. data/ext/isomorfeus_ferret_ext/frt_q_span.c +2386 -0
  72. data/ext/isomorfeus_ferret_ext/frt_q_term.c +311 -0
  73. data/ext/isomorfeus_ferret_ext/frt_q_wildcard.c +166 -0
  74. data/ext/isomorfeus_ferret_ext/frt_ram_store.c +460 -0
  75. data/ext/isomorfeus_ferret_ext/frt_scanner.c +899 -0
  76. data/ext/isomorfeus_ferret_ext/frt_scanner.h +28 -0
  77. data/ext/isomorfeus_ferret_ext/frt_scanner_mb.c +6705 -0
  78. data/ext/isomorfeus_ferret_ext/frt_scanner_utf8.c +4419 -0
  79. data/ext/isomorfeus_ferret_ext/frt_search.c +1824 -0
  80. data/ext/isomorfeus_ferret_ext/frt_search.h +924 -0
  81. data/ext/isomorfeus_ferret_ext/frt_similarity.c +150 -0
  82. data/ext/isomorfeus_ferret_ext/frt_similarity.h +79 -0
  83. data/ext/isomorfeus_ferret_ext/frt_sort.c +796 -0
  84. data/ext/isomorfeus_ferret_ext/frt_stopwords.c +395 -0
  85. data/ext/isomorfeus_ferret_ext/frt_store.c +680 -0
  86. data/ext/isomorfeus_ferret_ext/frt_store.h +789 -0
  87. data/ext/isomorfeus_ferret_ext/frt_term_vectors.c +72 -0
  88. data/ext/isomorfeus_ferret_ext/frt_threading.h +23 -0
  89. data/ext/isomorfeus_ferret_ext/frt_win32.h +54 -0
  90. data/ext/isomorfeus_ferret_ext/isomorfeus_ferret.c +409 -0
  91. data/ext/isomorfeus_ferret_ext/isomorfeus_ferret.h +95 -0
  92. data/ext/isomorfeus_ferret_ext/libstemmer.c +93 -0
  93. data/ext/isomorfeus_ferret_ext/libstemmer.h +73 -0
  94. data/ext/isomorfeus_ferret_ext/q_parser.y +1366 -0
  95. data/ext/isomorfeus_ferret_ext/scanner.h +28 -0
  96. data/ext/isomorfeus_ferret_ext/scanner.in +43 -0
  97. data/ext/isomorfeus_ferret_ext/scanner.rl +84 -0
  98. data/ext/isomorfeus_ferret_ext/scanner_mb.rl +200 -0
  99. data/ext/isomorfeus_ferret_ext/scanner_utf8.rl +85 -0
  100. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_danish.c +324 -0
  101. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_danish.h +7 -0
  102. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_dutch.c +610 -0
  103. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_dutch.h +6 -0
  104. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_english.c +1104 -0
  105. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_english.h +6 -0
  106. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_finnish.c +749 -0
  107. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_finnish.h +7 -0
  108. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_french.c +1233 -0
  109. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_french.h +6 -0
  110. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_german.c +490 -0
  111. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_german.h +6 -0
  112. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_hungarian.c +1217 -0
  113. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_hungarian.h +7 -0
  114. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_italian.c +1052 -0
  115. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_italian.h +6 -0
  116. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_norwegian.c +283 -0
  117. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_norwegian.h +6 -0
  118. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_porter.c +735 -0
  119. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_porter.h +6 -0
  120. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_portuguese.c +1003 -0
  121. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_portuguese.h +7 -0
  122. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_spanish.c +1079 -0
  123. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_spanish.h +6 -0
  124. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_swedish.c +293 -0
  125. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_swedish.h +6 -0
  126. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_2_romanian.c +984 -0
  127. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_2_romanian.h +6 -0
  128. data/ext/isomorfeus_ferret_ext/stem_KOI8_R_russian.c +686 -0
  129. data/ext/isomorfeus_ferret_ext/stem_KOI8_R_russian.h +6 -0
  130. data/ext/isomorfeus_ferret_ext/stem_UTF_8_danish.c +325 -0
  131. data/ext/isomorfeus_ferret_ext/stem_UTF_8_danish.h +6 -0
  132. data/ext/isomorfeus_ferret_ext/stem_UTF_8_dutch.c +620 -0
  133. data/ext/isomorfeus_ferret_ext/stem_UTF_8_dutch.h +6 -0
  134. data/ext/isomorfeus_ferret_ext/stem_UTF_8_english.c +1111 -0
  135. data/ext/isomorfeus_ferret_ext/stem_UTF_8_english.h +6 -0
  136. data/ext/isomorfeus_ferret_ext/stem_UTF_8_finnish.c +754 -0
  137. data/ext/isomorfeus_ferret_ext/stem_UTF_8_finnish.h +6 -0
  138. data/ext/isomorfeus_ferret_ext/stem_UTF_8_french.c +1242 -0
  139. data/ext/isomorfeus_ferret_ext/stem_UTF_8_french.h +6 -0
  140. data/ext/isomorfeus_ferret_ext/stem_UTF_8_german.c +495 -0
  141. data/ext/isomorfeus_ferret_ext/stem_UTF_8_german.h +6 -0
  142. data/ext/isomorfeus_ferret_ext/stem_UTF_8_hungarian.c +1220 -0
  143. data/ext/isomorfeus_ferret_ext/stem_UTF_8_hungarian.h +6 -0
  144. data/ext/isomorfeus_ferret_ext/stem_UTF_8_italian.c +1059 -0
  145. data/ext/isomorfeus_ferret_ext/stem_UTF_8_italian.h +6 -0
  146. data/ext/isomorfeus_ferret_ext/stem_UTF_8_norwegian.c +285 -0
  147. data/ext/isomorfeus_ferret_ext/stem_UTF_8_norwegian.h +6 -0
  148. data/ext/isomorfeus_ferret_ext/stem_UTF_8_porter.c +741 -0
  149. data/ext/isomorfeus_ferret_ext/stem_UTF_8_porter.h +6 -0
  150. data/ext/isomorfeus_ferret_ext/stem_UTF_8_portuguese.c +1009 -0
  151. data/ext/isomorfeus_ferret_ext/stem_UTF_8_portuguese.h +6 -0
  152. data/ext/isomorfeus_ferret_ext/stem_UTF_8_romanian.c +990 -0
  153. data/ext/isomorfeus_ferret_ext/stem_UTF_8_romanian.h +6 -0
  154. data/ext/isomorfeus_ferret_ext/stem_UTF_8_russian.c +680 -0
  155. data/ext/isomorfeus_ferret_ext/stem_UTF_8_russian.h +6 -0
  156. data/ext/isomorfeus_ferret_ext/stem_UTF_8_spanish.c +1083 -0
  157. data/ext/isomorfeus_ferret_ext/stem_UTF_8_spanish.h +6 -0
  158. data/ext/isomorfeus_ferret_ext/stem_UTF_8_swedish.c +294 -0
  159. data/ext/isomorfeus_ferret_ext/stem_UTF_8_swedish.h +6 -0
  160. data/ext/isomorfeus_ferret_ext/stem_UTF_8_turkish.c +2191 -0
  161. data/ext/isomorfeus_ferret_ext/stem_UTF_8_turkish.h +6 -0
  162. data/ext/isomorfeus_ferret_ext/stem_api.c +66 -0
  163. data/ext/isomorfeus_ferret_ext/stem_api.h +26 -0
  164. data/ext/isomorfeus_ferret_ext/stem_header.h +57 -0
  165. data/ext/isomorfeus_ferret_ext/stem_modules.h +190 -0
  166. data/ext/isomorfeus_ferret_ext/stem_modules.txt +50 -0
  167. data/ext/isomorfeus_ferret_ext/stem_utilities.c +478 -0
  168. data/ext/isomorfeus_ferret_ext/test.c +850 -0
  169. data/ext/isomorfeus_ferret_ext/test.h +416 -0
  170. data/ext/isomorfeus_ferret_ext/test_1710.c +63 -0
  171. data/ext/isomorfeus_ferret_ext/test_analysis.c +1221 -0
  172. data/ext/isomorfeus_ferret_ext/test_array.c +272 -0
  173. data/ext/isomorfeus_ferret_ext/test_bitvector.c +600 -0
  174. data/ext/isomorfeus_ferret_ext/test_compound_io.c +170 -0
  175. data/ext/isomorfeus_ferret_ext/test_document.c +156 -0
  176. data/ext/isomorfeus_ferret_ext/test_except.c +244 -0
  177. data/ext/isomorfeus_ferret_ext/test_fields.c +522 -0
  178. data/ext/isomorfeus_ferret_ext/test_file_deleter.c +185 -0
  179. data/ext/isomorfeus_ferret_ext/test_filter.c +331 -0
  180. data/ext/isomorfeus_ferret_ext/test_fs_store.c +25 -0
  181. data/ext/isomorfeus_ferret_ext/test_global.c +299 -0
  182. data/ext/isomorfeus_ferret_ext/test_hash.c +485 -0
  183. data/ext/isomorfeus_ferret_ext/test_hashset.c +288 -0
  184. data/ext/isomorfeus_ferret_ext/test_helper.c +47 -0
  185. data/ext/isomorfeus_ferret_ext/test_highlighter.c +548 -0
  186. data/ext/isomorfeus_ferret_ext/test_index.c +2323 -0
  187. data/ext/isomorfeus_ferret_ext/test_lang.c +74 -0
  188. data/ext/isomorfeus_ferret_ext/test_mempool.c +102 -0
  189. data/ext/isomorfeus_ferret_ext/test_multimapper.c +64 -0
  190. data/ext/isomorfeus_ferret_ext/test_priorityqueue.c +213 -0
  191. data/ext/isomorfeus_ferret_ext/test_q_const_score.c +84 -0
  192. data/ext/isomorfeus_ferret_ext/test_q_filtered.c +61 -0
  193. data/ext/isomorfeus_ferret_ext/test_q_fuzzy.c +241 -0
  194. data/ext/isomorfeus_ferret_ext/test_q_parser.c +464 -0
  195. data/ext/isomorfeus_ferret_ext/test_q_span.c +575 -0
  196. data/ext/isomorfeus_ferret_ext/test_ram_store.c +77 -0
  197. data/ext/isomorfeus_ferret_ext/test_search.c +1874 -0
  198. data/ext/isomorfeus_ferret_ext/test_segments.c +167 -0
  199. data/ext/isomorfeus_ferret_ext/test_similarity.c +25 -0
  200. data/ext/isomorfeus_ferret_ext/test_sort.c +333 -0
  201. data/ext/isomorfeus_ferret_ext/test_store.c +591 -0
  202. data/ext/isomorfeus_ferret_ext/test_store.h +3 -0
  203. data/ext/isomorfeus_ferret_ext/test_term.c +351 -0
  204. data/ext/isomorfeus_ferret_ext/test_term_vectors.c +373 -0
  205. data/ext/isomorfeus_ferret_ext/test_test.c +83 -0
  206. data/ext/isomorfeus_ferret_ext/test_threading.c +188 -0
  207. data/ext/isomorfeus_ferret_ext/testhelper.c +561 -0
  208. data/ext/isomorfeus_ferret_ext/testhelper.h +25 -0
  209. data/ext/isomorfeus_ferret_ext/tests_all.h +87 -0
  210. data/ext/isomorfeus_ferret_ext/uchar-ucs4.rl +1854 -0
  211. data/ext/isomorfeus_ferret_ext/uchar-utf8.rl +1999 -0
  212. data/ext/isomorfeus_ferret_ext/url.rl +27 -0
  213. data/ext/isomorfeus_ferret_ext/word_list.h +15156 -0
  214. data/lib/isomorfeus/ferret/document.rb +132 -0
  215. data/lib/isomorfeus/ferret/field_symbol.rb +85 -0
  216. data/lib/isomorfeus/ferret/index/field_infos.rb +48 -0
  217. data/lib/isomorfeus/ferret/index/index.rb +970 -0
  218. data/lib/isomorfeus/ferret/monitor.rb +323 -0
  219. data/lib/isomorfeus/ferret/stdlib_patches.rb +151 -0
  220. data/lib/isomorfeus/ferret/version.rb +5 -0
  221. data/lib/isomorfeus-ferret.rb +8 -0
  222. metadata +307 -0
@@ -0,0 +1,754 @@
1
+ /* This file was generated automatically by the Snowball to ANSI C compiler */
2
+
3
+ #include "stem_header.h"
4
+
5
+ extern int finnish_UTF_8_stem(struct SN_env * z);
6
+
7
+ static int r_tidy(struct SN_env * z);
8
+ static int r_other_endings(struct SN_env * z);
9
+ static int r_t_plural(struct SN_env * z);
10
+ static int r_i_plural(struct SN_env * z);
11
+ static int r_case_ending(struct SN_env * z);
12
+ static int r_VI(struct SN_env * z);
13
+ static int r_LONG(struct SN_env * z);
14
+ static int r_possessive(struct SN_env * z);
15
+ static int r_particle_etc(struct SN_env * z);
16
+ static int r_R2(struct SN_env * z);
17
+ static int r_mark_regions(struct SN_env * z);
18
+
19
+ extern struct SN_env * finnish_UTF_8_create_env(void);
20
+ extern void finnish_UTF_8_close_env(struct SN_env * z);
21
+
22
+ static const symbol s_0_0[2] = { 'p', 'a' };
23
+ static const symbol s_0_1[3] = { 's', 't', 'i' };
24
+ static const symbol s_0_2[4] = { 'k', 'a', 'a', 'n' };
25
+ static const symbol s_0_3[3] = { 'h', 'a', 'n' };
26
+ static const symbol s_0_4[3] = { 'k', 'i', 'n' };
27
+ static const symbol s_0_5[4] = { 'h', 0xC3, 0xA4, 'n' };
28
+ static const symbol s_0_6[6] = { 'k', 0xC3, 0xA4, 0xC3, 0xA4, 'n' };
29
+ static const symbol s_0_7[2] = { 'k', 'o' };
30
+ static const symbol s_0_8[3] = { 'p', 0xC3, 0xA4 };
31
+ static const symbol s_0_9[3] = { 'k', 0xC3, 0xB6 };
32
+
33
+ static const struct among a_0[10] =
34
+ {
35
+ /* 0 */ { 2, s_0_0, -1, 1, 0},
36
+ /* 1 */ { 3, s_0_1, -1, 2, 0},
37
+ /* 2 */ { 4, s_0_2, -1, 1, 0},
38
+ /* 3 */ { 3, s_0_3, -1, 1, 0},
39
+ /* 4 */ { 3, s_0_4, -1, 1, 0},
40
+ /* 5 */ { 4, s_0_5, -1, 1, 0},
41
+ /* 6 */ { 6, s_0_6, -1, 1, 0},
42
+ /* 7 */ { 2, s_0_7, -1, 1, 0},
43
+ /* 8 */ { 3, s_0_8, -1, 1, 0},
44
+ /* 9 */ { 3, s_0_9, -1, 1, 0}
45
+ };
46
+
47
+ static const symbol s_1_0[3] = { 'l', 'l', 'a' };
48
+ static const symbol s_1_1[2] = { 'n', 'a' };
49
+ static const symbol s_1_2[3] = { 's', 's', 'a' };
50
+ static const symbol s_1_3[2] = { 't', 'a' };
51
+ static const symbol s_1_4[3] = { 'l', 't', 'a' };
52
+ static const symbol s_1_5[3] = { 's', 't', 'a' };
53
+
54
+ static const struct among a_1[6] =
55
+ {
56
+ /* 0 */ { 3, s_1_0, -1, -1, 0},
57
+ /* 1 */ { 2, s_1_1, -1, -1, 0},
58
+ /* 2 */ { 3, s_1_2, -1, -1, 0},
59
+ /* 3 */ { 2, s_1_3, -1, -1, 0},
60
+ /* 4 */ { 3, s_1_4, 3, -1, 0},
61
+ /* 5 */ { 3, s_1_5, 3, -1, 0}
62
+ };
63
+
64
+ static const symbol s_2_0[4] = { 'l', 'l', 0xC3, 0xA4 };
65
+ static const symbol s_2_1[3] = { 'n', 0xC3, 0xA4 };
66
+ static const symbol s_2_2[4] = { 's', 's', 0xC3, 0xA4 };
67
+ static const symbol s_2_3[3] = { 't', 0xC3, 0xA4 };
68
+ static const symbol s_2_4[4] = { 'l', 't', 0xC3, 0xA4 };
69
+ static const symbol s_2_5[4] = { 's', 't', 0xC3, 0xA4 };
70
+
71
+ static const struct among a_2[6] =
72
+ {
73
+ /* 0 */ { 4, s_2_0, -1, -1, 0},
74
+ /* 1 */ { 3, s_2_1, -1, -1, 0},
75
+ /* 2 */ { 4, s_2_2, -1, -1, 0},
76
+ /* 3 */ { 3, s_2_3, -1, -1, 0},
77
+ /* 4 */ { 4, s_2_4, 3, -1, 0},
78
+ /* 5 */ { 4, s_2_5, 3, -1, 0}
79
+ };
80
+
81
+ static const symbol s_3_0[3] = { 'l', 'l', 'e' };
82
+ static const symbol s_3_1[3] = { 'i', 'n', 'e' };
83
+
84
+ static const struct among a_3[2] =
85
+ {
86
+ /* 0 */ { 3, s_3_0, -1, -1, 0},
87
+ /* 1 */ { 3, s_3_1, -1, -1, 0}
88
+ };
89
+
90
+ static const symbol s_4_0[3] = { 'n', 's', 'a' };
91
+ static const symbol s_4_1[3] = { 'm', 'm', 'e' };
92
+ static const symbol s_4_2[3] = { 'n', 'n', 'e' };
93
+ static const symbol s_4_3[2] = { 'n', 'i' };
94
+ static const symbol s_4_4[2] = { 's', 'i' };
95
+ static const symbol s_4_5[2] = { 'a', 'n' };
96
+ static const symbol s_4_6[2] = { 'e', 'n' };
97
+ static const symbol s_4_7[3] = { 0xC3, 0xA4, 'n' };
98
+ static const symbol s_4_8[4] = { 'n', 's', 0xC3, 0xA4 };
99
+
100
+ static const struct among a_4[9] =
101
+ {
102
+ /* 0 */ { 3, s_4_0, -1, 3, 0},
103
+ /* 1 */ { 3, s_4_1, -1, 3, 0},
104
+ /* 2 */ { 3, s_4_2, -1, 3, 0},
105
+ /* 3 */ { 2, s_4_3, -1, 2, 0},
106
+ /* 4 */ { 2, s_4_4, -1, 1, 0},
107
+ /* 5 */ { 2, s_4_5, -1, 4, 0},
108
+ /* 6 */ { 2, s_4_6, -1, 6, 0},
109
+ /* 7 */ { 3, s_4_7, -1, 5, 0},
110
+ /* 8 */ { 4, s_4_8, -1, 3, 0}
111
+ };
112
+
113
+ static const symbol s_5_0[2] = { 'a', 'a' };
114
+ static const symbol s_5_1[2] = { 'e', 'e' };
115
+ static const symbol s_5_2[2] = { 'i', 'i' };
116
+ static const symbol s_5_3[2] = { 'o', 'o' };
117
+ static const symbol s_5_4[2] = { 'u', 'u' };
118
+ static const symbol s_5_5[4] = { 0xC3, 0xA4, 0xC3, 0xA4 };
119
+ static const symbol s_5_6[4] = { 0xC3, 0xB6, 0xC3, 0xB6 };
120
+
121
+ static const struct among a_5[7] =
122
+ {
123
+ /* 0 */ { 2, s_5_0, -1, -1, 0},
124
+ /* 1 */ { 2, s_5_1, -1, -1, 0},
125
+ /* 2 */ { 2, s_5_2, -1, -1, 0},
126
+ /* 3 */ { 2, s_5_3, -1, -1, 0},
127
+ /* 4 */ { 2, s_5_4, -1, -1, 0},
128
+ /* 5 */ { 4, s_5_5, -1, -1, 0},
129
+ /* 6 */ { 4, s_5_6, -1, -1, 0}
130
+ };
131
+
132
+ static const symbol s_6_0[1] = { 'a' };
133
+ static const symbol s_6_1[3] = { 'l', 'l', 'a' };
134
+ static const symbol s_6_2[2] = { 'n', 'a' };
135
+ static const symbol s_6_3[3] = { 's', 's', 'a' };
136
+ static const symbol s_6_4[2] = { 't', 'a' };
137
+ static const symbol s_6_5[3] = { 'l', 't', 'a' };
138
+ static const symbol s_6_6[3] = { 's', 't', 'a' };
139
+ static const symbol s_6_7[3] = { 't', 't', 'a' };
140
+ static const symbol s_6_8[3] = { 'l', 'l', 'e' };
141
+ static const symbol s_6_9[3] = { 'i', 'n', 'e' };
142
+ static const symbol s_6_10[3] = { 'k', 's', 'i' };
143
+ static const symbol s_6_11[1] = { 'n' };
144
+ static const symbol s_6_12[3] = { 'h', 'a', 'n' };
145
+ static const symbol s_6_13[3] = { 'd', 'e', 'n' };
146
+ static const symbol s_6_14[4] = { 's', 'e', 'e', 'n' };
147
+ static const symbol s_6_15[3] = { 'h', 'e', 'n' };
148
+ static const symbol s_6_16[4] = { 't', 't', 'e', 'n' };
149
+ static const symbol s_6_17[3] = { 'h', 'i', 'n' };
150
+ static const symbol s_6_18[4] = { 's', 'i', 'i', 'n' };
151
+ static const symbol s_6_19[3] = { 'h', 'o', 'n' };
152
+ static const symbol s_6_20[4] = { 'h', 0xC3, 0xA4, 'n' };
153
+ static const symbol s_6_21[4] = { 'h', 0xC3, 0xB6, 'n' };
154
+ static const symbol s_6_22[2] = { 0xC3, 0xA4 };
155
+ static const symbol s_6_23[4] = { 'l', 'l', 0xC3, 0xA4 };
156
+ static const symbol s_6_24[3] = { 'n', 0xC3, 0xA4 };
157
+ static const symbol s_6_25[4] = { 's', 's', 0xC3, 0xA4 };
158
+ static const symbol s_6_26[3] = { 't', 0xC3, 0xA4 };
159
+ static const symbol s_6_27[4] = { 'l', 't', 0xC3, 0xA4 };
160
+ static const symbol s_6_28[4] = { 's', 't', 0xC3, 0xA4 };
161
+ static const symbol s_6_29[4] = { 't', 't', 0xC3, 0xA4 };
162
+
163
+ static const struct among a_6[30] =
164
+ {
165
+ /* 0 */ { 1, s_6_0, -1, 8, 0},
166
+ /* 1 */ { 3, s_6_1, 0, -1, 0},
167
+ /* 2 */ { 2, s_6_2, 0, -1, 0},
168
+ /* 3 */ { 3, s_6_3, 0, -1, 0},
169
+ /* 4 */ { 2, s_6_4, 0, -1, 0},
170
+ /* 5 */ { 3, s_6_5, 4, -1, 0},
171
+ /* 6 */ { 3, s_6_6, 4, -1, 0},
172
+ /* 7 */ { 3, s_6_7, 4, 9, 0},
173
+ /* 8 */ { 3, s_6_8, -1, -1, 0},
174
+ /* 9 */ { 3, s_6_9, -1, -1, 0},
175
+ /* 10 */ { 3, s_6_10, -1, -1, 0},
176
+ /* 11 */ { 1, s_6_11, -1, 7, 0},
177
+ /* 12 */ { 3, s_6_12, 11, 1, 0},
178
+ /* 13 */ { 3, s_6_13, 11, -1, r_VI},
179
+ /* 14 */ { 4, s_6_14, 11, -1, r_LONG},
180
+ /* 15 */ { 3, s_6_15, 11, 2, 0},
181
+ /* 16 */ { 4, s_6_16, 11, -1, r_VI},
182
+ /* 17 */ { 3, s_6_17, 11, 3, 0},
183
+ /* 18 */ { 4, s_6_18, 11, -1, r_VI},
184
+ /* 19 */ { 3, s_6_19, 11, 4, 0},
185
+ /* 20 */ { 4, s_6_20, 11, 5, 0},
186
+ /* 21 */ { 4, s_6_21, 11, 6, 0},
187
+ /* 22 */ { 2, s_6_22, -1, 8, 0},
188
+ /* 23 */ { 4, s_6_23, 22, -1, 0},
189
+ /* 24 */ { 3, s_6_24, 22, -1, 0},
190
+ /* 25 */ { 4, s_6_25, 22, -1, 0},
191
+ /* 26 */ { 3, s_6_26, 22, -1, 0},
192
+ /* 27 */ { 4, s_6_27, 26, -1, 0},
193
+ /* 28 */ { 4, s_6_28, 26, -1, 0},
194
+ /* 29 */ { 4, s_6_29, 26, 9, 0}
195
+ };
196
+
197
+ static const symbol s_7_0[3] = { 'e', 'j', 'a' };
198
+ static const symbol s_7_1[3] = { 'm', 'm', 'a' };
199
+ static const symbol s_7_2[4] = { 'i', 'm', 'm', 'a' };
200
+ static const symbol s_7_3[3] = { 'm', 'p', 'a' };
201
+ static const symbol s_7_4[4] = { 'i', 'm', 'p', 'a' };
202
+ static const symbol s_7_5[3] = { 'm', 'm', 'i' };
203
+ static const symbol s_7_6[4] = { 'i', 'm', 'm', 'i' };
204
+ static const symbol s_7_7[3] = { 'm', 'p', 'i' };
205
+ static const symbol s_7_8[4] = { 'i', 'm', 'p', 'i' };
206
+ static const symbol s_7_9[4] = { 'e', 'j', 0xC3, 0xA4 };
207
+ static const symbol s_7_10[4] = { 'm', 'm', 0xC3, 0xA4 };
208
+ static const symbol s_7_11[5] = { 'i', 'm', 'm', 0xC3, 0xA4 };
209
+ static const symbol s_7_12[4] = { 'm', 'p', 0xC3, 0xA4 };
210
+ static const symbol s_7_13[5] = { 'i', 'm', 'p', 0xC3, 0xA4 };
211
+
212
+ static const struct among a_7[14] =
213
+ {
214
+ /* 0 */ { 3, s_7_0, -1, -1, 0},
215
+ /* 1 */ { 3, s_7_1, -1, 1, 0},
216
+ /* 2 */ { 4, s_7_2, 1, -1, 0},
217
+ /* 3 */ { 3, s_7_3, -1, 1, 0},
218
+ /* 4 */ { 4, s_7_4, 3, -1, 0},
219
+ /* 5 */ { 3, s_7_5, -1, 1, 0},
220
+ /* 6 */ { 4, s_7_6, 5, -1, 0},
221
+ /* 7 */ { 3, s_7_7, -1, 1, 0},
222
+ /* 8 */ { 4, s_7_8, 7, -1, 0},
223
+ /* 9 */ { 4, s_7_9, -1, -1, 0},
224
+ /* 10 */ { 4, s_7_10, -1, 1, 0},
225
+ /* 11 */ { 5, s_7_11, 10, -1, 0},
226
+ /* 12 */ { 4, s_7_12, -1, 1, 0},
227
+ /* 13 */ { 5, s_7_13, 12, -1, 0}
228
+ };
229
+
230
+ static const symbol s_8_0[1] = { 'i' };
231
+ static const symbol s_8_1[1] = { 'j' };
232
+
233
+ static const struct among a_8[2] =
234
+ {
235
+ /* 0 */ { 1, s_8_0, -1, -1, 0},
236
+ /* 1 */ { 1, s_8_1, -1, -1, 0}
237
+ };
238
+
239
+ static const symbol s_9_0[3] = { 'm', 'm', 'a' };
240
+ static const symbol s_9_1[4] = { 'i', 'm', 'm', 'a' };
241
+
242
+ static const struct among a_9[2] =
243
+ {
244
+ /* 0 */ { 3, s_9_0, -1, 1, 0},
245
+ /* 1 */ { 4, s_9_1, 0, -1, 0}
246
+ };
247
+
248
+ static const unsigned char g_AEI[] = { 17, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8 };
249
+
250
+ static const unsigned char g_V1[] = { 17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 };
251
+
252
+ static const unsigned char g_V2[] = { 17, 65, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 };
253
+
254
+ static const unsigned char g_particle_end[] = { 17, 97, 24, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 };
255
+
256
+ static const symbol s_0[] = { 'k' };
257
+ static const symbol s_1[] = { 'k', 's', 'e' };
258
+ static const symbol s_2[] = { 'k', 's', 'i' };
259
+ static const symbol s_3[] = { 'i' };
260
+ static const symbol s_4[] = { 'a' };
261
+ static const symbol s_5[] = { 'e' };
262
+ static const symbol s_6[] = { 'i' };
263
+ static const symbol s_7[] = { 'o' };
264
+ static const symbol s_8[] = { 0xC3, 0xA4 };
265
+ static const symbol s_9[] = { 0xC3, 0xB6 };
266
+ static const symbol s_10[] = { 'i', 'e' };
267
+ static const symbol s_11[] = { 'e' };
268
+ static const symbol s_12[] = { 'p', 'o' };
269
+ static const symbol s_13[] = { 't' };
270
+ static const symbol s_14[] = { 'p', 'o' };
271
+ static const symbol s_15[] = { 'j' };
272
+ static const symbol s_16[] = { 'o' };
273
+ static const symbol s_17[] = { 'u' };
274
+ static const symbol s_18[] = { 'o' };
275
+ static const symbol s_19[] = { 'j' };
276
+
277
+ static int r_mark_regions(struct SN_env * z) {
278
+ z->I[0] = z->l;
279
+ z->I[1] = z->l;
280
+ if (out_grouping_U(z, g_V1, 97, 246, 1) < 0) return 0; /* goto */ /* grouping V1, line 46 */
281
+ { /* gopast */ /* non V1, line 46 */
282
+ int ret = in_grouping_U(z, g_V1, 97, 246, 1);
283
+ if (ret < 0) return 0;
284
+ z->c += ret;
285
+ }
286
+ z->I[0] = z->c; /* setmark p1, line 46 */
287
+ if (out_grouping_U(z, g_V1, 97, 246, 1) < 0) return 0; /* goto */ /* grouping V1, line 47 */
288
+ { /* gopast */ /* non V1, line 47 */
289
+ int ret = in_grouping_U(z, g_V1, 97, 246, 1);
290
+ if (ret < 0) return 0;
291
+ z->c += ret;
292
+ }
293
+ z->I[1] = z->c; /* setmark p2, line 47 */
294
+ return 1;
295
+ }
296
+
297
+ static int r_R2(struct SN_env * z) {
298
+ if (!(z->I[1] <= z->c)) return 0;
299
+ return 1;
300
+ }
301
+
302
+ static int r_particle_etc(struct SN_env * z) {
303
+ int among_var;
304
+ { int mlimit; /* setlimit, line 55 */
305
+ int m1 = z->l - z->c; (void)m1;
306
+ if (z->c < z->I[0]) return 0;
307
+ z->c = z->I[0]; /* tomark, line 55 */
308
+ mlimit = z->lb; z->lb = z->c;
309
+ z->c = z->l - m1;
310
+ z->ket = z->c; /* [, line 55 */
311
+ among_var = find_among_b(z, a_0, 10); /* substring, line 55 */
312
+ if (!(among_var)) { z->lb = mlimit; return 0; }
313
+ z->bra = z->c; /* ], line 55 */
314
+ z->lb = mlimit;
315
+ }
316
+ switch(among_var) {
317
+ case 0: return 0;
318
+ case 1:
319
+ if (in_grouping_b_U(z, g_particle_end, 97, 246, 0)) return 0;
320
+ break;
321
+ case 2:
322
+ { int ret = r_R2(z);
323
+ if (ret == 0) return 0; /* call R2, line 64 */
324
+ if (ret < 0) return ret;
325
+ }
326
+ break;
327
+ }
328
+ { int ret = slice_del(z); /* delete, line 66 */
329
+ if (ret < 0) return ret;
330
+ }
331
+ return 1;
332
+ }
333
+
334
+ static int r_possessive(struct SN_env * z) {
335
+ int among_var;
336
+ { int mlimit; /* setlimit, line 69 */
337
+ int m1 = z->l - z->c; (void)m1;
338
+ if (z->c < z->I[0]) return 0;
339
+ z->c = z->I[0]; /* tomark, line 69 */
340
+ mlimit = z->lb; z->lb = z->c;
341
+ z->c = z->l - m1;
342
+ z->ket = z->c; /* [, line 69 */
343
+ among_var = find_among_b(z, a_4, 9); /* substring, line 69 */
344
+ if (!(among_var)) { z->lb = mlimit; return 0; }
345
+ z->bra = z->c; /* ], line 69 */
346
+ z->lb = mlimit;
347
+ }
348
+ switch(among_var) {
349
+ case 0: return 0;
350
+ case 1:
351
+ { int m2 = z->l - z->c; (void)m2; /* not, line 72 */
352
+ if (!(eq_s_b(z, 1, s_0))) goto lab0;
353
+ return 0;
354
+ lab0:
355
+ z->c = z->l - m2;
356
+ }
357
+ { int ret = slice_del(z); /* delete, line 72 */
358
+ if (ret < 0) return ret;
359
+ }
360
+ break;
361
+ case 2:
362
+ { int ret = slice_del(z); /* delete, line 74 */
363
+ if (ret < 0) return ret;
364
+ }
365
+ z->ket = z->c; /* [, line 74 */
366
+ if (!(eq_s_b(z, 3, s_1))) return 0;
367
+ z->bra = z->c; /* ], line 74 */
368
+ { int ret = slice_from_s(z, 3, s_2); /* <-, line 74 */
369
+ if (ret < 0) return ret;
370
+ }
371
+ break;
372
+ case 3:
373
+ { int ret = slice_del(z); /* delete, line 78 */
374
+ if (ret < 0) return ret;
375
+ }
376
+ break;
377
+ case 4:
378
+ if (z->c - 1 <= z->lb || z->p[z->c - 1] != 97) return 0;
379
+ if (!(find_among_b(z, a_1, 6))) return 0; /* among, line 81 */
380
+ { int ret = slice_del(z); /* delete, line 81 */
381
+ if (ret < 0) return ret;
382
+ }
383
+ break;
384
+ case 5:
385
+ if (z->c - 2 <= z->lb || z->p[z->c - 1] != 164) return 0;
386
+ if (!(find_among_b(z, a_2, 6))) return 0; /* among, line 83 */
387
+ { int ret = slice_del(z); /* delete, line 84 */
388
+ if (ret < 0) return ret;
389
+ }
390
+ break;
391
+ case 6:
392
+ if (z->c - 2 <= z->lb || z->p[z->c - 1] != 101) return 0;
393
+ if (!(find_among_b(z, a_3, 2))) return 0; /* among, line 86 */
394
+ { int ret = slice_del(z); /* delete, line 86 */
395
+ if (ret < 0) return ret;
396
+ }
397
+ break;
398
+ }
399
+ return 1;
400
+ }
401
+
402
+ static int r_LONG(struct SN_env * z) {
403
+ if (!(find_among_b(z, a_5, 7))) return 0; /* among, line 91 */
404
+ return 1;
405
+ }
406
+
407
+ static int r_VI(struct SN_env * z) {
408
+ if (!(eq_s_b(z, 1, s_3))) return 0;
409
+ if (in_grouping_b_U(z, g_V2, 97, 246, 0)) return 0;
410
+ return 1;
411
+ }
412
+
413
+ static int r_case_ending(struct SN_env * z) {
414
+ int among_var;
415
+ { int mlimit; /* setlimit, line 96 */
416
+ int m1 = z->l - z->c; (void)m1;
417
+ if (z->c < z->I[0]) return 0;
418
+ z->c = z->I[0]; /* tomark, line 96 */
419
+ mlimit = z->lb; z->lb = z->c;
420
+ z->c = z->l - m1;
421
+ z->ket = z->c; /* [, line 96 */
422
+ among_var = find_among_b(z, a_6, 30); /* substring, line 96 */
423
+ if (!(among_var)) { z->lb = mlimit; return 0; }
424
+ z->bra = z->c; /* ], line 96 */
425
+ z->lb = mlimit;
426
+ }
427
+ switch(among_var) {
428
+ case 0: return 0;
429
+ case 1:
430
+ if (!(eq_s_b(z, 1, s_4))) return 0;
431
+ break;
432
+ case 2:
433
+ if (!(eq_s_b(z, 1, s_5))) return 0;
434
+ break;
435
+ case 3:
436
+ if (!(eq_s_b(z, 1, s_6))) return 0;
437
+ break;
438
+ case 4:
439
+ if (!(eq_s_b(z, 1, s_7))) return 0;
440
+ break;
441
+ case 5:
442
+ if (!(eq_s_b(z, 2, s_8))) return 0;
443
+ break;
444
+ case 6:
445
+ if (!(eq_s_b(z, 2, s_9))) return 0;
446
+ break;
447
+ case 7:
448
+ { int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 111 */
449
+ { int m2 = z->l - z->c; (void)m2; /* and, line 113 */
450
+ { int m3 = z->l - z->c; (void)m3; /* or, line 112 */
451
+ { int ret = r_LONG(z);
452
+ if (ret == 0) goto lab2; /* call LONG, line 111 */
453
+ if (ret < 0) return ret;
454
+ }
455
+ goto lab1;
456
+ lab2:
457
+ z->c = z->l - m3;
458
+ if (!(eq_s_b(z, 2, s_10))) { z->c = z->l - m_keep; goto lab0; }
459
+ }
460
+ lab1:
461
+ z->c = z->l - m2;
462
+ { int ret = skip_utf8(z->p, z->c, z->lb, 0, -1);
463
+ if (ret < 0) { z->c = z->l - m_keep; goto lab0; }
464
+ z->c = ret; /* next, line 113 */
465
+ }
466
+ }
467
+ z->bra = z->c; /* ], line 113 */
468
+ lab0:
469
+ ;
470
+ }
471
+ break;
472
+ case 8:
473
+ if (in_grouping_b_U(z, g_V1, 97, 246, 0)) return 0;
474
+ if (out_grouping_b_U(z, g_V1, 97, 246, 0)) return 0;
475
+ break;
476
+ case 9:
477
+ if (!(eq_s_b(z, 1, s_11))) return 0;
478
+ break;
479
+ }
480
+ { int ret = slice_del(z); /* delete, line 138 */
481
+ if (ret < 0) return ret;
482
+ }
483
+ z->B[0] = 1; /* set ending_removed, line 139 */
484
+ return 1;
485
+ }
486
+
487
+ static int r_other_endings(struct SN_env * z) {
488
+ int among_var;
489
+ { int mlimit; /* setlimit, line 142 */
490
+ int m1 = z->l - z->c; (void)m1;
491
+ if (z->c < z->I[1]) return 0;
492
+ z->c = z->I[1]; /* tomark, line 142 */
493
+ mlimit = z->lb; z->lb = z->c;
494
+ z->c = z->l - m1;
495
+ z->ket = z->c; /* [, line 142 */
496
+ among_var = find_among_b(z, a_7, 14); /* substring, line 142 */
497
+ if (!(among_var)) { z->lb = mlimit; return 0; }
498
+ z->bra = z->c; /* ], line 142 */
499
+ z->lb = mlimit;
500
+ }
501
+ switch(among_var) {
502
+ case 0: return 0;
503
+ case 1:
504
+ { int m2 = z->l - z->c; (void)m2; /* not, line 146 */
505
+ if (!(eq_s_b(z, 2, s_12))) goto lab0;
506
+ return 0;
507
+ lab0:
508
+ z->c = z->l - m2;
509
+ }
510
+ break;
511
+ }
512
+ { int ret = slice_del(z); /* delete, line 151 */
513
+ if (ret < 0) return ret;
514
+ }
515
+ return 1;
516
+ }
517
+
518
+ static int r_i_plural(struct SN_env * z) {
519
+ { int mlimit; /* setlimit, line 154 */
520
+ int m1 = z->l - z->c; (void)m1;
521
+ if (z->c < z->I[0]) return 0;
522
+ z->c = z->I[0]; /* tomark, line 154 */
523
+ mlimit = z->lb; z->lb = z->c;
524
+ z->c = z->l - m1;
525
+ z->ket = z->c; /* [, line 154 */
526
+ if (z->c <= z->lb || (z->p[z->c - 1] != 105 && z->p[z->c - 1] != 106)) { z->lb = mlimit; return 0; }
527
+ if (!(find_among_b(z, a_8, 2))) { z->lb = mlimit; return 0; } /* substring, line 154 */
528
+ z->bra = z->c; /* ], line 154 */
529
+ z->lb = mlimit;
530
+ }
531
+ { int ret = slice_del(z); /* delete, line 158 */
532
+ if (ret < 0) return ret;
533
+ }
534
+ return 1;
535
+ }
536
+
537
+ static int r_t_plural(struct SN_env * z) {
538
+ int among_var;
539
+ { int mlimit; /* setlimit, line 161 */
540
+ int m1 = z->l - z->c; (void)m1;
541
+ if (z->c < z->I[0]) return 0;
542
+ z->c = z->I[0]; /* tomark, line 161 */
543
+ mlimit = z->lb; z->lb = z->c;
544
+ z->c = z->l - m1;
545
+ z->ket = z->c; /* [, line 162 */
546
+ if (!(eq_s_b(z, 1, s_13))) { z->lb = mlimit; return 0; }
547
+ z->bra = z->c; /* ], line 162 */
548
+ { int m_test = z->l - z->c; /* test, line 162 */
549
+ if (in_grouping_b_U(z, g_V1, 97, 246, 0)) { z->lb = mlimit; return 0; }
550
+ z->c = z->l - m_test;
551
+ }
552
+ { int ret = slice_del(z); /* delete, line 163 */
553
+ if (ret < 0) return ret;
554
+ }
555
+ z->lb = mlimit;
556
+ }
557
+ { int mlimit; /* setlimit, line 165 */
558
+ int m2 = z->l - z->c; (void)m2;
559
+ if (z->c < z->I[1]) return 0;
560
+ z->c = z->I[1]; /* tomark, line 165 */
561
+ mlimit = z->lb; z->lb = z->c;
562
+ z->c = z->l - m2;
563
+ z->ket = z->c; /* [, line 165 */
564
+ if (z->c - 2 <= z->lb || z->p[z->c - 1] != 97) { z->lb = mlimit; return 0; }
565
+ among_var = find_among_b(z, a_9, 2); /* substring, line 165 */
566
+ if (!(among_var)) { z->lb = mlimit; return 0; }
567
+ z->bra = z->c; /* ], line 165 */
568
+ z->lb = mlimit;
569
+ }
570
+ switch(among_var) {
571
+ case 0: return 0;
572
+ case 1:
573
+ { int m3 = z->l - z->c; (void)m3; /* not, line 167 */
574
+ if (!(eq_s_b(z, 2, s_14))) goto lab0;
575
+ return 0;
576
+ lab0:
577
+ z->c = z->l - m3;
578
+ }
579
+ break;
580
+ }
581
+ { int ret = slice_del(z); /* delete, line 170 */
582
+ if (ret < 0) return ret;
583
+ }
584
+ return 1;
585
+ }
586
+
587
+ static int r_tidy(struct SN_env * z) {
588
+ { int mlimit; /* setlimit, line 173 */
589
+ int m1 = z->l - z->c; (void)m1;
590
+ if (z->c < z->I[0]) return 0;
591
+ z->c = z->I[0]; /* tomark, line 173 */
592
+ mlimit = z->lb; z->lb = z->c;
593
+ z->c = z->l - m1;
594
+ { int m2 = z->l - z->c; (void)m2; /* do, line 174 */
595
+ { int m3 = z->l - z->c; (void)m3; /* and, line 174 */
596
+ { int ret = r_LONG(z);
597
+ if (ret == 0) goto lab0; /* call LONG, line 174 */
598
+ if (ret < 0) return ret;
599
+ }
600
+ z->c = z->l - m3;
601
+ z->ket = z->c; /* [, line 174 */
602
+ { int ret = skip_utf8(z->p, z->c, z->lb, 0, -1);
603
+ if (ret < 0) goto lab0;
604
+ z->c = ret; /* next, line 174 */
605
+ }
606
+ z->bra = z->c; /* ], line 174 */
607
+ { int ret = slice_del(z); /* delete, line 174 */
608
+ if (ret < 0) return ret;
609
+ }
610
+ }
611
+ lab0:
612
+ z->c = z->l - m2;
613
+ }
614
+ { int m4 = z->l - z->c; (void)m4; /* do, line 175 */
615
+ z->ket = z->c; /* [, line 175 */
616
+ if (in_grouping_b_U(z, g_AEI, 97, 228, 0)) goto lab1;
617
+ z->bra = z->c; /* ], line 175 */
618
+ if (out_grouping_b_U(z, g_V1, 97, 246, 0)) goto lab1;
619
+ { int ret = slice_del(z); /* delete, line 175 */
620
+ if (ret < 0) return ret;
621
+ }
622
+ lab1:
623
+ z->c = z->l - m4;
624
+ }
625
+ { int m5 = z->l - z->c; (void)m5; /* do, line 176 */
626
+ z->ket = z->c; /* [, line 176 */
627
+ if (!(eq_s_b(z, 1, s_15))) goto lab2;
628
+ z->bra = z->c; /* ], line 176 */
629
+ { int m6 = z->l - z->c; (void)m6; /* or, line 176 */
630
+ if (!(eq_s_b(z, 1, s_16))) goto lab4;
631
+ goto lab3;
632
+ lab4:
633
+ z->c = z->l - m6;
634
+ if (!(eq_s_b(z, 1, s_17))) goto lab2;
635
+ }
636
+ lab3:
637
+ { int ret = slice_del(z); /* delete, line 176 */
638
+ if (ret < 0) return ret;
639
+ }
640
+ lab2:
641
+ z->c = z->l - m5;
642
+ }
643
+ { int m7 = z->l - z->c; (void)m7; /* do, line 177 */
644
+ z->ket = z->c; /* [, line 177 */
645
+ if (!(eq_s_b(z, 1, s_18))) goto lab5;
646
+ z->bra = z->c; /* ], line 177 */
647
+ if (!(eq_s_b(z, 1, s_19))) goto lab5;
648
+ { int ret = slice_del(z); /* delete, line 177 */
649
+ if (ret < 0) return ret;
650
+ }
651
+ lab5:
652
+ z->c = z->l - m7;
653
+ }
654
+ z->lb = mlimit;
655
+ }
656
+ if (in_grouping_b_U(z, g_V1, 97, 246, 1) < 0) return 0; /* goto */ /* non V1, line 179 */
657
+ z->ket = z->c; /* [, line 179 */
658
+ { int ret = skip_utf8(z->p, z->c, z->lb, 0, -1);
659
+ if (ret < 0) return 0;
660
+ z->c = ret; /* next, line 179 */
661
+ }
662
+ z->bra = z->c; /* ], line 179 */
663
+ z->S[0] = slice_to(z, z->S[0]); /* -> x, line 179 */
664
+ if (z->S[0] == 0) return -1; /* -> x, line 179 */
665
+ if (!(eq_v_b(z, z->S[0]))) return 0; /* name x, line 179 */
666
+ { int ret = slice_del(z); /* delete, line 179 */
667
+ if (ret < 0) return ret;
668
+ }
669
+ return 1;
670
+ }
671
+
672
+ extern int finnish_UTF_8_stem(struct SN_env * z) {
673
+ { int c1 = z->c; /* do, line 185 */
674
+ { int ret = r_mark_regions(z);
675
+ if (ret == 0) goto lab0; /* call mark_regions, line 185 */
676
+ if (ret < 0) return ret;
677
+ }
678
+ lab0:
679
+ z->c = c1;
680
+ }
681
+ z->B[0] = 0; /* unset ending_removed, line 186 */
682
+ z->lb = z->c; z->c = z->l; /* backwards, line 187 */
683
+
684
+ { int m2 = z->l - z->c; (void)m2; /* do, line 188 */
685
+ { int ret = r_particle_etc(z);
686
+ if (ret == 0) goto lab1; /* call particle_etc, line 188 */
687
+ if (ret < 0) return ret;
688
+ }
689
+ lab1:
690
+ z->c = z->l - m2;
691
+ }
692
+ { int m3 = z->l - z->c; (void)m3; /* do, line 189 */
693
+ { int ret = r_possessive(z);
694
+ if (ret == 0) goto lab2; /* call possessive, line 189 */
695
+ if (ret < 0) return ret;
696
+ }
697
+ lab2:
698
+ z->c = z->l - m3;
699
+ }
700
+ { int m4 = z->l - z->c; (void)m4; /* do, line 190 */
701
+ { int ret = r_case_ending(z);
702
+ if (ret == 0) goto lab3; /* call case_ending, line 190 */
703
+ if (ret < 0) return ret;
704
+ }
705
+ lab3:
706
+ z->c = z->l - m4;
707
+ }
708
+ { int m5 = z->l - z->c; (void)m5; /* do, line 191 */
709
+ { int ret = r_other_endings(z);
710
+ if (ret == 0) goto lab4; /* call other_endings, line 191 */
711
+ if (ret < 0) return ret;
712
+ }
713
+ lab4:
714
+ z->c = z->l - m5;
715
+ }
716
+ { int m6 = z->l - z->c; (void)m6; /* or, line 192 */
717
+ if (!(z->B[0])) goto lab6; /* Boolean test ending_removed, line 192 */
718
+ { int m7 = z->l - z->c; (void)m7; /* do, line 192 */
719
+ { int ret = r_i_plural(z);
720
+ if (ret == 0) goto lab7; /* call i_plural, line 192 */
721
+ if (ret < 0) return ret;
722
+ }
723
+ lab7:
724
+ z->c = z->l - m7;
725
+ }
726
+ goto lab5;
727
+ lab6:
728
+ z->c = z->l - m6;
729
+ { int m8 = z->l - z->c; (void)m8; /* do, line 192 */
730
+ { int ret = r_t_plural(z);
731
+ if (ret == 0) goto lab8; /* call t_plural, line 192 */
732
+ if (ret < 0) return ret;
733
+ }
734
+ lab8:
735
+ z->c = z->l - m8;
736
+ }
737
+ }
738
+ lab5:
739
+ { int m9 = z->l - z->c; (void)m9; /* do, line 193 */
740
+ { int ret = r_tidy(z);
741
+ if (ret == 0) goto lab9; /* call tidy, line 193 */
742
+ if (ret < 0) return ret;
743
+ }
744
+ lab9:
745
+ z->c = z->l - m9;
746
+ }
747
+ z->c = z->lb;
748
+ return 1;
749
+ }
750
+
751
+ extern struct SN_env * finnish_UTF_8_create_env(void) { return SN_create_env(1, 2, 1); }
752
+
753
+ extern void finnish_UTF_8_close_env(struct SN_env * z) { SN_close_env(z, 1); }
754
+