ruby-stemmer-dimelo 0.9.3.dimelo1
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- checksums.yaml +7 -0
- data/MIT-LICENSE +21 -0
- data/README.rdoc +117 -0
- data/Rakefile +70 -0
- data/VERSION +1 -0
- data/ext/lingua/extconf.rb +40 -0
- data/ext/lingua/stemmer.c +115 -0
- data/lib/lingua/stemmer.rb +60 -0
- data/libstemmer_c/MANIFEST +72 -0
- data/libstemmer_c/Makefile +9 -0
- data/libstemmer_c/Makefile.windows +15 -0
- data/libstemmer_c/README +125 -0
- data/libstemmer_c/examples/stemwords.c +209 -0
- data/libstemmer_c/include/libstemmer.h +79 -0
- data/libstemmer_c/libstemmer/libstemmer.c +93 -0
- data/libstemmer_c/libstemmer/libstemmer_utf8.c +93 -0
- data/libstemmer_c/libstemmer/modules.h +195 -0
- data/libstemmer_c/libstemmer/modules.txt +51 -0
- data/libstemmer_c/libstemmer/modules_utf8.h +123 -0
- data/libstemmer_c/libstemmer/modules_utf8.txt +50 -0
- data/libstemmer_c/mkinc.mak +86 -0
- data/libstemmer_c/mkinc_utf8.mak +54 -0
- data/libstemmer_c/runtime/api.c +66 -0
- data/libstemmer_c/runtime/api.h +26 -0
- data/libstemmer_c/runtime/header.h +58 -0
- data/libstemmer_c/runtime/utilities.c +478 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_danish.c +337 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_danish.h +16 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_dutch.c +624 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_dutch.h +16 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_english.c +1117 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_english.h +16 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_finnish.c +762 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_finnish.h +16 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_french.c +1230 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_french.h +16 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_german.c +503 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_german.h +16 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_hungarian.c +1230 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_hungarian.h +16 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_italian.c +1065 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_italian.h +16 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_latin.c +443 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_latin.h +16 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_norwegian.c +297 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_norwegian.h +16 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_porter.c +749 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_porter.h +16 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_portuguese.c +1017 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_portuguese.h +16 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_spanish.c +1093 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_spanish.h +16 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_swedish.c +307 -0
- data/libstemmer_c/src_c/stem_ISO_8859_1_swedish.h +16 -0
- data/libstemmer_c/src_c/stem_ISO_8859_2_romanian.c +998 -0
- data/libstemmer_c/src_c/stem_ISO_8859_2_romanian.h +16 -0
- data/libstemmer_c/src_c/stem_KOI8_R_russian.c +700 -0
- data/libstemmer_c/src_c/stem_KOI8_R_russian.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_danish.c +339 -0
- data/libstemmer_c/src_c/stem_UTF_8_danish.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_dutch.c +634 -0
- data/libstemmer_c/src_c/stem_UTF_8_dutch.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_english.c +1125 -0
- data/libstemmer_c/src_c/stem_UTF_8_english.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_finnish.c +768 -0
- data/libstemmer_c/src_c/stem_UTF_8_finnish.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_french.c +1230 -0
- data/libstemmer_c/src_c/stem_UTF_8_french.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_german.c +509 -0
- data/libstemmer_c/src_c/stem_UTF_8_german.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_hungarian.c +1234 -0
- data/libstemmer_c/src_c/stem_UTF_8_hungarian.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_italian.c +1073 -0
- data/libstemmer_c/src_c/stem_UTF_8_italian.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_latin.c +443 -0
- data/libstemmer_c/src_c/stem_UTF_8_latin.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_norwegian.c +299 -0
- data/libstemmer_c/src_c/stem_UTF_8_norwegian.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_porter.c +755 -0
- data/libstemmer_c/src_c/stem_UTF_8_porter.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_portuguese.c +1023 -0
- data/libstemmer_c/src_c/stem_UTF_8_portuguese.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_romanian.c +1004 -0
- data/libstemmer_c/src_c/stem_UTF_8_romanian.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_russian.c +694 -0
- data/libstemmer_c/src_c/stem_UTF_8_russian.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_spanish.c +1097 -0
- data/libstemmer_c/src_c/stem_UTF_8_spanish.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_swedish.c +309 -0
- data/libstemmer_c/src_c/stem_UTF_8_swedish.h +16 -0
- data/libstemmer_c/src_c/stem_UTF_8_turkish.c +2205 -0
- data/libstemmer_c/src_c/stem_UTF_8_turkish.h +16 -0
- data/test/helper.rb +3 -0
- data/test/lingua/test_stemmer.rb +99 -0
- metadata +141 -0
@@ -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 * finnish_ISO_8859_1_create_env(void);
|
9
|
+
extern void finnish_ISO_8859_1_close_env(struct SN_env * z);
|
10
|
+
|
11
|
+
extern int finnish_ISO_8859_1_stem(struct SN_env * z);
|
12
|
+
|
13
|
+
#ifdef __cplusplus
|
14
|
+
}
|
15
|
+
#endif
|
16
|
+
|
@@ -0,0 +1,1230 @@
|
|
1
|
+
|
2
|
+
/* This file was generated automatically by the Snowball to ANSI C compiler */
|
3
|
+
|
4
|
+
#include "../runtime/header.h"
|
5
|
+
|
6
|
+
#ifdef __cplusplus
|
7
|
+
extern "C" {
|
8
|
+
#endif
|
9
|
+
extern int french_ISO_8859_1_stem(struct SN_env * z);
|
10
|
+
#ifdef __cplusplus
|
11
|
+
}
|
12
|
+
#endif
|
13
|
+
static int r_un_accent(struct SN_env * z);
|
14
|
+
static int r_un_double(struct SN_env * z);
|
15
|
+
static int r_residual_suffix(struct SN_env * z);
|
16
|
+
static int r_verb_suffix(struct SN_env * z);
|
17
|
+
static int r_i_verb_suffix(struct SN_env * z);
|
18
|
+
static int r_standard_suffix(struct SN_env * z);
|
19
|
+
static int r_R2(struct SN_env * z);
|
20
|
+
static int r_R1(struct SN_env * z);
|
21
|
+
static int r_RV(struct SN_env * z);
|
22
|
+
static int r_mark_regions(struct SN_env * z);
|
23
|
+
static int r_postlude(struct SN_env * z);
|
24
|
+
static int r_prelude(struct SN_env * z);
|
25
|
+
#ifdef __cplusplus
|
26
|
+
extern "C" {
|
27
|
+
#endif
|
28
|
+
|
29
|
+
|
30
|
+
extern struct SN_env * french_ISO_8859_1_create_env(void);
|
31
|
+
extern void french_ISO_8859_1_close_env(struct SN_env * z);
|
32
|
+
|
33
|
+
|
34
|
+
#ifdef __cplusplus
|
35
|
+
}
|
36
|
+
#endif
|
37
|
+
static const symbol s_0_0[3] = { 'c', 'o', 'l' };
|
38
|
+
static const symbol s_0_1[3] = { 'p', 'a', 'r' };
|
39
|
+
static const symbol s_0_2[3] = { 't', 'a', 'p' };
|
40
|
+
|
41
|
+
static const struct among a_0[3] =
|
42
|
+
{
|
43
|
+
/* 0 */ { 3, s_0_0, -1, -1, 0},
|
44
|
+
/* 1 */ { 3, s_0_1, -1, -1, 0},
|
45
|
+
/* 2 */ { 3, s_0_2, -1, -1, 0}
|
46
|
+
};
|
47
|
+
|
48
|
+
static const symbol s_1_1[1] = { 'I' };
|
49
|
+
static const symbol s_1_2[1] = { 'U' };
|
50
|
+
static const symbol s_1_3[1] = { 'Y' };
|
51
|
+
|
52
|
+
static const struct among a_1[4] =
|
53
|
+
{
|
54
|
+
/* 0 */ { 0, 0, -1, 4, 0},
|
55
|
+
/* 1 */ { 1, s_1_1, 0, 1, 0},
|
56
|
+
/* 2 */ { 1, s_1_2, 0, 2, 0},
|
57
|
+
/* 3 */ { 1, s_1_3, 0, 3, 0}
|
58
|
+
};
|
59
|
+
|
60
|
+
static const symbol s_2_0[3] = { 'i', 'q', 'U' };
|
61
|
+
static const symbol s_2_1[3] = { 'a', 'b', 'l' };
|
62
|
+
static const symbol s_2_2[3] = { 'I', 'e', 'r' };
|
63
|
+
static const symbol s_2_3[3] = { 'i', 'e', 'r' };
|
64
|
+
static const symbol s_2_4[3] = { 'e', 'u', 's' };
|
65
|
+
static const symbol s_2_5[2] = { 'i', 'v' };
|
66
|
+
|
67
|
+
static const struct among a_2[6] =
|
68
|
+
{
|
69
|
+
/* 0 */ { 3, s_2_0, -1, 3, 0},
|
70
|
+
/* 1 */ { 3, s_2_1, -1, 3, 0},
|
71
|
+
/* 2 */ { 3, s_2_2, -1, 4, 0},
|
72
|
+
/* 3 */ { 3, s_2_3, -1, 4, 0},
|
73
|
+
/* 4 */ { 3, s_2_4, -1, 2, 0},
|
74
|
+
/* 5 */ { 2, s_2_5, -1, 1, 0}
|
75
|
+
};
|
76
|
+
|
77
|
+
static const symbol s_3_0[2] = { 'i', 'c' };
|
78
|
+
static const symbol s_3_1[4] = { 'a', 'b', 'i', 'l' };
|
79
|
+
static const symbol s_3_2[2] = { 'i', 'v' };
|
80
|
+
|
81
|
+
static const struct among a_3[3] =
|
82
|
+
{
|
83
|
+
/* 0 */ { 2, s_3_0, -1, 2, 0},
|
84
|
+
/* 1 */ { 4, s_3_1, -1, 1, 0},
|
85
|
+
/* 2 */ { 2, s_3_2, -1, 3, 0}
|
86
|
+
};
|
87
|
+
|
88
|
+
static const symbol s_4_0[4] = { 'i', 'q', 'U', 'e' };
|
89
|
+
static const symbol s_4_1[6] = { 'a', 't', 'r', 'i', 'c', 'e' };
|
90
|
+
static const symbol s_4_2[4] = { 'a', 'n', 'c', 'e' };
|
91
|
+
static const symbol s_4_3[4] = { 'e', 'n', 'c', 'e' };
|
92
|
+
static const symbol s_4_4[5] = { 'l', 'o', 'g', 'i', 'e' };
|
93
|
+
static const symbol s_4_5[4] = { 'a', 'b', 'l', 'e' };
|
94
|
+
static const symbol s_4_6[4] = { 'i', 's', 'm', 'e' };
|
95
|
+
static const symbol s_4_7[4] = { 'e', 'u', 's', 'e' };
|
96
|
+
static const symbol s_4_8[3] = { 'i', 't', 'e' };
|
97
|
+
static const symbol s_4_9[4] = { 'i', 's', 't', 'e' };
|
98
|
+
static const symbol s_4_10[3] = { 'i', 'v', 'e' };
|
99
|
+
static const symbol s_4_11[2] = { 'i', 'f' };
|
100
|
+
static const symbol s_4_12[5] = { 'u', 's', 'i', 'o', 'n' };
|
101
|
+
static const symbol s_4_13[5] = { 'a', 't', 'i', 'o', 'n' };
|
102
|
+
static const symbol s_4_14[5] = { 'u', 't', 'i', 'o', 'n' };
|
103
|
+
static const symbol s_4_15[5] = { 'a', 't', 'e', 'u', 'r' };
|
104
|
+
static const symbol s_4_16[5] = { 'i', 'q', 'U', 'e', 's' };
|
105
|
+
static const symbol s_4_17[7] = { 'a', 't', 'r', 'i', 'c', 'e', 's' };
|
106
|
+
static const symbol s_4_18[5] = { 'a', 'n', 'c', 'e', 's' };
|
107
|
+
static const symbol s_4_19[5] = { 'e', 'n', 'c', 'e', 's' };
|
108
|
+
static const symbol s_4_20[6] = { 'l', 'o', 'g', 'i', 'e', 's' };
|
109
|
+
static const symbol s_4_21[5] = { 'a', 'b', 'l', 'e', 's' };
|
110
|
+
static const symbol s_4_22[5] = { 'i', 's', 'm', 'e', 's' };
|
111
|
+
static const symbol s_4_23[5] = { 'e', 'u', 's', 'e', 's' };
|
112
|
+
static const symbol s_4_24[4] = { 'i', 't', 'e', 's' };
|
113
|
+
static const symbol s_4_25[5] = { 'i', 's', 't', 'e', 's' };
|
114
|
+
static const symbol s_4_26[4] = { 'i', 'v', 'e', 's' };
|
115
|
+
static const symbol s_4_27[3] = { 'i', 'f', 's' };
|
116
|
+
static const symbol s_4_28[6] = { 'u', 's', 'i', 'o', 'n', 's' };
|
117
|
+
static const symbol s_4_29[6] = { 'a', 't', 'i', 'o', 'n', 's' };
|
118
|
+
static const symbol s_4_30[6] = { 'u', 't', 'i', 'o', 'n', 's' };
|
119
|
+
static const symbol s_4_31[6] = { 'a', 't', 'e', 'u', 'r', 's' };
|
120
|
+
static const symbol s_4_32[5] = { 'm', 'e', 'n', 't', 's' };
|
121
|
+
static const symbol s_4_33[6] = { 'e', 'm', 'e', 'n', 't', 's' };
|
122
|
+
static const symbol s_4_34[9] = { 'i', 's', 's', 'e', 'm', 'e', 'n', 't', 's' };
|
123
|
+
static const symbol s_4_35[4] = { 'm', 'e', 'n', 't' };
|
124
|
+
static const symbol s_4_36[5] = { 'e', 'm', 'e', 'n', 't' };
|
125
|
+
static const symbol s_4_37[8] = { 'i', 's', 's', 'e', 'm', 'e', 'n', 't' };
|
126
|
+
static const symbol s_4_38[6] = { 'a', 'm', 'm', 'e', 'n', 't' };
|
127
|
+
static const symbol s_4_39[6] = { 'e', 'm', 'm', 'e', 'n', 't' };
|
128
|
+
static const symbol s_4_40[3] = { 'a', 'u', 'x' };
|
129
|
+
static const symbol s_4_41[4] = { 'e', 'a', 'u', 'x' };
|
130
|
+
static const symbol s_4_42[3] = { 'e', 'u', 'x' };
|
131
|
+
|
132
|
+
static const struct among a_4[43] =
|
133
|
+
{
|
134
|
+
/* 0 */ { 4, s_4_0, -1, 1, 0},
|
135
|
+
/* 1 */ { 6, s_4_1, -1, 2, 0},
|
136
|
+
/* 2 */ { 4, s_4_2, -1, 1, 0},
|
137
|
+
/* 3 */ { 4, s_4_3, -1, 5, 0},
|
138
|
+
/* 4 */ { 5, s_4_4, -1, 3, 0},
|
139
|
+
/* 5 */ { 4, s_4_5, -1, 1, 0},
|
140
|
+
/* 6 */ { 4, s_4_6, -1, 1, 0},
|
141
|
+
/* 7 */ { 4, s_4_7, -1, 11, 0},
|
142
|
+
/* 8 */ { 3, s_4_8, -1, 7, 0},
|
143
|
+
/* 9 */ { 4, s_4_9, -1, 1, 0},
|
144
|
+
/* 10 */ { 3, s_4_10, -1, 8, 0},
|
145
|
+
/* 11 */ { 2, s_4_11, -1, 8, 0},
|
146
|
+
/* 12 */ { 5, s_4_12, -1, 4, 0},
|
147
|
+
/* 13 */ { 5, s_4_13, -1, 2, 0},
|
148
|
+
/* 14 */ { 5, s_4_14, -1, 4, 0},
|
149
|
+
/* 15 */ { 5, s_4_15, -1, 2, 0},
|
150
|
+
/* 16 */ { 5, s_4_16, -1, 1, 0},
|
151
|
+
/* 17 */ { 7, s_4_17, -1, 2, 0},
|
152
|
+
/* 18 */ { 5, s_4_18, -1, 1, 0},
|
153
|
+
/* 19 */ { 5, s_4_19, -1, 5, 0},
|
154
|
+
/* 20 */ { 6, s_4_20, -1, 3, 0},
|
155
|
+
/* 21 */ { 5, s_4_21, -1, 1, 0},
|
156
|
+
/* 22 */ { 5, s_4_22, -1, 1, 0},
|
157
|
+
/* 23 */ { 5, s_4_23, -1, 11, 0},
|
158
|
+
/* 24 */ { 4, s_4_24, -1, 7, 0},
|
159
|
+
/* 25 */ { 5, s_4_25, -1, 1, 0},
|
160
|
+
/* 26 */ { 4, s_4_26, -1, 8, 0},
|
161
|
+
/* 27 */ { 3, s_4_27, -1, 8, 0},
|
162
|
+
/* 28 */ { 6, s_4_28, -1, 4, 0},
|
163
|
+
/* 29 */ { 6, s_4_29, -1, 2, 0},
|
164
|
+
/* 30 */ { 6, s_4_30, -1, 4, 0},
|
165
|
+
/* 31 */ { 6, s_4_31, -1, 2, 0},
|
166
|
+
/* 32 */ { 5, s_4_32, -1, 15, 0},
|
167
|
+
/* 33 */ { 6, s_4_33, 32, 6, 0},
|
168
|
+
/* 34 */ { 9, s_4_34, 33, 12, 0},
|
169
|
+
/* 35 */ { 4, s_4_35, -1, 15, 0},
|
170
|
+
/* 36 */ { 5, s_4_36, 35, 6, 0},
|
171
|
+
/* 37 */ { 8, s_4_37, 36, 12, 0},
|
172
|
+
/* 38 */ { 6, s_4_38, 35, 13, 0},
|
173
|
+
/* 39 */ { 6, s_4_39, 35, 14, 0},
|
174
|
+
/* 40 */ { 3, s_4_40, -1, 10, 0},
|
175
|
+
/* 41 */ { 4, s_4_41, 40, 9, 0},
|
176
|
+
/* 42 */ { 3, s_4_42, -1, 1, 0}
|
177
|
+
};
|
178
|
+
|
179
|
+
static const symbol s_5_0[3] = { 'i', 'r', 'a' };
|
180
|
+
static const symbol s_5_1[2] = { 'i', 'e' };
|
181
|
+
static const symbol s_5_2[4] = { 'i', 's', 's', 'e' };
|
182
|
+
static const symbol s_5_3[7] = { 'i', 's', 's', 'a', 'n', 't', 'e' };
|
183
|
+
static const symbol s_5_4[1] = { 'i' };
|
184
|
+
static const symbol s_5_5[4] = { 'i', 'r', 'a', 'i' };
|
185
|
+
static const symbol s_5_6[2] = { 'i', 'r' };
|
186
|
+
static const symbol s_5_7[4] = { 'i', 'r', 'a', 's' };
|
187
|
+
static const symbol s_5_8[3] = { 'i', 'e', 's' };
|
188
|
+
static const symbol s_5_9[4] = { 'i', 'm', 'e', 's' };
|
189
|
+
static const symbol s_5_10[5] = { 'i', 's', 's', 'e', 's' };
|
190
|
+
static const symbol s_5_11[4] = { 'i', 't', 'e', 's' };
|
191
|
+
static const symbol s_5_12[8] = { 'i', 's', 's', 'a', 'n', 't', 'e', 's' };
|
192
|
+
static const symbol s_5_13[2] = { 'i', 's' };
|
193
|
+
static const symbol s_5_14[5] = { 'i', 'r', 'a', 'i', 's' };
|
194
|
+
static const symbol s_5_15[6] = { 'i', 's', 's', 'a', 'i', 's' };
|
195
|
+
static const symbol s_5_16[6] = { 'i', 'r', 'i', 'o', 'n', 's' };
|
196
|
+
static const symbol s_5_17[7] = { 'i', 's', 's', 'i', 'o', 'n', 's' };
|
197
|
+
static const symbol s_5_18[5] = { 'i', 'r', 'o', 'n', 's' };
|
198
|
+
static const symbol s_5_19[6] = { 'i', 's', 's', 'o', 'n', 's' };
|
199
|
+
static const symbol s_5_20[7] = { 'i', 's', 's', 'a', 'n', 't', 's' };
|
200
|
+
static const symbol s_5_21[2] = { 'i', 't' };
|
201
|
+
static const symbol s_5_22[5] = { 'i', 'r', 'a', 'i', 't' };
|
202
|
+
static const symbol s_5_23[6] = { 'i', 's', 's', 'a', 'i', 't' };
|
203
|
+
static const symbol s_5_24[6] = { 'i', 's', 's', 'a', 'n', 't' };
|
204
|
+
static const symbol s_5_25[7] = { 'i', 'r', 'a', 'I', 'e', 'n', 't' };
|
205
|
+
static const symbol s_5_26[8] = { 'i', 's', 's', 'a', 'I', 'e', 'n', 't' };
|
206
|
+
static const symbol s_5_27[5] = { 'i', 'r', 'e', 'n', 't' };
|
207
|
+
static const symbol s_5_28[6] = { 'i', 's', 's', 'e', 'n', 't' };
|
208
|
+
static const symbol s_5_29[5] = { 'i', 'r', 'o', 'n', 't' };
|
209
|
+
static const symbol s_5_30[5] = { 'i', 'r', 'i', 'e', 'z' };
|
210
|
+
static const symbol s_5_31[6] = { 'i', 's', 's', 'i', 'e', 'z' };
|
211
|
+
static const symbol s_5_32[4] = { 'i', 'r', 'e', 'z' };
|
212
|
+
static const symbol s_5_33[5] = { 'i', 's', 's', 'e', 'z' };
|
213
|
+
|
214
|
+
static const struct among a_5[34] =
|
215
|
+
{
|
216
|
+
/* 0 */ { 3, s_5_0, -1, 1, 0},
|
217
|
+
/* 1 */ { 2, s_5_1, -1, 1, 0},
|
218
|
+
/* 2 */ { 4, s_5_2, -1, 1, 0},
|
219
|
+
/* 3 */ { 7, s_5_3, -1, 1, 0},
|
220
|
+
/* 4 */ { 1, s_5_4, -1, 1, 0},
|
221
|
+
/* 5 */ { 4, s_5_5, 4, 1, 0},
|
222
|
+
/* 6 */ { 2, s_5_6, -1, 1, 0},
|
223
|
+
/* 7 */ { 4, s_5_7, -1, 1, 0},
|
224
|
+
/* 8 */ { 3, s_5_8, -1, 1, 0},
|
225
|
+
/* 9 */ { 4, s_5_9, -1, 1, 0},
|
226
|
+
/* 10 */ { 5, s_5_10, -1, 1, 0},
|
227
|
+
/* 11 */ { 4, s_5_11, -1, 1, 0},
|
228
|
+
/* 12 */ { 8, s_5_12, -1, 1, 0},
|
229
|
+
/* 13 */ { 2, s_5_13, -1, 1, 0},
|
230
|
+
/* 14 */ { 5, s_5_14, 13, 1, 0},
|
231
|
+
/* 15 */ { 6, s_5_15, 13, 1, 0},
|
232
|
+
/* 16 */ { 6, s_5_16, -1, 1, 0},
|
233
|
+
/* 17 */ { 7, s_5_17, -1, 1, 0},
|
234
|
+
/* 18 */ { 5, s_5_18, -1, 1, 0},
|
235
|
+
/* 19 */ { 6, s_5_19, -1, 1, 0},
|
236
|
+
/* 20 */ { 7, s_5_20, -1, 1, 0},
|
237
|
+
/* 21 */ { 2, s_5_21, -1, 1, 0},
|
238
|
+
/* 22 */ { 5, s_5_22, 21, 1, 0},
|
239
|
+
/* 23 */ { 6, s_5_23, 21, 1, 0},
|
240
|
+
/* 24 */ { 6, s_5_24, -1, 1, 0},
|
241
|
+
/* 25 */ { 7, s_5_25, -1, 1, 0},
|
242
|
+
/* 26 */ { 8, s_5_26, -1, 1, 0},
|
243
|
+
/* 27 */ { 5, s_5_27, -1, 1, 0},
|
244
|
+
/* 28 */ { 6, s_5_28, -1, 1, 0},
|
245
|
+
/* 29 */ { 5, s_5_29, -1, 1, 0},
|
246
|
+
/* 30 */ { 5, s_5_30, -1, 1, 0},
|
247
|
+
/* 31 */ { 6, s_5_31, -1, 1, 0},
|
248
|
+
/* 32 */ { 4, s_5_32, -1, 1, 0},
|
249
|
+
/* 33 */ { 5, s_5_33, -1, 1, 0}
|
250
|
+
};
|
251
|
+
|
252
|
+
static const symbol s_6_0[1] = { 'a' };
|
253
|
+
static const symbol s_6_1[3] = { 'e', 'r', 'a' };
|
254
|
+
static const symbol s_6_2[1] = { 'e' };
|
255
|
+
static const symbol s_6_3[2] = { 'e', 'e' };
|
256
|
+
static const symbol s_6_4[4] = { 'a', 's', 's', 'e' };
|
257
|
+
static const symbol s_6_5[4] = { 'a', 'n', 't', 'e' };
|
258
|
+
static const symbol s_6_6[2] = { 'a', 'i' };
|
259
|
+
static const symbol s_6_7[4] = { 'e', 'r', 'a', 'i' };
|
260
|
+
static const symbol s_6_8[2] = { 'e', 'r' };
|
261
|
+
static const symbol s_6_9[2] = { 'a', 's' };
|
262
|
+
static const symbol s_6_10[4] = { 'e', 'r', 'a', 's' };
|
263
|
+
static const symbol s_6_11[2] = { 'e', 's' };
|
264
|
+
static const symbol s_6_12[3] = { 'e', 'e', 's' };
|
265
|
+
static const symbol s_6_13[4] = { 'a', 'm', 'e', 's' };
|
266
|
+
static const symbol s_6_14[5] = { 'a', 's', 's', 'e', 's' };
|
267
|
+
static const symbol s_6_15[4] = { 'a', 't', 'e', 's' };
|
268
|
+
static const symbol s_6_16[5] = { 'a', 'n', 't', 'e', 's' };
|
269
|
+
static const symbol s_6_17[3] = { 'a', 'i', 's' };
|
270
|
+
static const symbol s_6_18[5] = { 'e', 'r', 'a', 'i', 's' };
|
271
|
+
static const symbol s_6_19[4] = { 'i', 'o', 'n', 's' };
|
272
|
+
static const symbol s_6_20[6] = { 'e', 'r', 'i', 'o', 'n', 's' };
|
273
|
+
static const symbol s_6_21[7] = { 'a', 's', 's', 'i', 'o', 'n', 's' };
|
274
|
+
static const symbol s_6_22[5] = { 'e', 'r', 'o', 'n', 's' };
|
275
|
+
static const symbol s_6_23[4] = { 'a', 'n', 't', 's' };
|
276
|
+
static const symbol s_6_24[2] = { 'a', 't' };
|
277
|
+
static const symbol s_6_25[3] = { 'a', 'i', 't' };
|
278
|
+
static const symbol s_6_26[5] = { 'e', 'r', 'a', 'i', 't' };
|
279
|
+
static const symbol s_6_27[3] = { 'a', 'n', 't' };
|
280
|
+
static const symbol s_6_28[5] = { 'a', 'I', 'e', 'n', 't' };
|
281
|
+
static const symbol s_6_29[7] = { 'e', 'r', 'a', 'I', 'e', 'n', 't' };
|
282
|
+
static const symbol s_6_30[5] = { 'e', 'r', 'e', 'n', 't' };
|
283
|
+
static const symbol s_6_31[6] = { 'a', 's', 's', 'e', 'n', 't' };
|
284
|
+
static const symbol s_6_32[5] = { 'e', 'r', 'o', 'n', 't' };
|
285
|
+
static const symbol s_6_33[2] = { 'e', 'z' };
|
286
|
+
static const symbol s_6_34[3] = { 'i', 'e', 'z' };
|
287
|
+
static const symbol s_6_35[5] = { 'e', 'r', 'i', 'e', 'z' };
|
288
|
+
static const symbol s_6_36[6] = { 'a', 's', 's', 'i', 'e', 'z' };
|
289
|
+
static const symbol s_6_37[4] = { 'e', 'r', 'e', 'z' };
|
290
|
+
|
291
|
+
static const struct among a_6[38] =
|
292
|
+
{
|
293
|
+
/* 0 */ { 1, s_6_0, -1, 3, 0},
|
294
|
+
/* 1 */ { 3, s_6_1, 0, 2, 0},
|
295
|
+
/* 2 */ { 1, s_6_2, -1, 2, 0},
|
296
|
+
/* 3 */ { 2, s_6_3, 2, 2, 0},
|
297
|
+
/* 4 */ { 4, s_6_4, 2, 3, 0},
|
298
|
+
/* 5 */ { 4, s_6_5, 2, 3, 0},
|
299
|
+
/* 6 */ { 2, s_6_6, -1, 3, 0},
|
300
|
+
/* 7 */ { 4, s_6_7, 6, 2, 0},
|
301
|
+
/* 8 */ { 2, s_6_8, -1, 2, 0},
|
302
|
+
/* 9 */ { 2, s_6_9, -1, 3, 0},
|
303
|
+
/* 10 */ { 4, s_6_10, 9, 2, 0},
|
304
|
+
/* 11 */ { 2, s_6_11, -1, 2, 0},
|
305
|
+
/* 12 */ { 3, s_6_12, 11, 2, 0},
|
306
|
+
/* 13 */ { 4, s_6_13, 11, 3, 0},
|
307
|
+
/* 14 */ { 5, s_6_14, 11, 3, 0},
|
308
|
+
/* 15 */ { 4, s_6_15, 11, 3, 0},
|
309
|
+
/* 16 */ { 5, s_6_16, 11, 3, 0},
|
310
|
+
/* 17 */ { 3, s_6_17, -1, 3, 0},
|
311
|
+
/* 18 */ { 5, s_6_18, 17, 2, 0},
|
312
|
+
/* 19 */ { 4, s_6_19, -1, 1, 0},
|
313
|
+
/* 20 */ { 6, s_6_20, 19, 2, 0},
|
314
|
+
/* 21 */ { 7, s_6_21, 19, 3, 0},
|
315
|
+
/* 22 */ { 5, s_6_22, -1, 2, 0},
|
316
|
+
/* 23 */ { 4, s_6_23, -1, 3, 0},
|
317
|
+
/* 24 */ { 2, s_6_24, -1, 3, 0},
|
318
|
+
/* 25 */ { 3, s_6_25, -1, 3, 0},
|
319
|
+
/* 26 */ { 5, s_6_26, 25, 2, 0},
|
320
|
+
/* 27 */ { 3, s_6_27, -1, 3, 0},
|
321
|
+
/* 28 */ { 5, s_6_28, -1, 3, 0},
|
322
|
+
/* 29 */ { 7, s_6_29, 28, 2, 0},
|
323
|
+
/* 30 */ { 5, s_6_30, -1, 2, 0},
|
324
|
+
/* 31 */ { 6, s_6_31, -1, 3, 0},
|
325
|
+
/* 32 */ { 5, s_6_32, -1, 2, 0},
|
326
|
+
/* 33 */ { 2, s_6_33, -1, 2, 0},
|
327
|
+
/* 34 */ { 3, s_6_34, 33, 2, 0},
|
328
|
+
/* 35 */ { 5, s_6_35, 34, 2, 0},
|
329
|
+
/* 36 */ { 6, s_6_36, 34, 3, 0},
|
330
|
+
/* 37 */ { 4, s_6_37, 33, 2, 0}
|
331
|
+
};
|
332
|
+
|
333
|
+
static const symbol s_7_0[1] = { 'e' };
|
334
|
+
static const symbol s_7_1[4] = { 'I', 'e', 'r', 'e' };
|
335
|
+
static const symbol s_7_2[4] = { 'i', 'e', 'r', 'e' };
|
336
|
+
static const symbol s_7_3[3] = { 'i', 'o', 'n' };
|
337
|
+
static const symbol s_7_4[3] = { 'I', 'e', 'r' };
|
338
|
+
static const symbol s_7_5[3] = { 'i', 'e', 'r' };
|
339
|
+
|
340
|
+
static const struct among a_7[6] =
|
341
|
+
{
|
342
|
+
/* 0 */ { 1, s_7_0, -1, 3, 0},
|
343
|
+
/* 1 */ { 4, s_7_1, 0, 2, 0},
|
344
|
+
/* 2 */ { 4, s_7_2, 0, 2, 0},
|
345
|
+
/* 3 */ { 3, s_7_3, -1, 1, 0},
|
346
|
+
/* 4 */ { 3, s_7_4, -1, 2, 0},
|
347
|
+
/* 5 */ { 3, s_7_5, -1, 2, 0}
|
348
|
+
};
|
349
|
+
|
350
|
+
static const symbol s_8_0[3] = { 'e', 'l', 'l' };
|
351
|
+
static const symbol s_8_1[4] = { 'e', 'i', 'l', 'l' };
|
352
|
+
static const symbol s_8_2[3] = { 'e', 'n', 'n' };
|
353
|
+
static const symbol s_8_3[3] = { 'o', 'n', 'n' };
|
354
|
+
static const symbol s_8_4[3] = { 'e', 't', 't' };
|
355
|
+
|
356
|
+
static const struct among a_8[5] =
|
357
|
+
{
|
358
|
+
/* 0 */ { 3, s_8_0, -1, -1, 0},
|
359
|
+
/* 1 */ { 4, s_8_1, -1, -1, 0},
|
360
|
+
/* 2 */ { 3, s_8_2, -1, -1, 0},
|
361
|
+
/* 3 */ { 3, s_8_3, -1, -1, 0},
|
362
|
+
/* 4 */ { 3, s_8_4, -1, -1, 0}
|
363
|
+
};
|
364
|
+
|
365
|
+
static const unsigned char g_v[] = { 17, 65, 16, 1 };
|
366
|
+
|
367
|
+
static const unsigned char g_keep_with_s[] = { 17, 65, 20 };
|
368
|
+
|
369
|
+
static const symbol s_0[] = { 'u' };
|
370
|
+
static const symbol s_1[] = { 'U' };
|
371
|
+
static const symbol s_2[] = { 'i' };
|
372
|
+
static const symbol s_3[] = { 'I' };
|
373
|
+
static const symbol s_4[] = { 'y' };
|
374
|
+
static const symbol s_5[] = { 'Y' };
|
375
|
+
static const symbol s_6[] = { 'y' };
|
376
|
+
static const symbol s_7[] = { 'Y' };
|
377
|
+
static const symbol s_8[] = { 'q' };
|
378
|
+
static const symbol s_9[] = { 'u' };
|
379
|
+
static const symbol s_10[] = { 'U' };
|
380
|
+
static const symbol s_11[] = { 'i' };
|
381
|
+
static const symbol s_12[] = { 'u' };
|
382
|
+
static const symbol s_13[] = { 'y' };
|
383
|
+
static const symbol s_14[] = { 'i', 'c' };
|
384
|
+
static const symbol s_15[] = { 'i', 'q', 'U' };
|
385
|
+
static const symbol s_16[] = { 'l', 'o', 'g' };
|
386
|
+
static const symbol s_17[] = { 'u' };
|
387
|
+
static const symbol s_18[] = { 'e', 'n', 't' };
|
388
|
+
static const symbol s_19[] = { 'a', 't' };
|
389
|
+
static const symbol s_20[] = { 'e', 'u', 'x' };
|
390
|
+
static const symbol s_21[] = { 'i' };
|
391
|
+
static const symbol s_22[] = { 'a', 'b', 'l' };
|
392
|
+
static const symbol s_23[] = { 'i', 'q', 'U' };
|
393
|
+
static const symbol s_24[] = { 'a', 't' };
|
394
|
+
static const symbol s_25[] = { 'i', 'c' };
|
395
|
+
static const symbol s_26[] = { 'i', 'q', 'U' };
|
396
|
+
static const symbol s_27[] = { 'e', 'a', 'u' };
|
397
|
+
static const symbol s_28[] = { 'a', 'l' };
|
398
|
+
static const symbol s_29[] = { 'e', 'u', 'x' };
|
399
|
+
static const symbol s_30[] = { 'a', 'n', 't' };
|
400
|
+
static const symbol s_31[] = { 'e', 'n', 't' };
|
401
|
+
static const symbol s_32[] = { 'e' };
|
402
|
+
static const symbol s_33[] = { 's' };
|
403
|
+
static const symbol s_34[] = { 's' };
|
404
|
+
static const symbol s_35[] = { 't' };
|
405
|
+
static const symbol s_36[] = { 'i' };
|
406
|
+
static const symbol s_37[] = { 'e' };
|
407
|
+
static const symbol s_38[] = { 'e' };
|
408
|
+
static const symbol s_39[] = { 'Y' };
|
409
|
+
static const symbol s_40[] = { 'i' };
|
410
|
+
static const symbol s_41[] = { 'c' };
|
411
|
+
static const symbol s_42[] = { 'c' };
|
412
|
+
|
413
|
+
static int r_prelude(struct SN_env * z) {
|
414
|
+
while(1) { /* repeat, line 22 */
|
415
|
+
int c1 = z->c;
|
416
|
+
while(1) { /* goto, line 22 */
|
417
|
+
int c2 = z->c;
|
418
|
+
{ int c3 = z->c; /* or, line 28 */
|
419
|
+
if (in_grouping(z, g_v, 97, 121, 0)) goto lab3;
|
420
|
+
z->bra = z->c; /* [, line 24 */
|
421
|
+
{ int c4 = z->c; /* or, line 24 */
|
422
|
+
if (!(eq_s(z, 1, s_0))) goto lab5;
|
423
|
+
z->ket = z->c; /* ], line 24 */
|
424
|
+
if (in_grouping(z, g_v, 97, 121, 0)) goto lab5;
|
425
|
+
{ int ret = slice_from_s(z, 1, s_1); /* <-, line 24 */
|
426
|
+
if (ret < 0) return ret;
|
427
|
+
}
|
428
|
+
goto lab4;
|
429
|
+
lab5:
|
430
|
+
z->c = c4;
|
431
|
+
if (!(eq_s(z, 1, s_2))) goto lab6;
|
432
|
+
z->ket = z->c; /* ], line 25 */
|
433
|
+
if (in_grouping(z, g_v, 97, 121, 0)) goto lab6;
|
434
|
+
{ int ret = slice_from_s(z, 1, s_3); /* <-, line 25 */
|
435
|
+
if (ret < 0) return ret;
|
436
|
+
}
|
437
|
+
goto lab4;
|
438
|
+
lab6:
|
439
|
+
z->c = c4;
|
440
|
+
if (!(eq_s(z, 1, s_4))) goto lab3;
|
441
|
+
z->ket = z->c; /* ], line 26 */
|
442
|
+
{ int ret = slice_from_s(z, 1, s_5); /* <-, line 26 */
|
443
|
+
if (ret < 0) return ret;
|
444
|
+
}
|
445
|
+
}
|
446
|
+
lab4:
|
447
|
+
goto lab2;
|
448
|
+
lab3:
|
449
|
+
z->c = c3;
|
450
|
+
z->bra = z->c; /* [, line 29 */
|
451
|
+
if (!(eq_s(z, 1, s_6))) goto lab7;
|
452
|
+
z->ket = z->c; /* ], line 29 */
|
453
|
+
if (in_grouping(z, g_v, 97, 121, 0)) goto lab7;
|
454
|
+
{ int ret = slice_from_s(z, 1, s_7); /* <-, line 29 */
|
455
|
+
if (ret < 0) return ret;
|
456
|
+
}
|
457
|
+
goto lab2;
|
458
|
+
lab7:
|
459
|
+
z->c = c3;
|
460
|
+
if (!(eq_s(z, 1, s_8))) goto lab1;
|
461
|
+
z->bra = z->c; /* [, line 31 */
|
462
|
+
if (!(eq_s(z, 1, s_9))) goto lab1;
|
463
|
+
z->ket = z->c; /* ], line 31 */
|
464
|
+
{ int ret = slice_from_s(z, 1, s_10); /* <-, line 31 */
|
465
|
+
if (ret < 0) return ret;
|
466
|
+
}
|
467
|
+
}
|
468
|
+
lab2:
|
469
|
+
z->c = c2;
|
470
|
+
break;
|
471
|
+
lab1:
|
472
|
+
z->c = c2;
|
473
|
+
if (z->c >= z->l) goto lab0;
|
474
|
+
z->c++; /* goto, line 22 */
|
475
|
+
}
|
476
|
+
continue;
|
477
|
+
lab0:
|
478
|
+
z->c = c1;
|
479
|
+
break;
|
480
|
+
}
|
481
|
+
return 1;
|
482
|
+
}
|
483
|
+
|
484
|
+
static int r_mark_regions(struct SN_env * z) {
|
485
|
+
z->I[0] = z->l;
|
486
|
+
z->I[1] = z->l;
|
487
|
+
z->I[2] = z->l;
|
488
|
+
{ int c1 = z->c; /* do, line 40 */
|
489
|
+
{ int c2 = z->c; /* or, line 42 */
|
490
|
+
if (in_grouping(z, g_v, 97, 121, 0)) goto lab2;
|
491
|
+
if (in_grouping(z, g_v, 97, 121, 0)) goto lab2;
|
492
|
+
if (z->c >= z->l) goto lab2;
|
493
|
+
z->c++; /* next, line 41 */
|
494
|
+
goto lab1;
|
495
|
+
lab2:
|
496
|
+
z->c = c2;
|
497
|
+
if (z->c + 2 >= z->l || z->p[z->c + 2] >> 5 != 3 || !((331776 >> (z->p[z->c + 2] & 0x1f)) & 1)) goto lab3;
|
498
|
+
if (!(find_among(z, a_0, 3))) goto lab3; /* among, line 43 */
|
499
|
+
goto lab1;
|
500
|
+
lab3:
|
501
|
+
z->c = c2;
|
502
|
+
if (z->c >= z->l) goto lab0;
|
503
|
+
z->c++; /* next, line 50 */
|
504
|
+
{ /* gopast */ /* grouping v, line 50 */
|
505
|
+
int ret = out_grouping(z, g_v, 97, 121, 1);
|
506
|
+
if (ret < 0) goto lab0;
|
507
|
+
z->c += ret;
|
508
|
+
}
|
509
|
+
}
|
510
|
+
lab1:
|
511
|
+
z->I[0] = z->c; /* setmark pV, line 51 */
|
512
|
+
lab0:
|
513
|
+
z->c = c1;
|
514
|
+
}
|
515
|
+
{ int c3 = z->c; /* do, line 53 */
|
516
|
+
{ /* gopast */ /* grouping v, line 54 */
|
517
|
+
int ret = out_grouping(z, g_v, 97, 121, 1);
|
518
|
+
if (ret < 0) goto lab4;
|
519
|
+
z->c += ret;
|
520
|
+
}
|
521
|
+
{ /* gopast */ /* non v, line 54 */
|
522
|
+
int ret = in_grouping(z, g_v, 97, 121, 1);
|
523
|
+
if (ret < 0) goto lab4;
|
524
|
+
z->c += ret;
|
525
|
+
}
|
526
|
+
z->I[1] = z->c; /* setmark p1, line 54 */
|
527
|
+
{ /* gopast */ /* grouping v, line 55 */
|
528
|
+
int ret = out_grouping(z, g_v, 97, 121, 1);
|
529
|
+
if (ret < 0) goto lab4;
|
530
|
+
z->c += ret;
|
531
|
+
}
|
532
|
+
{ /* gopast */ /* non v, line 55 */
|
533
|
+
int ret = in_grouping(z, g_v, 97, 121, 1);
|
534
|
+
if (ret < 0) goto lab4;
|
535
|
+
z->c += ret;
|
536
|
+
}
|
537
|
+
z->I[2] = z->c; /* setmark p2, line 55 */
|
538
|
+
lab4:
|
539
|
+
z->c = c3;
|
540
|
+
}
|
541
|
+
return 1;
|
542
|
+
}
|
543
|
+
|
544
|
+
static int r_postlude(struct SN_env * z) {
|
545
|
+
int among_var;
|
546
|
+
while(1) { /* repeat, line 59 */
|
547
|
+
int c1 = z->c;
|
548
|
+
z->bra = z->c; /* [, line 61 */
|
549
|
+
if (z->c >= z->l || z->p[z->c + 0] >> 5 != 2 || !((35652096 >> (z->p[z->c + 0] & 0x1f)) & 1)) among_var = 4; else
|
550
|
+
among_var = find_among(z, a_1, 4); /* substring, line 61 */
|
551
|
+
if (!(among_var)) goto lab0;
|
552
|
+
z->ket = z->c; /* ], line 61 */
|
553
|
+
switch(among_var) {
|
554
|
+
case 0: goto lab0;
|
555
|
+
case 1:
|
556
|
+
{ int ret = slice_from_s(z, 1, s_11); /* <-, line 62 */
|
557
|
+
if (ret < 0) return ret;
|
558
|
+
}
|
559
|
+
break;
|
560
|
+
case 2:
|
561
|
+
{ int ret = slice_from_s(z, 1, s_12); /* <-, line 63 */
|
562
|
+
if (ret < 0) return ret;
|
563
|
+
}
|
564
|
+
break;
|
565
|
+
case 3:
|
566
|
+
{ int ret = slice_from_s(z, 1, s_13); /* <-, line 64 */
|
567
|
+
if (ret < 0) return ret;
|
568
|
+
}
|
569
|
+
break;
|
570
|
+
case 4:
|
571
|
+
if (z->c >= z->l) goto lab0;
|
572
|
+
z->c++; /* next, line 65 */
|
573
|
+
break;
|
574
|
+
}
|
575
|
+
continue;
|
576
|
+
lab0:
|
577
|
+
z->c = c1;
|
578
|
+
break;
|
579
|
+
}
|
580
|
+
return 1;
|
581
|
+
}
|
582
|
+
|
583
|
+
static int r_RV(struct SN_env * z) {
|
584
|
+
if (!(z->I[0] <= z->c)) return 0;
|
585
|
+
return 1;
|
586
|
+
}
|
587
|
+
|
588
|
+
static int r_R1(struct SN_env * z) {
|
589
|
+
if (!(z->I[1] <= z->c)) return 0;
|
590
|
+
return 1;
|
591
|
+
}
|
592
|
+
|
593
|
+
static int r_R2(struct SN_env * z) {
|
594
|
+
if (!(z->I[2] <= z->c)) return 0;
|
595
|
+
return 1;
|
596
|
+
}
|
597
|
+
|
598
|
+
static int r_standard_suffix(struct SN_env * z) {
|
599
|
+
int among_var;
|
600
|
+
z->ket = z->c; /* [, line 76 */
|
601
|
+
if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((18628704 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
|
602
|
+
among_var = find_among_b(z, a_4, 43); /* substring, line 76 */
|
603
|
+
if (!(among_var)) return 0;
|
604
|
+
z->bra = z->c; /* ], line 76 */
|
605
|
+
switch(among_var) {
|
606
|
+
case 0: return 0;
|
607
|
+
case 1:
|
608
|
+
{ int ret = r_R2(z);
|
609
|
+
if (ret == 0) return 0; /* call R2, line 80 */
|
610
|
+
if (ret < 0) return ret;
|
611
|
+
}
|
612
|
+
{ int ret = slice_del(z); /* delete, line 80 */
|
613
|
+
if (ret < 0) return ret;
|
614
|
+
}
|
615
|
+
break;
|
616
|
+
case 2:
|
617
|
+
{ int ret = r_R2(z);
|
618
|
+
if (ret == 0) return 0; /* call R2, line 83 */
|
619
|
+
if (ret < 0) return ret;
|
620
|
+
}
|
621
|
+
{ int ret = slice_del(z); /* delete, line 83 */
|
622
|
+
if (ret < 0) return ret;
|
623
|
+
}
|
624
|
+
{ int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 84 */
|
625
|
+
z->ket = z->c; /* [, line 84 */
|
626
|
+
if (!(eq_s_b(z, 2, s_14))) { z->c = z->l - m_keep; goto lab0; }
|
627
|
+
z->bra = z->c; /* ], line 84 */
|
628
|
+
{ int m1 = z->l - z->c; (void)m1; /* or, line 84 */
|
629
|
+
{ int ret = r_R2(z);
|
630
|
+
if (ret == 0) goto lab2; /* call R2, line 84 */
|
631
|
+
if (ret < 0) return ret;
|
632
|
+
}
|
633
|
+
{ int ret = slice_del(z); /* delete, line 84 */
|
634
|
+
if (ret < 0) return ret;
|
635
|
+
}
|
636
|
+
goto lab1;
|
637
|
+
lab2:
|
638
|
+
z->c = z->l - m1;
|
639
|
+
{ int ret = slice_from_s(z, 3, s_15); /* <-, line 84 */
|
640
|
+
if (ret < 0) return ret;
|
641
|
+
}
|
642
|
+
}
|
643
|
+
lab1:
|
644
|
+
lab0:
|
645
|
+
;
|
646
|
+
}
|
647
|
+
break;
|
648
|
+
case 3:
|
649
|
+
{ int ret = r_R2(z);
|
650
|
+
if (ret == 0) return 0; /* call R2, line 88 */
|
651
|
+
if (ret < 0) return ret;
|
652
|
+
}
|
653
|
+
{ int ret = slice_from_s(z, 3, s_16); /* <-, line 88 */
|
654
|
+
if (ret < 0) return ret;
|
655
|
+
}
|
656
|
+
break;
|
657
|
+
case 4:
|
658
|
+
{ int ret = r_R2(z);
|
659
|
+
if (ret == 0) return 0; /* call R2, line 91 */
|
660
|
+
if (ret < 0) return ret;
|
661
|
+
}
|
662
|
+
{ int ret = slice_from_s(z, 1, s_17); /* <-, line 91 */
|
663
|
+
if (ret < 0) return ret;
|
664
|
+
}
|
665
|
+
break;
|
666
|
+
case 5:
|
667
|
+
{ int ret = r_R2(z);
|
668
|
+
if (ret == 0) return 0; /* call R2, line 94 */
|
669
|
+
if (ret < 0) return ret;
|
670
|
+
}
|
671
|
+
{ int ret = slice_from_s(z, 3, s_18); /* <-, line 94 */
|
672
|
+
if (ret < 0) return ret;
|
673
|
+
}
|
674
|
+
break;
|
675
|
+
case 6:
|
676
|
+
{ int ret = r_RV(z);
|
677
|
+
if (ret == 0) return 0; /* call RV, line 98 */
|
678
|
+
if (ret < 0) return ret;
|
679
|
+
}
|
680
|
+
{ int ret = slice_del(z); /* delete, line 98 */
|
681
|
+
if (ret < 0) return ret;
|
682
|
+
}
|
683
|
+
{ int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 99 */
|
684
|
+
z->ket = z->c; /* [, line 100 */
|
685
|
+
among_var = find_among_b(z, a_2, 6); /* substring, line 100 */
|
686
|
+
if (!(among_var)) { z->c = z->l - m_keep; goto lab3; }
|
687
|
+
z->bra = z->c; /* ], line 100 */
|
688
|
+
switch(among_var) {
|
689
|
+
case 0: { z->c = z->l - m_keep; goto lab3; }
|
690
|
+
case 1:
|
691
|
+
{ int ret = r_R2(z);
|
692
|
+
if (ret == 0) { z->c = z->l - m_keep; goto lab3; } /* call R2, line 101 */
|
693
|
+
if (ret < 0) return ret;
|
694
|
+
}
|
695
|
+
{ int ret = slice_del(z); /* delete, line 101 */
|
696
|
+
if (ret < 0) return ret;
|
697
|
+
}
|
698
|
+
z->ket = z->c; /* [, line 101 */
|
699
|
+
if (!(eq_s_b(z, 2, s_19))) { z->c = z->l - m_keep; goto lab3; }
|
700
|
+
z->bra = z->c; /* ], line 101 */
|
701
|
+
{ int ret = r_R2(z);
|
702
|
+
if (ret == 0) { z->c = z->l - m_keep; goto lab3; } /* call R2, line 101 */
|
703
|
+
if (ret < 0) return ret;
|
704
|
+
}
|
705
|
+
{ int ret = slice_del(z); /* delete, line 101 */
|
706
|
+
if (ret < 0) return ret;
|
707
|
+
}
|
708
|
+
break;
|
709
|
+
case 2:
|
710
|
+
{ int m2 = z->l - z->c; (void)m2; /* or, line 102 */
|
711
|
+
{ int ret = r_R2(z);
|
712
|
+
if (ret == 0) goto lab5; /* call R2, line 102 */
|
713
|
+
if (ret < 0) return ret;
|
714
|
+
}
|
715
|
+
{ int ret = slice_del(z); /* delete, line 102 */
|
716
|
+
if (ret < 0) return ret;
|
717
|
+
}
|
718
|
+
goto lab4;
|
719
|
+
lab5:
|
720
|
+
z->c = z->l - m2;
|
721
|
+
{ int ret = r_R1(z);
|
722
|
+
if (ret == 0) { z->c = z->l - m_keep; goto lab3; } /* call R1, line 102 */
|
723
|
+
if (ret < 0) return ret;
|
724
|
+
}
|
725
|
+
{ int ret = slice_from_s(z, 3, s_20); /* <-, line 102 */
|
726
|
+
if (ret < 0) return ret;
|
727
|
+
}
|
728
|
+
}
|
729
|
+
lab4:
|
730
|
+
break;
|
731
|
+
case 3:
|
732
|
+
{ int ret = r_R2(z);
|
733
|
+
if (ret == 0) { z->c = z->l - m_keep; goto lab3; } /* call R2, line 104 */
|
734
|
+
if (ret < 0) return ret;
|
735
|
+
}
|
736
|
+
{ int ret = slice_del(z); /* delete, line 104 */
|
737
|
+
if (ret < 0) return ret;
|
738
|
+
}
|
739
|
+
break;
|
740
|
+
case 4:
|
741
|
+
{ int ret = r_RV(z);
|
742
|
+
if (ret == 0) { z->c = z->l - m_keep; goto lab3; } /* call RV, line 106 */
|
743
|
+
if (ret < 0) return ret;
|
744
|
+
}
|
745
|
+
{ int ret = slice_from_s(z, 1, s_21); /* <-, line 106 */
|
746
|
+
if (ret < 0) return ret;
|
747
|
+
}
|
748
|
+
break;
|
749
|
+
}
|
750
|
+
lab3:
|
751
|
+
;
|
752
|
+
}
|
753
|
+
break;
|
754
|
+
case 7:
|
755
|
+
{ int ret = r_R2(z);
|
756
|
+
if (ret == 0) return 0; /* call R2, line 113 */
|
757
|
+
if (ret < 0) return ret;
|
758
|
+
}
|
759
|
+
{ int ret = slice_del(z); /* delete, line 113 */
|
760
|
+
if (ret < 0) return ret;
|
761
|
+
}
|
762
|
+
{ int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 114 */
|
763
|
+
z->ket = z->c; /* [, line 115 */
|
764
|
+
if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((4198408 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->c = z->l - m_keep; goto lab6; }
|
765
|
+
among_var = find_among_b(z, a_3, 3); /* substring, line 115 */
|
766
|
+
if (!(among_var)) { z->c = z->l - m_keep; goto lab6; }
|
767
|
+
z->bra = z->c; /* ], line 115 */
|
768
|
+
switch(among_var) {
|
769
|
+
case 0: { z->c = z->l - m_keep; goto lab6; }
|
770
|
+
case 1:
|
771
|
+
{ int m3 = z->l - z->c; (void)m3; /* or, line 116 */
|
772
|
+
{ int ret = r_R2(z);
|
773
|
+
if (ret == 0) goto lab8; /* call R2, line 116 */
|
774
|
+
if (ret < 0) return ret;
|
775
|
+
}
|
776
|
+
{ int ret = slice_del(z); /* delete, line 116 */
|
777
|
+
if (ret < 0) return ret;
|
778
|
+
}
|
779
|
+
goto lab7;
|
780
|
+
lab8:
|
781
|
+
z->c = z->l - m3;
|
782
|
+
{ int ret = slice_from_s(z, 3, s_22); /* <-, line 116 */
|
783
|
+
if (ret < 0) return ret;
|
784
|
+
}
|
785
|
+
}
|
786
|
+
lab7:
|
787
|
+
break;
|
788
|
+
case 2:
|
789
|
+
{ int m4 = z->l - z->c; (void)m4; /* or, line 117 */
|
790
|
+
{ int ret = r_R2(z);
|
791
|
+
if (ret == 0) goto lab10; /* call R2, line 117 */
|
792
|
+
if (ret < 0) return ret;
|
793
|
+
}
|
794
|
+
{ int ret = slice_del(z); /* delete, line 117 */
|
795
|
+
if (ret < 0) return ret;
|
796
|
+
}
|
797
|
+
goto lab9;
|
798
|
+
lab10:
|
799
|
+
z->c = z->l - m4;
|
800
|
+
{ int ret = slice_from_s(z, 3, s_23); /* <-, line 117 */
|
801
|
+
if (ret < 0) return ret;
|
802
|
+
}
|
803
|
+
}
|
804
|
+
lab9:
|
805
|
+
break;
|
806
|
+
case 3:
|
807
|
+
{ int ret = r_R2(z);
|
808
|
+
if (ret == 0) { z->c = z->l - m_keep; goto lab6; } /* call R2, line 118 */
|
809
|
+
if (ret < 0) return ret;
|
810
|
+
}
|
811
|
+
{ int ret = slice_del(z); /* delete, line 118 */
|
812
|
+
if (ret < 0) return ret;
|
813
|
+
}
|
814
|
+
break;
|
815
|
+
}
|
816
|
+
lab6:
|
817
|
+
;
|
818
|
+
}
|
819
|
+
break;
|
820
|
+
case 8:
|
821
|
+
{ int ret = r_R2(z);
|
822
|
+
if (ret == 0) return 0; /* call R2, line 125 */
|
823
|
+
if (ret < 0) return ret;
|
824
|
+
}
|
825
|
+
{ int ret = slice_del(z); /* delete, line 125 */
|
826
|
+
if (ret < 0) return ret;
|
827
|
+
}
|
828
|
+
{ int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 126 */
|
829
|
+
z->ket = z->c; /* [, line 126 */
|
830
|
+
if (!(eq_s_b(z, 2, s_24))) { z->c = z->l - m_keep; goto lab11; }
|
831
|
+
z->bra = z->c; /* ], line 126 */
|
832
|
+
{ int ret = r_R2(z);
|
833
|
+
if (ret == 0) { z->c = z->l - m_keep; goto lab11; } /* call R2, line 126 */
|
834
|
+
if (ret < 0) return ret;
|
835
|
+
}
|
836
|
+
{ int ret = slice_del(z); /* delete, line 126 */
|
837
|
+
if (ret < 0) return ret;
|
838
|
+
}
|
839
|
+
z->ket = z->c; /* [, line 126 */
|
840
|
+
if (!(eq_s_b(z, 2, s_25))) { z->c = z->l - m_keep; goto lab11; }
|
841
|
+
z->bra = z->c; /* ], line 126 */
|
842
|
+
{ int m5 = z->l - z->c; (void)m5; /* or, line 126 */
|
843
|
+
{ int ret = r_R2(z);
|
844
|
+
if (ret == 0) goto lab13; /* call R2, line 126 */
|
845
|
+
if (ret < 0) return ret;
|
846
|
+
}
|
847
|
+
{ int ret = slice_del(z); /* delete, line 126 */
|
848
|
+
if (ret < 0) return ret;
|
849
|
+
}
|
850
|
+
goto lab12;
|
851
|
+
lab13:
|
852
|
+
z->c = z->l - m5;
|
853
|
+
{ int ret = slice_from_s(z, 3, s_26); /* <-, line 126 */
|
854
|
+
if (ret < 0) return ret;
|
855
|
+
}
|
856
|
+
}
|
857
|
+
lab12:
|
858
|
+
lab11:
|
859
|
+
;
|
860
|
+
}
|
861
|
+
break;
|
862
|
+
case 9:
|
863
|
+
{ int ret = slice_from_s(z, 3, s_27); /* <-, line 128 */
|
864
|
+
if (ret < 0) return ret;
|
865
|
+
}
|
866
|
+
break;
|
867
|
+
case 10:
|
868
|
+
{ int ret = r_R1(z);
|
869
|
+
if (ret == 0) return 0; /* call R1, line 129 */
|
870
|
+
if (ret < 0) return ret;
|
871
|
+
}
|
872
|
+
{ int ret = slice_from_s(z, 2, s_28); /* <-, line 129 */
|
873
|
+
if (ret < 0) return ret;
|
874
|
+
}
|
875
|
+
break;
|
876
|
+
case 11:
|
877
|
+
{ int m6 = z->l - z->c; (void)m6; /* or, line 131 */
|
878
|
+
{ int ret = r_R2(z);
|
879
|
+
if (ret == 0) goto lab15; /* call R2, line 131 */
|
880
|
+
if (ret < 0) return ret;
|
881
|
+
}
|
882
|
+
{ int ret = slice_del(z); /* delete, line 131 */
|
883
|
+
if (ret < 0) return ret;
|
884
|
+
}
|
885
|
+
goto lab14;
|
886
|
+
lab15:
|
887
|
+
z->c = z->l - m6;
|
888
|
+
{ int ret = r_R1(z);
|
889
|
+
if (ret == 0) return 0; /* call R1, line 131 */
|
890
|
+
if (ret < 0) return ret;
|
891
|
+
}
|
892
|
+
{ int ret = slice_from_s(z, 3, s_29); /* <-, line 131 */
|
893
|
+
if (ret < 0) return ret;
|
894
|
+
}
|
895
|
+
}
|
896
|
+
lab14:
|
897
|
+
break;
|
898
|
+
case 12:
|
899
|
+
{ int ret = r_R1(z);
|
900
|
+
if (ret == 0) return 0; /* call R1, line 134 */
|
901
|
+
if (ret < 0) return ret;
|
902
|
+
}
|
903
|
+
if (out_grouping_b(z, g_v, 97, 121, 0)) return 0;
|
904
|
+
{ int ret = slice_del(z); /* delete, line 134 */
|
905
|
+
if (ret < 0) return ret;
|
906
|
+
}
|
907
|
+
break;
|
908
|
+
case 13:
|
909
|
+
{ int ret = r_RV(z);
|
910
|
+
if (ret == 0) return 0; /* call RV, line 139 */
|
911
|
+
if (ret < 0) return ret;
|
912
|
+
}
|
913
|
+
{ int ret = slice_from_s(z, 3, s_30); /* <-, line 139 */
|
914
|
+
if (ret < 0) return ret;
|
915
|
+
}
|
916
|
+
return 0; /* fail, line 139 */
|
917
|
+
break;
|
918
|
+
case 14:
|
919
|
+
{ int ret = r_RV(z);
|
920
|
+
if (ret == 0) return 0; /* call RV, line 140 */
|
921
|
+
if (ret < 0) return ret;
|
922
|
+
}
|
923
|
+
{ int ret = slice_from_s(z, 3, s_31); /* <-, line 140 */
|
924
|
+
if (ret < 0) return ret;
|
925
|
+
}
|
926
|
+
return 0; /* fail, line 140 */
|
927
|
+
break;
|
928
|
+
case 15:
|
929
|
+
{ int m_test = z->l - z->c; /* test, line 142 */
|
930
|
+
if (in_grouping_b(z, g_v, 97, 121, 0)) return 0;
|
931
|
+
{ int ret = r_RV(z);
|
932
|
+
if (ret == 0) return 0; /* call RV, line 142 */
|
933
|
+
if (ret < 0) return ret;
|
934
|
+
}
|
935
|
+
z->c = z->l - m_test;
|
936
|
+
}
|
937
|
+
{ int ret = slice_del(z); /* delete, line 142 */
|
938
|
+
if (ret < 0) return ret;
|
939
|
+
}
|
940
|
+
return 0; /* fail, line 142 */
|
941
|
+
break;
|
942
|
+
}
|
943
|
+
return 1;
|
944
|
+
}
|
945
|
+
|
946
|
+
static int r_i_verb_suffix(struct SN_env * z) {
|
947
|
+
int among_var;
|
948
|
+
{ int mlimit; /* setlimit, line 147 */
|
949
|
+
int m1 = z->l - z->c; (void)m1;
|
950
|
+
if (z->c < z->I[0]) return 0;
|
951
|
+
z->c = z->I[0]; /* tomark, line 147 */
|
952
|
+
mlimit = z->lb; z->lb = z->c;
|
953
|
+
z->c = z->l - m1;
|
954
|
+
z->ket = z->c; /* [, line 148 */
|
955
|
+
if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((68944418 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->lb = mlimit; return 0; }
|
956
|
+
among_var = find_among_b(z, a_5, 34); /* substring, line 148 */
|
957
|
+
if (!(among_var)) { z->lb = mlimit; return 0; }
|
958
|
+
z->bra = z->c; /* ], line 148 */
|
959
|
+
switch(among_var) {
|
960
|
+
case 0: { z->lb = mlimit; return 0; }
|
961
|
+
case 1:
|
962
|
+
if (out_grouping_b(z, g_v, 97, 121, 0)) { z->lb = mlimit; return 0; }
|
963
|
+
{ int ret = slice_del(z); /* delete, line 154 */
|
964
|
+
if (ret < 0) return ret;
|
965
|
+
}
|
966
|
+
break;
|
967
|
+
}
|
968
|
+
z->lb = mlimit;
|
969
|
+
}
|
970
|
+
return 1;
|
971
|
+
}
|
972
|
+
|
973
|
+
static int r_verb_suffix(struct SN_env * z) {
|
974
|
+
int among_var;
|
975
|
+
{ int mlimit; /* setlimit, line 158 */
|
976
|
+
int m1 = z->l - z->c; (void)m1;
|
977
|
+
if (z->c < z->I[0]) return 0;
|
978
|
+
z->c = z->I[0]; /* tomark, line 158 */
|
979
|
+
mlimit = z->lb; z->lb = z->c;
|
980
|
+
z->c = z->l - m1;
|
981
|
+
z->ket = z->c; /* [, line 159 */
|
982
|
+
if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((68944418 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->lb = mlimit; return 0; }
|
983
|
+
among_var = find_among_b(z, a_6, 38); /* substring, line 159 */
|
984
|
+
if (!(among_var)) { z->lb = mlimit; return 0; }
|
985
|
+
z->bra = z->c; /* ], line 159 */
|
986
|
+
switch(among_var) {
|
987
|
+
case 0: { z->lb = mlimit; return 0; }
|
988
|
+
case 1:
|
989
|
+
{ int ret = r_R2(z);
|
990
|
+
if (ret == 0) { z->lb = mlimit; return 0; } /* call R2, line 161 */
|
991
|
+
if (ret < 0) return ret;
|
992
|
+
}
|
993
|
+
{ int ret = slice_del(z); /* delete, line 161 */
|
994
|
+
if (ret < 0) return ret;
|
995
|
+
}
|
996
|
+
break;
|
997
|
+
case 2:
|
998
|
+
{ int ret = slice_del(z); /* delete, line 169 */
|
999
|
+
if (ret < 0) return ret;
|
1000
|
+
}
|
1001
|
+
break;
|
1002
|
+
case 3:
|
1003
|
+
{ int ret = slice_del(z); /* delete, line 174 */
|
1004
|
+
if (ret < 0) return ret;
|
1005
|
+
}
|
1006
|
+
{ int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 175 */
|
1007
|
+
z->ket = z->c; /* [, line 175 */
|
1008
|
+
if (!(eq_s_b(z, 1, s_32))) { z->c = z->l - m_keep; goto lab0; }
|
1009
|
+
z->bra = z->c; /* ], line 175 */
|
1010
|
+
{ int ret = slice_del(z); /* delete, line 175 */
|
1011
|
+
if (ret < 0) return ret;
|
1012
|
+
}
|
1013
|
+
lab0:
|
1014
|
+
;
|
1015
|
+
}
|
1016
|
+
break;
|
1017
|
+
}
|
1018
|
+
z->lb = mlimit;
|
1019
|
+
}
|
1020
|
+
return 1;
|
1021
|
+
}
|
1022
|
+
|
1023
|
+
static int r_residual_suffix(struct SN_env * z) {
|
1024
|
+
int among_var;
|
1025
|
+
{ int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 183 */
|
1026
|
+
z->ket = z->c; /* [, line 183 */
|
1027
|
+
if (!(eq_s_b(z, 1, s_33))) { z->c = z->l - m_keep; goto lab0; }
|
1028
|
+
z->bra = z->c; /* ], line 183 */
|
1029
|
+
{ int m_test = z->l - z->c; /* test, line 183 */
|
1030
|
+
if (out_grouping_b(z, g_keep_with_s, 97, 117, 0)) { z->c = z->l - m_keep; goto lab0; }
|
1031
|
+
z->c = z->l - m_test;
|
1032
|
+
}
|
1033
|
+
{ int ret = slice_del(z); /* delete, line 183 */
|
1034
|
+
if (ret < 0) return ret;
|
1035
|
+
}
|
1036
|
+
lab0:
|
1037
|
+
;
|
1038
|
+
}
|
1039
|
+
{ int mlimit; /* setlimit, line 184 */
|
1040
|
+
int m1 = z->l - z->c; (void)m1;
|
1041
|
+
if (z->c < z->I[0]) return 0;
|
1042
|
+
z->c = z->I[0]; /* tomark, line 184 */
|
1043
|
+
mlimit = z->lb; z->lb = z->c;
|
1044
|
+
z->c = z->l - m1;
|
1045
|
+
z->ket = z->c; /* [, line 185 */
|
1046
|
+
if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((278560 >> (z->p[z->c - 1] & 0x1f)) & 1)) { z->lb = mlimit; return 0; }
|
1047
|
+
among_var = find_among_b(z, a_7, 6); /* substring, line 185 */
|
1048
|
+
if (!(among_var)) { z->lb = mlimit; return 0; }
|
1049
|
+
z->bra = z->c; /* ], line 185 */
|
1050
|
+
switch(among_var) {
|
1051
|
+
case 0: { z->lb = mlimit; return 0; }
|
1052
|
+
case 1:
|
1053
|
+
{ int ret = r_R2(z);
|
1054
|
+
if (ret == 0) { z->lb = mlimit; return 0; } /* call R2, line 186 */
|
1055
|
+
if (ret < 0) return ret;
|
1056
|
+
}
|
1057
|
+
{ int m2 = z->l - z->c; (void)m2; /* or, line 186 */
|
1058
|
+
if (!(eq_s_b(z, 1, s_34))) goto lab2;
|
1059
|
+
goto lab1;
|
1060
|
+
lab2:
|
1061
|
+
z->c = z->l - m2;
|
1062
|
+
if (!(eq_s_b(z, 1, s_35))) { z->lb = mlimit; return 0; }
|
1063
|
+
}
|
1064
|
+
lab1:
|
1065
|
+
{ int ret = slice_del(z); /* delete, line 186 */
|
1066
|
+
if (ret < 0) return ret;
|
1067
|
+
}
|
1068
|
+
break;
|
1069
|
+
case 2:
|
1070
|
+
{ int ret = slice_from_s(z, 1, s_36); /* <-, line 188 */
|
1071
|
+
if (ret < 0) return ret;
|
1072
|
+
}
|
1073
|
+
break;
|
1074
|
+
case 3:
|
1075
|
+
{ int ret = slice_del(z); /* delete, line 189 */
|
1076
|
+
if (ret < 0) return ret;
|
1077
|
+
}
|
1078
|
+
break;
|
1079
|
+
}
|
1080
|
+
z->lb = mlimit;
|
1081
|
+
}
|
1082
|
+
return 1;
|
1083
|
+
}
|
1084
|
+
|
1085
|
+
static int r_un_double(struct SN_env * z) {
|
1086
|
+
{ int m_test = z->l - z->c; /* test, line 195 */
|
1087
|
+
if (z->c - 2 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1069056 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
|
1088
|
+
if (!(find_among_b(z, a_8, 5))) return 0; /* among, line 195 */
|
1089
|
+
z->c = z->l - m_test;
|
1090
|
+
}
|
1091
|
+
z->ket = z->c; /* [, line 195 */
|
1092
|
+
if (z->c <= z->lb) return 0;
|
1093
|
+
z->c--; /* next, line 195 */
|
1094
|
+
z->bra = z->c; /* ], line 195 */
|
1095
|
+
{ int ret = slice_del(z); /* delete, line 195 */
|
1096
|
+
if (ret < 0) return ret;
|
1097
|
+
}
|
1098
|
+
return 1;
|
1099
|
+
}
|
1100
|
+
|
1101
|
+
static int r_un_accent(struct SN_env * z) {
|
1102
|
+
{ int i = 1;
|
1103
|
+
while(1) { /* atleast, line 199 */
|
1104
|
+
if (out_grouping_b(z, g_v, 97, 121, 0)) goto lab0;
|
1105
|
+
i--;
|
1106
|
+
continue;
|
1107
|
+
lab0:
|
1108
|
+
break;
|
1109
|
+
}
|
1110
|
+
if (i > 0) return 0;
|
1111
|
+
}
|
1112
|
+
z->ket = z->c; /* [, line 200 */
|
1113
|
+
if (!(eq_s_b(z, 1, s_37))) return 0;
|
1114
|
+
z->bra = z->c; /* ], line 200 */
|
1115
|
+
{ int ret = slice_from_s(z, 1, s_38); /* <-, line 200 */
|
1116
|
+
if (ret < 0) return ret;
|
1117
|
+
}
|
1118
|
+
return 1;
|
1119
|
+
}
|
1120
|
+
|
1121
|
+
extern int french_ISO_8859_1_stem(struct SN_env * z) {
|
1122
|
+
{ int c1 = z->c; /* do, line 206 */
|
1123
|
+
{ int ret = r_prelude(z);
|
1124
|
+
if (ret == 0) goto lab0; /* call prelude, line 206 */
|
1125
|
+
if (ret < 0) return ret;
|
1126
|
+
}
|
1127
|
+
lab0:
|
1128
|
+
z->c = c1;
|
1129
|
+
}
|
1130
|
+
{ int c2 = z->c; /* do, line 207 */
|
1131
|
+
{ int ret = r_mark_regions(z);
|
1132
|
+
if (ret == 0) goto lab1; /* call mark_regions, line 207 */
|
1133
|
+
if (ret < 0) return ret;
|
1134
|
+
}
|
1135
|
+
lab1:
|
1136
|
+
z->c = c2;
|
1137
|
+
}
|
1138
|
+
z->lb = z->c; z->c = z->l; /* backwards, line 208 */
|
1139
|
+
|
1140
|
+
{ int m3 = z->l - z->c; (void)m3; /* do, line 210 */
|
1141
|
+
{ int m4 = z->l - z->c; (void)m4; /* or, line 220 */
|
1142
|
+
{ int m5 = z->l - z->c; (void)m5; /* and, line 216 */
|
1143
|
+
{ int m6 = z->l - z->c; (void)m6; /* or, line 212 */
|
1144
|
+
{ int ret = r_standard_suffix(z);
|
1145
|
+
if (ret == 0) goto lab6; /* call standard_suffix, line 212 */
|
1146
|
+
if (ret < 0) return ret;
|
1147
|
+
}
|
1148
|
+
goto lab5;
|
1149
|
+
lab6:
|
1150
|
+
z->c = z->l - m6;
|
1151
|
+
{ int ret = r_i_verb_suffix(z);
|
1152
|
+
if (ret == 0) goto lab7; /* call i_verb_suffix, line 213 */
|
1153
|
+
if (ret < 0) return ret;
|
1154
|
+
}
|
1155
|
+
goto lab5;
|
1156
|
+
lab7:
|
1157
|
+
z->c = z->l - m6;
|
1158
|
+
{ int ret = r_verb_suffix(z);
|
1159
|
+
if (ret == 0) goto lab4; /* call verb_suffix, line 214 */
|
1160
|
+
if (ret < 0) return ret;
|
1161
|
+
}
|
1162
|
+
}
|
1163
|
+
lab5:
|
1164
|
+
z->c = z->l - m5;
|
1165
|
+
{ int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 217 */
|
1166
|
+
z->ket = z->c; /* [, line 217 */
|
1167
|
+
{ int m7 = z->l - z->c; (void)m7; /* or, line 217 */
|
1168
|
+
if (!(eq_s_b(z, 1, s_39))) goto lab10;
|
1169
|
+
z->bra = z->c; /* ], line 217 */
|
1170
|
+
{ int ret = slice_from_s(z, 1, s_40); /* <-, line 217 */
|
1171
|
+
if (ret < 0) return ret;
|
1172
|
+
}
|
1173
|
+
goto lab9;
|
1174
|
+
lab10:
|
1175
|
+
z->c = z->l - m7;
|
1176
|
+
if (!(eq_s_b(z, 1, s_41))) { z->c = z->l - m_keep; goto lab8; }
|
1177
|
+
z->bra = z->c; /* ], line 218 */
|
1178
|
+
{ int ret = slice_from_s(z, 1, s_42); /* <-, line 218 */
|
1179
|
+
if (ret < 0) return ret;
|
1180
|
+
}
|
1181
|
+
}
|
1182
|
+
lab9:
|
1183
|
+
lab8:
|
1184
|
+
;
|
1185
|
+
}
|
1186
|
+
}
|
1187
|
+
goto lab3;
|
1188
|
+
lab4:
|
1189
|
+
z->c = z->l - m4;
|
1190
|
+
{ int ret = r_residual_suffix(z);
|
1191
|
+
if (ret == 0) goto lab2; /* call residual_suffix, line 221 */
|
1192
|
+
if (ret < 0) return ret;
|
1193
|
+
}
|
1194
|
+
}
|
1195
|
+
lab3:
|
1196
|
+
lab2:
|
1197
|
+
z->c = z->l - m3;
|
1198
|
+
}
|
1199
|
+
{ int m8 = z->l - z->c; (void)m8; /* do, line 226 */
|
1200
|
+
{ int ret = r_un_double(z);
|
1201
|
+
if (ret == 0) goto lab11; /* call un_double, line 226 */
|
1202
|
+
if (ret < 0) return ret;
|
1203
|
+
}
|
1204
|
+
lab11:
|
1205
|
+
z->c = z->l - m8;
|
1206
|
+
}
|
1207
|
+
{ int m9 = z->l - z->c; (void)m9; /* do, line 227 */
|
1208
|
+
{ int ret = r_un_accent(z);
|
1209
|
+
if (ret == 0) goto lab12; /* call un_accent, line 227 */
|
1210
|
+
if (ret < 0) return ret;
|
1211
|
+
}
|
1212
|
+
lab12:
|
1213
|
+
z->c = z->l - m9;
|
1214
|
+
}
|
1215
|
+
z->c = z->lb;
|
1216
|
+
{ int c10 = z->c; /* do, line 229 */
|
1217
|
+
{ int ret = r_postlude(z);
|
1218
|
+
if (ret == 0) goto lab13; /* call postlude, line 229 */
|
1219
|
+
if (ret < 0) return ret;
|
1220
|
+
}
|
1221
|
+
lab13:
|
1222
|
+
z->c = c10;
|
1223
|
+
}
|
1224
|
+
return 1;
|
1225
|
+
}
|
1226
|
+
|
1227
|
+
extern struct SN_env * french_ISO_8859_1_create_env(void) { return SN_create_env(0, 3, 0); }
|
1228
|
+
|
1229
|
+
extern void french_ISO_8859_1_close_env(struct SN_env * z) { SN_close_env(z, 0); }
|
1230
|
+
|