ferret 0.9.0 → 0.9.1

Sign up to get free protection for your applications and to get access to all the features.
Files changed (187) hide show
  1. data/Rakefile +23 -5
  2. data/TODO +2 -1
  3. data/ext/analysis.c +838 -177
  4. data/ext/analysis.h +55 -7
  5. data/ext/api.c +69 -0
  6. data/ext/api.h +27 -0
  7. data/ext/array.c +8 -5
  8. data/ext/compound_io.c +132 -96
  9. data/ext/document.c +58 -28
  10. data/ext/except.c +59 -0
  11. data/ext/except.h +88 -0
  12. data/ext/ferret.c +47 -3
  13. data/ext/ferret.h +3 -0
  14. data/ext/field.c +15 -9
  15. data/ext/filter.c +1 -1
  16. data/ext/fs_store.c +215 -34
  17. data/ext/global.c +72 -3
  18. data/ext/global.h +4 -3
  19. data/ext/hash.c +44 -3
  20. data/ext/hash.h +9 -0
  21. data/ext/header.h +58 -0
  22. data/ext/inc/except.h +88 -0
  23. data/ext/inc/lang.h +23 -13
  24. data/ext/ind.c +16 -10
  25. data/ext/index.h +2 -22
  26. data/ext/index_io.c +3 -11
  27. data/ext/index_rw.c +245 -193
  28. data/ext/lang.h +23 -13
  29. data/ext/libstemmer.c +92 -0
  30. data/ext/libstemmer.h +79 -0
  31. data/ext/modules.h +162 -0
  32. data/ext/q_boolean.c +34 -21
  33. data/ext/q_const_score.c +6 -12
  34. data/ext/q_filtered_query.c +206 -0
  35. data/ext/q_fuzzy.c +18 -15
  36. data/ext/q_match_all.c +3 -7
  37. data/ext/q_multi_phrase.c +10 -14
  38. data/ext/q_parser.c +29 -2
  39. data/ext/q_phrase.c +14 -21
  40. data/ext/q_prefix.c +15 -12
  41. data/ext/q_range.c +30 -28
  42. data/ext/q_span.c +13 -21
  43. data/ext/q_term.c +17 -26
  44. data/ext/r_analysis.c +693 -21
  45. data/ext/r_doc.c +11 -12
  46. data/ext/r_index_io.c +4 -1
  47. data/ext/r_qparser.c +21 -2
  48. data/ext/r_search.c +285 -18
  49. data/ext/ram_store.c +5 -2
  50. data/ext/search.c +11 -17
  51. data/ext/search.h +21 -45
  52. data/ext/similarity.h +67 -0
  53. data/ext/sort.c +30 -25
  54. data/ext/stem_ISO_8859_1_danish.c +338 -0
  55. data/ext/stem_ISO_8859_1_danish.h +16 -0
  56. data/ext/stem_ISO_8859_1_dutch.c +635 -0
  57. data/ext/stem_ISO_8859_1_dutch.h +16 -0
  58. data/ext/stem_ISO_8859_1_english.c +1156 -0
  59. data/ext/stem_ISO_8859_1_english.h +16 -0
  60. data/ext/stem_ISO_8859_1_finnish.c +792 -0
  61. data/ext/stem_ISO_8859_1_finnish.h +16 -0
  62. data/ext/stem_ISO_8859_1_french.c +1276 -0
  63. data/ext/stem_ISO_8859_1_french.h +16 -0
  64. data/ext/stem_ISO_8859_1_german.c +512 -0
  65. data/ext/stem_ISO_8859_1_german.h +16 -0
  66. data/ext/stem_ISO_8859_1_italian.c +1091 -0
  67. data/ext/stem_ISO_8859_1_italian.h +16 -0
  68. data/ext/stem_ISO_8859_1_norwegian.c +296 -0
  69. data/ext/stem_ISO_8859_1_norwegian.h +16 -0
  70. data/ext/stem_ISO_8859_1_porter.c +776 -0
  71. data/ext/stem_ISO_8859_1_porter.h +16 -0
  72. data/ext/stem_ISO_8859_1_portuguese.c +1035 -0
  73. data/ext/stem_ISO_8859_1_portuguese.h +16 -0
  74. data/ext/stem_ISO_8859_1_spanish.c +1119 -0
  75. data/ext/stem_ISO_8859_1_spanish.h +16 -0
  76. data/ext/stem_ISO_8859_1_swedish.c +307 -0
  77. data/ext/stem_ISO_8859_1_swedish.h +16 -0
  78. data/ext/stem_KOI8_R_russian.c +701 -0
  79. data/ext/stem_KOI8_R_russian.h +16 -0
  80. data/ext/stem_UTF_8_danish.c +344 -0
  81. data/ext/stem_UTF_8_danish.h +16 -0
  82. data/ext/stem_UTF_8_dutch.c +653 -0
  83. data/ext/stem_UTF_8_dutch.h +16 -0
  84. data/ext/stem_UTF_8_english.c +1176 -0
  85. data/ext/stem_UTF_8_english.h +16 -0
  86. data/ext/stem_UTF_8_finnish.c +808 -0
  87. data/ext/stem_UTF_8_finnish.h +16 -0
  88. data/ext/stem_UTF_8_french.c +1296 -0
  89. data/ext/stem_UTF_8_french.h +16 -0
  90. data/ext/stem_UTF_8_german.c +526 -0
  91. data/ext/stem_UTF_8_german.h +16 -0
  92. data/ext/stem_UTF_8_italian.c +1113 -0
  93. data/ext/stem_UTF_8_italian.h +16 -0
  94. data/ext/stem_UTF_8_norwegian.c +302 -0
  95. data/ext/stem_UTF_8_norwegian.h +16 -0
  96. data/ext/stem_UTF_8_porter.c +794 -0
  97. data/ext/stem_UTF_8_porter.h +16 -0
  98. data/ext/stem_UTF_8_portuguese.c +1055 -0
  99. data/ext/stem_UTF_8_portuguese.h +16 -0
  100. data/ext/stem_UTF_8_russian.c +709 -0
  101. data/ext/stem_UTF_8_russian.h +16 -0
  102. data/ext/stem_UTF_8_spanish.c +1137 -0
  103. data/ext/stem_UTF_8_spanish.h +16 -0
  104. data/ext/stem_UTF_8_swedish.c +313 -0
  105. data/ext/stem_UTF_8_swedish.h +16 -0
  106. data/ext/stopwords.c +325 -0
  107. data/ext/store.c +34 -2
  108. data/ext/tags +2953 -0
  109. data/ext/term.c +21 -15
  110. data/ext/termdocs.c +5 -3
  111. data/ext/utilities.c +446 -0
  112. data/ext/vector.c +27 -13
  113. data/lib/ferret/document/document.rb +1 -1
  114. data/lib/ferret/index/index.rb +44 -6
  115. data/lib/ferret/query_parser/query_parser.tab.rb +7 -3
  116. data/lib/rferret.rb +2 -1
  117. data/test/test_helper.rb +2 -2
  118. data/test/unit/analysis/ctc_analyzer.rb +401 -0
  119. data/test/unit/analysis/ctc_tokenstream.rb +423 -0
  120. data/test/unit/analysis/{tc_letter_tokenizer.rb → rtc_letter_tokenizer.rb} +0 -0
  121. data/test/unit/analysis/{tc_lower_case_filter.rb → rtc_lower_case_filter.rb} +0 -0
  122. data/test/unit/analysis/{tc_lower_case_tokenizer.rb → rtc_lower_case_tokenizer.rb} +0 -0
  123. data/test/unit/analysis/{tc_per_field_analyzer_wrapper.rb → rtc_per_field_analyzer_wrapper.rb} +0 -0
  124. data/test/unit/analysis/{tc_porter_stem_filter.rb → rtc_porter_stem_filter.rb} +0 -0
  125. data/test/unit/analysis/{tc_standard_analyzer.rb → rtc_standard_analyzer.rb} +0 -0
  126. data/test/unit/analysis/{tc_standard_tokenizer.rb → rtc_standard_tokenizer.rb} +0 -0
  127. data/test/unit/analysis/{tc_stop_analyzer.rb → rtc_stop_analyzer.rb} +0 -0
  128. data/test/unit/analysis/{tc_stop_filter.rb → rtc_stop_filter.rb} +0 -0
  129. data/test/unit/analysis/{tc_white_space_analyzer.rb → rtc_white_space_analyzer.rb} +0 -0
  130. data/test/unit/analysis/{tc_white_space_tokenizer.rb → rtc_white_space_tokenizer.rb} +0 -0
  131. data/test/unit/analysis/{tc_word_list_loader.rb → rtc_word_list_loader.rb} +0 -0
  132. data/test/unit/analysis/tc_analyzer.rb +1 -2
  133. data/test/unit/analysis/{c_token.rb → tc_token.rb} +0 -0
  134. data/test/unit/document/rtc_field.rb +28 -0
  135. data/test/unit/document/{c_document.rb → tc_document.rb} +0 -0
  136. data/test/unit/document/tc_field.rb +82 -12
  137. data/test/unit/index/{tc_compound_file_io.rb → rtc_compound_file_io.rb} +0 -0
  138. data/test/unit/index/{tc_field_infos.rb → rtc_field_infos.rb} +0 -0
  139. data/test/unit/index/{tc_fields_io.rb → rtc_fields_io.rb} +0 -0
  140. data/test/unit/index/{tc_multiple_term_doc_pos_enum.rb → rtc_multiple_term_doc_pos_enum.rb} +0 -0
  141. data/test/unit/index/{tc_segment_infos.rb → rtc_segment_infos.rb} +0 -0
  142. data/test/unit/index/{tc_segment_term_docs.rb → rtc_segment_term_docs.rb} +0 -0
  143. data/test/unit/index/{tc_segment_term_enum.rb → rtc_segment_term_enum.rb} +0 -0
  144. data/test/unit/index/{tc_segment_term_vector.rb → rtc_segment_term_vector.rb} +0 -0
  145. data/test/unit/index/{tc_term_buffer.rb → rtc_term_buffer.rb} +0 -0
  146. data/test/unit/index/{tc_term_info.rb → rtc_term_info.rb} +0 -0
  147. data/test/unit/index/{tc_term_infos_io.rb → rtc_term_infos_io.rb} +0 -0
  148. data/test/unit/index/{tc_term_vectors_io.rb → rtc_term_vectors_io.rb} +0 -0
  149. data/test/unit/index/{c_index.rb → tc_index.rb} +26 -6
  150. data/test/unit/index/{c_index_reader.rb → tc_index_reader.rb} +0 -0
  151. data/test/unit/index/{c_index_writer.rb → tc_index_writer.rb} +0 -0
  152. data/test/unit/index/{c_term.rb → tc_term.rb} +0 -0
  153. data/test/unit/index/{c_term_voi.rb → tc_term_voi.rb} +0 -0
  154. data/test/unit/query_parser/{c_query_parser.rb → rtc_query_parser.rb} +14 -14
  155. data/test/unit/query_parser/tc_query_parser.rb +24 -16
  156. data/test/unit/search/{tc_similarity.rb → rtc_similarity.rb} +0 -0
  157. data/test/unit/search/rtc_sort_field.rb +14 -0
  158. data/test/unit/search/{c_filter.rb → tc_filter.rb} +11 -11
  159. data/test/unit/search/{c_fuzzy_query.rb → tc_fuzzy_query.rb} +0 -0
  160. data/test/unit/search/{c_index_searcher.rb → tc_index_searcher.rb} +0 -0
  161. data/test/unit/search/{c_search_and_sort.rb → tc_search_and_sort.rb} +0 -0
  162. data/test/unit/search/{c_sort.rb → tc_sort.rb} +0 -0
  163. data/test/unit/search/tc_sort_field.rb +20 -7
  164. data/test/unit/search/{c_spans.rb → tc_spans.rb} +0 -0
  165. data/test/unit/store/rtc_fs_store.rb +62 -0
  166. data/test/unit/store/rtc_ram_store.rb +15 -0
  167. data/test/unit/store/rtm_store.rb +150 -0
  168. data/test/unit/store/rtm_store_lock.rb +2 -0
  169. data/test/unit/store/tc_fs_store.rb +54 -40
  170. data/test/unit/store/tc_ram_store.rb +20 -0
  171. data/test/unit/store/tm_store.rb +30 -146
  172. data/test/unit/store/tm_store_lock.rb +66 -0
  173. data/test/unit/utils/{tc_bit_vector.rb → rtc_bit_vector.rb} +0 -0
  174. data/test/unit/utils/{tc_date_tools.rb → rtc_date_tools.rb} +0 -0
  175. data/test/unit/utils/{tc_number_tools.rb → rtc_number_tools.rb} +0 -0
  176. data/test/unit/utils/{tc_parameter.rb → rtc_parameter.rb} +0 -0
  177. data/test/unit/utils/{tc_priority_queue.rb → rtc_priority_queue.rb} +0 -0
  178. data/test/unit/utils/{tc_string_helper.rb → rtc_string_helper.rb} +0 -0
  179. data/test/unit/utils/{tc_thread.rb → rtc_thread.rb} +0 -0
  180. data/test/unit/utils/{tc_weak_key_hash.rb → rtc_weak_key_hash.rb} +0 -0
  181. metadata +360 -289
  182. data/test/unit/document/c_field.rb +0 -98
  183. data/test/unit/search/c_sort_field.rb +0 -27
  184. data/test/unit/store/c_fs_store.rb +0 -76
  185. data/test/unit/store/c_ram_store.rb +0 -35
  186. data/test/unit/store/m_store.rb +0 -34
  187. data/test/unit/store/m_store_lock.rb +0 -68
@@ -0,0 +1,16 @@
1
+
2
+ /* This file was generated automatically by the Snowball to ANSI C compiler */
3
+
4
+ #ifdef __cplusplus
5
+ extern "C" {
6
+ #endif
7
+
8
+ extern struct SN_env * english_UTF_8_create_env(void);
9
+ extern void english_UTF_8_close_env(struct SN_env * z);
10
+
11
+ extern int english_UTF_8_stem(struct SN_env * z);
12
+
13
+ #ifdef __cplusplus
14
+ }
15
+ #endif
16
+
@@ -0,0 +1,808 @@
1
+
2
+ /* This file was generated automatically by the Snowball to ANSI C compiler */
3
+
4
+ #include "header.h"
5
+
6
+ extern int finnish_UTF_8_stem(struct SN_env * z);
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 symbol s_0_0[2] = { 'p', 'a' };
23
+ static symbol s_0_1[3] = { 's', 't', 'i' };
24
+ static symbol s_0_2[4] = { 'k', 'a', 'a', 'n' };
25
+ static symbol s_0_3[3] = { 'h', 'a', 'n' };
26
+ static symbol s_0_4[3] = { 'k', 'i', 'n' };
27
+ static symbol s_0_5[4] = { 'h', 0xC3, 0xA4, 'n' };
28
+ static symbol s_0_6[6] = { 'k', 0xC3, 0xA4, 0xC3, 0xA4, 'n' };
29
+ static symbol s_0_7[2] = { 'k', 'o' };
30
+ static symbol s_0_8[3] = { 'p', 0xC3, 0xA4 };
31
+ static symbol s_0_9[3] = { 'k', 0xC3, 0xB6 };
32
+
33
+ static 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 symbol s_1_0[3] = { 'l', 'l', 'a' };
48
+ static symbol s_1_1[2] = { 'n', 'a' };
49
+ static symbol s_1_2[3] = { 's', 's', 'a' };
50
+ static symbol s_1_3[2] = { 't', 'a' };
51
+ static symbol s_1_4[3] = { 'l', 't', 'a' };
52
+ static symbol s_1_5[3] = { 's', 't', 'a' };
53
+
54
+ static 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 symbol s_2_0[4] = { 'l', 'l', 0xC3, 0xA4 };
65
+ static symbol s_2_1[3] = { 'n', 0xC3, 0xA4 };
66
+ static symbol s_2_2[4] = { 's', 's', 0xC3, 0xA4 };
67
+ static symbol s_2_3[3] = { 't', 0xC3, 0xA4 };
68
+ static symbol s_2_4[4] = { 'l', 't', 0xC3, 0xA4 };
69
+ static symbol s_2_5[4] = { 's', 't', 0xC3, 0xA4 };
70
+
71
+ static 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 symbol s_3_0[3] = { 'l', 'l', 'e' };
82
+ static symbol s_3_1[3] = { 'i', 'n', 'e' };
83
+
84
+ static 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 symbol s_4_0[3] = { 'n', 's', 'a' };
91
+ static symbol s_4_1[3] = { 'm', 'm', 'e' };
92
+ static symbol s_4_2[3] = { 'n', 'n', 'e' };
93
+ static symbol s_4_3[2] = { 'n', 'i' };
94
+ static symbol s_4_4[2] = { 's', 'i' };
95
+ static symbol s_4_5[2] = { 'a', 'n' };
96
+ static symbol s_4_6[2] = { 'e', 'n' };
97
+ static symbol s_4_7[3] = { 0xC3, 0xA4, 'n' };
98
+ static symbol s_4_8[4] = { 'n', 's', 0xC3, 0xA4 };
99
+
100
+ static 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 symbol s_5_0[2] = { 'a', 'a' };
114
+ static symbol s_5_1[2] = { 'e', 'e' };
115
+ static symbol s_5_2[2] = { 'i', 'i' };
116
+ static symbol s_5_3[2] = { 'o', 'o' };
117
+ static symbol s_5_4[2] = { 'u', 'u' };
118
+ static symbol s_5_5[4] = { 0xC3, 0xA4, 0xC3, 0xA4 };
119
+ static symbol s_5_6[4] = { 0xC3, 0xB6, 0xC3, 0xB6 };
120
+
121
+ static 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 symbol s_6_0[1] = { 'a' };
133
+ static symbol s_6_1[3] = { 'l', 'l', 'a' };
134
+ static symbol s_6_2[2] = { 'n', 'a' };
135
+ static symbol s_6_3[3] = { 's', 's', 'a' };
136
+ static symbol s_6_4[2] = { 't', 'a' };
137
+ static symbol s_6_5[3] = { 'l', 't', 'a' };
138
+ static symbol s_6_6[3] = { 's', 't', 'a' };
139
+ static symbol s_6_7[3] = { 't', 't', 'a' };
140
+ static symbol s_6_8[3] = { 'l', 'l', 'e' };
141
+ static symbol s_6_9[3] = { 'i', 'n', 'e' };
142
+ static symbol s_6_10[3] = { 'k', 's', 'i' };
143
+ static symbol s_6_11[1] = { 'n' };
144
+ static symbol s_6_12[3] = { 'h', 'a', 'n' };
145
+ static symbol s_6_13[3] = { 'd', 'e', 'n' };
146
+ static symbol s_6_14[4] = { 's', 'e', 'e', 'n' };
147
+ static symbol s_6_15[3] = { 'h', 'e', 'n' };
148
+ static symbol s_6_16[4] = { 't', 't', 'e', 'n' };
149
+ static symbol s_6_17[3] = { 'h', 'i', 'n' };
150
+ static symbol s_6_18[4] = { 's', 'i', 'i', 'n' };
151
+ static symbol s_6_19[3] = { 'h', 'o', 'n' };
152
+ static symbol s_6_20[4] = { 'h', 0xC3, 0xA4, 'n' };
153
+ static symbol s_6_21[4] = { 'h', 0xC3, 0xB6, 'n' };
154
+ static symbol s_6_22[2] = { 0xC3, 0xA4 };
155
+ static symbol s_6_23[4] = { 'l', 'l', 0xC3, 0xA4 };
156
+ static symbol s_6_24[3] = { 'n', 0xC3, 0xA4 };
157
+ static symbol s_6_25[4] = { 's', 's', 0xC3, 0xA4 };
158
+ static symbol s_6_26[3] = { 't', 0xC3, 0xA4 };
159
+ static symbol s_6_27[4] = { 'l', 't', 0xC3, 0xA4 };
160
+ static symbol s_6_28[4] = { 's', 't', 0xC3, 0xA4 };
161
+ static symbol s_6_29[4] = { 't', 't', 0xC3, 0xA4 };
162
+
163
+ static 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 symbol s_7_0[3] = { 'e', 'j', 'a' };
198
+ static symbol s_7_1[3] = { 'm', 'm', 'a' };
199
+ static symbol s_7_2[4] = { 'i', 'm', 'm', 'a' };
200
+ static symbol s_7_3[3] = { 'm', 'p', 'a' };
201
+ static symbol s_7_4[4] = { 'i', 'm', 'p', 'a' };
202
+ static symbol s_7_5[3] = { 'm', 'm', 'i' };
203
+ static symbol s_7_6[4] = { 'i', 'm', 'm', 'i' };
204
+ static symbol s_7_7[3] = { 'm', 'p', 'i' };
205
+ static symbol s_7_8[4] = { 'i', 'm', 'p', 'i' };
206
+ static symbol s_7_9[4] = { 'e', 'j', 0xC3, 0xA4 };
207
+ static symbol s_7_10[4] = { 'm', 'm', 0xC3, 0xA4 };
208
+ static symbol s_7_11[5] = { 'i', 'm', 'm', 0xC3, 0xA4 };
209
+ static symbol s_7_12[4] = { 'm', 'p', 0xC3, 0xA4 };
210
+ static symbol s_7_13[5] = { 'i', 'm', 'p', 0xC3, 0xA4 };
211
+
212
+ static 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 symbol s_8_0[1] = { 'i' };
231
+ static symbol s_8_1[1] = { 'j' };
232
+
233
+ static 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 symbol s_9_0[3] = { 'm', 'm', 'a' };
240
+ static symbol s_9_1[4] = { 'i', 'm', 'm', 'a' };
241
+
242
+ static 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 unsigned char g_AEI[] = { 17, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8 };
249
+
250
+ static 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 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 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 symbol s_0[] = { 'k' };
257
+ static symbol s_1[] = { 'k', 's', 'e' };
258
+ static symbol s_2[] = { 'k', 's', 'i' };
259
+ static symbol s_3[] = { 'i' };
260
+ static symbol s_4[] = { 'a' };
261
+ static symbol s_5[] = { 'e' };
262
+ static symbol s_6[] = { 'i' };
263
+ static symbol s_7[] = { 'o' };
264
+ static symbol s_8[] = { 0xC3, 0xA4 };
265
+ static symbol s_9[] = { 0xC3, 0xB6 };
266
+ static symbol s_10[] = { 'i', 'e' };
267
+ static symbol s_11[] = { 'e' };
268
+ static symbol s_12[] = { 'p', 'o' };
269
+ static symbol s_13[] = { 't' };
270
+ static symbol s_14[] = { 'p', 'o' };
271
+ static symbol s_15[] = { 'j' };
272
+ static symbol s_16[] = { 'o' };
273
+ static symbol s_17[] = { 'u' };
274
+ static symbol s_18[] = { 'o' };
275
+ static 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
+ while(1) { /* goto, line 46 */
281
+ int c = z->c;
282
+ if (!(in_grouping_U(z, g_V1, 97, 246))) goto lab0;
283
+ z->c = c;
284
+ break;
285
+ lab0:
286
+ z->c = c;
287
+ { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
288
+ if (c < 0) return 0;
289
+ z->c = c; /* goto, line 46 */
290
+ }
291
+ }
292
+ while(1) { /* gopast, line 46 */
293
+ if (!(out_grouping_U(z, g_V1, 97, 246))) goto lab1;
294
+ break;
295
+ lab1:
296
+ { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
297
+ if (c < 0) return 0;
298
+ z->c = c; /* gopast, line 46 */
299
+ }
300
+ }
301
+ z->I[0] = z->c; /* setmark p1, line 46 */
302
+ while(1) { /* goto, line 47 */
303
+ int c = z->c;
304
+ if (!(in_grouping_U(z, g_V1, 97, 246))) goto lab2;
305
+ z->c = c;
306
+ break;
307
+ lab2:
308
+ z->c = c;
309
+ { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
310
+ if (c < 0) return 0;
311
+ z->c = c; /* goto, line 47 */
312
+ }
313
+ }
314
+ while(1) { /* gopast, line 47 */
315
+ if (!(out_grouping_U(z, g_V1, 97, 246))) goto lab3;
316
+ break;
317
+ lab3:
318
+ { int c = skip_utf8(z->p, z->c, 0, z->l, 1);
319
+ if (c < 0) return 0;
320
+ z->c = c; /* gopast, line 47 */
321
+ }
322
+ }
323
+ z->I[1] = z->c; /* setmark p2, line 47 */
324
+ return 1;
325
+ }
326
+
327
+ static int r_R2(struct SN_env * z) {
328
+ if (!(z->I[1] <= z->c)) return 0;
329
+ return 1;
330
+ }
331
+
332
+ static int r_particle_etc(struct SN_env * z) {
333
+ int among_var;
334
+ { int m3; /* setlimit, line 55 */
335
+ int m = z->l - z->c; (void) m;
336
+ if (z->c < z->I[0]) return 0;
337
+ z->c = z->I[0]; /* tomark, line 55 */
338
+ m3 = z->lb; z->lb = z->c;
339
+ z->c = z->l - m;
340
+ z->ket = z->c; /* [, line 55 */
341
+ among_var = find_among_b(z, a_0, 10); /* substring, line 55 */
342
+ if (!(among_var)) { z->lb = m3; return 0; }
343
+ z->bra = z->c; /* ], line 55 */
344
+ z->lb = m3;
345
+ }
346
+ switch(among_var) {
347
+ case 0: return 0;
348
+ case 1:
349
+ if (!(in_grouping_b_U(z, g_particle_end, 97, 246))) return 0;
350
+ break;
351
+ case 2:
352
+ { int ret = r_R2(z);
353
+ if (ret == 0) return 0; /* call R2, line 64 */
354
+ if (ret < 0) return ret;
355
+ }
356
+ break;
357
+ }
358
+ { int ret;
359
+ ret = slice_del(z); /* delete, line 66 */
360
+ if (ret < 0) return ret;
361
+ }
362
+ return 1;
363
+ }
364
+
365
+ static int r_possessive(struct SN_env * z) {
366
+ int among_var;
367
+ { int m3; /* setlimit, line 69 */
368
+ int m = z->l - z->c; (void) m;
369
+ if (z->c < z->I[0]) return 0;
370
+ z->c = z->I[0]; /* tomark, line 69 */
371
+ m3 = z->lb; z->lb = z->c;
372
+ z->c = z->l - m;
373
+ z->ket = z->c; /* [, line 69 */
374
+ among_var = find_among_b(z, a_4, 9); /* substring, line 69 */
375
+ if (!(among_var)) { z->lb = m3; return 0; }
376
+ z->bra = z->c; /* ], line 69 */
377
+ z->lb = m3;
378
+ }
379
+ switch(among_var) {
380
+ case 0: return 0;
381
+ case 1:
382
+ { int m = z->l - z->c; (void) m; /* not, line 72 */
383
+ if (!(eq_s_b(z, 1, s_0))) goto lab0;
384
+ return 0;
385
+ lab0:
386
+ z->c = z->l - m;
387
+ }
388
+ { int ret;
389
+ ret = slice_del(z); /* delete, line 72 */
390
+ if (ret < 0) return ret;
391
+ }
392
+ break;
393
+ case 2:
394
+ { int ret;
395
+ ret = slice_del(z); /* delete, line 74 */
396
+ if (ret < 0) return ret;
397
+ }
398
+ z->ket = z->c; /* [, line 74 */
399
+ if (!(eq_s_b(z, 3, s_1))) return 0;
400
+ z->bra = z->c; /* ], line 74 */
401
+ { int ret;
402
+ ret = slice_from_s(z, 3, s_2); /* <-, line 74 */
403
+ if (ret < 0) return ret;
404
+ }
405
+ break;
406
+ case 3:
407
+ { int ret;
408
+ ret = slice_del(z); /* delete, line 78 */
409
+ if (ret < 0) return ret;
410
+ }
411
+ break;
412
+ case 4:
413
+ if (!(find_among_b(z, a_1, 6))) return 0; /* among, line 81 */
414
+ { int ret;
415
+ ret = slice_del(z); /* delete, line 81 */
416
+ if (ret < 0) return ret;
417
+ }
418
+ break;
419
+ case 5:
420
+ if (!(find_among_b(z, a_2, 6))) return 0; /* among, line 83 */
421
+ { int ret;
422
+ ret = slice_del(z); /* delete, line 84 */
423
+ if (ret < 0) return ret;
424
+ }
425
+ break;
426
+ case 6:
427
+ if (!(find_among_b(z, a_3, 2))) return 0; /* among, line 86 */
428
+ { int ret;
429
+ ret = slice_del(z); /* delete, line 86 */
430
+ if (ret < 0) return ret;
431
+ }
432
+ break;
433
+ }
434
+ return 1;
435
+ }
436
+
437
+ static int r_LONG(struct SN_env * z) {
438
+ if (!(find_among_b(z, a_5, 7))) return 0; /* among, line 91 */
439
+ return 1;
440
+ }
441
+
442
+ static int r_VI(struct SN_env * z) {
443
+ if (!(eq_s_b(z, 1, s_3))) return 0;
444
+ if (!(in_grouping_b_U(z, g_V2, 97, 246))) return 0;
445
+ return 1;
446
+ }
447
+
448
+ static int r_case_ending(struct SN_env * z) {
449
+ int among_var;
450
+ { int m3; /* setlimit, line 96 */
451
+ int m = z->l - z->c; (void) m;
452
+ if (z->c < z->I[0]) return 0;
453
+ z->c = z->I[0]; /* tomark, line 96 */
454
+ m3 = z->lb; z->lb = z->c;
455
+ z->c = z->l - m;
456
+ z->ket = z->c; /* [, line 96 */
457
+ among_var = find_among_b(z, a_6, 30); /* substring, line 96 */
458
+ if (!(among_var)) { z->lb = m3; return 0; }
459
+ z->bra = z->c; /* ], line 96 */
460
+ z->lb = m3;
461
+ }
462
+ switch(among_var) {
463
+ case 0: return 0;
464
+ case 1:
465
+ if (!(eq_s_b(z, 1, s_4))) return 0;
466
+ break;
467
+ case 2:
468
+ if (!(eq_s_b(z, 1, s_5))) return 0;
469
+ break;
470
+ case 3:
471
+ if (!(eq_s_b(z, 1, s_6))) return 0;
472
+ break;
473
+ case 4:
474
+ if (!(eq_s_b(z, 1, s_7))) return 0;
475
+ break;
476
+ case 5:
477
+ if (!(eq_s_b(z, 2, s_8))) return 0;
478
+ break;
479
+ case 6:
480
+ if (!(eq_s_b(z, 2, s_9))) return 0;
481
+ break;
482
+ case 7:
483
+ { int m = z->l - z->c; (void) m; /* try, line 111 */
484
+ { int m = z->l - z->c; (void) m; /* and, line 113 */
485
+ { int m = z->l - z->c; (void) m; /* or, line 112 */
486
+ { int ret = r_LONG(z);
487
+ if (ret == 0) goto lab2; /* call LONG, line 111 */
488
+ if (ret < 0) return ret;
489
+ }
490
+ goto lab1;
491
+ lab2:
492
+ z->c = z->l - m;
493
+ if (!(eq_s_b(z, 2, s_10))) { z->c = z->l - m; goto lab0; }
494
+ }
495
+ lab1:
496
+ z->c = z->l - m;
497
+ { int c = skip_utf8(z->p, z->c, z->lb, 0, -1);
498
+ if (c < 0) { z->c = z->l - m; goto lab0; }
499
+ z->c = c; /* next, line 113 */
500
+ }
501
+ }
502
+ z->bra = z->c; /* ], line 113 */
503
+ lab0:
504
+ ;
505
+ }
506
+ break;
507
+ case 8:
508
+ if (!(in_grouping_b_U(z, g_V1, 97, 246))) return 0;
509
+ if (!(out_grouping_b_U(z, g_V1, 97, 246))) return 0;
510
+ break;
511
+ case 9:
512
+ if (!(eq_s_b(z, 1, s_11))) return 0;
513
+ break;
514
+ }
515
+ { int ret;
516
+ ret = slice_del(z); /* delete, line 138 */
517
+ if (ret < 0) return ret;
518
+ }
519
+ z->B[0] = 1; /* set ending_removed, line 139 */
520
+ return 1;
521
+ }
522
+
523
+ static int r_other_endings(struct SN_env * z) {
524
+ int among_var;
525
+ { int m3; /* setlimit, line 142 */
526
+ int m = z->l - z->c; (void) m;
527
+ if (z->c < z->I[1]) return 0;
528
+ z->c = z->I[1]; /* tomark, line 142 */
529
+ m3 = z->lb; z->lb = z->c;
530
+ z->c = z->l - m;
531
+ z->ket = z->c; /* [, line 142 */
532
+ among_var = find_among_b(z, a_7, 14); /* substring, line 142 */
533
+ if (!(among_var)) { z->lb = m3; return 0; }
534
+ z->bra = z->c; /* ], line 142 */
535
+ z->lb = m3;
536
+ }
537
+ switch(among_var) {
538
+ case 0: return 0;
539
+ case 1:
540
+ { int m = z->l - z->c; (void) m; /* not, line 146 */
541
+ if (!(eq_s_b(z, 2, s_12))) goto lab0;
542
+ return 0;
543
+ lab0:
544
+ z->c = z->l - m;
545
+ }
546
+ break;
547
+ }
548
+ { int ret;
549
+ ret = slice_del(z); /* delete, line 151 */
550
+ if (ret < 0) return ret;
551
+ }
552
+ return 1;
553
+ }
554
+
555
+ static int r_i_plural(struct SN_env * z) {
556
+ { int m3; /* setlimit, line 154 */
557
+ int m = z->l - z->c; (void) m;
558
+ if (z->c < z->I[0]) return 0;
559
+ z->c = z->I[0]; /* tomark, line 154 */
560
+ m3 = z->lb; z->lb = z->c;
561
+ z->c = z->l - m;
562
+ z->ket = z->c; /* [, line 154 */
563
+ if (!(find_among_b(z, a_8, 2))) { z->lb = m3; return 0; } /* substring, line 154 */
564
+ z->bra = z->c; /* ], line 154 */
565
+ z->lb = m3;
566
+ }
567
+ { int ret;
568
+ ret = slice_del(z); /* delete, line 158 */
569
+ if (ret < 0) return ret;
570
+ }
571
+ return 1;
572
+ }
573
+
574
+ static int r_t_plural(struct SN_env * z) {
575
+ int among_var;
576
+ { int m3; /* setlimit, line 161 */
577
+ int m = z->l - z->c; (void) m;
578
+ if (z->c < z->I[0]) return 0;
579
+ z->c = z->I[0]; /* tomark, line 161 */
580
+ m3 = z->lb; z->lb = z->c;
581
+ z->c = z->l - m;
582
+ z->ket = z->c; /* [, line 162 */
583
+ if (!(eq_s_b(z, 1, s_13))) { z->lb = m3; return 0; }
584
+ z->bra = z->c; /* ], line 162 */
585
+ { int m_test = z->l - z->c; /* test, line 162 */
586
+ if (!(in_grouping_b_U(z, g_V1, 97, 246))) { z->lb = m3; return 0; }
587
+ z->c = z->l - m_test;
588
+ }
589
+ { int ret;
590
+ ret = slice_del(z); /* delete, line 163 */
591
+ if (ret < 0) return ret;
592
+ }
593
+ z->lb = m3;
594
+ }
595
+ { int m3; /* setlimit, line 165 */
596
+ int m = z->l - z->c; (void) m;
597
+ if (z->c < z->I[1]) return 0;
598
+ z->c = z->I[1]; /* tomark, line 165 */
599
+ m3 = z->lb; z->lb = z->c;
600
+ z->c = z->l - m;
601
+ z->ket = z->c; /* [, line 165 */
602
+ among_var = find_among_b(z, a_9, 2); /* substring, line 165 */
603
+ if (!(among_var)) { z->lb = m3; return 0; }
604
+ z->bra = z->c; /* ], line 165 */
605
+ z->lb = m3;
606
+ }
607
+ switch(among_var) {
608
+ case 0: return 0;
609
+ case 1:
610
+ { int m = z->l - z->c; (void) m; /* not, line 167 */
611
+ if (!(eq_s_b(z, 2, s_14))) goto lab0;
612
+ return 0;
613
+ lab0:
614
+ z->c = z->l - m;
615
+ }
616
+ break;
617
+ }
618
+ { int ret;
619
+ ret = slice_del(z); /* delete, line 170 */
620
+ if (ret < 0) return ret;
621
+ }
622
+ return 1;
623
+ }
624
+
625
+ static int r_tidy(struct SN_env * z) {
626
+ { int m3; /* setlimit, line 173 */
627
+ int m = z->l - z->c; (void) m;
628
+ if (z->c < z->I[0]) return 0;
629
+ z->c = z->I[0]; /* tomark, line 173 */
630
+ m3 = z->lb; z->lb = z->c;
631
+ z->c = z->l - m;
632
+ { int m = z->l - z->c; (void) m; /* do, line 174 */
633
+ { int m = z->l - z->c; (void) m; /* and, line 174 */
634
+ { int ret = r_LONG(z);
635
+ if (ret == 0) goto lab0; /* call LONG, line 174 */
636
+ if (ret < 0) return ret;
637
+ }
638
+ z->c = z->l - m;
639
+ z->ket = z->c; /* [, line 174 */
640
+ { int c = skip_utf8(z->p, z->c, z->lb, 0, -1);
641
+ if (c < 0) goto lab0;
642
+ z->c = c; /* next, line 174 */
643
+ }
644
+ z->bra = z->c; /* ], line 174 */
645
+ { int ret;
646
+ ret = slice_del(z); /* delete, line 174 */
647
+ if (ret < 0) return ret;
648
+ }
649
+ }
650
+ lab0:
651
+ z->c = z->l - m;
652
+ }
653
+ { int m = z->l - z->c; (void) m; /* do, line 175 */
654
+ z->ket = z->c; /* [, line 175 */
655
+ if (!(in_grouping_b_U(z, g_AEI, 97, 228))) goto lab1;
656
+ z->bra = z->c; /* ], line 175 */
657
+ if (!(out_grouping_b_U(z, g_V1, 97, 246))) goto lab1;
658
+ { int ret;
659
+ ret = slice_del(z); /* delete, line 175 */
660
+ if (ret < 0) return ret;
661
+ }
662
+ lab1:
663
+ z->c = z->l - m;
664
+ }
665
+ { int m = z->l - z->c; (void) m; /* do, line 176 */
666
+ z->ket = z->c; /* [, line 176 */
667
+ if (!(eq_s_b(z, 1, s_15))) goto lab2;
668
+ z->bra = z->c; /* ], line 176 */
669
+ { int m = z->l - z->c; (void) m; /* or, line 176 */
670
+ if (!(eq_s_b(z, 1, s_16))) goto lab4;
671
+ goto lab3;
672
+ lab4:
673
+ z->c = z->l - m;
674
+ if (!(eq_s_b(z, 1, s_17))) goto lab2;
675
+ }
676
+ lab3:
677
+ { int ret;
678
+ ret = slice_del(z); /* delete, line 176 */
679
+ if (ret < 0) return ret;
680
+ }
681
+ lab2:
682
+ z->c = z->l - m;
683
+ }
684
+ { int m = z->l - z->c; (void) m; /* do, line 177 */
685
+ z->ket = z->c; /* [, line 177 */
686
+ if (!(eq_s_b(z, 1, s_18))) goto lab5;
687
+ z->bra = z->c; /* ], line 177 */
688
+ if (!(eq_s_b(z, 1, s_19))) goto lab5;
689
+ { int ret;
690
+ ret = slice_del(z); /* delete, line 177 */
691
+ if (ret < 0) return ret;
692
+ }
693
+ lab5:
694
+ z->c = z->l - m;
695
+ }
696
+ z->lb = m3;
697
+ }
698
+ while(1) { /* goto, line 179 */
699
+ int m = z->l - z->c; (void) m;
700
+ if (!(out_grouping_b_U(z, g_V1, 97, 246))) goto lab6;
701
+ z->c = z->l - m;
702
+ break;
703
+ lab6:
704
+ z->c = z->l - m;
705
+ { int c = skip_utf8(z->p, z->c, z->lb, 0, -1);
706
+ if (c < 0) return 0;
707
+ z->c = c; /* goto, line 179 */
708
+ }
709
+ }
710
+ z->ket = z->c; /* [, line 179 */
711
+ { int c = skip_utf8(z->p, z->c, z->lb, 0, -1);
712
+ if (c < 0) return 0;
713
+ z->c = c; /* next, line 179 */
714
+ }
715
+ z->bra = z->c; /* ], line 179 */
716
+ z->S[0] = slice_to(z, z->S[0]); /* -> x, line 179 */
717
+ if (z->S[0] == 0) return -1; /* -> x, line 179 */
718
+ if (!(eq_v_b(z, z->S[0]))) return 0; /* name x, line 179 */
719
+ { int ret;
720
+ ret = slice_del(z); /* delete, line 179 */
721
+ if (ret < 0) return ret;
722
+ }
723
+ return 1;
724
+ }
725
+
726
+ extern int finnish_UTF_8_stem(struct SN_env * z) {
727
+ { int c = z->c; /* do, line 185 */
728
+ { int ret = r_mark_regions(z);
729
+ if (ret == 0) goto lab0; /* call mark_regions, line 185 */
730
+ if (ret < 0) return ret;
731
+ }
732
+ lab0:
733
+ z->c = c;
734
+ }
735
+ z->B[0] = 0; /* unset ending_removed, line 186 */
736
+ z->lb = z->c; z->c = z->l; /* backwards, line 187 */
737
+
738
+ { int m = z->l - z->c; (void) m; /* do, line 188 */
739
+ { int ret = r_particle_etc(z);
740
+ if (ret == 0) goto lab1; /* call particle_etc, line 188 */
741
+ if (ret < 0) return ret;
742
+ }
743
+ lab1:
744
+ z->c = z->l - m;
745
+ }
746
+ { int m = z->l - z->c; (void) m; /* do, line 189 */
747
+ { int ret = r_possessive(z);
748
+ if (ret == 0) goto lab2; /* call possessive, line 189 */
749
+ if (ret < 0) return ret;
750
+ }
751
+ lab2:
752
+ z->c = z->l - m;
753
+ }
754
+ { int m = z->l - z->c; (void) m; /* do, line 190 */
755
+ { int ret = r_case_ending(z);
756
+ if (ret == 0) goto lab3; /* call case_ending, line 190 */
757
+ if (ret < 0) return ret;
758
+ }
759
+ lab3:
760
+ z->c = z->l - m;
761
+ }
762
+ { int m = z->l - z->c; (void) m; /* do, line 191 */
763
+ { int ret = r_other_endings(z);
764
+ if (ret == 0) goto lab4; /* call other_endings, line 191 */
765
+ if (ret < 0) return ret;
766
+ }
767
+ lab4:
768
+ z->c = z->l - m;
769
+ }
770
+ { int m = z->l - z->c; (void) m; /* or, line 192 */
771
+ if (!(z->B[0])) goto lab6; /* Boolean test ending_removed, line 192 */
772
+ { int m = z->l - z->c; (void) m; /* do, line 192 */
773
+ { int ret = r_i_plural(z);
774
+ if (ret == 0) goto lab7; /* call i_plural, line 192 */
775
+ if (ret < 0) return ret;
776
+ }
777
+ lab7:
778
+ z->c = z->l - m;
779
+ }
780
+ goto lab5;
781
+ lab6:
782
+ z->c = z->l - m;
783
+ { int m = z->l - z->c; (void) m; /* do, line 192 */
784
+ { int ret = r_t_plural(z);
785
+ if (ret == 0) goto lab8; /* call t_plural, line 192 */
786
+ if (ret < 0) return ret;
787
+ }
788
+ lab8:
789
+ z->c = z->l - m;
790
+ }
791
+ }
792
+ lab5:
793
+ { int m = z->l - z->c; (void) m; /* do, line 193 */
794
+ { int ret = r_tidy(z);
795
+ if (ret == 0) goto lab9; /* call tidy, line 193 */
796
+ if (ret < 0) return ret;
797
+ }
798
+ lab9:
799
+ z->c = z->l - m;
800
+ }
801
+ z->c = z->lb;
802
+ return 1;
803
+ }
804
+
805
+ extern struct SN_env * finnish_UTF_8_create_env(void) { return SN_create_env(1, 2, 1); }
806
+
807
+ extern void finnish_UTF_8_close_env(struct SN_env * z) { SN_close_env(z); }
808
+