isomorfeus-ferret 0.12.4 → 0.12.5

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