Header And Logo
|
00001 00002 /* This file was generated automatically by the Snowball to ANSI C compiler */ 00003 00004 #include "header.h" 00005 00006 #ifdef __cplusplus 00007 extern "C" { 00008 #endif 00009 extern int hungarian_ISO_8859_1_stem(struct SN_env * z); 00010 #ifdef __cplusplus 00011 } 00012 #endif 00013 static int r_double(struct SN_env * z); 00014 static int r_undouble(struct SN_env * z); 00015 static int r_factive(struct SN_env * z); 00016 static int r_instrum(struct SN_env * z); 00017 static int r_plur_owner(struct SN_env * z); 00018 static int r_sing_owner(struct SN_env * z); 00019 static int r_owned(struct SN_env * z); 00020 static int r_plural(struct SN_env * z); 00021 static int r_case_other(struct SN_env * z); 00022 static int r_case_special(struct SN_env * z); 00023 static int r_case(struct SN_env * z); 00024 static int r_v_ending(struct SN_env * z); 00025 static int r_R1(struct SN_env * z); 00026 static int r_mark_regions(struct SN_env * z); 00027 #ifdef __cplusplus 00028 extern "C" { 00029 #endif 00030 00031 00032 extern struct SN_env * hungarian_ISO_8859_1_create_env(void); 00033 extern void hungarian_ISO_8859_1_close_env(struct SN_env * z); 00034 00035 00036 #ifdef __cplusplus 00037 } 00038 #endif 00039 static const symbol s_0_0[2] = { 'c', 's' }; 00040 static const symbol s_0_1[3] = { 'd', 'z', 's' }; 00041 static const symbol s_0_2[2] = { 'g', 'y' }; 00042 static const symbol s_0_3[2] = { 'l', 'y' }; 00043 static const symbol s_0_4[2] = { 'n', 'y' }; 00044 static const symbol s_0_5[2] = { 's', 'z' }; 00045 static const symbol s_0_6[2] = { 't', 'y' }; 00046 static const symbol s_0_7[2] = { 'z', 's' }; 00047 00048 static const struct among a_0[8] = 00049 { 00050 /* 0 */ { 2, s_0_0, -1, -1, 0}, 00051 /* 1 */ { 3, s_0_1, -1, -1, 0}, 00052 /* 2 */ { 2, s_0_2, -1, -1, 0}, 00053 /* 3 */ { 2, s_0_3, -1, -1, 0}, 00054 /* 4 */ { 2, s_0_4, -1, -1, 0}, 00055 /* 5 */ { 2, s_0_5, -1, -1, 0}, 00056 /* 6 */ { 2, s_0_6, -1, -1, 0}, 00057 /* 7 */ { 2, s_0_7, -1, -1, 0} 00058 }; 00059 00060 static const symbol s_1_0[1] = { 0xE1 }; 00061 static const symbol s_1_1[1] = { 0xE9 }; 00062 00063 static const struct among a_1[2] = 00064 { 00065 /* 0 */ { 1, s_1_0, -1, 1, 0}, 00066 /* 1 */ { 1, s_1_1, -1, 2, 0} 00067 }; 00068 00069 static const symbol s_2_0[2] = { 'b', 'b' }; 00070 static const symbol s_2_1[2] = { 'c', 'c' }; 00071 static const symbol s_2_2[2] = { 'd', 'd' }; 00072 static const symbol s_2_3[2] = { 'f', 'f' }; 00073 static const symbol s_2_4[2] = { 'g', 'g' }; 00074 static const symbol s_2_5[2] = { 'j', 'j' }; 00075 static const symbol s_2_6[2] = { 'k', 'k' }; 00076 static const symbol s_2_7[2] = { 'l', 'l' }; 00077 static const symbol s_2_8[2] = { 'm', 'm' }; 00078 static const symbol s_2_9[2] = { 'n', 'n' }; 00079 static const symbol s_2_10[2] = { 'p', 'p' }; 00080 static const symbol s_2_11[2] = { 'r', 'r' }; 00081 static const symbol s_2_12[3] = { 'c', 'c', 's' }; 00082 static const symbol s_2_13[2] = { 's', 's' }; 00083 static const symbol s_2_14[3] = { 'z', 'z', 's' }; 00084 static const symbol s_2_15[2] = { 't', 't' }; 00085 static const symbol s_2_16[2] = { 'v', 'v' }; 00086 static const symbol s_2_17[3] = { 'g', 'g', 'y' }; 00087 static const symbol s_2_18[3] = { 'l', 'l', 'y' }; 00088 static const symbol s_2_19[3] = { 'n', 'n', 'y' }; 00089 static const symbol s_2_20[3] = { 't', 't', 'y' }; 00090 static const symbol s_2_21[3] = { 's', 's', 'z' }; 00091 static const symbol s_2_22[2] = { 'z', 'z' }; 00092 00093 static const struct among a_2[23] = 00094 { 00095 /* 0 */ { 2, s_2_0, -1, -1, 0}, 00096 /* 1 */ { 2, s_2_1, -1, -1, 0}, 00097 /* 2 */ { 2, s_2_2, -1, -1, 0}, 00098 /* 3 */ { 2, s_2_3, -1, -1, 0}, 00099 /* 4 */ { 2, s_2_4, -1, -1, 0}, 00100 /* 5 */ { 2, s_2_5, -1, -1, 0}, 00101 /* 6 */ { 2, s_2_6, -1, -1, 0}, 00102 /* 7 */ { 2, s_2_7, -1, -1, 0}, 00103 /* 8 */ { 2, s_2_8, -1, -1, 0}, 00104 /* 9 */ { 2, s_2_9, -1, -1, 0}, 00105 /* 10 */ { 2, s_2_10, -1, -1, 0}, 00106 /* 11 */ { 2, s_2_11, -1, -1, 0}, 00107 /* 12 */ { 3, s_2_12, -1, -1, 0}, 00108 /* 13 */ { 2, s_2_13, -1, -1, 0}, 00109 /* 14 */ { 3, s_2_14, -1, -1, 0}, 00110 /* 15 */ { 2, s_2_15, -1, -1, 0}, 00111 /* 16 */ { 2, s_2_16, -1, -1, 0}, 00112 /* 17 */ { 3, s_2_17, -1, -1, 0}, 00113 /* 18 */ { 3, s_2_18, -1, -1, 0}, 00114 /* 19 */ { 3, s_2_19, -1, -1, 0}, 00115 /* 20 */ { 3, s_2_20, -1, -1, 0}, 00116 /* 21 */ { 3, s_2_21, -1, -1, 0}, 00117 /* 22 */ { 2, s_2_22, -1, -1, 0} 00118 }; 00119 00120 static const symbol s_3_0[2] = { 'a', 'l' }; 00121 static const symbol s_3_1[2] = { 'e', 'l' }; 00122 00123 static const struct among a_3[2] = 00124 { 00125 /* 0 */ { 2, s_3_0, -1, 1, 0}, 00126 /* 1 */ { 2, s_3_1, -1, 2, 0} 00127 }; 00128 00129 static const symbol s_4_0[2] = { 'b', 'a' }; 00130 static const symbol s_4_1[2] = { 'r', 'a' }; 00131 static const symbol s_4_2[2] = { 'b', 'e' }; 00132 static const symbol s_4_3[2] = { 'r', 'e' }; 00133 static const symbol s_4_4[2] = { 'i', 'g' }; 00134 static const symbol s_4_5[3] = { 'n', 'a', 'k' }; 00135 static const symbol s_4_6[3] = { 'n', 'e', 'k' }; 00136 static const symbol s_4_7[3] = { 'v', 'a', 'l' }; 00137 static const symbol s_4_8[3] = { 'v', 'e', 'l' }; 00138 static const symbol s_4_9[2] = { 'u', 'l' }; 00139 static const symbol s_4_10[3] = { 'n', 0xE1, 'l' }; 00140 static const symbol s_4_11[3] = { 'n', 0xE9, 'l' }; 00141 static const symbol s_4_12[3] = { 'b', 0xF3, 'l' }; 00142 static const symbol s_4_13[3] = { 'r', 0xF3, 'l' }; 00143 static const symbol s_4_14[3] = { 't', 0xF3, 'l' }; 00144 static const symbol s_4_15[3] = { 'b', 0xF5, 'l' }; 00145 static const symbol s_4_16[3] = { 'r', 0xF5, 'l' }; 00146 static const symbol s_4_17[3] = { 't', 0xF5, 'l' }; 00147 static const symbol s_4_18[2] = { 0xFC, 'l' }; 00148 static const symbol s_4_19[1] = { 'n' }; 00149 static const symbol s_4_20[2] = { 'a', 'n' }; 00150 static const symbol s_4_21[3] = { 'b', 'a', 'n' }; 00151 static const symbol s_4_22[2] = { 'e', 'n' }; 00152 static const symbol s_4_23[3] = { 'b', 'e', 'n' }; 00153 static const symbol s_4_24[6] = { 'k', 0xE9, 'p', 'p', 'e', 'n' }; 00154 static const symbol s_4_25[2] = { 'o', 'n' }; 00155 static const symbol s_4_26[2] = { 0xF6, 'n' }; 00156 static const symbol s_4_27[4] = { 'k', 0xE9, 'p', 'p' }; 00157 static const symbol s_4_28[3] = { 'k', 'o', 'r' }; 00158 static const symbol s_4_29[1] = { 't' }; 00159 static const symbol s_4_30[2] = { 'a', 't' }; 00160 static const symbol s_4_31[2] = { 'e', 't' }; 00161 static const symbol s_4_32[4] = { 'k', 0xE9, 'n', 't' }; 00162 static const symbol s_4_33[6] = { 'a', 'n', 'k', 0xE9, 'n', 't' }; 00163 static const symbol s_4_34[6] = { 'e', 'n', 'k', 0xE9, 'n', 't' }; 00164 static const symbol s_4_35[6] = { 'o', 'n', 'k', 0xE9, 'n', 't' }; 00165 static const symbol s_4_36[2] = { 'o', 't' }; 00166 static const symbol s_4_37[3] = { 0xE9, 'r', 't' }; 00167 static const symbol s_4_38[2] = { 0xF6, 't' }; 00168 static const symbol s_4_39[3] = { 'h', 'e', 'z' }; 00169 static const symbol s_4_40[3] = { 'h', 'o', 'z' }; 00170 static const symbol s_4_41[3] = { 'h', 0xF6, 'z' }; 00171 static const symbol s_4_42[2] = { 'v', 0xE1 }; 00172 static const symbol s_4_43[2] = { 'v', 0xE9 }; 00173 00174 static const struct among a_4[44] = 00175 { 00176 /* 0 */ { 2, s_4_0, -1, -1, 0}, 00177 /* 1 */ { 2, s_4_1, -1, -1, 0}, 00178 /* 2 */ { 2, s_4_2, -1, -1, 0}, 00179 /* 3 */ { 2, s_4_3, -1, -1, 0}, 00180 /* 4 */ { 2, s_4_4, -1, -1, 0}, 00181 /* 5 */ { 3, s_4_5, -1, -1, 0}, 00182 /* 6 */ { 3, s_4_6, -1, -1, 0}, 00183 /* 7 */ { 3, s_4_7, -1, -1, 0}, 00184 /* 8 */ { 3, s_4_8, -1, -1, 0}, 00185 /* 9 */ { 2, s_4_9, -1, -1, 0}, 00186 /* 10 */ { 3, s_4_10, -1, -1, 0}, 00187 /* 11 */ { 3, s_4_11, -1, -1, 0}, 00188 /* 12 */ { 3, s_4_12, -1, -1, 0}, 00189 /* 13 */ { 3, s_4_13, -1, -1, 0}, 00190 /* 14 */ { 3, s_4_14, -1, -1, 0}, 00191 /* 15 */ { 3, s_4_15, -1, -1, 0}, 00192 /* 16 */ { 3, s_4_16, -1, -1, 0}, 00193 /* 17 */ { 3, s_4_17, -1, -1, 0}, 00194 /* 18 */ { 2, s_4_18, -1, -1, 0}, 00195 /* 19 */ { 1, s_4_19, -1, -1, 0}, 00196 /* 20 */ { 2, s_4_20, 19, -1, 0}, 00197 /* 21 */ { 3, s_4_21, 20, -1, 0}, 00198 /* 22 */ { 2, s_4_22, 19, -1, 0}, 00199 /* 23 */ { 3, s_4_23, 22, -1, 0}, 00200 /* 24 */ { 6, s_4_24, 22, -1, 0}, 00201 /* 25 */ { 2, s_4_25, 19, -1, 0}, 00202 /* 26 */ { 2, s_4_26, 19, -1, 0}, 00203 /* 27 */ { 4, s_4_27, -1, -1, 0}, 00204 /* 28 */ { 3, s_4_28, -1, -1, 0}, 00205 /* 29 */ { 1, s_4_29, -1, -1, 0}, 00206 /* 30 */ { 2, s_4_30, 29, -1, 0}, 00207 /* 31 */ { 2, s_4_31, 29, -1, 0}, 00208 /* 32 */ { 4, s_4_32, 29, -1, 0}, 00209 /* 33 */ { 6, s_4_33, 32, -1, 0}, 00210 /* 34 */ { 6, s_4_34, 32, -1, 0}, 00211 /* 35 */ { 6, s_4_35, 32, -1, 0}, 00212 /* 36 */ { 2, s_4_36, 29, -1, 0}, 00213 /* 37 */ { 3, s_4_37, 29, -1, 0}, 00214 /* 38 */ { 2, s_4_38, 29, -1, 0}, 00215 /* 39 */ { 3, s_4_39, -1, -1, 0}, 00216 /* 40 */ { 3, s_4_40, -1, -1, 0}, 00217 /* 41 */ { 3, s_4_41, -1, -1, 0}, 00218 /* 42 */ { 2, s_4_42, -1, -1, 0}, 00219 /* 43 */ { 2, s_4_43, -1, -1, 0} 00220 }; 00221 00222 static const symbol s_5_0[2] = { 0xE1, 'n' }; 00223 static const symbol s_5_1[2] = { 0xE9, 'n' }; 00224 static const symbol s_5_2[6] = { 0xE1, 'n', 'k', 0xE9, 'n', 't' }; 00225 00226 static const struct among a_5[3] = 00227 { 00228 /* 0 */ { 2, s_5_0, -1, 2, 0}, 00229 /* 1 */ { 2, s_5_1, -1, 1, 0}, 00230 /* 2 */ { 6, s_5_2, -1, 3, 0} 00231 }; 00232 00233 static const symbol s_6_0[4] = { 's', 't', 'u', 'l' }; 00234 static const symbol s_6_1[5] = { 'a', 's', 't', 'u', 'l' }; 00235 static const symbol s_6_2[5] = { 0xE1, 's', 't', 'u', 'l' }; 00236 static const symbol s_6_3[4] = { 's', 't', 0xFC, 'l' }; 00237 static const symbol s_6_4[5] = { 'e', 's', 't', 0xFC, 'l' }; 00238 static const symbol s_6_5[5] = { 0xE9, 's', 't', 0xFC, 'l' }; 00239 00240 static const struct among a_6[6] = 00241 { 00242 /* 0 */ { 4, s_6_0, -1, 2, 0}, 00243 /* 1 */ { 5, s_6_1, 0, 1, 0}, 00244 /* 2 */ { 5, s_6_2, 0, 3, 0}, 00245 /* 3 */ { 4, s_6_3, -1, 2, 0}, 00246 /* 4 */ { 5, s_6_4, 3, 1, 0}, 00247 /* 5 */ { 5, s_6_5, 3, 4, 0} 00248 }; 00249 00250 static const symbol s_7_0[1] = { 0xE1 }; 00251 static const symbol s_7_1[1] = { 0xE9 }; 00252 00253 static const struct among a_7[2] = 00254 { 00255 /* 0 */ { 1, s_7_0, -1, 1, 0}, 00256 /* 1 */ { 1, s_7_1, -1, 2, 0} 00257 }; 00258 00259 static const symbol s_8_0[1] = { 'k' }; 00260 static const symbol s_8_1[2] = { 'a', 'k' }; 00261 static const symbol s_8_2[2] = { 'e', 'k' }; 00262 static const symbol s_8_3[2] = { 'o', 'k' }; 00263 static const symbol s_8_4[2] = { 0xE1, 'k' }; 00264 static const symbol s_8_5[2] = { 0xE9, 'k' }; 00265 static const symbol s_8_6[2] = { 0xF6, 'k' }; 00266 00267 static const struct among a_8[7] = 00268 { 00269 /* 0 */ { 1, s_8_0, -1, 7, 0}, 00270 /* 1 */ { 2, s_8_1, 0, 4, 0}, 00271 /* 2 */ { 2, s_8_2, 0, 6, 0}, 00272 /* 3 */ { 2, s_8_3, 0, 5, 0}, 00273 /* 4 */ { 2, s_8_4, 0, 1, 0}, 00274 /* 5 */ { 2, s_8_5, 0, 2, 0}, 00275 /* 6 */ { 2, s_8_6, 0, 3, 0} 00276 }; 00277 00278 static const symbol s_9_0[2] = { 0xE9, 'i' }; 00279 static const symbol s_9_1[3] = { 0xE1, 0xE9, 'i' }; 00280 static const symbol s_9_2[3] = { 0xE9, 0xE9, 'i' }; 00281 static const symbol s_9_3[1] = { 0xE9 }; 00282 static const symbol s_9_4[2] = { 'k', 0xE9 }; 00283 static const symbol s_9_5[3] = { 'a', 'k', 0xE9 }; 00284 static const symbol s_9_6[3] = { 'e', 'k', 0xE9 }; 00285 static const symbol s_9_7[3] = { 'o', 'k', 0xE9 }; 00286 static const symbol s_9_8[3] = { 0xE1, 'k', 0xE9 }; 00287 static const symbol s_9_9[3] = { 0xE9, 'k', 0xE9 }; 00288 static const symbol s_9_10[3] = { 0xF6, 'k', 0xE9 }; 00289 static const symbol s_9_11[2] = { 0xE9, 0xE9 }; 00290 00291 static const struct among a_9[12] = 00292 { 00293 /* 0 */ { 2, s_9_0, -1, 7, 0}, 00294 /* 1 */ { 3, s_9_1, 0, 6, 0}, 00295 /* 2 */ { 3, s_9_2, 0, 5, 0}, 00296 /* 3 */ { 1, s_9_3, -1, 9, 0}, 00297 /* 4 */ { 2, s_9_4, 3, 4, 0}, 00298 /* 5 */ { 3, s_9_5, 4, 1, 0}, 00299 /* 6 */ { 3, s_9_6, 4, 1, 0}, 00300 /* 7 */ { 3, s_9_7, 4, 1, 0}, 00301 /* 8 */ { 3, s_9_8, 4, 3, 0}, 00302 /* 9 */ { 3, s_9_9, 4, 2, 0}, 00303 /* 10 */ { 3, s_9_10, 4, 1, 0}, 00304 /* 11 */ { 2, s_9_11, 3, 8, 0} 00305 }; 00306 00307 static const symbol s_10_0[1] = { 'a' }; 00308 static const symbol s_10_1[2] = { 'j', 'a' }; 00309 static const symbol s_10_2[1] = { 'd' }; 00310 static const symbol s_10_3[2] = { 'a', 'd' }; 00311 static const symbol s_10_4[2] = { 'e', 'd' }; 00312 static const symbol s_10_5[2] = { 'o', 'd' }; 00313 static const symbol s_10_6[2] = { 0xE1, 'd' }; 00314 static const symbol s_10_7[2] = { 0xE9, 'd' }; 00315 static const symbol s_10_8[2] = { 0xF6, 'd' }; 00316 static const symbol s_10_9[1] = { 'e' }; 00317 static const symbol s_10_10[2] = { 'j', 'e' }; 00318 static const symbol s_10_11[2] = { 'n', 'k' }; 00319 static const symbol s_10_12[3] = { 'u', 'n', 'k' }; 00320 static const symbol s_10_13[3] = { 0xE1, 'n', 'k' }; 00321 static const symbol s_10_14[3] = { 0xE9, 'n', 'k' }; 00322 static const symbol s_10_15[3] = { 0xFC, 'n', 'k' }; 00323 static const symbol s_10_16[2] = { 'u', 'k' }; 00324 static const symbol s_10_17[3] = { 'j', 'u', 'k' }; 00325 static const symbol s_10_18[4] = { 0xE1, 'j', 'u', 'k' }; 00326 static const symbol s_10_19[2] = { 0xFC, 'k' }; 00327 static const symbol s_10_20[3] = { 'j', 0xFC, 'k' }; 00328 static const symbol s_10_21[4] = { 0xE9, 'j', 0xFC, 'k' }; 00329 static const symbol s_10_22[1] = { 'm' }; 00330 static const symbol s_10_23[2] = { 'a', 'm' }; 00331 static const symbol s_10_24[2] = { 'e', 'm' }; 00332 static const symbol s_10_25[2] = { 'o', 'm' }; 00333 static const symbol s_10_26[2] = { 0xE1, 'm' }; 00334 static const symbol s_10_27[2] = { 0xE9, 'm' }; 00335 static const symbol s_10_28[1] = { 'o' }; 00336 static const symbol s_10_29[1] = { 0xE1 }; 00337 static const symbol s_10_30[1] = { 0xE9 }; 00338 00339 static const struct among a_10[31] = 00340 { 00341 /* 0 */ { 1, s_10_0, -1, 18, 0}, 00342 /* 1 */ { 2, s_10_1, 0, 17, 0}, 00343 /* 2 */ { 1, s_10_2, -1, 16, 0}, 00344 /* 3 */ { 2, s_10_3, 2, 13, 0}, 00345 /* 4 */ { 2, s_10_4, 2, 13, 0}, 00346 /* 5 */ { 2, s_10_5, 2, 13, 0}, 00347 /* 6 */ { 2, s_10_6, 2, 14, 0}, 00348 /* 7 */ { 2, s_10_7, 2, 15, 0}, 00349 /* 8 */ { 2, s_10_8, 2, 13, 0}, 00350 /* 9 */ { 1, s_10_9, -1, 18, 0}, 00351 /* 10 */ { 2, s_10_10, 9, 17, 0}, 00352 /* 11 */ { 2, s_10_11, -1, 4, 0}, 00353 /* 12 */ { 3, s_10_12, 11, 1, 0}, 00354 /* 13 */ { 3, s_10_13, 11, 2, 0}, 00355 /* 14 */ { 3, s_10_14, 11, 3, 0}, 00356 /* 15 */ { 3, s_10_15, 11, 1, 0}, 00357 /* 16 */ { 2, s_10_16, -1, 8, 0}, 00358 /* 17 */ { 3, s_10_17, 16, 7, 0}, 00359 /* 18 */ { 4, s_10_18, 17, 5, 0}, 00360 /* 19 */ { 2, s_10_19, -1, 8, 0}, 00361 /* 20 */ { 3, s_10_20, 19, 7, 0}, 00362 /* 21 */ { 4, s_10_21, 20, 6, 0}, 00363 /* 22 */ { 1, s_10_22, -1, 12, 0}, 00364 /* 23 */ { 2, s_10_23, 22, 9, 0}, 00365 /* 24 */ { 2, s_10_24, 22, 9, 0}, 00366 /* 25 */ { 2, s_10_25, 22, 9, 0}, 00367 /* 26 */ { 2, s_10_26, 22, 10, 0}, 00368 /* 27 */ { 2, s_10_27, 22, 11, 0}, 00369 /* 28 */ { 1, s_10_28, -1, 18, 0}, 00370 /* 29 */ { 1, s_10_29, -1, 19, 0}, 00371 /* 30 */ { 1, s_10_30, -1, 20, 0} 00372 }; 00373 00374 static const symbol s_11_0[2] = { 'i', 'd' }; 00375 static const symbol s_11_1[3] = { 'a', 'i', 'd' }; 00376 static const symbol s_11_2[4] = { 'j', 'a', 'i', 'd' }; 00377 static const symbol s_11_3[3] = { 'e', 'i', 'd' }; 00378 static const symbol s_11_4[4] = { 'j', 'e', 'i', 'd' }; 00379 static const symbol s_11_5[3] = { 0xE1, 'i', 'd' }; 00380 static const symbol s_11_6[3] = { 0xE9, 'i', 'd' }; 00381 static const symbol s_11_7[1] = { 'i' }; 00382 static const symbol s_11_8[2] = { 'a', 'i' }; 00383 static const symbol s_11_9[3] = { 'j', 'a', 'i' }; 00384 static const symbol s_11_10[2] = { 'e', 'i' }; 00385 static const symbol s_11_11[3] = { 'j', 'e', 'i' }; 00386 static const symbol s_11_12[2] = { 0xE1, 'i' }; 00387 static const symbol s_11_13[2] = { 0xE9, 'i' }; 00388 static const symbol s_11_14[4] = { 'i', 't', 'e', 'k' }; 00389 static const symbol s_11_15[5] = { 'e', 'i', 't', 'e', 'k' }; 00390 static const symbol s_11_16[6] = { 'j', 'e', 'i', 't', 'e', 'k' }; 00391 static const symbol s_11_17[5] = { 0xE9, 'i', 't', 'e', 'k' }; 00392 static const symbol s_11_18[2] = { 'i', 'k' }; 00393 static const symbol s_11_19[3] = { 'a', 'i', 'k' }; 00394 static const symbol s_11_20[4] = { 'j', 'a', 'i', 'k' }; 00395 static const symbol s_11_21[3] = { 'e', 'i', 'k' }; 00396 static const symbol s_11_22[4] = { 'j', 'e', 'i', 'k' }; 00397 static const symbol s_11_23[3] = { 0xE1, 'i', 'k' }; 00398 static const symbol s_11_24[3] = { 0xE9, 'i', 'k' }; 00399 static const symbol s_11_25[3] = { 'i', 'n', 'k' }; 00400 static const symbol s_11_26[4] = { 'a', 'i', 'n', 'k' }; 00401 static const symbol s_11_27[5] = { 'j', 'a', 'i', 'n', 'k' }; 00402 static const symbol s_11_28[4] = { 'e', 'i', 'n', 'k' }; 00403 static const symbol s_11_29[5] = { 'j', 'e', 'i', 'n', 'k' }; 00404 static const symbol s_11_30[4] = { 0xE1, 'i', 'n', 'k' }; 00405 static const symbol s_11_31[4] = { 0xE9, 'i', 'n', 'k' }; 00406 static const symbol s_11_32[5] = { 'a', 'i', 't', 'o', 'k' }; 00407 static const symbol s_11_33[6] = { 'j', 'a', 'i', 't', 'o', 'k' }; 00408 static const symbol s_11_34[5] = { 0xE1, 'i', 't', 'o', 'k' }; 00409 static const symbol s_11_35[2] = { 'i', 'm' }; 00410 static const symbol s_11_36[3] = { 'a', 'i', 'm' }; 00411 static const symbol s_11_37[4] = { 'j', 'a', 'i', 'm' }; 00412 static const symbol s_11_38[3] = { 'e', 'i', 'm' }; 00413 static const symbol s_11_39[4] = { 'j', 'e', 'i', 'm' }; 00414 static const symbol s_11_40[3] = { 0xE1, 'i', 'm' }; 00415 static const symbol s_11_41[3] = { 0xE9, 'i', 'm' }; 00416 00417 static const struct among a_11[42] = 00418 { 00419 /* 0 */ { 2, s_11_0, -1, 10, 0}, 00420 /* 1 */ { 3, s_11_1, 0, 9, 0}, 00421 /* 2 */ { 4, s_11_2, 1, 6, 0}, 00422 /* 3 */ { 3, s_11_3, 0, 9, 0}, 00423 /* 4 */ { 4, s_11_4, 3, 6, 0}, 00424 /* 5 */ { 3, s_11_5, 0, 7, 0}, 00425 /* 6 */ { 3, s_11_6, 0, 8, 0}, 00426 /* 7 */ { 1, s_11_7, -1, 15, 0}, 00427 /* 8 */ { 2, s_11_8, 7, 14, 0}, 00428 /* 9 */ { 3, s_11_9, 8, 11, 0}, 00429 /* 10 */ { 2, s_11_10, 7, 14, 0}, 00430 /* 11 */ { 3, s_11_11, 10, 11, 0}, 00431 /* 12 */ { 2, s_11_12, 7, 12, 0}, 00432 /* 13 */ { 2, s_11_13, 7, 13, 0}, 00433 /* 14 */ { 4, s_11_14, -1, 24, 0}, 00434 /* 15 */ { 5, s_11_15, 14, 21, 0}, 00435 /* 16 */ { 6, s_11_16, 15, 20, 0}, 00436 /* 17 */ { 5, s_11_17, 14, 23, 0}, 00437 /* 18 */ { 2, s_11_18, -1, 29, 0}, 00438 /* 19 */ { 3, s_11_19, 18, 26, 0}, 00439 /* 20 */ { 4, s_11_20, 19, 25, 0}, 00440 /* 21 */ { 3, s_11_21, 18, 26, 0}, 00441 /* 22 */ { 4, s_11_22, 21, 25, 0}, 00442 /* 23 */ { 3, s_11_23, 18, 27, 0}, 00443 /* 24 */ { 3, s_11_24, 18, 28, 0}, 00444 /* 25 */ { 3, s_11_25, -1, 20, 0}, 00445 /* 26 */ { 4, s_11_26, 25, 17, 0}, 00446 /* 27 */ { 5, s_11_27, 26, 16, 0}, 00447 /* 28 */ { 4, s_11_28, 25, 17, 0}, 00448 /* 29 */ { 5, s_11_29, 28, 16, 0}, 00449 /* 30 */ { 4, s_11_30, 25, 18, 0}, 00450 /* 31 */ { 4, s_11_31, 25, 19, 0}, 00451 /* 32 */ { 5, s_11_32, -1, 21, 0}, 00452 /* 33 */ { 6, s_11_33, 32, 20, 0}, 00453 /* 34 */ { 5, s_11_34, -1, 22, 0}, 00454 /* 35 */ { 2, s_11_35, -1, 5, 0}, 00455 /* 36 */ { 3, s_11_36, 35, 4, 0}, 00456 /* 37 */ { 4, s_11_37, 36, 1, 0}, 00457 /* 38 */ { 3, s_11_38, 35, 4, 0}, 00458 /* 39 */ { 4, s_11_39, 38, 1, 0}, 00459 /* 40 */ { 3, s_11_40, 35, 2, 0}, 00460 /* 41 */ { 3, s_11_41, 35, 3, 0} 00461 }; 00462 00463 static const unsigned char g_v[] = { 17, 65, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 17, 52, 14 }; 00464 00465 static const symbol s_0[] = { 'a' }; 00466 static const symbol s_1[] = { 'e' }; 00467 static const symbol s_2[] = { 'e' }; 00468 static const symbol s_3[] = { 'a' }; 00469 static const symbol s_4[] = { 'a' }; 00470 static const symbol s_5[] = { 'a' }; 00471 static const symbol s_6[] = { 'e' }; 00472 static const symbol s_7[] = { 'a' }; 00473 static const symbol s_8[] = { 'e' }; 00474 static const symbol s_9[] = { 'e' }; 00475 static const symbol s_10[] = { 'a' }; 00476 static const symbol s_11[] = { 'e' }; 00477 static const symbol s_12[] = { 'a' }; 00478 static const symbol s_13[] = { 'e' }; 00479 static const symbol s_14[] = { 'a' }; 00480 static const symbol s_15[] = { 'e' }; 00481 static const symbol s_16[] = { 'a' }; 00482 static const symbol s_17[] = { 'e' }; 00483 static const symbol s_18[] = { 'a' }; 00484 static const symbol s_19[] = { 'e' }; 00485 static const symbol s_20[] = { 'a' }; 00486 static const symbol s_21[] = { 'e' }; 00487 static const symbol s_22[] = { 'a' }; 00488 static const symbol s_23[] = { 'e' }; 00489 static const symbol s_24[] = { 'a' }; 00490 static const symbol s_25[] = { 'e' }; 00491 static const symbol s_26[] = { 'a' }; 00492 static const symbol s_27[] = { 'e' }; 00493 static const symbol s_28[] = { 'a' }; 00494 static const symbol s_29[] = { 'e' }; 00495 static const symbol s_30[] = { 'a' }; 00496 static const symbol s_31[] = { 'e' }; 00497 static const symbol s_32[] = { 'a' }; 00498 static const symbol s_33[] = { 'e' }; 00499 static const symbol s_34[] = { 'a' }; 00500 static const symbol s_35[] = { 'e' }; 00501 00502 static int r_mark_regions(struct SN_env * z) { 00503 z->I[0] = z->l; 00504 { int c1 = z->c; /* or, line 51 */ 00505 if (in_grouping(z, g_v, 97, 252, 0)) goto lab1; 00506 if (in_grouping(z, g_v, 97, 252, 1) < 0) goto lab1; /* goto */ /* non v, line 48 */ 00507 { int c2 = z->c; /* or, line 49 */ 00508 if (z->c + 1 >= z->l || z->p[z->c + 1] >> 5 != 3 || !((101187584 >> (z->p[z->c + 1] & 0x1f)) & 1)) goto lab3; 00509 if (!(find_among(z, a_0, 8))) goto lab3; /* among, line 49 */ 00510 goto lab2; 00511 lab3: 00512 z->c = c2; 00513 if (z->c >= z->l) goto lab1; 00514 z->c++; /* next, line 49 */ 00515 } 00516 lab2: 00517 z->I[0] = z->c; /* setmark p1, line 50 */ 00518 goto lab0; 00519 lab1: 00520 z->c = c1; 00521 if (out_grouping(z, g_v, 97, 252, 0)) return 0; 00522 { /* gopast */ /* grouping v, line 53 */ 00523 int ret = out_grouping(z, g_v, 97, 252, 1); 00524 if (ret < 0) return 0; 00525 z->c += ret; 00526 } 00527 z->I[0] = z->c; /* setmark p1, line 53 */ 00528 } 00529 lab0: 00530 return 1; 00531 } 00532 00533 static int r_R1(struct SN_env * z) { 00534 if (!(z->I[0] <= z->c)) return 0; 00535 return 1; 00536 } 00537 00538 static int r_v_ending(struct SN_env * z) { 00539 int among_var; 00540 z->ket = z->c; /* [, line 61 */ 00541 if (z->c <= z->lb || (z->p[z->c - 1] != 225 && z->p[z->c - 1] != 233)) return 0; 00542 among_var = find_among_b(z, a_1, 2); /* substring, line 61 */ 00543 if (!(among_var)) return 0; 00544 z->bra = z->c; /* ], line 61 */ 00545 { int ret = r_R1(z); 00546 if (ret == 0) return 0; /* call R1, line 61 */ 00547 if (ret < 0) return ret; 00548 } 00549 switch(among_var) { 00550 case 0: return 0; 00551 case 1: 00552 { int ret = slice_from_s(z, 1, s_0); /* <-, line 62 */ 00553 if (ret < 0) return ret; 00554 } 00555 break; 00556 case 2: 00557 { int ret = slice_from_s(z, 1, s_1); /* <-, line 63 */ 00558 if (ret < 0) return ret; 00559 } 00560 break; 00561 } 00562 return 1; 00563 } 00564 00565 static int r_double(struct SN_env * z) { 00566 { int m_test = z->l - z->c; /* test, line 68 */ 00567 if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((106790108 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0; 00568 if (!(find_among_b(z, a_2, 23))) return 0; /* among, line 68 */ 00569 z->c = z->l - m_test; 00570 } 00571 return 1; 00572 } 00573 00574 static int r_undouble(struct SN_env * z) { 00575 if (z->c <= z->lb) return 0; 00576 z->c--; /* next, line 73 */ 00577 z->ket = z->c; /* [, line 73 */ 00578 { int ret = z->c - 1; 00579 if (z->lb > ret || ret > z->l) return 0; 00580 z->c = ret; /* hop, line 73 */ 00581 } 00582 z->bra = z->c; /* ], line 73 */ 00583 { int ret = slice_del(z); /* delete, line 73 */ 00584 if (ret < 0) return ret; 00585 } 00586 return 1; 00587 } 00588 00589 static int r_instrum(struct SN_env * z) { 00590 int among_var; 00591 z->ket = z->c; /* [, line 77 */ 00592 if (z->c - 1 <= z->lb || z->p[z->c - 1] != 108) return 0; 00593 among_var = find_among_b(z, a_3, 2); /* substring, line 77 */ 00594 if (!(among_var)) return 0; 00595 z->bra = z->c; /* ], line 77 */ 00596 { int ret = r_R1(z); 00597 if (ret == 0) return 0; /* call R1, line 77 */ 00598 if (ret < 0) return ret; 00599 } 00600 switch(among_var) { 00601 case 0: return 0; 00602 case 1: 00603 { int ret = r_double(z); 00604 if (ret == 0) return 0; /* call double, line 78 */ 00605 if (ret < 0) return ret; 00606 } 00607 break; 00608 case 2: 00609 { int ret = r_double(z); 00610 if (ret == 0) return 0; /* call double, line 79 */ 00611 if (ret < 0) return ret; 00612 } 00613 break; 00614 } 00615 { int ret = slice_del(z); /* delete, line 81 */ 00616 if (ret < 0) return ret; 00617 } 00618 { int ret = r_undouble(z); 00619 if (ret == 0) return 0; /* call undouble, line 82 */ 00620 if (ret < 0) return ret; 00621 } 00622 return 1; 00623 } 00624 00625 static int r_case(struct SN_env * z) { 00626 z->ket = z->c; /* [, line 87 */ 00627 if (!(find_among_b(z, a_4, 44))) return 0; /* substring, line 87 */ 00628 z->bra = z->c; /* ], line 87 */ 00629 { int ret = r_R1(z); 00630 if (ret == 0) return 0; /* call R1, line 87 */ 00631 if (ret < 0) return ret; 00632 } 00633 { int ret = slice_del(z); /* delete, line 111 */ 00634 if (ret < 0) return ret; 00635 } 00636 { int ret = r_v_ending(z); 00637 if (ret == 0) return 0; /* call v_ending, line 112 */ 00638 if (ret < 0) return ret; 00639 } 00640 return 1; 00641 } 00642 00643 static int r_case_special(struct SN_env * z) { 00644 int among_var; 00645 z->ket = z->c; /* [, line 116 */ 00646 if (z->c - 1 <= z->lb || (z->p[z->c - 1] != 110 && z->p[z->c - 1] != 116)) return 0; 00647 among_var = find_among_b(z, a_5, 3); /* substring, line 116 */ 00648 if (!(among_var)) return 0; 00649 z->bra = z->c; /* ], line 116 */ 00650 { int ret = r_R1(z); 00651 if (ret == 0) return 0; /* call R1, line 116 */ 00652 if (ret < 0) return ret; 00653 } 00654 switch(among_var) { 00655 case 0: return 0; 00656 case 1: 00657 { int ret = slice_from_s(z, 1, s_2); /* <-, line 117 */ 00658 if (ret < 0) return ret; 00659 } 00660 break; 00661 case 2: 00662 { int ret = slice_from_s(z, 1, s_3); /* <-, line 118 */ 00663 if (ret < 0) return ret; 00664 } 00665 break; 00666 case 3: 00667 { int ret = slice_from_s(z, 1, s_4); /* <-, line 119 */ 00668 if (ret < 0) return ret; 00669 } 00670 break; 00671 } 00672 return 1; 00673 } 00674 00675 static int r_case_other(struct SN_env * z) { 00676 int among_var; 00677 z->ket = z->c; /* [, line 124 */ 00678 if (z->c - 3 <= z->lb || z->p[z->c - 1] != 108) return 0; 00679 among_var = find_among_b(z, a_6, 6); /* substring, line 124 */ 00680 if (!(among_var)) return 0; 00681 z->bra = z->c; /* ], line 124 */ 00682 { int ret = r_R1(z); 00683 if (ret == 0) return 0; /* call R1, line 124 */ 00684 if (ret < 0) return ret; 00685 } 00686 switch(among_var) { 00687 case 0: return 0; 00688 case 1: 00689 { int ret = slice_del(z); /* delete, line 125 */ 00690 if (ret < 0) return ret; 00691 } 00692 break; 00693 case 2: 00694 { int ret = slice_del(z); /* delete, line 126 */ 00695 if (ret < 0) return ret; 00696 } 00697 break; 00698 case 3: 00699 { int ret = slice_from_s(z, 1, s_5); /* <-, line 127 */ 00700 if (ret < 0) return ret; 00701 } 00702 break; 00703 case 4: 00704 { int ret = slice_from_s(z, 1, s_6); /* <-, line 128 */ 00705 if (ret < 0) return ret; 00706 } 00707 break; 00708 } 00709 return 1; 00710 } 00711 00712 static int r_factive(struct SN_env * z) { 00713 int among_var; 00714 z->ket = z->c; /* [, line 133 */ 00715 if (z->c <= z->lb || (z->p[z->c - 1] != 225 && z->p[z->c - 1] != 233)) return 0; 00716 among_var = find_among_b(z, a_7, 2); /* substring, line 133 */ 00717 if (!(among_var)) return 0; 00718 z->bra = z->c; /* ], line 133 */ 00719 { int ret = r_R1(z); 00720 if (ret == 0) return 0; /* call R1, line 133 */ 00721 if (ret < 0) return ret; 00722 } 00723 switch(among_var) { 00724 case 0: return 0; 00725 case 1: 00726 { int ret = r_double(z); 00727 if (ret == 0) return 0; /* call double, line 134 */ 00728 if (ret < 0) return ret; 00729 } 00730 break; 00731 case 2: 00732 { int ret = r_double(z); 00733 if (ret == 0) return 0; /* call double, line 135 */ 00734 if (ret < 0) return ret; 00735 } 00736 break; 00737 } 00738 { int ret = slice_del(z); /* delete, line 137 */ 00739 if (ret < 0) return ret; 00740 } 00741 { int ret = r_undouble(z); 00742 if (ret == 0) return 0; /* call undouble, line 138 */ 00743 if (ret < 0) return ret; 00744 } 00745 return 1; 00746 } 00747 00748 static int r_plural(struct SN_env * z) { 00749 int among_var; 00750 z->ket = z->c; /* [, line 142 */ 00751 if (z->c <= z->lb || z->p[z->c - 1] != 107) return 0; 00752 among_var = find_among_b(z, a_8, 7); /* substring, line 142 */ 00753 if (!(among_var)) return 0; 00754 z->bra = z->c; /* ], line 142 */ 00755 { int ret = r_R1(z); 00756 if (ret == 0) return 0; /* call R1, line 142 */ 00757 if (ret < 0) return ret; 00758 } 00759 switch(among_var) { 00760 case 0: return 0; 00761 case 1: 00762 { int ret = slice_from_s(z, 1, s_7); /* <-, line 143 */ 00763 if (ret < 0) return ret; 00764 } 00765 break; 00766 case 2: 00767 { int ret = slice_from_s(z, 1, s_8); /* <-, line 144 */ 00768 if (ret < 0) return ret; 00769 } 00770 break; 00771 case 3: 00772 { int ret = slice_del(z); /* delete, line 145 */ 00773 if (ret < 0) return ret; 00774 } 00775 break; 00776 case 4: 00777 { int ret = slice_del(z); /* delete, line 146 */ 00778 if (ret < 0) return ret; 00779 } 00780 break; 00781 case 5: 00782 { int ret = slice_del(z); /* delete, line 147 */ 00783 if (ret < 0) return ret; 00784 } 00785 break; 00786 case 6: 00787 { int ret = slice_del(z); /* delete, line 148 */ 00788 if (ret < 0) return ret; 00789 } 00790 break; 00791 case 7: 00792 { int ret = slice_del(z); /* delete, line 149 */ 00793 if (ret < 0) return ret; 00794 } 00795 break; 00796 } 00797 return 1; 00798 } 00799 00800 static int r_owned(struct SN_env * z) { 00801 int among_var; 00802 z->ket = z->c; /* [, line 154 */ 00803 if (z->c <= z->lb || (z->p[z->c - 1] != 105 && z->p[z->c - 1] != 233)) return 0; 00804 among_var = find_among_b(z, a_9, 12); /* substring, line 154 */ 00805 if (!(among_var)) return 0; 00806 z->bra = z->c; /* ], line 154 */ 00807 { int ret = r_R1(z); 00808 if (ret == 0) return 0; /* call R1, line 154 */ 00809 if (ret < 0) return ret; 00810 } 00811 switch(among_var) { 00812 case 0: return 0; 00813 case 1: 00814 { int ret = slice_del(z); /* delete, line 155 */ 00815 if (ret < 0) return ret; 00816 } 00817 break; 00818 case 2: 00819 { int ret = slice_from_s(z, 1, s_9); /* <-, line 156 */ 00820 if (ret < 0) return ret; 00821 } 00822 break; 00823 case 3: 00824 { int ret = slice_from_s(z, 1, s_10); /* <-, line 157 */ 00825 if (ret < 0) return ret; 00826 } 00827 break; 00828 case 4: 00829 { int ret = slice_del(z); /* delete, line 158 */ 00830 if (ret < 0) return ret; 00831 } 00832 break; 00833 case 5: 00834 { int ret = slice_from_s(z, 1, s_11); /* <-, line 159 */ 00835 if (ret < 0) return ret; 00836 } 00837 break; 00838 case 6: 00839 { int ret = slice_from_s(z, 1, s_12); /* <-, line 160 */ 00840 if (ret < 0) return ret; 00841 } 00842 break; 00843 case 7: 00844 { int ret = slice_del(z); /* delete, line 161 */ 00845 if (ret < 0) return ret; 00846 } 00847 break; 00848 case 8: 00849 { int ret = slice_from_s(z, 1, s_13); /* <-, line 162 */ 00850 if (ret < 0) return ret; 00851 } 00852 break; 00853 case 9: 00854 { int ret = slice_del(z); /* delete, line 163 */ 00855 if (ret < 0) return ret; 00856 } 00857 break; 00858 } 00859 return 1; 00860 } 00861 00862 static int r_sing_owner(struct SN_env * z) { 00863 int among_var; 00864 z->ket = z->c; /* [, line 168 */ 00865 among_var = find_among_b(z, a_10, 31); /* substring, line 168 */ 00866 if (!(among_var)) return 0; 00867 z->bra = z->c; /* ], line 168 */ 00868 { int ret = r_R1(z); 00869 if (ret == 0) return 0; /* call R1, line 168 */ 00870 if (ret < 0) return ret; 00871 } 00872 switch(among_var) { 00873 case 0: return 0; 00874 case 1: 00875 { int ret = slice_del(z); /* delete, line 169 */ 00876 if (ret < 0) return ret; 00877 } 00878 break; 00879 case 2: 00880 { int ret = slice_from_s(z, 1, s_14); /* <-, line 170 */ 00881 if (ret < 0) return ret; 00882 } 00883 break; 00884 case 3: 00885 { int ret = slice_from_s(z, 1, s_15); /* <-, line 171 */ 00886 if (ret < 0) return ret; 00887 } 00888 break; 00889 case 4: 00890 { int ret = slice_del(z); /* delete, line 172 */ 00891 if (ret < 0) return ret; 00892 } 00893 break; 00894 case 5: 00895 { int ret = slice_from_s(z, 1, s_16); /* <-, line 173 */ 00896 if (ret < 0) return ret; 00897 } 00898 break; 00899 case 6: 00900 { int ret = slice_from_s(z, 1, s_17); /* <-, line 174 */ 00901 if (ret < 0) return ret; 00902 } 00903 break; 00904 case 7: 00905 { int ret = slice_del(z); /* delete, line 175 */ 00906 if (ret < 0) return ret; 00907 } 00908 break; 00909 case 8: 00910 { int ret = slice_del(z); /* delete, line 176 */ 00911 if (ret < 0) return ret; 00912 } 00913 break; 00914 case 9: 00915 { int ret = slice_del(z); /* delete, line 177 */ 00916 if (ret < 0) return ret; 00917 } 00918 break; 00919 case 10: 00920 { int ret = slice_from_s(z, 1, s_18); /* <-, line 178 */ 00921 if (ret < 0) return ret; 00922 } 00923 break; 00924 case 11: 00925 { int ret = slice_from_s(z, 1, s_19); /* <-, line 179 */ 00926 if (ret < 0) return ret; 00927 } 00928 break; 00929 case 12: 00930 { int ret = slice_del(z); /* delete, line 180 */ 00931 if (ret < 0) return ret; 00932 } 00933 break; 00934 case 13: 00935 { int ret = slice_del(z); /* delete, line 181 */ 00936 if (ret < 0) return ret; 00937 } 00938 break; 00939 case 14: 00940 { int ret = slice_from_s(z, 1, s_20); /* <-, line 182 */ 00941 if (ret < 0) return ret; 00942 } 00943 break; 00944 case 15: 00945 { int ret = slice_from_s(z, 1, s_21); /* <-, line 183 */ 00946 if (ret < 0) return ret; 00947 } 00948 break; 00949 case 16: 00950 { int ret = slice_del(z); /* delete, line 184 */ 00951 if (ret < 0) return ret; 00952 } 00953 break; 00954 case 17: 00955 { int ret = slice_del(z); /* delete, line 185 */ 00956 if (ret < 0) return ret; 00957 } 00958 break; 00959 case 18: 00960 { int ret = slice_del(z); /* delete, line 186 */ 00961 if (ret < 0) return ret; 00962 } 00963 break; 00964 case 19: 00965 { int ret = slice_from_s(z, 1, s_22); /* <-, line 187 */ 00966 if (ret < 0) return ret; 00967 } 00968 break; 00969 case 20: 00970 { int ret = slice_from_s(z, 1, s_23); /* <-, line 188 */ 00971 if (ret < 0) return ret; 00972 } 00973 break; 00974 } 00975 return 1; 00976 } 00977 00978 static int r_plur_owner(struct SN_env * z) { 00979 int among_var; 00980 z->ket = z->c; /* [, line 193 */ 00981 if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((10768 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0; 00982 among_var = find_among_b(z, a_11, 42); /* substring, line 193 */ 00983 if (!(among_var)) return 0; 00984 z->bra = z->c; /* ], line 193 */ 00985 { int ret = r_R1(z); 00986 if (ret == 0) return 0; /* call R1, line 193 */ 00987 if (ret < 0) return ret; 00988 } 00989 switch(among_var) { 00990 case 0: return 0; 00991 case 1: 00992 { int ret = slice_del(z); /* delete, line 194 */ 00993 if (ret < 0) return ret; 00994 } 00995 break; 00996 case 2: 00997 { int ret = slice_from_s(z, 1, s_24); /* <-, line 195 */ 00998 if (ret < 0) return ret; 00999 } 01000 break; 01001 case 3: 01002 { int ret = slice_from_s(z, 1, s_25); /* <-, line 196 */ 01003 if (ret < 0) return ret; 01004 } 01005 break; 01006 case 4: 01007 { int ret = slice_del(z); /* delete, line 197 */ 01008 if (ret < 0) return ret; 01009 } 01010 break; 01011 case 5: 01012 { int ret = slice_del(z); /* delete, line 198 */ 01013 if (ret < 0) return ret; 01014 } 01015 break; 01016 case 6: 01017 { int ret = slice_del(z); /* delete, line 199 */ 01018 if (ret < 0) return ret; 01019 } 01020 break; 01021 case 7: 01022 { int ret = slice_from_s(z, 1, s_26); /* <-, line 200 */ 01023 if (ret < 0) return ret; 01024 } 01025 break; 01026 case 8: 01027 { int ret = slice_from_s(z, 1, s_27); /* <-, line 201 */ 01028 if (ret < 0) return ret; 01029 } 01030 break; 01031 case 9: 01032 { int ret = slice_del(z); /* delete, line 202 */ 01033 if (ret < 0) return ret; 01034 } 01035 break; 01036 case 10: 01037 { int ret = slice_del(z); /* delete, line 203 */ 01038 if (ret < 0) return ret; 01039 } 01040 break; 01041 case 11: 01042 { int ret = slice_del(z); /* delete, line 204 */ 01043 if (ret < 0) return ret; 01044 } 01045 break; 01046 case 12: 01047 { int ret = slice_from_s(z, 1, s_28); /* <-, line 205 */ 01048 if (ret < 0) return ret; 01049 } 01050 break; 01051 case 13: 01052 { int ret = slice_from_s(z, 1, s_29); /* <-, line 206 */ 01053 if (ret < 0) return ret; 01054 } 01055 break; 01056 case 14: 01057 { int ret = slice_del(z); /* delete, line 207 */ 01058 if (ret < 0) return ret; 01059 } 01060 break; 01061 case 15: 01062 { int ret = slice_del(z); /* delete, line 208 */ 01063 if (ret < 0) return ret; 01064 } 01065 break; 01066 case 16: 01067 { int ret = slice_del(z); /* delete, line 209 */ 01068 if (ret < 0) return ret; 01069 } 01070 break; 01071 case 17: 01072 { int ret = slice_del(z); /* delete, line 210 */ 01073 if (ret < 0) return ret; 01074 } 01075 break; 01076 case 18: 01077 { int ret = slice_from_s(z, 1, s_30); /* <-, line 211 */ 01078 if (ret < 0) return ret; 01079 } 01080 break; 01081 case 19: 01082 { int ret = slice_from_s(z, 1, s_31); /* <-, line 212 */ 01083 if (ret < 0) return ret; 01084 } 01085 break; 01086 case 20: 01087 { int ret = slice_del(z); /* delete, line 214 */ 01088 if (ret < 0) return ret; 01089 } 01090 break; 01091 case 21: 01092 { int ret = slice_del(z); /* delete, line 215 */ 01093 if (ret < 0) return ret; 01094 } 01095 break; 01096 case 22: 01097 { int ret = slice_from_s(z, 1, s_32); /* <-, line 216 */ 01098 if (ret < 0) return ret; 01099 } 01100 break; 01101 case 23: 01102 { int ret = slice_from_s(z, 1, s_33); /* <-, line 217 */ 01103 if (ret < 0) return ret; 01104 } 01105 break; 01106 case 24: 01107 { int ret = slice_del(z); /* delete, line 218 */ 01108 if (ret < 0) return ret; 01109 } 01110 break; 01111 case 25: 01112 { int ret = slice_del(z); /* delete, line 219 */ 01113 if (ret < 0) return ret; 01114 } 01115 break; 01116 case 26: 01117 { int ret = slice_del(z); /* delete, line 220 */ 01118 if (ret < 0) return ret; 01119 } 01120 break; 01121 case 27: 01122 { int ret = slice_from_s(z, 1, s_34); /* <-, line 221 */ 01123 if (ret < 0) return ret; 01124 } 01125 break; 01126 case 28: 01127 { int ret = slice_from_s(z, 1, s_35); /* <-, line 222 */ 01128 if (ret < 0) return ret; 01129 } 01130 break; 01131 case 29: 01132 { int ret = slice_del(z); /* delete, line 223 */ 01133 if (ret < 0) return ret; 01134 } 01135 break; 01136 } 01137 return 1; 01138 } 01139 01140 extern int hungarian_ISO_8859_1_stem(struct SN_env * z) { 01141 { int c1 = z->c; /* do, line 229 */ 01142 { int ret = r_mark_regions(z); 01143 if (ret == 0) goto lab0; /* call mark_regions, line 229 */ 01144 if (ret < 0) return ret; 01145 } 01146 lab0: 01147 z->c = c1; 01148 } 01149 z->lb = z->c; z->c = z->l; /* backwards, line 230 */ 01150 01151 { int m2 = z->l - z->c; (void)m2; /* do, line 231 */ 01152 { int ret = r_instrum(z); 01153 if (ret == 0) goto lab1; /* call instrum, line 231 */ 01154 if (ret < 0) return ret; 01155 } 01156 lab1: 01157 z->c = z->l - m2; 01158 } 01159 { int m3 = z->l - z->c; (void)m3; /* do, line 232 */ 01160 { int ret = r_case(z); 01161 if (ret == 0) goto lab2; /* call case, line 232 */ 01162 if (ret < 0) return ret; 01163 } 01164 lab2: 01165 z->c = z->l - m3; 01166 } 01167 { int m4 = z->l - z->c; (void)m4; /* do, line 233 */ 01168 { int ret = r_case_special(z); 01169 if (ret == 0) goto lab3; /* call case_special, line 233 */ 01170 if (ret < 0) return ret; 01171 } 01172 lab3: 01173 z->c = z->l - m4; 01174 } 01175 { int m5 = z->l - z->c; (void)m5; /* do, line 234 */ 01176 { int ret = r_case_other(z); 01177 if (ret == 0) goto lab4; /* call case_other, line 234 */ 01178 if (ret < 0) return ret; 01179 } 01180 lab4: 01181 z->c = z->l - m5; 01182 } 01183 { int m6 = z->l - z->c; (void)m6; /* do, line 235 */ 01184 { int ret = r_factive(z); 01185 if (ret == 0) goto lab5; /* call factive, line 235 */ 01186 if (ret < 0) return ret; 01187 } 01188 lab5: 01189 z->c = z->l - m6; 01190 } 01191 { int m7 = z->l - z->c; (void)m7; /* do, line 236 */ 01192 { int ret = r_owned(z); 01193 if (ret == 0) goto lab6; /* call owned, line 236 */ 01194 if (ret < 0) return ret; 01195 } 01196 lab6: 01197 z->c = z->l - m7; 01198 } 01199 { int m8 = z->l - z->c; (void)m8; /* do, line 237 */ 01200 { int ret = r_sing_owner(z); 01201 if (ret == 0) goto lab7; /* call sing_owner, line 237 */ 01202 if (ret < 0) return ret; 01203 } 01204 lab7: 01205 z->c = z->l - m8; 01206 } 01207 { int m9 = z->l - z->c; (void)m9; /* do, line 238 */ 01208 { int ret = r_plur_owner(z); 01209 if (ret == 0) goto lab8; /* call plur_owner, line 238 */ 01210 if (ret < 0) return ret; 01211 } 01212 lab8: 01213 z->c = z->l - m9; 01214 } 01215 { int m10 = z->l - z->c; (void)m10; /* do, line 239 */ 01216 { int ret = r_plural(z); 01217 if (ret == 0) goto lab9; /* call plural, line 239 */ 01218 if (ret < 0) return ret; 01219 } 01220 lab9: 01221 z->c = z->l - m10; 01222 } 01223 z->c = z->lb; 01224 return 1; 01225 } 01226 01227 extern struct SN_env * hungarian_ISO_8859_1_create_env(void) { return SN_create_env(0, 1, 0); } 01228 01229 extern void hungarian_ISO_8859_1_close_env(struct SN_env * z) { SN_close_env(z, 0); } 01230
1.7.1