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.
- checksums.yaml +4 -4
- data/LICENSE +612 -612
- data/README.md +80 -48
- data/ext/isomorfeus_ferret_ext/bm_hash.c +9 -6
- data/ext/isomorfeus_ferret_ext/bm_micro_string.c +4 -2
- data/ext/isomorfeus_ferret_ext/frb_store.c +34 -5
- data/ext/isomorfeus_ferret_ext/frt_posh.h +11 -19
- data/ext/isomorfeus_ferret_ext/frt_q_parser.c +1844 -1911
- data/ext/isomorfeus_ferret_ext/frt_q_phrase.c +7 -7
- data/ext/isomorfeus_ferret_ext/frt_scanner.c +1 -0
- data/ext/isomorfeus_ferret_ext/frt_scanner_mb.c +1 -0
- data/ext/isomorfeus_ferret_ext/frt_scanner_utf8.c +1 -0
- data/ext/isomorfeus_ferret_ext/frt_search.h +1 -1
- data/ext/isomorfeus_ferret_ext/libstemmer.c +14 -11
- data/ext/isomorfeus_ferret_ext/libstemmer.h +4 -9
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_basque.c +1167 -0
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_basque.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_catalan.c +1433 -0
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_catalan.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_danish.c +120 -143
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_danish.h +1 -2
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_dutch.c +217 -237
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_dutch.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_english.c +377 -432
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_english.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_finnish.c +298 -342
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_finnish.h +1 -2
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_french.c +530 -524
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_french.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_german.c +201 -214
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_german.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_hungarian.c +1 -1
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_indonesian.c +394 -0
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_indonesian.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_irish.c +457 -0
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_irish.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_italian.c +396 -439
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_italian.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_norwegian.c +104 -128
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_norwegian.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_porter.c +242 -273
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_porter.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_portuguese.c +406 -461
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_portuguese.h +1 -2
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_spanish.c +405 -456
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_spanish.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_swedish.c +108 -126
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_swedish.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_2_hungarian.c +849 -0
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_2_hungarian.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_2_romanian.c +373 -405
- data/ext/isomorfeus_ferret_ext/stem_ISO_8859_2_romanian.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_KOI8_R_russian.c +288 -305
- data/ext/isomorfeus_ferret_ext/stem_KOI8_R_russian.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_arabic.c +1651 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_arabic.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_armenian.c +546 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_armenian.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_basque.c +1171 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_basque.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_catalan.c +1436 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_catalan.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_danish.c +121 -141
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_danish.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_dutch.c +221 -241
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_dutch.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_english.c +381 -431
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_english.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_finnish.c +300 -345
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_finnish.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_french.c +518 -511
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_french.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_german.c +201 -209
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_german.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_greek.c +3660 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_greek.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_hindi.c +309 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_hindi.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_hungarian.c +306 -671
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_hungarian.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_indonesian.c +394 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_indonesian.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_irish.c +457 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_irish.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_italian.c +400 -442
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_italian.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_lithuanian.c +824 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_lithuanian.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_nepali.c +408 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_nepali.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_norwegian.c +105 -127
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_norwegian.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_porter.c +245 -276
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_porter.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_portuguese.c +409 -464
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_portuguese.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_romanian.c +376 -408
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_romanian.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_russian.c +272 -287
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_russian.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_serbian.c +6530 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_serbian.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_spanish.c +407 -458
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_spanish.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_swedish.c +110 -125
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_swedish.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_tamil.c +1865 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_tamil.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_turkish.c +698 -806
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_turkish.h +1 -1
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_yiddish.c +1220 -0
- data/ext/isomorfeus_ferret_ext/stem_UTF_8_yiddish.h +6 -0
- data/ext/isomorfeus_ferret_ext/stem_api.c +1 -9
- data/ext/isomorfeus_ferret_ext/stem_api.h +1 -3
- data/ext/isomorfeus_ferret_ext/stem_header.h +30 -26
- data/ext/isomorfeus_ferret_ext/stem_modules.h +113 -26
- data/ext/isomorfeus_ferret_ext/stem_modules.txt +18 -5
- data/ext/isomorfeus_ferret_ext/stem_utilities.c +167 -132
- data/ext/isomorfeus_ferret_ext/test.c +7 -1
- data/ext/isomorfeus_ferret_ext/test_search.c +0 -1
- data/lib/isomorfeus/ferret/version.rb +1 -1
- metadata +39 -4
- data/ext/isomorfeus_ferret_ext/q_parser.y +0 -1366
@@ -1,8 +1,9 @@
|
|
1
|
-
/*
|
1
|
+
/* Generated by Snowball 2.2.0 - https://snowballstem.org/ */
|
2
2
|
|
3
3
|
#include "stem_header.h"
|
4
4
|
|
5
5
|
extern int swedish_UTF_8_stem(struct SN_env * z);
|
6
|
+
|
6
7
|
static int r_other_suffix(struct SN_env * z);
|
7
8
|
static int r_consonant_pair(struct SN_env * z);
|
8
9
|
static int r_main_suffix(struct SN_env * z);
|
@@ -51,43 +52,43 @@ static const symbol s_0_36[3] = { 'a', 's', 't' };
|
|
51
52
|
|
52
53
|
static const struct among a_0[37] =
|
53
54
|
{
|
54
|
-
|
55
|
-
|
56
|
-
|
57
|
-
|
58
|
-
|
59
|
-
|
60
|
-
|
61
|
-
|
62
|
-
|
63
|
-
|
64
|
-
|
65
|
-
|
66
|
-
|
67
|
-
|
68
|
-
|
69
|
-
|
70
|
-
|
71
|
-
|
72
|
-
|
73
|
-
|
74
|
-
|
75
|
-
|
76
|
-
|
77
|
-
|
78
|
-
|
79
|
-
|
80
|
-
|
81
|
-
|
82
|
-
|
83
|
-
|
84
|
-
|
85
|
-
|
86
|
-
|
87
|
-
|
88
|
-
|
89
|
-
|
90
|
-
|
55
|
+
{ 1, s_0_0, -1, 1, 0},
|
56
|
+
{ 4, s_0_1, 0, 1, 0},
|
57
|
+
{ 4, s_0_2, 0, 1, 0},
|
58
|
+
{ 7, s_0_3, 2, 1, 0},
|
59
|
+
{ 4, s_0_4, 0, 1, 0},
|
60
|
+
{ 2, s_0_5, -1, 1, 0},
|
61
|
+
{ 1, s_0_6, -1, 1, 0},
|
62
|
+
{ 3, s_0_7, 6, 1, 0},
|
63
|
+
{ 4, s_0_8, 6, 1, 0},
|
64
|
+
{ 4, s_0_9, 6, 1, 0},
|
65
|
+
{ 3, s_0_10, 6, 1, 0},
|
66
|
+
{ 4, s_0_11, 6, 1, 0},
|
67
|
+
{ 2, s_0_12, -1, 1, 0},
|
68
|
+
{ 5, s_0_13, 12, 1, 0},
|
69
|
+
{ 4, s_0_14, 12, 1, 0},
|
70
|
+
{ 5, s_0_15, 12, 1, 0},
|
71
|
+
{ 3, s_0_16, -1, 1, 0},
|
72
|
+
{ 2, s_0_17, -1, 1, 0},
|
73
|
+
{ 2, s_0_18, -1, 1, 0},
|
74
|
+
{ 5, s_0_19, 18, 1, 0},
|
75
|
+
{ 2, s_0_20, -1, 1, 0},
|
76
|
+
{ 1, s_0_21, -1, 2, 0},
|
77
|
+
{ 2, s_0_22, 21, 1, 0},
|
78
|
+
{ 5, s_0_23, 22, 1, 0},
|
79
|
+
{ 5, s_0_24, 22, 1, 0},
|
80
|
+
{ 5, s_0_25, 22, 1, 0},
|
81
|
+
{ 2, s_0_26, 21, 1, 0},
|
82
|
+
{ 4, s_0_27, 26, 1, 0},
|
83
|
+
{ 5, s_0_28, 26, 1, 0},
|
84
|
+
{ 3, s_0_29, 21, 1, 0},
|
85
|
+
{ 5, s_0_30, 29, 1, 0},
|
86
|
+
{ 6, s_0_31, 29, 1, 0},
|
87
|
+
{ 4, s_0_32, 21, 1, 0},
|
88
|
+
{ 2, s_0_33, -1, 1, 0},
|
89
|
+
{ 5, s_0_34, -1, 1, 0},
|
90
|
+
{ 3, s_0_35, -1, 1, 0},
|
91
|
+
{ 3, s_0_36, -1, 1, 0}
|
91
92
|
};
|
92
93
|
|
93
94
|
static const symbol s_1_0[2] = { 'd', 'd' };
|
@@ -100,13 +101,13 @@ static const symbol s_1_6[2] = { 't', 't' };
|
|
100
101
|
|
101
102
|
static const struct among a_1[7] =
|
102
103
|
{
|
103
|
-
|
104
|
-
|
105
|
-
|
106
|
-
|
107
|
-
|
108
|
-
|
109
|
-
|
104
|
+
{ 2, s_1_0, -1, -1, 0},
|
105
|
+
{ 2, s_1_1, -1, -1, 0},
|
106
|
+
{ 2, s_1_2, -1, -1, 0},
|
107
|
+
{ 2, s_1_3, -1, -1, 0},
|
108
|
+
{ 2, s_1_4, -1, -1, 0},
|
109
|
+
{ 2, s_1_5, -1, -1, 0},
|
110
|
+
{ 2, s_1_6, -1, -1, 0}
|
110
111
|
};
|
111
112
|
|
112
113
|
static const symbol s_2_0[2] = { 'i', 'g' };
|
@@ -117,11 +118,11 @@ static const symbol s_2_4[5] = { 'l', 0xC3, 0xB6, 's', 't' };
|
|
117
118
|
|
118
119
|
static const struct among a_2[5] =
|
119
120
|
{
|
120
|
-
|
121
|
-
|
122
|
-
|
123
|
-
|
124
|
-
|
121
|
+
{ 2, s_2_0, -1, 1, 0},
|
122
|
+
{ 3, s_2_1, 0, 1, 0},
|
123
|
+
{ 3, s_2_2, -1, 1, 0},
|
124
|
+
{ 5, s_2_3, -1, 3, 0},
|
125
|
+
{ 5, s_2_4, -1, 2, 0}
|
125
126
|
};
|
126
127
|
|
127
128
|
static const unsigned char g_v[] = { 17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 0, 32 };
|
@@ -132,54 +133,51 @@ static const symbol s_0[] = { 'l', 0xC3, 0xB6, 's' };
|
|
132
133
|
static const symbol s_1[] = { 'f', 'u', 'l', 'l' };
|
133
134
|
|
134
135
|
static int r_mark_regions(struct SN_env * z) {
|
135
|
-
z->I[
|
136
|
-
{ int
|
137
|
-
{ int ret = skip_utf8(z->p, z->c,
|
136
|
+
z->I[1] = z->l;
|
137
|
+
{ int c_test1 = z->c;
|
138
|
+
{ int ret = skip_utf8(z->p, z->c, z->l, 3);
|
138
139
|
if (ret < 0) return 0;
|
139
|
-
z->c = ret;
|
140
|
+
z->c = ret;
|
140
141
|
}
|
141
|
-
z->I[
|
142
|
-
z->c =
|
142
|
+
z->I[0] = z->c;
|
143
|
+
z->c = c_test1;
|
143
144
|
}
|
144
|
-
if (out_grouping_U(z, g_v, 97, 246, 1) < 0) return 0;
|
145
|
-
{
|
145
|
+
if (out_grouping_U(z, g_v, 97, 246, 1) < 0) return 0;
|
146
|
+
{
|
146
147
|
int ret = in_grouping_U(z, g_v, 97, 246, 1);
|
147
148
|
if (ret < 0) return 0;
|
148
149
|
z->c += ret;
|
149
150
|
}
|
150
|
-
z->I[
|
151
|
-
|
152
|
-
if (!(z->I[
|
153
|
-
z->I[
|
151
|
+
z->I[1] = z->c;
|
152
|
+
|
153
|
+
if (!(z->I[1] < z->I[0])) goto lab0;
|
154
|
+
z->I[1] = z->I[0];
|
154
155
|
lab0:
|
155
156
|
return 1;
|
156
157
|
}
|
157
158
|
|
158
159
|
static int r_main_suffix(struct SN_env * z) {
|
159
160
|
int among_var;
|
160
|
-
|
161
|
-
|
162
|
-
if (z->c < z->I[
|
163
|
-
z->
|
164
|
-
|
165
|
-
z->c
|
166
|
-
|
167
|
-
if (
|
168
|
-
|
169
|
-
|
170
|
-
z->bra = z->c; /* ], line 37 */
|
171
|
-
z->lb = mlimit;
|
161
|
+
|
162
|
+
{ int mlimit1;
|
163
|
+
if (z->c < z->I[1]) return 0;
|
164
|
+
mlimit1 = z->lb; z->lb = z->I[1];
|
165
|
+
z->ket = z->c;
|
166
|
+
if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1851442 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->lb = mlimit1; return 0; }
|
167
|
+
among_var = find_among_b(z, a_0, 37);
|
168
|
+
if (!(among_var)) { z->lb = mlimit1; return 0; }
|
169
|
+
z->bra = z->c;
|
170
|
+
z->lb = mlimit1;
|
172
171
|
}
|
173
|
-
switch(among_var) {
|
174
|
-
case 0: return 0;
|
172
|
+
switch (among_var) {
|
175
173
|
case 1:
|
176
|
-
{ int ret = slice_del(z);
|
174
|
+
{ int ret = slice_del(z);
|
177
175
|
if (ret < 0) return ret;
|
178
176
|
}
|
179
177
|
break;
|
180
178
|
case 2:
|
181
179
|
if (in_grouping_b_U(z, g_s_ending, 98, 121, 0)) return 0;
|
182
|
-
{ int ret = slice_del(z);
|
180
|
+
{ int ret = slice_del(z);
|
183
181
|
if (ret < 0) return ret;
|
184
182
|
}
|
185
183
|
break;
|
@@ -188,107 +186,94 @@ static int r_main_suffix(struct SN_env * z) {
|
|
188
186
|
}
|
189
187
|
|
190
188
|
static int r_consonant_pair(struct SN_env * z) {
|
191
|
-
|
192
|
-
|
193
|
-
if (z->c < z->I[
|
194
|
-
z->
|
195
|
-
|
196
|
-
|
197
|
-
|
198
|
-
if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1064976 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->lb = mlimit; return 0; }
|
199
|
-
if (!(find_among_b(z, a_1, 7))) { z->lb = mlimit; return 0; } /* among, line 51 */
|
189
|
+
|
190
|
+
{ int mlimit1;
|
191
|
+
if (z->c < z->I[1]) return 0;
|
192
|
+
mlimit1 = z->lb; z->lb = z->I[1];
|
193
|
+
{ int m2 = z->l - z->c; (void)m2;
|
194
|
+
if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1064976 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->lb = mlimit1; return 0; }
|
195
|
+
if (!(find_among_b(z, a_1, 7))) { z->lb = mlimit1; return 0; }
|
200
196
|
z->c = z->l - m2;
|
201
|
-
z->ket = z->c;
|
202
|
-
{ int ret =
|
203
|
-
if (ret < 0) { z->lb =
|
204
|
-
z->c = ret;
|
197
|
+
z->ket = z->c;
|
198
|
+
{ int ret = skip_b_utf8(z->p, z->c, z->lb, 1);
|
199
|
+
if (ret < 0) { z->lb = mlimit1; return 0; }
|
200
|
+
z->c = ret;
|
205
201
|
}
|
206
|
-
z->bra = z->c;
|
207
|
-
{ int ret = slice_del(z);
|
202
|
+
z->bra = z->c;
|
203
|
+
{ int ret = slice_del(z);
|
208
204
|
if (ret < 0) return ret;
|
209
205
|
}
|
210
206
|
}
|
211
|
-
z->lb =
|
207
|
+
z->lb = mlimit1;
|
212
208
|
}
|
213
209
|
return 1;
|
214
210
|
}
|
215
211
|
|
216
212
|
static int r_other_suffix(struct SN_env * z) {
|
217
213
|
int among_var;
|
218
|
-
|
219
|
-
|
220
|
-
if (z->c < z->I[
|
221
|
-
z->
|
222
|
-
|
223
|
-
z->c
|
224
|
-
|
225
|
-
if (
|
226
|
-
|
227
|
-
|
228
|
-
z->bra = z->c; /* ], line 56 */
|
229
|
-
switch(among_var) {
|
230
|
-
case 0: { z->lb = mlimit; return 0; }
|
214
|
+
|
215
|
+
{ int mlimit1;
|
216
|
+
if (z->c < z->I[1]) return 0;
|
217
|
+
mlimit1 = z->lb; z->lb = z->I[1];
|
218
|
+
z->ket = z->c;
|
219
|
+
if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1572992 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->lb = mlimit1; return 0; }
|
220
|
+
among_var = find_among_b(z, a_2, 5);
|
221
|
+
if (!(among_var)) { z->lb = mlimit1; return 0; }
|
222
|
+
z->bra = z->c;
|
223
|
+
switch (among_var) {
|
231
224
|
case 1:
|
232
|
-
{ int ret = slice_del(z);
|
225
|
+
{ int ret = slice_del(z);
|
233
226
|
if (ret < 0) return ret;
|
234
227
|
}
|
235
228
|
break;
|
236
229
|
case 2:
|
237
|
-
{ int ret = slice_from_s(z, 4, s_0);
|
230
|
+
{ int ret = slice_from_s(z, 4, s_0);
|
238
231
|
if (ret < 0) return ret;
|
239
232
|
}
|
240
233
|
break;
|
241
234
|
case 3:
|
242
|
-
{ int ret = slice_from_s(z, 4, s_1);
|
235
|
+
{ int ret = slice_from_s(z, 4, s_1);
|
243
236
|
if (ret < 0) return ret;
|
244
237
|
}
|
245
238
|
break;
|
246
239
|
}
|
247
|
-
z->lb =
|
240
|
+
z->lb = mlimit1;
|
248
241
|
}
|
249
242
|
return 1;
|
250
243
|
}
|
251
244
|
|
252
245
|
extern int swedish_UTF_8_stem(struct SN_env * z) {
|
253
|
-
{ int c1 = z->c;
|
246
|
+
{ int c1 = z->c;
|
254
247
|
{ int ret = r_mark_regions(z);
|
255
|
-
if (ret == 0) goto lab0; /* call mark_regions, line 66 */
|
256
248
|
if (ret < 0) return ret;
|
257
249
|
}
|
258
|
-
lab0:
|
259
250
|
z->c = c1;
|
260
251
|
}
|
261
|
-
z->lb = z->c; z->c = z->l;
|
252
|
+
z->lb = z->c; z->c = z->l;
|
262
253
|
|
263
|
-
{ int m2 = z->l - z->c; (void)m2;
|
254
|
+
{ int m2 = z->l - z->c; (void)m2;
|
264
255
|
{ int ret = r_main_suffix(z);
|
265
|
-
if (ret == 0) goto lab1; /* call main_suffix, line 68 */
|
266
256
|
if (ret < 0) return ret;
|
267
257
|
}
|
268
|
-
lab1:
|
269
258
|
z->c = z->l - m2;
|
270
259
|
}
|
271
|
-
{ int m3 = z->l - z->c; (void)m3;
|
260
|
+
{ int m3 = z->l - z->c; (void)m3;
|
272
261
|
{ int ret = r_consonant_pair(z);
|
273
|
-
if (ret == 0) goto lab2; /* call consonant_pair, line 69 */
|
274
262
|
if (ret < 0) return ret;
|
275
263
|
}
|
276
|
-
lab2:
|
277
264
|
z->c = z->l - m3;
|
278
265
|
}
|
279
|
-
{ int m4 = z->l - z->c; (void)m4;
|
266
|
+
{ int m4 = z->l - z->c; (void)m4;
|
280
267
|
{ int ret = r_other_suffix(z);
|
281
|
-
if (ret == 0) goto lab3; /* call other_suffix, line 70 */
|
282
268
|
if (ret < 0) return ret;
|
283
269
|
}
|
284
|
-
lab3:
|
285
270
|
z->c = z->l - m4;
|
286
271
|
}
|
287
272
|
z->c = z->lb;
|
288
273
|
return 1;
|
289
274
|
}
|
290
275
|
|
291
|
-
extern struct SN_env * swedish_UTF_8_create_env(void) { return SN_create_env(0, 2
|
276
|
+
extern struct SN_env * swedish_UTF_8_create_env(void) { return SN_create_env(0, 2); }
|
292
277
|
|
293
278
|
extern void swedish_UTF_8_close_env(struct SN_env * z) { SN_close_env(z, 0); }
|
294
279
|
|