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 english_ISO_8859_1_stem(struct SN_env * z); 00010 #ifdef __cplusplus 00011 } 00012 #endif 00013 static int r_exception2(struct SN_env * z); 00014 static int r_exception1(struct SN_env * z); 00015 static int r_Step_5(struct SN_env * z); 00016 static int r_Step_4(struct SN_env * z); 00017 static int r_Step_3(struct SN_env * z); 00018 static int r_Step_2(struct SN_env * z); 00019 static int r_Step_1c(struct SN_env * z); 00020 static int r_Step_1b(struct SN_env * z); 00021 static int r_Step_1a(struct SN_env * z); 00022 static int r_R2(struct SN_env * z); 00023 static int r_R1(struct SN_env * z); 00024 static int r_shortv(struct SN_env * z); 00025 static int r_mark_regions(struct SN_env * z); 00026 static int r_postlude(struct SN_env * z); 00027 static int r_prelude(struct SN_env * z); 00028 #ifdef __cplusplus 00029 extern "C" { 00030 #endif 00031 00032 00033 extern struct SN_env * english_ISO_8859_1_create_env(void); 00034 extern void english_ISO_8859_1_close_env(struct SN_env * z); 00035 00036 00037 #ifdef __cplusplus 00038 } 00039 #endif 00040 static const symbol s_0_0[5] = { 'a', 'r', 's', 'e', 'n' }; 00041 static const symbol s_0_1[6] = { 'c', 'o', 'm', 'm', 'u', 'n' }; 00042 static const symbol s_0_2[5] = { 'g', 'e', 'n', 'e', 'r' }; 00043 00044 static const struct among a_0[3] = 00045 { 00046 /* 0 */ { 5, s_0_0, -1, -1, 0}, 00047 /* 1 */ { 6, s_0_1, -1, -1, 0}, 00048 /* 2 */ { 5, s_0_2, -1, -1, 0} 00049 }; 00050 00051 static const symbol s_1_0[1] = { '\'' }; 00052 static const symbol s_1_1[3] = { '\'', 's', '\'' }; 00053 static const symbol s_1_2[2] = { '\'', 's' }; 00054 00055 static const struct among a_1[3] = 00056 { 00057 /* 0 */ { 1, s_1_0, -1, 1, 0}, 00058 /* 1 */ { 3, s_1_1, 0, 1, 0}, 00059 /* 2 */ { 2, s_1_2, -1, 1, 0} 00060 }; 00061 00062 static const symbol s_2_0[3] = { 'i', 'e', 'd' }; 00063 static const symbol s_2_1[1] = { 's' }; 00064 static const symbol s_2_2[3] = { 'i', 'e', 's' }; 00065 static const symbol s_2_3[4] = { 's', 's', 'e', 's' }; 00066 static const symbol s_2_4[2] = { 's', 's' }; 00067 static const symbol s_2_5[2] = { 'u', 's' }; 00068 00069 static const struct among a_2[6] = 00070 { 00071 /* 0 */ { 3, s_2_0, -1, 2, 0}, 00072 /* 1 */ { 1, s_2_1, -1, 3, 0}, 00073 /* 2 */ { 3, s_2_2, 1, 2, 0}, 00074 /* 3 */ { 4, s_2_3, 1, 1, 0}, 00075 /* 4 */ { 2, s_2_4, 1, -1, 0}, 00076 /* 5 */ { 2, s_2_5, 1, -1, 0} 00077 }; 00078 00079 static const symbol s_3_1[2] = { 'b', 'b' }; 00080 static const symbol s_3_2[2] = { 'd', 'd' }; 00081 static const symbol s_3_3[2] = { 'f', 'f' }; 00082 static const symbol s_3_4[2] = { 'g', 'g' }; 00083 static const symbol s_3_5[2] = { 'b', 'l' }; 00084 static const symbol s_3_6[2] = { 'm', 'm' }; 00085 static const symbol s_3_7[2] = { 'n', 'n' }; 00086 static const symbol s_3_8[2] = { 'p', 'p' }; 00087 static const symbol s_3_9[2] = { 'r', 'r' }; 00088 static const symbol s_3_10[2] = { 'a', 't' }; 00089 static const symbol s_3_11[2] = { 't', 't' }; 00090 static const symbol s_3_12[2] = { 'i', 'z' }; 00091 00092 static const struct among a_3[13] = 00093 { 00094 /* 0 */ { 0, 0, -1, 3, 0}, 00095 /* 1 */ { 2, s_3_1, 0, 2, 0}, 00096 /* 2 */ { 2, s_3_2, 0, 2, 0}, 00097 /* 3 */ { 2, s_3_3, 0, 2, 0}, 00098 /* 4 */ { 2, s_3_4, 0, 2, 0}, 00099 /* 5 */ { 2, s_3_5, 0, 1, 0}, 00100 /* 6 */ { 2, s_3_6, 0, 2, 0}, 00101 /* 7 */ { 2, s_3_7, 0, 2, 0}, 00102 /* 8 */ { 2, s_3_8, 0, 2, 0}, 00103 /* 9 */ { 2, s_3_9, 0, 2, 0}, 00104 /* 10 */ { 2, s_3_10, 0, 1, 0}, 00105 /* 11 */ { 2, s_3_11, 0, 2, 0}, 00106 /* 12 */ { 2, s_3_12, 0, 1, 0} 00107 }; 00108 00109 static const symbol s_4_0[2] = { 'e', 'd' }; 00110 static const symbol s_4_1[3] = { 'e', 'e', 'd' }; 00111 static const symbol s_4_2[3] = { 'i', 'n', 'g' }; 00112 static const symbol s_4_3[4] = { 'e', 'd', 'l', 'y' }; 00113 static const symbol s_4_4[5] = { 'e', 'e', 'd', 'l', 'y' }; 00114 static const symbol s_4_5[5] = { 'i', 'n', 'g', 'l', 'y' }; 00115 00116 static const struct among a_4[6] = 00117 { 00118 /* 0 */ { 2, s_4_0, -1, 2, 0}, 00119 /* 1 */ { 3, s_4_1, 0, 1, 0}, 00120 /* 2 */ { 3, s_4_2, -1, 2, 0}, 00121 /* 3 */ { 4, s_4_3, -1, 2, 0}, 00122 /* 4 */ { 5, s_4_4, 3, 1, 0}, 00123 /* 5 */ { 5, s_4_5, -1, 2, 0} 00124 }; 00125 00126 static const symbol s_5_0[4] = { 'a', 'n', 'c', 'i' }; 00127 static const symbol s_5_1[4] = { 'e', 'n', 'c', 'i' }; 00128 static const symbol s_5_2[3] = { 'o', 'g', 'i' }; 00129 static const symbol s_5_3[2] = { 'l', 'i' }; 00130 static const symbol s_5_4[3] = { 'b', 'l', 'i' }; 00131 static const symbol s_5_5[4] = { 'a', 'b', 'l', 'i' }; 00132 static const symbol s_5_6[4] = { 'a', 'l', 'l', 'i' }; 00133 static const symbol s_5_7[5] = { 'f', 'u', 'l', 'l', 'i' }; 00134 static const symbol s_5_8[6] = { 'l', 'e', 's', 's', 'l', 'i' }; 00135 static const symbol s_5_9[5] = { 'o', 'u', 's', 'l', 'i' }; 00136 static const symbol s_5_10[5] = { 'e', 'n', 't', 'l', 'i' }; 00137 static const symbol s_5_11[5] = { 'a', 'l', 'i', 't', 'i' }; 00138 static const symbol s_5_12[6] = { 'b', 'i', 'l', 'i', 't', 'i' }; 00139 static const symbol s_5_13[5] = { 'i', 'v', 'i', 't', 'i' }; 00140 static const symbol s_5_14[6] = { 't', 'i', 'o', 'n', 'a', 'l' }; 00141 static const symbol s_5_15[7] = { 'a', 't', 'i', 'o', 'n', 'a', 'l' }; 00142 static const symbol s_5_16[5] = { 'a', 'l', 'i', 's', 'm' }; 00143 static const symbol s_5_17[5] = { 'a', 't', 'i', 'o', 'n' }; 00144 static const symbol s_5_18[7] = { 'i', 'z', 'a', 't', 'i', 'o', 'n' }; 00145 static const symbol s_5_19[4] = { 'i', 'z', 'e', 'r' }; 00146 static const symbol s_5_20[4] = { 'a', 't', 'o', 'r' }; 00147 static const symbol s_5_21[7] = { 'i', 'v', 'e', 'n', 'e', 's', 's' }; 00148 static const symbol s_5_22[7] = { 'f', 'u', 'l', 'n', 'e', 's', 's' }; 00149 static const symbol s_5_23[7] = { 'o', 'u', 's', 'n', 'e', 's', 's' }; 00150 00151 static const struct among a_5[24] = 00152 { 00153 /* 0 */ { 4, s_5_0, -1, 3, 0}, 00154 /* 1 */ { 4, s_5_1, -1, 2, 0}, 00155 /* 2 */ { 3, s_5_2, -1, 13, 0}, 00156 /* 3 */ { 2, s_5_3, -1, 16, 0}, 00157 /* 4 */ { 3, s_5_4, 3, 12, 0}, 00158 /* 5 */ { 4, s_5_5, 4, 4, 0}, 00159 /* 6 */ { 4, s_5_6, 3, 8, 0}, 00160 /* 7 */ { 5, s_5_7, 3, 14, 0}, 00161 /* 8 */ { 6, s_5_8, 3, 15, 0}, 00162 /* 9 */ { 5, s_5_9, 3, 10, 0}, 00163 /* 10 */ { 5, s_5_10, 3, 5, 0}, 00164 /* 11 */ { 5, s_5_11, -1, 8, 0}, 00165 /* 12 */ { 6, s_5_12, -1, 12, 0}, 00166 /* 13 */ { 5, s_5_13, -1, 11, 0}, 00167 /* 14 */ { 6, s_5_14, -1, 1, 0}, 00168 /* 15 */ { 7, s_5_15, 14, 7, 0}, 00169 /* 16 */ { 5, s_5_16, -1, 8, 0}, 00170 /* 17 */ { 5, s_5_17, -1, 7, 0}, 00171 /* 18 */ { 7, s_5_18, 17, 6, 0}, 00172 /* 19 */ { 4, s_5_19, -1, 6, 0}, 00173 /* 20 */ { 4, s_5_20, -1, 7, 0}, 00174 /* 21 */ { 7, s_5_21, -1, 11, 0}, 00175 /* 22 */ { 7, s_5_22, -1, 9, 0}, 00176 /* 23 */ { 7, s_5_23, -1, 10, 0} 00177 }; 00178 00179 static const symbol s_6_0[5] = { 'i', 'c', 'a', 't', 'e' }; 00180 static const symbol s_6_1[5] = { 'a', 't', 'i', 'v', 'e' }; 00181 static const symbol s_6_2[5] = { 'a', 'l', 'i', 'z', 'e' }; 00182 static const symbol s_6_3[5] = { 'i', 'c', 'i', 't', 'i' }; 00183 static const symbol s_6_4[4] = { 'i', 'c', 'a', 'l' }; 00184 static const symbol s_6_5[6] = { 't', 'i', 'o', 'n', 'a', 'l' }; 00185 static const symbol s_6_6[7] = { 'a', 't', 'i', 'o', 'n', 'a', 'l' }; 00186 static const symbol s_6_7[3] = { 'f', 'u', 'l' }; 00187 static const symbol s_6_8[4] = { 'n', 'e', 's', 's' }; 00188 00189 static const struct among a_6[9] = 00190 { 00191 /* 0 */ { 5, s_6_0, -1, 4, 0}, 00192 /* 1 */ { 5, s_6_1, -1, 6, 0}, 00193 /* 2 */ { 5, s_6_2, -1, 3, 0}, 00194 /* 3 */ { 5, s_6_3, -1, 4, 0}, 00195 /* 4 */ { 4, s_6_4, -1, 4, 0}, 00196 /* 5 */ { 6, s_6_5, -1, 1, 0}, 00197 /* 6 */ { 7, s_6_6, 5, 2, 0}, 00198 /* 7 */ { 3, s_6_7, -1, 5, 0}, 00199 /* 8 */ { 4, s_6_8, -1, 5, 0} 00200 }; 00201 00202 static const symbol s_7_0[2] = { 'i', 'c' }; 00203 static const symbol s_7_1[4] = { 'a', 'n', 'c', 'e' }; 00204 static const symbol s_7_2[4] = { 'e', 'n', 'c', 'e' }; 00205 static const symbol s_7_3[4] = { 'a', 'b', 'l', 'e' }; 00206 static const symbol s_7_4[4] = { 'i', 'b', 'l', 'e' }; 00207 static const symbol s_7_5[3] = { 'a', 't', 'e' }; 00208 static const symbol s_7_6[3] = { 'i', 'v', 'e' }; 00209 static const symbol s_7_7[3] = { 'i', 'z', 'e' }; 00210 static const symbol s_7_8[3] = { 'i', 't', 'i' }; 00211 static const symbol s_7_9[2] = { 'a', 'l' }; 00212 static const symbol s_7_10[3] = { 'i', 's', 'm' }; 00213 static const symbol s_7_11[3] = { 'i', 'o', 'n' }; 00214 static const symbol s_7_12[2] = { 'e', 'r' }; 00215 static const symbol s_7_13[3] = { 'o', 'u', 's' }; 00216 static const symbol s_7_14[3] = { 'a', 'n', 't' }; 00217 static const symbol s_7_15[3] = { 'e', 'n', 't' }; 00218 static const symbol s_7_16[4] = { 'm', 'e', 'n', 't' }; 00219 static const symbol s_7_17[5] = { 'e', 'm', 'e', 'n', 't' }; 00220 00221 static const struct among a_7[18] = 00222 { 00223 /* 0 */ { 2, s_7_0, -1, 1, 0}, 00224 /* 1 */ { 4, s_7_1, -1, 1, 0}, 00225 /* 2 */ { 4, s_7_2, -1, 1, 0}, 00226 /* 3 */ { 4, s_7_3, -1, 1, 0}, 00227 /* 4 */ { 4, s_7_4, -1, 1, 0}, 00228 /* 5 */ { 3, s_7_5, -1, 1, 0}, 00229 /* 6 */ { 3, s_7_6, -1, 1, 0}, 00230 /* 7 */ { 3, s_7_7, -1, 1, 0}, 00231 /* 8 */ { 3, s_7_8, -1, 1, 0}, 00232 /* 9 */ { 2, s_7_9, -1, 1, 0}, 00233 /* 10 */ { 3, s_7_10, -1, 1, 0}, 00234 /* 11 */ { 3, s_7_11, -1, 2, 0}, 00235 /* 12 */ { 2, s_7_12, -1, 1, 0}, 00236 /* 13 */ { 3, s_7_13, -1, 1, 0}, 00237 /* 14 */ { 3, s_7_14, -1, 1, 0}, 00238 /* 15 */ { 3, s_7_15, -1, 1, 0}, 00239 /* 16 */ { 4, s_7_16, 15, 1, 0}, 00240 /* 17 */ { 5, s_7_17, 16, 1, 0} 00241 }; 00242 00243 static const symbol s_8_0[1] = { 'e' }; 00244 static const symbol s_8_1[1] = { 'l' }; 00245 00246 static const struct among a_8[2] = 00247 { 00248 /* 0 */ { 1, s_8_0, -1, 1, 0}, 00249 /* 1 */ { 1, s_8_1, -1, 2, 0} 00250 }; 00251 00252 static const symbol s_9_0[7] = { 's', 'u', 'c', 'c', 'e', 'e', 'd' }; 00253 static const symbol s_9_1[7] = { 'p', 'r', 'o', 'c', 'e', 'e', 'd' }; 00254 static const symbol s_9_2[6] = { 'e', 'x', 'c', 'e', 'e', 'd' }; 00255 static const symbol s_9_3[7] = { 'c', 'a', 'n', 'n', 'i', 'n', 'g' }; 00256 static const symbol s_9_4[6] = { 'i', 'n', 'n', 'i', 'n', 'g' }; 00257 static const symbol s_9_5[7] = { 'e', 'a', 'r', 'r', 'i', 'n', 'g' }; 00258 static const symbol s_9_6[7] = { 'h', 'e', 'r', 'r', 'i', 'n', 'g' }; 00259 static const symbol s_9_7[6] = { 'o', 'u', 't', 'i', 'n', 'g' }; 00260 00261 static const struct among a_9[8] = 00262 { 00263 /* 0 */ { 7, s_9_0, -1, -1, 0}, 00264 /* 1 */ { 7, s_9_1, -1, -1, 0}, 00265 /* 2 */ { 6, s_9_2, -1, -1, 0}, 00266 /* 3 */ { 7, s_9_3, -1, -1, 0}, 00267 /* 4 */ { 6, s_9_4, -1, -1, 0}, 00268 /* 5 */ { 7, s_9_5, -1, -1, 0}, 00269 /* 6 */ { 7, s_9_6, -1, -1, 0}, 00270 /* 7 */ { 6, s_9_7, -1, -1, 0} 00271 }; 00272 00273 static const symbol s_10_0[5] = { 'a', 'n', 'd', 'e', 's' }; 00274 static const symbol s_10_1[5] = { 'a', 't', 'l', 'a', 's' }; 00275 static const symbol s_10_2[4] = { 'b', 'i', 'a', 's' }; 00276 static const symbol s_10_3[6] = { 'c', 'o', 's', 'm', 'o', 's' }; 00277 static const symbol s_10_4[5] = { 'd', 'y', 'i', 'n', 'g' }; 00278 static const symbol s_10_5[5] = { 'e', 'a', 'r', 'l', 'y' }; 00279 static const symbol s_10_6[6] = { 'g', 'e', 'n', 't', 'l', 'y' }; 00280 static const symbol s_10_7[4] = { 'h', 'o', 'w', 'e' }; 00281 static const symbol s_10_8[4] = { 'i', 'd', 'l', 'y' }; 00282 static const symbol s_10_9[5] = { 'l', 'y', 'i', 'n', 'g' }; 00283 static const symbol s_10_10[4] = { 'n', 'e', 'w', 's' }; 00284 static const symbol s_10_11[4] = { 'o', 'n', 'l', 'y' }; 00285 static const symbol s_10_12[6] = { 's', 'i', 'n', 'g', 'l', 'y' }; 00286 static const symbol s_10_13[5] = { 's', 'k', 'i', 'e', 's' }; 00287 static const symbol s_10_14[4] = { 's', 'k', 'i', 's' }; 00288 static const symbol s_10_15[3] = { 's', 'k', 'y' }; 00289 static const symbol s_10_16[5] = { 't', 'y', 'i', 'n', 'g' }; 00290 static const symbol s_10_17[4] = { 'u', 'g', 'l', 'y' }; 00291 00292 static const struct among a_10[18] = 00293 { 00294 /* 0 */ { 5, s_10_0, -1, -1, 0}, 00295 /* 1 */ { 5, s_10_1, -1, -1, 0}, 00296 /* 2 */ { 4, s_10_2, -1, -1, 0}, 00297 /* 3 */ { 6, s_10_3, -1, -1, 0}, 00298 /* 4 */ { 5, s_10_4, -1, 3, 0}, 00299 /* 5 */ { 5, s_10_5, -1, 9, 0}, 00300 /* 6 */ { 6, s_10_6, -1, 7, 0}, 00301 /* 7 */ { 4, s_10_7, -1, -1, 0}, 00302 /* 8 */ { 4, s_10_8, -1, 6, 0}, 00303 /* 9 */ { 5, s_10_9, -1, 4, 0}, 00304 /* 10 */ { 4, s_10_10, -1, -1, 0}, 00305 /* 11 */ { 4, s_10_11, -1, 10, 0}, 00306 /* 12 */ { 6, s_10_12, -1, 11, 0}, 00307 /* 13 */ { 5, s_10_13, -1, 2, 0}, 00308 /* 14 */ { 4, s_10_14, -1, 1, 0}, 00309 /* 15 */ { 3, s_10_15, -1, -1, 0}, 00310 /* 16 */ { 5, s_10_16, -1, 5, 0}, 00311 /* 17 */ { 4, s_10_17, -1, 8, 0} 00312 }; 00313 00314 static const unsigned char g_v[] = { 17, 65, 16, 1 }; 00315 00316 static const unsigned char g_v_WXY[] = { 1, 17, 65, 208, 1 }; 00317 00318 static const unsigned char g_valid_LI[] = { 55, 141, 2 }; 00319 00320 static const symbol s_0[] = { '\'' }; 00321 static const symbol s_1[] = { 'y' }; 00322 static const symbol s_2[] = { 'Y' }; 00323 static const symbol s_3[] = { 'y' }; 00324 static const symbol s_4[] = { 'Y' }; 00325 static const symbol s_5[] = { 's', 's' }; 00326 static const symbol s_6[] = { 'i' }; 00327 static const symbol s_7[] = { 'i', 'e' }; 00328 static const symbol s_8[] = { 'e', 'e' }; 00329 static const symbol s_9[] = { 'e' }; 00330 static const symbol s_10[] = { 'e' }; 00331 static const symbol s_11[] = { 'y' }; 00332 static const symbol s_12[] = { 'Y' }; 00333 static const symbol s_13[] = { 'i' }; 00334 static const symbol s_14[] = { 't', 'i', 'o', 'n' }; 00335 static const symbol s_15[] = { 'e', 'n', 'c', 'e' }; 00336 static const symbol s_16[] = { 'a', 'n', 'c', 'e' }; 00337 static const symbol s_17[] = { 'a', 'b', 'l', 'e' }; 00338 static const symbol s_18[] = { 'e', 'n', 't' }; 00339 static const symbol s_19[] = { 'i', 'z', 'e' }; 00340 static const symbol s_20[] = { 'a', 't', 'e' }; 00341 static const symbol s_21[] = { 'a', 'l' }; 00342 static const symbol s_22[] = { 'f', 'u', 'l' }; 00343 static const symbol s_23[] = { 'o', 'u', 's' }; 00344 static const symbol s_24[] = { 'i', 'v', 'e' }; 00345 static const symbol s_25[] = { 'b', 'l', 'e' }; 00346 static const symbol s_26[] = { 'l' }; 00347 static const symbol s_27[] = { 'o', 'g' }; 00348 static const symbol s_28[] = { 'f', 'u', 'l' }; 00349 static const symbol s_29[] = { 'l', 'e', 's', 's' }; 00350 static const symbol s_30[] = { 't', 'i', 'o', 'n' }; 00351 static const symbol s_31[] = { 'a', 't', 'e' }; 00352 static const symbol s_32[] = { 'a', 'l' }; 00353 static const symbol s_33[] = { 'i', 'c' }; 00354 static const symbol s_34[] = { 's' }; 00355 static const symbol s_35[] = { 't' }; 00356 static const symbol s_36[] = { 'l' }; 00357 static const symbol s_37[] = { 's', 'k', 'i' }; 00358 static const symbol s_38[] = { 's', 'k', 'y' }; 00359 static const symbol s_39[] = { 'd', 'i', 'e' }; 00360 static const symbol s_40[] = { 'l', 'i', 'e' }; 00361 static const symbol s_41[] = { 't', 'i', 'e' }; 00362 static const symbol s_42[] = { 'i', 'd', 'l' }; 00363 static const symbol s_43[] = { 'g', 'e', 'n', 't', 'l' }; 00364 static const symbol s_44[] = { 'u', 'g', 'l', 'i' }; 00365 static const symbol s_45[] = { 'e', 'a', 'r', 'l', 'i' }; 00366 static const symbol s_46[] = { 'o', 'n', 'l', 'i' }; 00367 static const symbol s_47[] = { 's', 'i', 'n', 'g', 'l' }; 00368 static const symbol s_48[] = { 'Y' }; 00369 static const symbol s_49[] = { 'y' }; 00370 00371 static int r_prelude(struct SN_env * z) { 00372 z->B[0] = 0; /* unset Y_found, line 26 */ 00373 { int c1 = z->c; /* do, line 27 */ 00374 z->bra = z->c; /* [, line 27 */ 00375 if (!(eq_s(z, 1, s_0))) goto lab0; 00376 z->ket = z->c; /* ], line 27 */ 00377 { int ret = slice_del(z); /* delete, line 27 */ 00378 if (ret < 0) return ret; 00379 } 00380 lab0: 00381 z->c = c1; 00382 } 00383 { int c2 = z->c; /* do, line 28 */ 00384 z->bra = z->c; /* [, line 28 */ 00385 if (!(eq_s(z, 1, s_1))) goto lab1; 00386 z->ket = z->c; /* ], line 28 */ 00387 { int ret = slice_from_s(z, 1, s_2); /* <-, line 28 */ 00388 if (ret < 0) return ret; 00389 } 00390 z->B[0] = 1; /* set Y_found, line 28 */ 00391 lab1: 00392 z->c = c2; 00393 } 00394 { int c3 = z->c; /* do, line 29 */ 00395 while(1) { /* repeat, line 29 */ 00396 int c4 = z->c; 00397 while(1) { /* goto, line 29 */ 00398 int c5 = z->c; 00399 if (in_grouping(z, g_v, 97, 121, 0)) goto lab4; 00400 z->bra = z->c; /* [, line 29 */ 00401 if (!(eq_s(z, 1, s_3))) goto lab4; 00402 z->ket = z->c; /* ], line 29 */ 00403 z->c = c5; 00404 break; 00405 lab4: 00406 z->c = c5; 00407 if (z->c >= z->l) goto lab3; 00408 z->c++; /* goto, line 29 */ 00409 } 00410 { int ret = slice_from_s(z, 1, s_4); /* <-, line 29 */ 00411 if (ret < 0) return ret; 00412 } 00413 z->B[0] = 1; /* set Y_found, line 29 */ 00414 continue; 00415 lab3: 00416 z->c = c4; 00417 break; 00418 } 00419 z->c = c3; 00420 } 00421 return 1; 00422 } 00423 00424 static int r_mark_regions(struct SN_env * z) { 00425 z->I[0] = z->l; 00426 z->I[1] = z->l; 00427 { int c1 = z->c; /* do, line 35 */ 00428 { int c2 = z->c; /* or, line 41 */ 00429 if (z->c + 4 >= z->l || z->p[z->c + 4] >> 5 != 3 || !((2375680 >> (z->p[z->c + 4] & 0x1f)) & 1)) goto lab2; 00430 if (!(find_among(z, a_0, 3))) goto lab2; /* among, line 36 */ 00431 goto lab1; 00432 lab2: 00433 z->c = c2; 00434 { /* gopast */ /* grouping v, line 41 */ 00435 int ret = out_grouping(z, g_v, 97, 121, 1); 00436 if (ret < 0) goto lab0; 00437 z->c += ret; 00438 } 00439 { /* gopast */ /* non v, line 41 */ 00440 int ret = in_grouping(z, g_v, 97, 121, 1); 00441 if (ret < 0) goto lab0; 00442 z->c += ret; 00443 } 00444 } 00445 lab1: 00446 z->I[0] = z->c; /* setmark p1, line 42 */ 00447 { /* gopast */ /* grouping v, line 43 */ 00448 int ret = out_grouping(z, g_v, 97, 121, 1); 00449 if (ret < 0) goto lab0; 00450 z->c += ret; 00451 } 00452 { /* gopast */ /* non v, line 43 */ 00453 int ret = in_grouping(z, g_v, 97, 121, 1); 00454 if (ret < 0) goto lab0; 00455 z->c += ret; 00456 } 00457 z->I[1] = z->c; /* setmark p2, line 43 */ 00458 lab0: 00459 z->c = c1; 00460 } 00461 return 1; 00462 } 00463 00464 static int r_shortv(struct SN_env * z) { 00465 { int m1 = z->l - z->c; (void)m1; /* or, line 51 */ 00466 if (out_grouping_b(z, g_v_WXY, 89, 121, 0)) goto lab1; 00467 if (in_grouping_b(z, g_v, 97, 121, 0)) goto lab1; 00468 if (out_grouping_b(z, g_v, 97, 121, 0)) goto lab1; 00469 goto lab0; 00470 lab1: 00471 z->c = z->l - m1; 00472 if (out_grouping_b(z, g_v, 97, 121, 0)) return 0; 00473 if (in_grouping_b(z, g_v, 97, 121, 0)) return 0; 00474 if (z->c > z->lb) return 0; /* atlimit, line 52 */ 00475 } 00476 lab0: 00477 return 1; 00478 } 00479 00480 static int r_R1(struct SN_env * z) { 00481 if (!(z->I[0] <= z->c)) return 0; 00482 return 1; 00483 } 00484 00485 static int r_R2(struct SN_env * z) { 00486 if (!(z->I[1] <= z->c)) return 0; 00487 return 1; 00488 } 00489 00490 static int r_Step_1a(struct SN_env * z) { 00491 int among_var; 00492 { int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 59 */ 00493 z->ket = z->c; /* [, line 60 */ 00494 if (z->c <= z->lb || (z->p[z->c - 1] != 39 && z->p[z->c - 1] != 115)) { z->c = z->l - m_keep; goto lab0; } 00495 among_var = find_among_b(z, a_1, 3); /* substring, line 60 */ 00496 if (!(among_var)) { z->c = z->l - m_keep; goto lab0; } 00497 z->bra = z->c; /* ], line 60 */ 00498 switch(among_var) { 00499 case 0: { z->c = z->l - m_keep; goto lab0; } 00500 case 1: 00501 { int ret = slice_del(z); /* delete, line 62 */ 00502 if (ret < 0) return ret; 00503 } 00504 break; 00505 } 00506 lab0: 00507 ; 00508 } 00509 z->ket = z->c; /* [, line 65 */ 00510 if (z->c <= z->lb || (z->p[z->c - 1] != 100 && z->p[z->c - 1] != 115)) return 0; 00511 among_var = find_among_b(z, a_2, 6); /* substring, line 65 */ 00512 if (!(among_var)) return 0; 00513 z->bra = z->c; /* ], line 65 */ 00514 switch(among_var) { 00515 case 0: return 0; 00516 case 1: 00517 { int ret = slice_from_s(z, 2, s_5); /* <-, line 66 */ 00518 if (ret < 0) return ret; 00519 } 00520 break; 00521 case 2: 00522 { int m1 = z->l - z->c; (void)m1; /* or, line 68 */ 00523 { int ret = z->c - 2; 00524 if (z->lb > ret || ret > z->l) goto lab2; 00525 z->c = ret; /* hop, line 68 */ 00526 } 00527 { int ret = slice_from_s(z, 1, s_6); /* <-, line 68 */ 00528 if (ret < 0) return ret; 00529 } 00530 goto lab1; 00531 lab2: 00532 z->c = z->l - m1; 00533 { int ret = slice_from_s(z, 2, s_7); /* <-, line 68 */ 00534 if (ret < 0) return ret; 00535 } 00536 } 00537 lab1: 00538 break; 00539 case 3: 00540 if (z->c <= z->lb) return 0; 00541 z->c--; /* next, line 69 */ 00542 { /* gopast */ /* grouping v, line 69 */ 00543 int ret = out_grouping_b(z, g_v, 97, 121, 1); 00544 if (ret < 0) return 0; 00545 z->c -= ret; 00546 } 00547 { int ret = slice_del(z); /* delete, line 69 */ 00548 if (ret < 0) return ret; 00549 } 00550 break; 00551 } 00552 return 1; 00553 } 00554 00555 static int r_Step_1b(struct SN_env * z) { 00556 int among_var; 00557 z->ket = z->c; /* [, line 75 */ 00558 if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((33554576 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0; 00559 among_var = find_among_b(z, a_4, 6); /* substring, line 75 */ 00560 if (!(among_var)) return 0; 00561 z->bra = z->c; /* ], line 75 */ 00562 switch(among_var) { 00563 case 0: return 0; 00564 case 1: 00565 { int ret = r_R1(z); 00566 if (ret == 0) return 0; /* call R1, line 77 */ 00567 if (ret < 0) return ret; 00568 } 00569 { int ret = slice_from_s(z, 2, s_8); /* <-, line 77 */ 00570 if (ret < 0) return ret; 00571 } 00572 break; 00573 case 2: 00574 { int m_test = z->l - z->c; /* test, line 80 */ 00575 { /* gopast */ /* grouping v, line 80 */ 00576 int ret = out_grouping_b(z, g_v, 97, 121, 1); 00577 if (ret < 0) return 0; 00578 z->c -= ret; 00579 } 00580 z->c = z->l - m_test; 00581 } 00582 { int ret = slice_del(z); /* delete, line 80 */ 00583 if (ret < 0) return ret; 00584 } 00585 { int m_test = z->l - z->c; /* test, line 81 */ 00586 if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((68514004 >> (z->p[z->c - 1] & 0x1f)) & 1)) among_var = 3; else 00587 among_var = find_among_b(z, a_3, 13); /* substring, line 81 */ 00588 if (!(among_var)) return 0; 00589 z->c = z->l - m_test; 00590 } 00591 switch(among_var) { 00592 case 0: return 0; 00593 case 1: 00594 { int c_keep = z->c; 00595 int ret = insert_s(z, z->c, z->c, 1, s_9); /* <+, line 83 */ 00596 z->c = c_keep; 00597 if (ret < 0) return ret; 00598 } 00599 break; 00600 case 2: 00601 z->ket = z->c; /* [, line 86 */ 00602 if (z->c <= z->lb) return 0; 00603 z->c--; /* next, line 86 */ 00604 z->bra = z->c; /* ], line 86 */ 00605 { int ret = slice_del(z); /* delete, line 86 */ 00606 if (ret < 0) return ret; 00607 } 00608 break; 00609 case 3: 00610 if (z->c != z->I[0]) return 0; /* atmark, line 87 */ 00611 { int m_test = z->l - z->c; /* test, line 87 */ 00612 { int ret = r_shortv(z); 00613 if (ret == 0) return 0; /* call shortv, line 87 */ 00614 if (ret < 0) return ret; 00615 } 00616 z->c = z->l - m_test; 00617 } 00618 { int c_keep = z->c; 00619 int ret = insert_s(z, z->c, z->c, 1, s_10); /* <+, line 87 */ 00620 z->c = c_keep; 00621 if (ret < 0) return ret; 00622 } 00623 break; 00624 } 00625 break; 00626 } 00627 return 1; 00628 } 00629 00630 static int r_Step_1c(struct SN_env * z) { 00631 z->ket = z->c; /* [, line 94 */ 00632 { int m1 = z->l - z->c; (void)m1; /* or, line 94 */ 00633 if (!(eq_s_b(z, 1, s_11))) goto lab1; 00634 goto lab0; 00635 lab1: 00636 z->c = z->l - m1; 00637 if (!(eq_s_b(z, 1, s_12))) return 0; 00638 } 00639 lab0: 00640 z->bra = z->c; /* ], line 94 */ 00641 if (out_grouping_b(z, g_v, 97, 121, 0)) return 0; 00642 { int m2 = z->l - z->c; (void)m2; /* not, line 95 */ 00643 if (z->c > z->lb) goto lab2; /* atlimit, line 95 */ 00644 return 0; 00645 lab2: 00646 z->c = z->l - m2; 00647 } 00648 { int ret = slice_from_s(z, 1, s_13); /* <-, line 96 */ 00649 if (ret < 0) return ret; 00650 } 00651 return 1; 00652 } 00653 00654 static int r_Step_2(struct SN_env * z) { 00655 int among_var; 00656 z->ket = z->c; /* [, line 100 */ 00657 if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((815616 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0; 00658 among_var = find_among_b(z, a_5, 24); /* substring, line 100 */ 00659 if (!(among_var)) return 0; 00660 z->bra = z->c; /* ], line 100 */ 00661 { int ret = r_R1(z); 00662 if (ret == 0) return 0; /* call R1, line 100 */ 00663 if (ret < 0) return ret; 00664 } 00665 switch(among_var) { 00666 case 0: return 0; 00667 case 1: 00668 { int ret = slice_from_s(z, 4, s_14); /* <-, line 101 */ 00669 if (ret < 0) return ret; 00670 } 00671 break; 00672 case 2: 00673 { int ret = slice_from_s(z, 4, s_15); /* <-, line 102 */ 00674 if (ret < 0) return ret; 00675 } 00676 break; 00677 case 3: 00678 { int ret = slice_from_s(z, 4, s_16); /* <-, line 103 */ 00679 if (ret < 0) return ret; 00680 } 00681 break; 00682 case 4: 00683 { int ret = slice_from_s(z, 4, s_17); /* <-, line 104 */ 00684 if (ret < 0) return ret; 00685 } 00686 break; 00687 case 5: 00688 { int ret = slice_from_s(z, 3, s_18); /* <-, line 105 */ 00689 if (ret < 0) return ret; 00690 } 00691 break; 00692 case 6: 00693 { int ret = slice_from_s(z, 3, s_19); /* <-, line 107 */ 00694 if (ret < 0) return ret; 00695 } 00696 break; 00697 case 7: 00698 { int ret = slice_from_s(z, 3, s_20); /* <-, line 109 */ 00699 if (ret < 0) return ret; 00700 } 00701 break; 00702 case 8: 00703 { int ret = slice_from_s(z, 2, s_21); /* <-, line 111 */ 00704 if (ret < 0) return ret; 00705 } 00706 break; 00707 case 9: 00708 { int ret = slice_from_s(z, 3, s_22); /* <-, line 112 */ 00709 if (ret < 0) return ret; 00710 } 00711 break; 00712 case 10: 00713 { int ret = slice_from_s(z, 3, s_23); /* <-, line 114 */ 00714 if (ret < 0) return ret; 00715 } 00716 break; 00717 case 11: 00718 { int ret = slice_from_s(z, 3, s_24); /* <-, line 116 */ 00719 if (ret < 0) return ret; 00720 } 00721 break; 00722 case 12: 00723 { int ret = slice_from_s(z, 3, s_25); /* <-, line 118 */ 00724 if (ret < 0) return ret; 00725 } 00726 break; 00727 case 13: 00728 if (!(eq_s_b(z, 1, s_26))) return 0; 00729 { int ret = slice_from_s(z, 2, s_27); /* <-, line 119 */ 00730 if (ret < 0) return ret; 00731 } 00732 break; 00733 case 14: 00734 { int ret = slice_from_s(z, 3, s_28); /* <-, line 120 */ 00735 if (ret < 0) return ret; 00736 } 00737 break; 00738 case 15: 00739 { int ret = slice_from_s(z, 4, s_29); /* <-, line 121 */ 00740 if (ret < 0) return ret; 00741 } 00742 break; 00743 case 16: 00744 if (in_grouping_b(z, g_valid_LI, 99, 116, 0)) return 0; 00745 { int ret = slice_del(z); /* delete, line 122 */ 00746 if (ret < 0) return ret; 00747 } 00748 break; 00749 } 00750 return 1; 00751 } 00752 00753 static int r_Step_3(struct SN_env * z) { 00754 int among_var; 00755 z->ket = z->c; /* [, line 127 */ 00756 if (z->c - 2 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((528928 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0; 00757 among_var = find_among_b(z, a_6, 9); /* substring, line 127 */ 00758 if (!(among_var)) return 0; 00759 z->bra = z->c; /* ], line 127 */ 00760 { int ret = r_R1(z); 00761 if (ret == 0) return 0; /* call R1, line 127 */ 00762 if (ret < 0) return ret; 00763 } 00764 switch(among_var) { 00765 case 0: return 0; 00766 case 1: 00767 { int ret = slice_from_s(z, 4, s_30); /* <-, line 128 */ 00768 if (ret < 0) return ret; 00769 } 00770 break; 00771 case 2: 00772 { int ret = slice_from_s(z, 3, s_31); /* <-, line 129 */ 00773 if (ret < 0) return ret; 00774 } 00775 break; 00776 case 3: 00777 { int ret = slice_from_s(z, 2, s_32); /* <-, line 130 */ 00778 if (ret < 0) return ret; 00779 } 00780 break; 00781 case 4: 00782 { int ret = slice_from_s(z, 2, s_33); /* <-, line 132 */ 00783 if (ret < 0) return ret; 00784 } 00785 break; 00786 case 5: 00787 { int ret = slice_del(z); /* delete, line 134 */ 00788 if (ret < 0) return ret; 00789 } 00790 break; 00791 case 6: 00792 { int ret = r_R2(z); 00793 if (ret == 0) return 0; /* call R2, line 136 */ 00794 if (ret < 0) return ret; 00795 } 00796 { int ret = slice_del(z); /* delete, line 136 */ 00797 if (ret < 0) return ret; 00798 } 00799 break; 00800 } 00801 return 1; 00802 } 00803 00804 static int r_Step_4(struct SN_env * z) { 00805 int among_var; 00806 z->ket = z->c; /* [, line 141 */ 00807 if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1864232 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0; 00808 among_var = find_among_b(z, a_7, 18); /* substring, line 141 */ 00809 if (!(among_var)) return 0; 00810 z->bra = z->c; /* ], line 141 */ 00811 { int ret = r_R2(z); 00812 if (ret == 0) return 0; /* call R2, line 141 */ 00813 if (ret < 0) return ret; 00814 } 00815 switch(among_var) { 00816 case 0: return 0; 00817 case 1: 00818 { int ret = slice_del(z); /* delete, line 144 */ 00819 if (ret < 0) return ret; 00820 } 00821 break; 00822 case 2: 00823 { int m1 = z->l - z->c; (void)m1; /* or, line 145 */ 00824 if (!(eq_s_b(z, 1, s_34))) goto lab1; 00825 goto lab0; 00826 lab1: 00827 z->c = z->l - m1; 00828 if (!(eq_s_b(z, 1, s_35))) return 0; 00829 } 00830 lab0: 00831 { int ret = slice_del(z); /* delete, line 145 */ 00832 if (ret < 0) return ret; 00833 } 00834 break; 00835 } 00836 return 1; 00837 } 00838 00839 static int r_Step_5(struct SN_env * z) { 00840 int among_var; 00841 z->ket = z->c; /* [, line 150 */ 00842 if (z->c <= z->lb || (z->p[z->c - 1] != 101 && z->p[z->c - 1] != 108)) return 0; 00843 among_var = find_among_b(z, a_8, 2); /* substring, line 150 */ 00844 if (!(among_var)) return 0; 00845 z->bra = z->c; /* ], line 150 */ 00846 switch(among_var) { 00847 case 0: return 0; 00848 case 1: 00849 { int m1 = z->l - z->c; (void)m1; /* or, line 151 */ 00850 { int ret = r_R2(z); 00851 if (ret == 0) goto lab1; /* call R2, line 151 */ 00852 if (ret < 0) return ret; 00853 } 00854 goto lab0; 00855 lab1: 00856 z->c = z->l - m1; 00857 { int ret = r_R1(z); 00858 if (ret == 0) return 0; /* call R1, line 151 */ 00859 if (ret < 0) return ret; 00860 } 00861 { int m2 = z->l - z->c; (void)m2; /* not, line 151 */ 00862 { int ret = r_shortv(z); 00863 if (ret == 0) goto lab2; /* call shortv, line 151 */ 00864 if (ret < 0) return ret; 00865 } 00866 return 0; 00867 lab2: 00868 z->c = z->l - m2; 00869 } 00870 } 00871 lab0: 00872 { int ret = slice_del(z); /* delete, line 151 */ 00873 if (ret < 0) return ret; 00874 } 00875 break; 00876 case 2: 00877 { int ret = r_R2(z); 00878 if (ret == 0) return 0; /* call R2, line 152 */ 00879 if (ret < 0) return ret; 00880 } 00881 if (!(eq_s_b(z, 1, s_36))) return 0; 00882 { int ret = slice_del(z); /* delete, line 152 */ 00883 if (ret < 0) return ret; 00884 } 00885 break; 00886 } 00887 return 1; 00888 } 00889 00890 static int r_exception2(struct SN_env * z) { 00891 z->ket = z->c; /* [, line 158 */ 00892 if (z->c - 5 <= z->lb || (z->p[z->c - 1] != 100 && z->p[z->c - 1] != 103)) return 0; 00893 if (!(find_among_b(z, a_9, 8))) return 0; /* substring, line 158 */ 00894 z->bra = z->c; /* ], line 158 */ 00895 if (z->c > z->lb) return 0; /* atlimit, line 158 */ 00896 return 1; 00897 } 00898 00899 static int r_exception1(struct SN_env * z) { 00900 int among_var; 00901 z->bra = z->c; /* [, line 170 */ 00902 if (z->c + 2 >= z->l || z->p[z->c + 2] >> 5 != 3 || !((42750482 >> (z->p[z->c + 2] & 0x1f)) & 1)) return 0; 00903 among_var = find_among(z, a_10, 18); /* substring, line 170 */ 00904 if (!(among_var)) return 0; 00905 z->ket = z->c; /* ], line 170 */ 00906 if (z->c < z->l) return 0; /* atlimit, line 170 */ 00907 switch(among_var) { 00908 case 0: return 0; 00909 case 1: 00910 { int ret = slice_from_s(z, 3, s_37); /* <-, line 174 */ 00911 if (ret < 0) return ret; 00912 } 00913 break; 00914 case 2: 00915 { int ret = slice_from_s(z, 3, s_38); /* <-, line 175 */ 00916 if (ret < 0) return ret; 00917 } 00918 break; 00919 case 3: 00920 { int ret = slice_from_s(z, 3, s_39); /* <-, line 176 */ 00921 if (ret < 0) return ret; 00922 } 00923 break; 00924 case 4: 00925 { int ret = slice_from_s(z, 3, s_40); /* <-, line 177 */ 00926 if (ret < 0) return ret; 00927 } 00928 break; 00929 case 5: 00930 { int ret = slice_from_s(z, 3, s_41); /* <-, line 178 */ 00931 if (ret < 0) return ret; 00932 } 00933 break; 00934 case 6: 00935 { int ret = slice_from_s(z, 3, s_42); /* <-, line 182 */ 00936 if (ret < 0) return ret; 00937 } 00938 break; 00939 case 7: 00940 { int ret = slice_from_s(z, 5, s_43); /* <-, line 183 */ 00941 if (ret < 0) return ret; 00942 } 00943 break; 00944 case 8: 00945 { int ret = slice_from_s(z, 4, s_44); /* <-, line 184 */ 00946 if (ret < 0) return ret; 00947 } 00948 break; 00949 case 9: 00950 { int ret = slice_from_s(z, 5, s_45); /* <-, line 185 */ 00951 if (ret < 0) return ret; 00952 } 00953 break; 00954 case 10: 00955 { int ret = slice_from_s(z, 4, s_46); /* <-, line 186 */ 00956 if (ret < 0) return ret; 00957 } 00958 break; 00959 case 11: 00960 { int ret = slice_from_s(z, 5, s_47); /* <-, line 187 */ 00961 if (ret < 0) return ret; 00962 } 00963 break; 00964 } 00965 return 1; 00966 } 00967 00968 static int r_postlude(struct SN_env * z) { 00969 if (!(z->B[0])) return 0; /* Boolean test Y_found, line 203 */ 00970 while(1) { /* repeat, line 203 */ 00971 int c1 = z->c; 00972 while(1) { /* goto, line 203 */ 00973 int c2 = z->c; 00974 z->bra = z->c; /* [, line 203 */ 00975 if (!(eq_s(z, 1, s_48))) goto lab1; 00976 z->ket = z->c; /* ], line 203 */ 00977 z->c = c2; 00978 break; 00979 lab1: 00980 z->c = c2; 00981 if (z->c >= z->l) goto lab0; 00982 z->c++; /* goto, line 203 */ 00983 } 00984 { int ret = slice_from_s(z, 1, s_49); /* <-, line 203 */ 00985 if (ret < 0) return ret; 00986 } 00987 continue; 00988 lab0: 00989 z->c = c1; 00990 break; 00991 } 00992 return 1; 00993 } 00994 00995 extern int english_ISO_8859_1_stem(struct SN_env * z) { 00996 { int c1 = z->c; /* or, line 207 */ 00997 { int ret = r_exception1(z); 00998 if (ret == 0) goto lab1; /* call exception1, line 207 */ 00999 if (ret < 0) return ret; 01000 } 01001 goto lab0; 01002 lab1: 01003 z->c = c1; 01004 { int c2 = z->c; /* not, line 208 */ 01005 { int ret = z->c + 3; 01006 if (0 > ret || ret > z->l) goto lab3; 01007 z->c = ret; /* hop, line 208 */ 01008 } 01009 goto lab2; 01010 lab3: 01011 z->c = c2; 01012 } 01013 goto lab0; 01014 lab2: 01015 z->c = c1; 01016 { int c3 = z->c; /* do, line 209 */ 01017 { int ret = r_prelude(z); 01018 if (ret == 0) goto lab4; /* call prelude, line 209 */ 01019 if (ret < 0) return ret; 01020 } 01021 lab4: 01022 z->c = c3; 01023 } 01024 { int c4 = z->c; /* do, line 210 */ 01025 { int ret = r_mark_regions(z); 01026 if (ret == 0) goto lab5; /* call mark_regions, line 210 */ 01027 if (ret < 0) return ret; 01028 } 01029 lab5: 01030 z->c = c4; 01031 } 01032 z->lb = z->c; z->c = z->l; /* backwards, line 211 */ 01033 01034 { int m5 = z->l - z->c; (void)m5; /* do, line 213 */ 01035 { int ret = r_Step_1a(z); 01036 if (ret == 0) goto lab6; /* call Step_1a, line 213 */ 01037 if (ret < 0) return ret; 01038 } 01039 lab6: 01040 z->c = z->l - m5; 01041 } 01042 { int m6 = z->l - z->c; (void)m6; /* or, line 215 */ 01043 { int ret = r_exception2(z); 01044 if (ret == 0) goto lab8; /* call exception2, line 215 */ 01045 if (ret < 0) return ret; 01046 } 01047 goto lab7; 01048 lab8: 01049 z->c = z->l - m6; 01050 { int m7 = z->l - z->c; (void)m7; /* do, line 217 */ 01051 { int ret = r_Step_1b(z); 01052 if (ret == 0) goto lab9; /* call Step_1b, line 217 */ 01053 if (ret < 0) return ret; 01054 } 01055 lab9: 01056 z->c = z->l - m7; 01057 } 01058 { int m8 = z->l - z->c; (void)m8; /* do, line 218 */ 01059 { int ret = r_Step_1c(z); 01060 if (ret == 0) goto lab10; /* call Step_1c, line 218 */ 01061 if (ret < 0) return ret; 01062 } 01063 lab10: 01064 z->c = z->l - m8; 01065 } 01066 { int m9 = z->l - z->c; (void)m9; /* do, line 220 */ 01067 { int ret = r_Step_2(z); 01068 if (ret == 0) goto lab11; /* call Step_2, line 220 */ 01069 if (ret < 0) return ret; 01070 } 01071 lab11: 01072 z->c = z->l - m9; 01073 } 01074 { int m10 = z->l - z->c; (void)m10; /* do, line 221 */ 01075 { int ret = r_Step_3(z); 01076 if (ret == 0) goto lab12; /* call Step_3, line 221 */ 01077 if (ret < 0) return ret; 01078 } 01079 lab12: 01080 z->c = z->l - m10; 01081 } 01082 { int m11 = z->l - z->c; (void)m11; /* do, line 222 */ 01083 { int ret = r_Step_4(z); 01084 if (ret == 0) goto lab13; /* call Step_4, line 222 */ 01085 if (ret < 0) return ret; 01086 } 01087 lab13: 01088 z->c = z->l - m11; 01089 } 01090 { int m12 = z->l - z->c; (void)m12; /* do, line 224 */ 01091 { int ret = r_Step_5(z); 01092 if (ret == 0) goto lab14; /* call Step_5, line 224 */ 01093 if (ret < 0) return ret; 01094 } 01095 lab14: 01096 z->c = z->l - m12; 01097 } 01098 } 01099 lab7: 01100 z->c = z->lb; 01101 { int c13 = z->c; /* do, line 227 */ 01102 { int ret = r_postlude(z); 01103 if (ret == 0) goto lab15; /* call postlude, line 227 */ 01104 if (ret < 0) return ret; 01105 } 01106 lab15: 01107 z->c = c13; 01108 } 01109 } 01110 lab0: 01111 return 1; 01112 } 01113 01114 extern struct SN_env * english_ISO_8859_1_create_env(void) { return SN_create_env(0, 2, 1); } 01115 01116 extern void english_ISO_8859_1_close_env(struct SN_env * z) { SN_close_env(z, 0); } 01117
1.7.1