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 * german_UTF_8_create_env(void);
9
+ extern void german_UTF_8_close_env(struct SN_env * z);
10
+
11
+ extern int german_UTF_8_stem(struct SN_env * z);
12
+
13
+ #ifdef __cplusplus
14
+ }
15
+ #endif
16
+
@@ -0,0 +1,1113 @@
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
+