static int r_postlude(struct SN_env * z) { int among_var; while(1) { /* repeat, line 62 */ int c = z->c; z->bra = z->c; /* [, line 63 */ among_var = find_among(z, a_1, 3); /* substring, line 63 */ if (!(among_var)) goto lab0; z->ket = z->c; /* ], line 63 */ switch(among_var) { case 0: goto lab0; case 1: { int ret; ret = slice_from_s(z, 1, s_2); /* <-, line 64 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 1, s_3); /* <-, line 65 */ if (ret < 0) return ret; } break; case 3: if (z->c >= z->l) goto lab0; z->c++; /* next, line 66 */ break; } continue; lab0: z->c = c; break; } return 1; }
static int r_postlude(struct SN_env * z) { int among_var; while(1) { /* repeat, line 66 */ int c = z->c; z->bra = z->c; /* [, line 68 */ among_var = find_among(z, a_0, 4); /* substring, line 68 */ if (!(among_var)) goto lab0; z->ket = z->c; /* ], line 68 */ switch(among_var) { case 0: goto lab0; case 1: slice_from_s(z, 1, s_11); /* <-, line 69 */ break; case 2: slice_from_s(z, 1, s_12); /* <-, line 70 */ break; case 3: slice_from_s(z, 1, s_13); /* <-, line 71 */ break; case 4: if (z->c >= z->l) goto lab0; z->c++; /* next, line 72 */ break; } continue; lab0: z->c = c; break; } return 1; }
static int r_prelude(struct SN_env * z) { int among_var; while(1) { /* repeat, line 36 */ int c = z->c; z->bra = z->c; /* [, line 37 */ among_var = find_among(z, a_0, 3); /* substring, line 37 */ if (!(among_var)) goto lab0; z->ket = z->c; /* ], line 37 */ switch(among_var) { case 0: goto lab0; case 1: slice_from_s(z, 2, s_0); /* <-, line 38 */ break; case 2: slice_from_s(z, 2, s_1); /* <-, line 39 */ break; case 3: if (z->c >= z->l) goto lab0; z->c++; /* next, line 40 */ break; } continue; lab0: z->c = c; break; } return 1; }
static int r_exceptions(struct SN_env * z) { int among_var; z->bra = z->c; /* [, line 10 */ among_var = find_among(z, a_0, 9); /* substring, line 10 */ if (!(among_var)) return 0; z->ket = z->c; /* ], line 10 */ switch(among_var) { case 0: return 0; case 1: { int ret = slice_from_s(z, 4, s_0); /* <-, line 11 */ if (ret < 0) return ret; } break; case 2: { int ret = slice_from_s(z, 4, s_1); /* <-, line 12 */ if (ret < 0) return ret; } break; case 3: { int ret = slice_from_s(z, 4, s_2); /* <-, line 13 */ if (ret < 0) return ret; } break; case 4: { int ret = slice_from_s(z, 4, s_3); /* <-, line 14 */ if (ret < 0) return ret; } break; case 5: { int ret = slice_from_s(z, 4, s_4); /* <-, line 15 */ if (ret < 0) return ret; } break; case 6: { int ret = slice_from_s(z, 7, s_5); /* <-, line 16 */ if (ret < 0) return ret; } break; case 7: { int ret = slice_from_s(z, 4, s_6); /* <-, line 17 */ if (ret < 0) return ret; } break; case 8: { int ret = slice_from_s(z, 4, s_7); /* <-, line 18 */ if (ret < 0) return ret; } break; case 9: { int ret = slice_from_s(z, 6, s_8); /* <-, line 19 */ if (ret < 0) return ret; } break; } return 1; }
static int r_postlude(struct SN_env * z) { int among_var; while(1) { /* repeat, line 49 */ int c = z->c; z->bra = z->c; /* [, line 50 */ among_var = find_among(z, a_0, 6); /* substring, line 50 */ if (!(among_var)) goto lab0; z->ket = z->c; /* ], line 50 */ switch(among_var) { case 0: goto lab0; case 1: { int ret; ret = slice_from_s(z, 1, s_0); /* <-, line 51 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 1, s_1); /* <-, line 52 */ if (ret < 0) return ret; } break; case 3: { int ret; ret = slice_from_s(z, 1, s_2); /* <-, line 53 */ if (ret < 0) return ret; } break; case 4: { int ret; ret = slice_from_s(z, 1, s_3); /* <-, line 54 */ if (ret < 0) return ret; } break; case 5: { int ret; ret = slice_from_s(z, 1, s_4); /* <-, line 55 */ if (ret < 0) return ret; } break; case 6: { int c = skip_utf8(z->p, z->c, 0, z->l, 1); if (c < 0) goto lab0; z->c = c; /* next, line 57 */ } break; } continue; lab0: z->c = c; break; } return 1; }
static int r_mark_regions(struct SN_env * z) { z->I[0] = z->l; z->I[1] = z->l; { int c = z->c; /* do, line 35 */ { int c = z->c; /* or, line 40 */ if (!(find_among(z, a_0, 2))) goto lab2; /* among, line 36 */ goto lab1; lab2: z->c = c; while(1) { /* gopast, line 40 */ if (!(in_grouping(z, g_v, 97, 121))) goto lab3; break; lab3: if (z->c >= z->l) goto lab0; z->c++; /* gopast, line 40 */ } while(1) { /* gopast, line 40 */ if (!(out_grouping(z, g_v, 97, 121))) goto lab4; break; lab4: if (z->c >= z->l) goto lab0; z->c++; /* gopast, line 40 */ } } lab1: z->I[0] = z->c; /* setmark p1, line 41 */ while(1) { /* gopast, line 42 */ if (!(in_grouping(z, g_v, 97, 121))) goto lab5; break; lab5: if (z->c >= z->l) goto lab0; z->c++; /* gopast, line 42 */ } while(1) { /* gopast, line 42 */ if (!(out_grouping(z, g_v, 97, 121))) goto lab6; break; lab6: if (z->c >= z->l) goto lab0; z->c++; /* gopast, line 42 */ } z->I[1] = z->c; /* setmark p2, line 42 */ lab0: z->c = c; } return 1; }
static int r_mark_regions(struct SN_env * z) { z->I[0] = z->l; { int c = z->c; /* or, line 51 */ if (!(in_grouping_U(z, g_v, 97, 252))) goto lab1; while(1) { /* goto, line 48 */ int c = z->c; if (!(out_grouping_U(z, g_v, 97, 252))) goto lab2; z->c = c; break; lab2: z->c = c; { int c = skip_utf8(z->p, z->c, 0, z->l, 1); if (c < 0) goto lab1; z->c = c; /* goto, line 48 */ } } { int c = z->c; /* or, line 49 */ if (!(find_among(z, a_0, 8))) goto lab4; /* among, line 49 */ goto lab3; lab4: z->c = c; { int c = skip_utf8(z->p, z->c, 0, z->l, 1); if (c < 0) goto lab1; z->c = c; /* next, line 49 */ } } lab3: z->I[0] = z->c; /* setmark p1, line 50 */ goto lab0; lab1: z->c = c; if (!(out_grouping_U(z, g_v, 97, 252))) return 0; while(1) { /* gopast, line 53 */ if (!(in_grouping_U(z, g_v, 97, 252))) goto lab5; break; lab5: { int c = skip_utf8(z->p, z->c, 0, z->l, 1); if (c < 0) return 0; z->c = c; /* gopast, line 53 */ } } z->I[0] = z->c; /* setmark p1, line 53 */ } lab0: return 1; }
static int r_prefixes(struct SN_env * z) { int among_var; z->bra = z->c; /* [, line 24 */ among_var = find_among(z, a_1, 6); /* substring, line 24 */ if (!(among_var)) return 0; z->ket = z->c; /* ], line 24 */ switch(among_var) { case 0: return 0; case 1: { int ret = slice_from_s(z, 3, s_9); /* <-, line 25 */ if (ret < 0) return ret; } break; case 2: { int ret = slice_from_s(z, 2, s_10); /* <-, line 26 */ if (ret < 0) return ret; } break; case 3: { int ret = slice_from_s(z, 3, s_11); /* <-, line 27 */ if (ret < 0) return ret; } break; case 4: { int ret = slice_from_s(z, 5, s_12); /* <-, line 28 */ if (ret < 0) return ret; } break; case 5: { int ret = slice_from_s(z, 4, s_13); /* <-, line 29 */ if (ret < 0) return ret; } break; case 6: { int ret = slice_from_s(z, 3, s_14); /* <-, line 30 */ if (ret < 0) return ret; } break; } return 1; }
static int r_remove_second_order_prefix(struct SN_env * z) { /* forwardmode */ int among_var; z->bra = z->c; /* [, line 162 */ if (z->c + 1 >= z->l || z->p[z->c + 1] != 101) return 0; /* substring, line 162 */ among_var = find_among(z, a_4, 6); if (!(among_var)) return 0; z->ket = z->c; /* ], line 162 */ switch (among_var) { /* among, line 162 */ case 1: { int ret = slice_del(z); /* delete, line 163 */ if (ret < 0) return ret; } z->I[1] = 2; /* $prefix = <integer expression>, line 163 */ z->I[0] -= 1; /* $measure -= <integer expression>, line 163 */ break; case 2: { int ret = slice_from_s(z, 4, s_5); /* <-, line 164 */ if (ret < 0) return ret; } z->I[0] -= 1; /* $measure -= <integer expression>, line 164 */ break; case 3: { int ret = slice_del(z); /* delete, line 165 */ if (ret < 0) return ret; } z->I[1] = 4; /* $prefix = <integer expression>, line 165 */ z->I[0] -= 1; /* $measure -= <integer expression>, line 165 */ break; case 4: { int ret = slice_from_s(z, 4, s_6); /* <-, line 166 */ if (ret < 0) return ret; } z->I[1] = 4; /* $prefix = <integer expression>, line 166 */ z->I[0] -= 1; /* $measure -= <integer expression>, line 166 */ break; } return 1; }
static int r_prelude(struct SN_env * z) { int among_var; while(1) { /* repeat, line 36 */ int c = z->c; z->bra = z->c; /* [, line 37 */ among_var = find_among(z, a_0, 3); /* substring, line 37 */ if (!(among_var)) goto lab0; z->ket = z->c; /* ], line 37 */ switch(among_var) { case 0: goto lab0; case 1: { int ret; ret = slice_from_s(z, 2, s_0); /* <-, line 38 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 2, s_1); /* <-, line 39 */ if (ret < 0) return ret; } break; case 3: { int c = skip_utf8(z->p, z->c, 0, z->l, 1); if (c < 0) goto lab0; z->c = c; /* next, line 40 */ } break; } continue; lab0: z->c = c; break; } return 1; }
static int r_remove_first_order_prefix(struct SN_env * z) { /* forwardmode */ int among_var; z->bra = z->c; /* [, line 146 */ if (z->c + 1 >= z->l || (z->p[z->c + 1] != 105 && z->p[z->c + 1] != 101)) return 0; /* substring, line 146 */ among_var = find_among(z, a_3, 12); if (!(among_var)) return 0; z->ket = z->c; /* ], line 146 */ switch (among_var) { /* among, line 146 */ case 1: { int ret = slice_del(z); /* delete, line 147 */ if (ret < 0) return ret; } z->I[1] = 1; /* $prefix = <integer expression>, line 147 */ z->I[0] -= 1; /* $measure -= <integer expression>, line 147 */ break; case 2: { int ret = slice_del(z); /* delete, line 148 */ if (ret < 0) return ret; } z->I[1] = 3; /* $prefix = <integer expression>, line 148 */ z->I[0] -= 1; /* $measure -= <integer expression>, line 148 */ break; case 3: z->I[1] = 1; /* $prefix = <integer expression>, line 149 */ { int ret = slice_from_s(z, 1, s_1); /* <-, line 149 */ if (ret < 0) return ret; } z->I[0] -= 1; /* $measure -= <integer expression>, line 149 */ break; case 4: z->I[1] = 3; /* $prefix = <integer expression>, line 150 */ { int ret = slice_from_s(z, 1, s_2); /* <-, line 150 */ if (ret < 0) return ret; } z->I[0] -= 1; /* $measure -= <integer expression>, line 150 */ break; case 5: z->I[1] = 1; /* $prefix = <integer expression>, line 151 */ z->I[0] -= 1; /* $measure -= <integer expression>, line 151 */ { int c1 = z->c; /* or, line 151 */ { int c2 = z->c; /* and, line 151 */ if (in_grouping_U(z, g_vowel, 97, 117, 0)) goto lab1; /* grouping vowel, line 151 */ z->c = c2; { int ret = slice_from_s(z, 1, s_3); /* <-, line 151 */ if (ret < 0) return ret; } } goto lab0; lab1: z->c = c1; { int ret = slice_del(z); /* delete, line 151 */ if (ret < 0) return ret; } } lab0: break; case 6: z->I[1] = 3; /* $prefix = <integer expression>, line 152 */ z->I[0] -= 1; /* $measure -= <integer expression>, line 152 */ { int c3 = z->c; /* or, line 152 */ { int c4 = z->c; /* and, line 152 */ if (in_grouping_U(z, g_vowel, 97, 117, 0)) goto lab3; /* grouping vowel, line 152 */ z->c = c4; { int ret = slice_from_s(z, 1, s_4); /* <-, line 152 */ if (ret < 0) return ret; } } goto lab2; lab3: z->c = c3; { int ret = slice_del(z); /* delete, line 152 */ if (ret < 0) return ret; } } lab2: break; } return 1; }
static int r_prelude(struct SN_env * z) { int among_var; { int c_test = z->c; /* test, line 35 */ while(1) { /* repeat, line 35 */ int c = z->c; z->bra = z->c; /* [, line 36 */ among_var = find_among(z, a_0, 7); /* substring, line 36 */ if (!(among_var)) goto lab0; z->ket = z->c; /* ], line 36 */ switch(among_var) { case 0: goto lab0; case 1: slice_from_s(z, 1, s_0); /* <-, line 37 */ break; case 2: slice_from_s(z, 1, s_1); /* <-, line 38 */ break; case 3: slice_from_s(z, 1, s_2); /* <-, line 39 */ break; case 4: slice_from_s(z, 1, s_3); /* <-, line 40 */ break; case 5: slice_from_s(z, 1, s_4); /* <-, line 41 */ break; case 6: slice_from_s(z, 2, s_5); /* <-, line 42 */ break; case 7: if (z->c >= z->l) goto lab0; z->c++; /* next, line 43 */ break; } continue; lab0: z->c = c; break; } z->c = c_test; } while(1) { /* repeat, line 46 */ int c = z->c; while(1) { /* goto, line 46 */ int c = z->c; if (!(in_grouping(z, g_v, 97, 249))) goto lab2; z->bra = z->c; /* [, line 47 */ { int c = z->c; /* or, line 47 */ if (!(eq_s(z, 1, s_6))) goto lab4; z->ket = z->c; /* ], line 47 */ if (!(in_grouping(z, g_v, 97, 249))) goto lab4; slice_from_s(z, 1, s_7); /* <-, line 47 */ goto lab3; lab4: z->c = c; if (!(eq_s(z, 1, s_8))) goto lab2; z->ket = z->c; /* ], line 48 */ if (!(in_grouping(z, g_v, 97, 249))) goto lab2; slice_from_s(z, 1, s_9); /* <-, line 48 */ } lab3: z->c = c; break; lab2: z->c = c; if (z->c >= z->l) goto lab1; z->c++; } continue; lab1: z->c = c; break; } return 1; }
static int r_exception1(struct SN_env * z) { int among_var; z->bra = z->c; /* [, line 169 */ among_var = find_among(z, a_10, 18); /* substring, line 169 */ if (!(among_var)) return 0; z->ket = z->c; /* ], line 169 */ if (z->c < z->l) return 0; /* atlimit, line 169 */ switch(among_var) { case 0: return 0; case 1: { int ret; ret = slice_from_s(z, 3, s_37); /* <-, line 173 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 3, s_38); /* <-, line 174 */ if (ret < 0) return ret; } break; case 3: { int ret; ret = slice_from_s(z, 3, s_39); /* <-, line 175 */ if (ret < 0) return ret; } break; case 4: { int ret; ret = slice_from_s(z, 3, s_40); /* <-, line 176 */ if (ret < 0) return ret; } break; case 5: { int ret; ret = slice_from_s(z, 3, s_41); /* <-, line 177 */ if (ret < 0) return ret; } break; case 6: { int ret; ret = slice_from_s(z, 3, s_42); /* <-, line 181 */ if (ret < 0) return ret; } break; case 7: { int ret; ret = slice_from_s(z, 5, s_43); /* <-, line 182 */ if (ret < 0) return ret; } break; case 8: { int ret; ret = slice_from_s(z, 4, s_44); /* <-, line 183 */ if (ret < 0) return ret; } break; case 9: { int ret; ret = slice_from_s(z, 5, s_45); /* <-, line 184 */ if (ret < 0) return ret; } break; case 10: { int ret; ret = slice_from_s(z, 4, s_46); /* <-, line 185 */ if (ret < 0) return ret; } break; case 11: { int ret; ret = slice_from_s(z, 5, s_47); /* <-, line 186 */ if (ret < 0) return ret; } break; } return 1; }
static int r_prelude(struct SN_env * z) { int among_var; { int c_test = z->c; /* test, line 42 */ while(1) { /* repeat, line 42 */ int c = z->c; z->bra = z->c; /* [, line 43 */ among_var = find_among(z, a_0, 11); /* substring, line 43 */ if (!(among_var)) goto lab0; z->ket = z->c; /* ], line 43 */ switch(among_var) { case 0: goto lab0; case 1: { int ret; ret = slice_from_s(z, 1, s_0); /* <-, line 45 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 1, s_1); /* <-, line 47 */ if (ret < 0) return ret; } break; case 3: { int ret; ret = slice_from_s(z, 1, s_2); /* <-, line 49 */ if (ret < 0) return ret; } break; case 4: { int ret; ret = slice_from_s(z, 1, s_3); /* <-, line 51 */ if (ret < 0) return ret; } break; case 5: { int ret; ret = slice_from_s(z, 1, s_4); /* <-, line 53 */ if (ret < 0) return ret; } break; case 6: { int c = skip_utf8(z->p, z->c, 0, z->l, 1); if (c < 0) goto lab0; z->c = c; /* next, line 54 */ } break; } continue; lab0: z->c = c; break; } z->c = c_test; } { int c = z->c; /* try, line 57 */ z->bra = z->c; /* [, line 57 */ if (!(eq_s(z, 1, s_5))) { z->c = c; goto lab1; } z->ket = z->c; /* ], line 57 */ { int ret; ret = slice_from_s(z, 1, s_6); /* <-, line 57 */ if (ret < 0) return ret; } lab1: ; } while(1) { /* repeat, line 58 */ int c = z->c; while(1) { /* goto, line 58 */ int c = z->c; if (!(in_grouping_U(z, g_v, 97, 232))) goto lab3; z->bra = z->c; /* [, line 59 */ { int c = z->c; /* or, line 59 */ if (!(eq_s(z, 1, s_7))) goto lab5; z->ket = z->c; /* ], line 59 */ if (!(in_grouping_U(z, g_v, 97, 232))) goto lab5; { int ret; ret = slice_from_s(z, 1, s_8); /* <-, line 59 */ if (ret < 0) return ret; } goto lab4; lab5: z->c = c; if (!(eq_s(z, 1, s_9))) goto lab3; z->ket = z->c; /* ], line 60 */ { int ret; ret = slice_from_s(z, 1, s_10); /* <-, line 60 */ if (ret < 0) return ret; } } lab4: z->c = c; break; lab3: z->c = c; { int c = skip_utf8(z->p, z->c, 0, z->l, 1); if (c < 0) goto lab2; z->c = c; /* goto, line 58 */ } } continue; lab2: z->c = c; break; } return 1; }