static int r_v_ending(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 61 */ among_var = find_among_b(z, a_1, 2); /* substring, line 61 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 61 */ { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 61 */ if (ret < 0) return ret; } switch(among_var) { case 0: return 0; case 1: { int ret; ret = slice_from_s(z, 1, s_0); /* <-, line 62 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 1, s_1); /* <-, line 63 */ if (ret < 0) return ret; } break; } return 1; }
static int r_factive(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 133 */ among_var = find_among_b(z, a_7, 2); /* substring, line 133 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 133 */ { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 133 */ if (ret < 0) return ret; } switch(among_var) { case 0: return 0; case 1: { int ret = r_double(z); if (ret == 0) return 0; /* call double, line 134 */ if (ret < 0) return ret; } break; case 2: { int ret = r_double(z); if (ret == 0) return 0; /* call double, line 135 */ if (ret < 0) return ret; } break; } { int ret; ret = slice_del(z); /* delete, line 137 */ if (ret < 0) return ret; } { int ret = r_undouble(z); if (ret == 0) return 0; /* call undouble, line 138 */ if (ret < 0) return ret; } return 1; }
static int r_Step_3(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 82 */ among_var = find_among_b(z, a_4, 7); /* substring, line 82 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 82 */ { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 82 */ if (ret < 0) return ret; } switch(among_var) { case 0: return 0; case 1: { int ret; ret = slice_from_s(z, 2, s_22); /* <-, line 83 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 2, s_23); /* <-, line 85 */ if (ret < 0) return ret; } break; case 3: { int ret; ret = slice_del(z); /* delete, line 87 */ if (ret < 0) return ret; } break; } return 1; }
static int r_en_ending(struct SN_env * z) { { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 102 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* and, line 102 */ if (!(out_grouping_b_U(z, g_v, 97, 232))) return 0; z->c = z->l - m; { int m = z->l - z->c; (void) m; /* not, line 102 */ if (!(eq_s_b(z, 3, s_14))) goto lab0; return 0; lab0: z->c = z->l - m; } } { int ret; ret = slice_del(z); /* delete, line 102 */ if (ret < 0) return ret; } { int ret = r_undouble(z); if (ret == 0) return 0; /* call undouble, line 103 */ if (ret < 0) return ret; } return 1; }
static int r_case_special(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 116 */ among_var = find_among_b(z, a_5, 3); /* substring, line 116 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 116 */ { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 116 */ if (ret < 0) return ret; } switch(among_var) { case 0: return 0; case 1: { int ret; ret = slice_from_s(z, 1, s_2); /* <-, line 117 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 1, s_3); /* <-, line 118 */ if (ret < 0) return ret; } break; case 3: { int ret; ret = slice_from_s(z, 1, s_4); /* <-, line 119 */ if (ret < 0) return ret; } break; } return 1; }
static int r_Step_5a(struct SN_env * z) { z->ket = z->c; /* [, line 101 */ if (!(eq_s_b(z, 1, s_26))) return 0; z->bra = z->c; /* ], line 101 */ { int m = z->l - z->c; (void) m; /* or, line 102 */ { int ret = r_R2(z); if (ret == 0) goto lab1; /* call R2, line 102 */ if (ret < 0) return ret; } goto lab0; lab1: z->c = z->l - m; { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 102 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* not, line 102 */ { int ret = r_shortv(z); if (ret == 0) goto lab2; /* call shortv, line 102 */ if (ret < 0) return ret; } return 0; lab2: z->c = z->l - m; } } lab0: { int ret; ret = slice_del(z); /* delete, line 103 */ if (ret < 0) return ret; } return 1; }
static int r_plural(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 142 */ among_var = find_among_b(z, a_8, 7); /* substring, line 142 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 142 */ { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 142 */ if (ret < 0) return ret; } switch(among_var) { case 0: return 0; case 1: { int ret; ret = slice_from_s(z, 1, s_7); /* <-, line 143 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 1, s_8); /* <-, line 144 */ if (ret < 0) return ret; } break; case 3: { int ret; ret = slice_del(z); /* delete, line 145 */ if (ret < 0) return ret; } break; case 4: { int ret; ret = slice_del(z); /* delete, line 146 */ if (ret < 0) return ret; } break; case 5: { int ret; ret = slice_del(z); /* delete, line 147 */ if (ret < 0) return ret; } break; case 6: { int ret; ret = slice_del(z); /* delete, line 148 */ if (ret < 0) return ret; } break; case 7: { int ret; ret = slice_del(z); /* delete, line 149 */ if (ret < 0) return ret; } break; } return 1; }
static int r_Step_3(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 126 */ among_var = find_among_b(z, a_6, 9); /* substring, line 126 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 126 */ { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 126 */ if (ret < 0) return ret; } switch(among_var) { case 0: return 0; case 1: { int ret; ret = slice_from_s(z, 4, s_30); /* <-, line 127 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 3, s_31); /* <-, line 128 */ if (ret < 0) return ret; } break; case 3: { int ret; ret = slice_from_s(z, 2, s_32); /* <-, line 129 */ if (ret < 0) return ret; } break; case 4: { int ret; ret = slice_from_s(z, 2, s_33); /* <-, line 131 */ if (ret < 0) return ret; } break; case 5: { int ret; ret = slice_del(z); /* delete, line 133 */ if (ret < 0) return ret; } break; case 6: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 135 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 135 */ if (ret < 0) return ret; } break; } return 1; }
static int r_Step_5(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 149 */ among_var = find_among_b(z, a_8, 2); /* substring, line 149 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 149 */ switch(among_var) { case 0: return 0; case 1: { int m = z->l - z->c; (void) m; /* or, line 150 */ { int ret = r_R2(z); if (ret == 0) goto lab1; /* call R2, line 150 */ if (ret < 0) return ret; } goto lab0; lab1: z->c = z->l - m; { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 150 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* not, line 150 */ { int ret = r_shortv(z); if (ret == 0) goto lab2; /* call shortv, line 150 */ if (ret < 0) return ret; } return 0; lab2: z->c = z->l - m; } } lab0: { int ret; ret = slice_del(z); /* delete, line 150 */ if (ret < 0) return ret; } break; case 2: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 151 */ if (ret < 0) return ret; } if (!(eq_s_b(z, 1, s_36))) return 0; { int ret; ret = slice_del(z); /* delete, line 151 */ if (ret < 0) return ret; } break; } return 1; }
static int r_case(struct SN_env * z) { z->ket = z->c; /* [, line 87 */ if (!(find_among_b(z, a_4, 44))) return 0; /* substring, line 87 */ z->bra = z->c; /* ], line 87 */ { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 87 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 111 */ if (ret < 0) return ret; } { int ret = r_v_ending(z); if (ret == 0) return 0; /* call v_ending, line 112 */ if (ret < 0) return ret; } return 1; }
static int r_case_other(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 124 */ among_var = find_among_b(z, a_6, 6); /* substring, line 124 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 124 */ { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 124 */ if (ret < 0) return ret; } switch(among_var) { case 0: return 0; case 1: { int ret; ret = slice_del(z); /* delete, line 125 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_del(z); /* delete, line 126 */ if (ret < 0) return ret; } break; case 3: { int ret; ret = slice_from_s(z, 1, s_5); /* <-, line 127 */ if (ret < 0) return ret; } break; case 4: { int ret; ret = slice_from_s(z, 1, s_6); /* <-, line 128 */ if (ret < 0) return ret; } break; } return 1; }
static int r_e_ending(struct SN_env * z) { z->B[0] = 0; /* unset e_found, line 95 */ z->ket = z->c; /* [, line 96 */ if (!(eq_s_b(z, 1, s_13))) return 0; z->bra = z->c; /* ], line 96 */ { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 96 */ if (ret < 0) return ret; } { int m_test = z->l - z->c; /* test, line 96 */ if (!(out_grouping_b_U(z, g_v, 97, 232))) return 0; z->c = z->l - m_test; } { int ret; ret = slice_del(z); /* delete, line 96 */ if (ret < 0) return ret; } z->B[0] = 1; /* set e_found, line 97 */ { int ret = r_undouble(z); if (ret == 0) return 0; /* call undouble, line 98 */ if (ret < 0) return ret; } return 1; }
static int r_standard_suffix(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 77 */ among_var = find_among_b(z, a_5, 42); /* substring, line 77 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 77 */ switch(among_var) { case 0: return 0; case 1: if (!r_R2(z)) return 0; /* call R2, line 92 */ slice_del(z); /* delete, line 92 */ break; case 2: if (!r_R2(z)) return 0; /* call R2, line 97 */ slice_from_s(z, 3, s_4); /* <-, line 97 */ break; case 3: if (!r_R2(z)) return 0; /* call R2, line 101 */ slice_from_s(z, 1, s_5); /* <-, line 101 */ break; case 4: if (!r_R2(z)) return 0; /* call R2, line 105 */ slice_from_s(z, 4, s_6); /* <-, line 105 */ break; case 5: if (!r_R1(z)) return 0; /* call R1, line 109 */ slice_del(z); /* delete, line 109 */ { int m = z->l - z->c; /* try, line 110 */ z->ket = z->c; /* [, line 111 */ among_var = find_among_b(z, a_2, 4); /* substring, line 111 */ if (!(among_var)) { z->c = z->l - m; goto lab0; } z->bra = z->c; /* ], line 111 */ if (!r_R2(z)) { z->c = z->l - m; goto lab0; } /* call R2, line 111 */ slice_del(z); /* delete, line 111 */ switch(among_var) { case 0: { z->c = z->l - m; goto lab0; } case 1: z->ket = z->c; /* [, line 112 */ if (!(eq_s_b(z, 2, s_7))) { z->c = z->l - m; goto lab0; } z->bra = z->c; /* ], line 112 */ if (!r_R2(z)) { z->c = z->l - m; goto lab0; } /* call R2, line 112 */ slice_del(z); /* delete, line 112 */ break; } lab0: ; } break; case 6: if (!r_R2(z)) return 0; /* call R2, line 121 */ slice_del(z); /* delete, line 121 */ { int m = z->l - z->c; /* try, line 122 */ z->ket = z->c; /* [, line 123 */ among_var = find_among_b(z, a_3, 2); /* substring, line 123 */ if (!(among_var)) { z->c = z->l - m; goto lab1; } z->bra = z->c; /* ], line 123 */ switch(among_var) { case 0: { z->c = z->l - m; goto lab1; } case 1: if (!r_R2(z)) { z->c = z->l - m; goto lab1; } /* call R2, line 125 */ slice_del(z); /* delete, line 125 */ break; } lab1: ; } break; case 7: if (!r_R2(z)) return 0; /* call R2, line 132 */ slice_del(z); /* delete, line 132 */ { int m = z->l - z->c; /* try, line 133 */ z->ket = z->c; /* [, line 134 */ among_var = find_among_b(z, a_4, 3); /* substring, line 134 */ if (!(among_var)) { z->c = z->l - m; goto lab2; } z->bra = z->c; /* ], line 134 */ switch(among_var) { case 0: { z->c = z->l - m; goto lab2; } case 1: if (!r_R2(z)) { z->c = z->l - m; goto lab2; } /* call R2, line 137 */ slice_del(z); /* delete, line 137 */ break; } lab2: ; } break; case 8: if (!r_R2(z)) return 0; /* call R2, line 144 */ slice_del(z); /* delete, line 144 */ { int m = z->l - z->c; /* try, line 145 */ z->ket = z->c; /* [, line 146 */ if (!(eq_s_b(z, 2, s_8))) { z->c = z->l - m; goto lab3; } z->bra = z->c; /* ], line 146 */ if (!r_R2(z)) { z->c = z->l - m; goto lab3; } /* call R2, line 146 */ slice_del(z); /* delete, line 146 */ lab3: ; } break; case 9: if (!r_RV(z)) return 0; /* call RV, line 151 */ if (!(eq_s_b(z, 1, s_9))) return 0; slice_from_s(z, 2, s_10); /* <-, line 152 */ break; } return 1; }
static int r_standard_suffix(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 104 */ among_var = find_among_b(z, a_6, 49); /* substring, line 104 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 104 */ switch(among_var) { case 0: return 0; case 1: if (!r_R2(z)) return 0; /* call R2, line 110 */ slice_del(z); /* delete, line 110 */ break; case 2: if (!r_R2(z)) return 0; /* call R2, line 112 */ slice_del(z); /* delete, line 112 */ { int m = z->l - z->c; /* try, line 113 */ z->ket = z->c; /* [, line 113 */ if (!(eq_s_b(z, 2, s_13))) { z->c = z->l - m; goto lab0; } z->bra = z->c; /* ], line 113 */ if (!r_R2(z)) { z->c = z->l - m; goto lab0; } /* call R2, line 113 */ slice_del(z); /* delete, line 113 */ lab0: ; } break; case 3: if (!r_R2(z)) return 0; /* call R2, line 116 */ slice_from_s(z, 3, s_14); /* <-, line 116 */ break; case 4: if (!r_R2(z)) return 0; /* call R2, line 118 */ slice_from_s(z, 1, s_15); /* <-, line 118 */ break; case 5: if (!r_R2(z)) return 0; /* call R2, line 120 */ slice_from_s(z, 4, s_16); /* <-, line 120 */ break; case 6: if (!r_RV(z)) return 0; /* call RV, line 122 */ slice_del(z); /* delete, line 122 */ break; case 7: if (!r_R1(z)) return 0; /* call R1, line 124 */ slice_del(z); /* delete, line 124 */ { int m = z->l - z->c; /* try, line 125 */ z->ket = z->c; /* [, line 126 */ among_var = find_among_b(z, a_4, 4); /* substring, line 126 */ if (!(among_var)) { z->c = z->l - m; goto lab1; } z->bra = z->c; /* ], line 126 */ if (!r_R2(z)) { z->c = z->l - m; goto lab1; } /* call R2, line 126 */ slice_del(z); /* delete, line 126 */ switch(among_var) { case 0: { z->c = z->l - m; goto lab1; } case 1: z->ket = z->c; /* [, line 127 */ if (!(eq_s_b(z, 2, s_17))) { z->c = z->l - m; goto lab1; } z->bra = z->c; /* ], line 127 */ if (!r_R2(z)) { z->c = z->l - m; goto lab1; } /* call R2, line 127 */ slice_del(z); /* delete, line 127 */ break; } lab1: ; } break; case 8: if (!r_R2(z)) return 0; /* call R2, line 133 */ slice_del(z); /* delete, line 133 */ { int m = z->l - z->c; /* try, line 134 */ z->ket = z->c; /* [, line 135 */ among_var = find_among_b(z, a_5, 3); /* substring, line 135 */ if (!(among_var)) { z->c = z->l - m; goto lab2; } z->bra = z->c; /* ], line 135 */ switch(among_var) { case 0: { z->c = z->l - m; goto lab2; } case 1: if (!r_R2(z)) { z->c = z->l - m; goto lab2; } /* call R2, line 136 */ slice_del(z); /* delete, line 136 */ break; } lab2: ; } break; case 9: if (!r_R2(z)) return 0; /* call R2, line 141 */ slice_del(z); /* delete, line 141 */ { int m = z->l - z->c; /* try, line 142 */ z->ket = z->c; /* [, line 142 */ if (!(eq_s_b(z, 2, s_18))) { z->c = z->l - m; goto lab3; } z->bra = z->c; /* ], line 142 */ if (!r_R2(z)) { z->c = z->l - m; goto lab3; } /* call R2, line 142 */ slice_del(z); /* delete, line 142 */ z->ket = z->c; /* [, line 142 */ if (!(eq_s_b(z, 2, s_19))) { z->c = z->l - m; goto lab3; } z->bra = z->c; /* ], line 142 */ if (!r_R2(z)) { z->c = z->l - m; goto lab3; } /* call R2, line 142 */ slice_del(z); /* delete, line 142 */ lab3: ; } break; } return 1; }
static int r_Step_2(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 99 */ among_var = find_among_b(z, a_5, 24); /* substring, line 99 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 99 */ { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 99 */ if (ret < 0) return ret; } switch(among_var) { case 0: return 0; case 1: { int ret; ret = slice_from_s(z, 4, s_14); /* <-, line 100 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 4, s_15); /* <-, line 101 */ if (ret < 0) return ret; } break; case 3: { int ret; ret = slice_from_s(z, 4, s_16); /* <-, line 102 */ if (ret < 0) return ret; } break; case 4: { int ret; ret = slice_from_s(z, 4, s_17); /* <-, line 103 */ if (ret < 0) return ret; } break; case 5: { int ret; ret = slice_from_s(z, 3, s_18); /* <-, line 104 */ if (ret < 0) return ret; } break; case 6: { int ret; ret = slice_from_s(z, 3, s_19); /* <-, line 106 */ if (ret < 0) return ret; } break; case 7: { int ret; ret = slice_from_s(z, 3, s_20); /* <-, line 108 */ if (ret < 0) return ret; } break; case 8: { int ret; ret = slice_from_s(z, 2, s_21); /* <-, line 110 */ if (ret < 0) return ret; } break; case 9: { int ret; ret = slice_from_s(z, 3, s_22); /* <-, line 111 */ if (ret < 0) return ret; } break; case 10: { int ret; ret = slice_from_s(z, 3, s_23); /* <-, line 113 */ if (ret < 0) return ret; } break; case 11: { int ret; ret = slice_from_s(z, 3, s_24); /* <-, line 115 */ if (ret < 0) return ret; } break; case 12: { int ret; ret = slice_from_s(z, 3, s_25); /* <-, line 117 */ if (ret < 0) return ret; } break; case 13: if (!(eq_s_b(z, 1, s_26))) return 0; { int ret; ret = slice_from_s(z, 2, s_27); /* <-, line 118 */ if (ret < 0) return ret; } break; case 14: { int ret; ret = slice_from_s(z, 3, s_28); /* <-, line 119 */ if (ret < 0) return ret; } break; case 15: { int ret; ret = slice_from_s(z, 4, s_29); /* <-, line 120 */ if (ret < 0) return ret; } break; case 16: if (!(in_grouping_b(z, g_valid_LI, 99, 116))) return 0; { int ret; ret = slice_del(z); /* delete, line 121 */ if (ret < 0) return ret; } break; } return 1; }
static int r_Step_1b(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 74 */ among_var = find_among_b(z, a_4, 6); /* substring, line 74 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 74 */ switch(among_var) { case 0: return 0; case 1: { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 76 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 2, s_8); /* <-, line 76 */ if (ret < 0) return ret; } break; case 2: { int m_test = z->l - z->c; /* test, line 79 */ while(1) { /* gopast, line 79 */ if (!(in_grouping_b(z, g_v, 97, 121))) goto lab0; break; lab0: if (z->c <= z->lb) return 0; z->c--; /* gopast, line 79 */ } z->c = z->l - m_test; } { int ret; ret = slice_del(z); /* delete, line 79 */ if (ret < 0) return ret; } { int m_test = z->l - z->c; /* test, line 80 */ among_var = find_among_b(z, a_3, 13); /* substring, line 80 */ if (!(among_var)) return 0; z->c = z->l - m_test; } switch(among_var) { case 0: return 0; case 1: { int ret; { int c = z->c; ret = insert_s(z, z->c, z->c, 1, s_9); /* <+, line 82 */ z->c = c; } if (ret < 0) return ret; } break; case 2: z->ket = z->c; /* [, line 85 */ if (z->c <= z->lb) return 0; z->c--; /* next, line 85 */ z->bra = z->c; /* ], line 85 */ { int ret; ret = slice_del(z); /* delete, line 85 */ if (ret < 0) return ret; } break; case 3: if (z->c != z->I[0]) return 0; /* atmark, line 86 */ { int m_test = z->l - z->c; /* test, line 86 */ { int ret = r_shortv(z); if (ret == 0) return 0; /* call shortv, line 86 */ if (ret < 0) return ret; } z->c = z->l - m_test; } { int ret; { int c = z->c; ret = insert_s(z, z->c, z->c, 1, s_10); /* <+, line 86 */ z->c = c; } if (ret < 0) return ret; } break; } break; } return 1; }
static int r_standard_suffix(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 87 */ among_var = find_among_b(z, a_6, 46); /* substring, line 87 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 87 */ switch(among_var) { case 0: return 0; case 1: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 99 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 99 */ if (ret < 0) return ret; } break; case 2: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 105 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 105 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 106 */ z->ket = z->c; /* [, line 106 */ if (!(eq_s_b(z, 2, s_11))) { z->c = z->l - m; goto lab0; } z->bra = z->c; /* ], line 106 */ { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; goto lab0; } /* call R2, line 106 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 106 */ if (ret < 0) return ret; } lab0: ; } break; case 3: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 111 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 3, s_12); /* <-, line 111 */ if (ret < 0) return ret; } break; case 4: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 115 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 1, s_13); /* <-, line 115 */ if (ret < 0) return ret; } break; case 5: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 119 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 4, s_14); /* <-, line 119 */ if (ret < 0) return ret; } break; case 6: { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 123 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 123 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 124 */ z->ket = z->c; /* [, line 125 */ among_var = find_among_b(z, a_3, 4); /* substring, line 125 */ if (!(among_var)) { z->c = z->l - m; goto lab1; } z->bra = z->c; /* ], line 125 */ { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; goto lab1; } /* call R2, line 125 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 125 */ if (ret < 0) return ret; } switch(among_var) { case 0: { z->c = z->l - m; goto lab1; } case 1: z->ket = z->c; /* [, line 126 */ if (!(eq_s_b(z, 2, s_15))) { z->c = z->l - m; goto lab1; } z->bra = z->c; /* ], line 126 */ { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; goto lab1; } /* call R2, line 126 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 126 */ if (ret < 0) return ret; } break; } lab1: ; } break; case 7: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 135 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 135 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 136 */ z->ket = z->c; /* [, line 137 */ among_var = find_among_b(z, a_4, 3); /* substring, line 137 */ if (!(among_var)) { z->c = z->l - m; goto lab2; } z->bra = z->c; /* ], line 137 */ switch(among_var) { case 0: { z->c = z->l - m; goto lab2; } case 1: { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; goto lab2; } /* call R2, line 140 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 140 */ if (ret < 0) return ret; } break; } lab2: ; } break; case 8: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 147 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 147 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 148 */ z->ket = z->c; /* [, line 149 */ among_var = find_among_b(z, a_5, 3); /* substring, line 149 */ if (!(among_var)) { z->c = z->l - m; goto lab3; } z->bra = z->c; /* ], line 149 */ switch(among_var) { case 0: { z->c = z->l - m; goto lab3; } case 1: { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; goto lab3; } /* call R2, line 152 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 152 */ if (ret < 0) return ret; } break; } lab3: ; } break; case 9: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 159 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 159 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 160 */ z->ket = z->c; /* [, line 161 */ if (!(eq_s_b(z, 2, s_16))) { z->c = z->l - m; goto lab4; } z->bra = z->c; /* ], line 161 */ { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; goto lab4; } /* call R2, line 161 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 161 */ if (ret < 0) return ret; } lab4: ; } break; } return 1; }
static int r_standard_suffix(struct SN_env * z) { int among_var; { int m = z->l - z->c; (void) m; /* do, line 107 */ z->ket = z->c; /* [, line 108 */ among_var = find_among_b(z, a_3, 5); /* substring, line 108 */ if (!(among_var)) goto lab0; z->bra = z->c; /* ], line 108 */ switch(among_var) { case 0: goto lab0; case 1: { int ret = r_R1(z); if (ret == 0) goto lab0; /* call R1, line 110 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 4, s_15); /* <-, line 110 */ if (ret < 0) return ret; } break; case 2: { int ret = r_en_ending(z); if (ret == 0) goto lab0; /* call en_ending, line 113 */ if (ret < 0) return ret; } break; case 3: { int ret = r_R1(z); if (ret == 0) goto lab0; /* call R1, line 116 */ if (ret < 0) return ret; } if (!(out_grouping_b_U(z, g_v_j, 97, 232))) goto lab0; { int ret; ret = slice_del(z); /* delete, line 116 */ if (ret < 0) return ret; } break; } lab0: z->c = z->l - m; } { int m = z->l - z->c; (void) m; /* do, line 120 */ { int ret = r_e_ending(z); if (ret == 0) goto lab1; /* call e_ending, line 120 */ if (ret < 0) return ret; } lab1: z->c = z->l - m; } { int m = z->l - z->c; (void) m; /* do, line 122 */ z->ket = z->c; /* [, line 122 */ if (!(eq_s_b(z, 4, s_16))) goto lab2; z->bra = z->c; /* ], line 122 */ { int ret = r_R2(z); if (ret == 0) goto lab2; /* call R2, line 122 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* not, line 122 */ if (!(eq_s_b(z, 1, s_17))) goto lab3; goto lab2; lab3: z->c = z->l - m; } { int ret; ret = slice_del(z); /* delete, line 122 */ if (ret < 0) return ret; } z->ket = z->c; /* [, line 123 */ if (!(eq_s_b(z, 2, s_18))) goto lab2; z->bra = z->c; /* ], line 123 */ { int ret = r_en_ending(z); if (ret == 0) goto lab2; /* call en_ending, line 123 */ if (ret < 0) return ret; } lab2: z->c = z->l - m; } { int m = z->l - z->c; (void) m; /* do, line 126 */ z->ket = z->c; /* [, line 127 */ among_var = find_among_b(z, a_4, 6); /* substring, line 127 */ if (!(among_var)) goto lab4; z->bra = z->c; /* ], line 127 */ switch(among_var) { case 0: goto lab4; case 1: { int ret = r_R2(z); if (ret == 0) goto lab4; /* call R2, line 129 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 129 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* or, line 130 */ z->ket = z->c; /* [, line 130 */ if (!(eq_s_b(z, 2, s_19))) goto lab6; z->bra = z->c; /* ], line 130 */ { int ret = r_R2(z); if (ret == 0) goto lab6; /* call R2, line 130 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* not, line 130 */ if (!(eq_s_b(z, 1, s_20))) goto lab7; goto lab6; lab7: z->c = z->l - m; } { int ret; ret = slice_del(z); /* delete, line 130 */ if (ret < 0) return ret; } goto lab5; lab6: z->c = z->l - m; { int ret = r_undouble(z); if (ret == 0) goto lab4; /* call undouble, line 130 */ if (ret < 0) return ret; } } lab5: break; case 2: { int ret = r_R2(z); if (ret == 0) goto lab4; /* call R2, line 133 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* not, line 133 */ if (!(eq_s_b(z, 1, s_21))) goto lab8; goto lab4; lab8: z->c = z->l - m; } { int ret; ret = slice_del(z); /* delete, line 133 */ if (ret < 0) return ret; } break; case 3: { int ret = r_R2(z); if (ret == 0) goto lab4; /* call R2, line 136 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 136 */ if (ret < 0) return ret; } { int ret = r_e_ending(z); if (ret == 0) goto lab4; /* call e_ending, line 136 */ if (ret < 0) return ret; } break; case 4: { int ret = r_R2(z); if (ret == 0) goto lab4; /* call R2, line 139 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 139 */ if (ret < 0) return ret; } break; case 5: { int ret = r_R2(z); if (ret == 0) goto lab4; /* call R2, line 142 */ if (ret < 0) return ret; } if (!(z->B[0])) goto lab4; /* Boolean test e_found, line 142 */ { int ret; ret = slice_del(z); /* delete, line 142 */ if (ret < 0) return ret; } break; } lab4: z->c = z->l - m; } { int m = z->l - z->c; (void) m; /* do, line 146 */ if (!(out_grouping_b_U(z, g_v_I, 73, 232))) goto lab9; { int m_test = z->l - z->c; /* test, line 148 */ if (!(find_among_b(z, a_5, 4))) goto lab9; /* among, line 149 */ if (!(out_grouping_b_U(z, g_v, 97, 232))) goto lab9; z->c = z->l - m_test; } z->ket = z->c; /* [, line 152 */ { int c = skip_utf8(z->p, z->c, z->lb, 0, -1); if (c < 0) goto lab9; z->c = c; /* next, line 152 */ } z->bra = z->c; /* ], line 152 */ { int ret; ret = slice_del(z); /* delete, line 152 */ if (ret < 0) return ret; } lab9: z->c = z->l - m; } return 1; }
static int r_Step_1b(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 34 */ among_var = find_among_b(z, a_2, 3); /* substring, line 34 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 34 */ switch(among_var) { case 0: return 0; case 1: { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 35 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 2, s_2); /* <-, line 35 */ if (ret < 0) return ret; } break; case 2: { int m_test = z->l - z->c; /* test, line 38 */ while(1) { /* gopast, line 38 */ if (!(in_grouping_b_U(z, g_v, 97, 121))) goto lab0; break; lab0: { int c = skip_utf8(z->p, z->c, z->lb, 0, -1); if (c < 0) return 0; z->c = c; /* gopast, line 38 */ } } z->c = z->l - m_test; } { int ret; ret = slice_del(z); /* delete, line 38 */ if (ret < 0) return ret; } { int m_test = z->l - z->c; /* test, line 39 */ among_var = find_among_b(z, a_1, 13); /* substring, line 39 */ if (!(among_var)) return 0; z->c = z->l - m_test; } switch(among_var) { case 0: return 0; case 1: { int ret; { int c = z->c; ret = insert_s(z, z->c, z->c, 1, s_3); /* <+, line 41 */ z->c = c; } if (ret < 0) return ret; } break; case 2: z->ket = z->c; /* [, line 44 */ { int c = skip_utf8(z->p, z->c, z->lb, 0, -1); if (c < 0) return 0; z->c = c; /* next, line 44 */ } z->bra = z->c; /* ], line 44 */ { int ret; ret = slice_del(z); /* delete, line 44 */ if (ret < 0) return ret; } break; case 3: if (z->c != z->I[0]) return 0; /* atmark, line 45 */ { int m_test = z->l - z->c; /* test, line 45 */ { int ret = r_shortv(z); if (ret == 0) return 0; /* call shortv, line 45 */ if (ret < 0) return ret; } z->c = z->l - m_test; } { int ret; { int c = z->c; ret = insert_s(z, z->c, z->c, 1, s_4); /* <+, line 45 */ z->c = c; } if (ret < 0) return ret; } break; } break; } return 1; }
static int r_plur_owner(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 193 */ among_var = find_among_b(z, a_11, 42); /* substring, line 193 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 193 */ { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 193 */ if (ret < 0) return ret; } switch(among_var) { case 0: return 0; case 1: { int ret; ret = slice_del(z); /* delete, line 194 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 1, s_24); /* <-, line 195 */ if (ret < 0) return ret; } break; case 3: { int ret; ret = slice_from_s(z, 1, s_25); /* <-, line 196 */ if (ret < 0) return ret; } break; case 4: { int ret; ret = slice_del(z); /* delete, line 197 */ if (ret < 0) return ret; } break; case 5: { int ret; ret = slice_del(z); /* delete, line 198 */ if (ret < 0) return ret; } break; case 6: { int ret; ret = slice_del(z); /* delete, line 199 */ if (ret < 0) return ret; } break; case 7: { int ret; ret = slice_from_s(z, 1, s_26); /* <-, line 200 */ if (ret < 0) return ret; } break; case 8: { int ret; ret = slice_from_s(z, 1, s_27); /* <-, line 201 */ if (ret < 0) return ret; } break; case 9: { int ret; ret = slice_del(z); /* delete, line 202 */ if (ret < 0) return ret; } break; case 10: { int ret; ret = slice_del(z); /* delete, line 203 */ if (ret < 0) return ret; } break; case 11: { int ret; ret = slice_del(z); /* delete, line 204 */ if (ret < 0) return ret; } break; case 12: { int ret; ret = slice_from_s(z, 1, s_28); /* <-, line 205 */ if (ret < 0) return ret; } break; case 13: { int ret; ret = slice_from_s(z, 1, s_29); /* <-, line 206 */ if (ret < 0) return ret; } break; case 14: { int ret; ret = slice_del(z); /* delete, line 207 */ if (ret < 0) return ret; } break; case 15: { int ret; ret = slice_del(z); /* delete, line 208 */ if (ret < 0) return ret; } break; case 16: { int ret; ret = slice_del(z); /* delete, line 209 */ if (ret < 0) return ret; } break; case 17: { int ret; ret = slice_del(z); /* delete, line 210 */ if (ret < 0) return ret; } break; case 18: { int ret; ret = slice_from_s(z, 1, s_30); /* <-, line 211 */ if (ret < 0) return ret; } break; case 19: { int ret; ret = slice_from_s(z, 1, s_31); /* <-, line 212 */ if (ret < 0) return ret; } break; case 20: { int ret; ret = slice_del(z); /* delete, line 214 */ if (ret < 0) return ret; } break; case 21: { int ret; ret = slice_del(z); /* delete, line 215 */ if (ret < 0) return ret; } break; case 22: { int ret; ret = slice_from_s(z, 1, s_32); /* <-, line 216 */ if (ret < 0) return ret; } break; case 23: { int ret; ret = slice_from_s(z, 1, s_33); /* <-, line 217 */ if (ret < 0) return ret; } break; case 24: { int ret; ret = slice_del(z); /* delete, line 218 */ if (ret < 0) return ret; } break; case 25: { int ret; ret = slice_del(z); /* delete, line 219 */ if (ret < 0) return ret; } break; case 26: { int ret; ret = slice_del(z); /* delete, line 220 */ if (ret < 0) return ret; } break; case 27: { int ret; ret = slice_from_s(z, 1, s_34); /* <-, line 221 */ if (ret < 0) return ret; } break; case 28: { int ret; ret = slice_from_s(z, 1, s_35); /* <-, line 222 */ if (ret < 0) return ret; } break; case 29: { int ret; ret = slice_del(z); /* delete, line 223 */ if (ret < 0) return ret; } break; } return 1; }
static int r_Step_2(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 58 */ among_var = find_among_b(z, a_3, 20); /* substring, line 58 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 58 */ { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 58 */ if (ret < 0) return ret; } switch(among_var) { case 0: return 0; case 1: { int ret; ret = slice_from_s(z, 4, s_8); /* <-, line 59 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 4, s_9); /* <-, line 60 */ if (ret < 0) return ret; } break; case 3: { int ret; ret = slice_from_s(z, 4, s_10); /* <-, line 61 */ if (ret < 0) return ret; } break; case 4: { int ret; ret = slice_from_s(z, 4, s_11); /* <-, line 62 */ if (ret < 0) return ret; } break; case 5: { int ret; ret = slice_from_s(z, 3, s_12); /* <-, line 63 */ if (ret < 0) return ret; } break; case 6: { int ret; ret = slice_from_s(z, 1, s_13); /* <-, line 64 */ if (ret < 0) return ret; } break; case 7: { int ret; ret = slice_from_s(z, 3, s_14); /* <-, line 66 */ if (ret < 0) return ret; } break; case 8: { int ret; ret = slice_from_s(z, 3, s_15); /* <-, line 68 */ if (ret < 0) return ret; } break; case 9: { int ret; ret = slice_from_s(z, 2, s_16); /* <-, line 69 */ if (ret < 0) return ret; } break; case 10: { int ret; ret = slice_from_s(z, 2, s_17); /* <-, line 71 */ if (ret < 0) return ret; } break; case 11: { int ret; ret = slice_from_s(z, 3, s_18); /* <-, line 72 */ if (ret < 0) return ret; } break; case 12: { int ret; ret = slice_from_s(z, 3, s_19); /* <-, line 74 */ if (ret < 0) return ret; } break; case 13: { int ret; ret = slice_from_s(z, 3, s_20); /* <-, line 76 */ if (ret < 0) return ret; } break; case 14: { int ret; ret = slice_from_s(z, 3, s_21); /* <-, line 77 */ if (ret < 0) return ret; } break; } return 1; }
static int r_owned(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 154 */ among_var = find_among_b(z, a_9, 12); /* substring, line 154 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 154 */ { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 154 */ if (ret < 0) return ret; } switch(among_var) { case 0: return 0; case 1: { int ret; ret = slice_del(z); /* delete, line 155 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 1, s_9); /* <-, line 156 */ if (ret < 0) return ret; } break; case 3: { int ret; ret = slice_from_s(z, 1, s_10); /* <-, line 157 */ if (ret < 0) return ret; } break; case 4: { int ret; ret = slice_del(z); /* delete, line 158 */ if (ret < 0) return ret; } break; case 5: { int ret; ret = slice_from_s(z, 1, s_11); /* <-, line 159 */ if (ret < 0) return ret; } break; case 6: { int ret; ret = slice_from_s(z, 1, s_12); /* <-, line 160 */ if (ret < 0) return ret; } break; case 7: { int ret; ret = slice_del(z); /* delete, line 161 */ if (ret < 0) return ret; } break; case 8: { int ret; ret = slice_from_s(z, 1, s_13); /* <-, line 162 */ if (ret < 0) return ret; } break; case 9: { int ret; ret = slice_del(z); /* delete, line 163 */ if (ret < 0) return ret; } break; } return 1; }
static int r_sing_owner(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 168 */ among_var = find_among_b(z, a_10, 31); /* substring, line 168 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 168 */ { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 168 */ if (ret < 0) return ret; } switch(among_var) { case 0: return 0; case 1: { int ret; ret = slice_del(z); /* delete, line 169 */ if (ret < 0) return ret; } break; case 2: { int ret; ret = slice_from_s(z, 1, s_14); /* <-, line 170 */ if (ret < 0) return ret; } break; case 3: { int ret; ret = slice_from_s(z, 1, s_15); /* <-, line 171 */ if (ret < 0) return ret; } break; case 4: { int ret; ret = slice_del(z); /* delete, line 172 */ if (ret < 0) return ret; } break; case 5: { int ret; ret = slice_from_s(z, 1, s_16); /* <-, line 173 */ if (ret < 0) return ret; } break; case 6: { int ret; ret = slice_from_s(z, 1, s_17); /* <-, line 174 */ if (ret < 0) return ret; } break; case 7: { int ret; ret = slice_del(z); /* delete, line 175 */ if (ret < 0) return ret; } break; case 8: { int ret; ret = slice_del(z); /* delete, line 176 */ if (ret < 0) return ret; } break; case 9: { int ret; ret = slice_del(z); /* delete, line 177 */ if (ret < 0) return ret; } break; case 10: { int ret; ret = slice_from_s(z, 1, s_18); /* <-, line 178 */ if (ret < 0) return ret; } break; case 11: { int ret; ret = slice_from_s(z, 1, s_19); /* <-, line 179 */ if (ret < 0) return ret; } break; case 12: { int ret; ret = slice_del(z); /* delete, line 180 */ if (ret < 0) return ret; } break; case 13: { int ret; ret = slice_del(z); /* delete, line 181 */ if (ret < 0) return ret; } break; case 14: { int ret; ret = slice_from_s(z, 1, s_20); /* <-, line 182 */ if (ret < 0) return ret; } break; case 15: { int ret; ret = slice_from_s(z, 1, s_21); /* <-, line 183 */ if (ret < 0) return ret; } break; case 16: { int ret; ret = slice_del(z); /* delete, line 184 */ if (ret < 0) return ret; } break; case 17: { int ret; ret = slice_del(z); /* delete, line 185 */ if (ret < 0) return ret; } break; case 18: { int ret; ret = slice_del(z); /* delete, line 186 */ if (ret < 0) return ret; } break; case 19: { int ret; ret = slice_from_s(z, 1, s_22); /* <-, line 187 */ if (ret < 0) return ret; } break; case 20: { int ret; ret = slice_from_s(z, 1, s_23); /* <-, line 188 */ if (ret < 0) return ret; } break; } return 1; }
static int r_standard_suffix(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 83 */ among_var = find_among_b(z, a_3, 43); /* substring, line 83 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 83 */ switch(among_var) { case 0: return 0; case 1: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 87 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 87 */ if (ret < 0) return ret; } break; case 2: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 90 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 90 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 91 */ z->ket = z->c; /* [, line 91 */ if (!(eq_s_b(z, 2, s_14))) { z->c = z->l - m; goto lab0; } z->bra = z->c; /* ], line 91 */ { int m = z->l - z->c; (void) m; /* or, line 91 */ { int ret = r_R2(z); if (ret == 0) goto lab2; /* call R2, line 91 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 91 */ if (ret < 0) return ret; } goto lab1; lab2: z->c = z->l - m; { int ret; ret = slice_from_s(z, 3, s_15); /* <-, line 91 */ if (ret < 0) return ret; } } lab1: lab0: ; } break; case 3: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 95 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 3, s_16); /* <-, line 95 */ if (ret < 0) return ret; } break; case 4: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 98 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 1, s_17); /* <-, line 98 */ if (ret < 0) return ret; } break; case 5: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 101 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 3, s_18); /* <-, line 101 */ if (ret < 0) return ret; } break; case 6: { int ret = r_RV(z); if (ret == 0) return 0; /* call RV, line 105 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 105 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 106 */ z->ket = z->c; /* [, line 107 */ among_var = find_among_b(z, a_1, 6); /* substring, line 107 */ if (!(among_var)) { z->c = z->l - m; goto lab3; } z->bra = z->c; /* ], line 107 */ switch(among_var) { case 0: { z->c = z->l - m; goto lab3; } case 1: { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; goto lab3; } /* call R2, line 108 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 108 */ if (ret < 0) return ret; } z->ket = z->c; /* [, line 108 */ if (!(eq_s_b(z, 2, s_19))) { z->c = z->l - m; goto lab3; } z->bra = z->c; /* ], line 108 */ { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; goto lab3; } /* call R2, line 108 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 108 */ if (ret < 0) return ret; } break; case 2: { int m = z->l - z->c; (void) m; /* or, line 109 */ { int ret = r_R2(z); if (ret == 0) goto lab5; /* call R2, line 109 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 109 */ if (ret < 0) return ret; } goto lab4; lab5: z->c = z->l - m; { int ret = r_R1(z); if (ret == 0) { z->c = z->l - m; goto lab3; } /* call R1, line 109 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 3, s_20); /* <-, line 109 */ if (ret < 0) return ret; } } lab4: break; case 3: { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; goto lab3; } /* call R2, line 111 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 111 */ if (ret < 0) return ret; } break; case 4: { int ret = r_RV(z); if (ret == 0) { z->c = z->l - m; goto lab3; } /* call RV, line 113 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 1, s_21); /* <-, line 113 */ if (ret < 0) return ret; } break; } lab3: ; } break; case 7: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 120 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 120 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 121 */ z->ket = z->c; /* [, line 122 */ among_var = find_among_b(z, a_2, 3); /* substring, line 122 */ if (!(among_var)) { z->c = z->l - m; goto lab6; } z->bra = z->c; /* ], line 122 */ switch(among_var) { case 0: { z->c = z->l - m; goto lab6; } case 1: { int m = z->l - z->c; (void) m; /* or, line 123 */ { int ret = r_R2(z); if (ret == 0) goto lab8; /* call R2, line 123 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 123 */ if (ret < 0) return ret; } goto lab7; lab8: z->c = z->l - m; { int ret; ret = slice_from_s(z, 3, s_22); /* <-, line 123 */ if (ret < 0) return ret; } } lab7: break; case 2: { int m = z->l - z->c; (void) m; /* or, line 124 */ { int ret = r_R2(z); if (ret == 0) goto lab10; /* call R2, line 124 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 124 */ if (ret < 0) return ret; } goto lab9; lab10: z->c = z->l - m; { int ret; ret = slice_from_s(z, 3, s_23); /* <-, line 124 */ if (ret < 0) return ret; } } lab9: break; case 3: { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; goto lab6; } /* call R2, line 125 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 125 */ if (ret < 0) return ret; } break; } lab6: ; } break; case 8: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 132 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 132 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 133 */ z->ket = z->c; /* [, line 133 */ if (!(eq_s_b(z, 2, s_24))) { z->c = z->l - m; goto lab11; } z->bra = z->c; /* ], line 133 */ { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; goto lab11; } /* call R2, line 133 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 133 */ if (ret < 0) return ret; } z->ket = z->c; /* [, line 133 */ if (!(eq_s_b(z, 2, s_25))) { z->c = z->l - m; goto lab11; } z->bra = z->c; /* ], line 133 */ { int m = z->l - z->c; (void) m; /* or, line 133 */ { int ret = r_R2(z); if (ret == 0) goto lab13; /* call R2, line 133 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 133 */ if (ret < 0) return ret; } goto lab12; lab13: z->c = z->l - m; { int ret; ret = slice_from_s(z, 3, s_26); /* <-, line 133 */ if (ret < 0) return ret; } } lab12: lab11: ; } break; case 9: { int ret; ret = slice_from_s(z, 3, s_27); /* <-, line 135 */ if (ret < 0) return ret; } break; case 10: { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 136 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 2, s_28); /* <-, line 136 */ if (ret < 0) return ret; } break; case 11: { int m = z->l - z->c; (void) m; /* or, line 138 */ { int ret = r_R2(z); if (ret == 0) goto lab15; /* call R2, line 138 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 138 */ if (ret < 0) return ret; } goto lab14; lab15: z->c = z->l - m; { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 138 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 3, s_29); /* <-, line 138 */ if (ret < 0) return ret; } } lab14: break; case 12: { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 141 */ if (ret < 0) return ret; } if (!(out_grouping_b(z, g_v, 97, 251))) return 0; { int ret; ret = slice_del(z); /* delete, line 141 */ if (ret < 0) return ret; } break; case 13: { int ret = r_RV(z); if (ret == 0) return 0; /* call RV, line 146 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 3, s_30); /* <-, line 146 */ if (ret < 0) return ret; } return 0; /* fail, line 146 */ break; case 14: { int ret = r_RV(z); if (ret == 0) return 0; /* call RV, line 147 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 3, s_31); /* <-, line 147 */ if (ret < 0) return ret; } return 0; /* fail, line 147 */ break; case 15: { int m_test = z->l - z->c; /* test, line 149 */ if (!(in_grouping_b(z, g_v, 97, 251))) return 0; { int ret = r_RV(z); if (ret == 0) return 0; /* call RV, line 149 */ if (ret < 0) return ret; } z->c = z->l - m_test; } { int ret; ret = slice_del(z); /* delete, line 149 */ if (ret < 0) return ret; } return 0; /* fail, line 149 */ break; } return 1; }
static int r_standard_suffix(struct SN_env * z) { int among_var; z->ket = z->c; /* [, line 77 */ among_var = find_among_b(z, a_5, 45); /* substring, line 77 */ if (!(among_var)) return 0; z->bra = z->c; /* ], line 77 */ switch(among_var) { case 0: return 0; case 1: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 93 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 93 */ if (ret < 0) return ret; } break; case 2: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 98 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 3, s_4); /* <-, line 98 */ if (ret < 0) return ret; } break; case 3: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 102 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 1, s_5); /* <-, line 102 */ if (ret < 0) return ret; } break; case 4: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 106 */ if (ret < 0) return ret; } { int ret; ret = slice_from_s(z, 4, s_6); /* <-, line 106 */ if (ret < 0) return ret; } break; case 5: { int ret = r_R1(z); if (ret == 0) return 0; /* call R1, line 110 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 110 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 111 */ z->ket = z->c; /* [, line 112 */ among_var = find_among_b(z, a_2, 4); /* substring, line 112 */ if (!(among_var)) { z->c = z->l - m; goto lab0; } z->bra = z->c; /* ], line 112 */ { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; /* call R2, line 112 */ goto lab0; } if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 112 */ if (ret < 0) return ret; } switch(among_var) { case 0: { z->c = z->l - m; goto lab0; } case 1: z->ket = z->c; /* [, line 113 */ if (!(eq_s_b(z, 2, s_7))) { z->c = z->l - m; goto lab0; } z->bra = z->c; /* ], line 113 */ { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; /* call R2, line 113 */ goto lab0; } if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 113 */ if (ret < 0) return ret; } break; } lab0: ; } break; case 6: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 122 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 122 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 123 */ z->ket = z->c; /* [, line 124 */ among_var = find_among_b(z, a_3, 3); /* substring, line 124 */ if (!(among_var)) { z->c = z->l - m; goto lab1; } z->bra = z->c; /* ], line 124 */ switch(among_var) { case 0: { z->c = z->l - m; goto lab1; } case 1: { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; /* call R2, line 127 */ goto lab1; } if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 127 */ if (ret < 0) return ret; } break; } lab1: ; } break; case 7: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 134 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 134 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 135 */ z->ket = z->c; /* [, line 136 */ among_var = find_among_b(z, a_4, 3); /* substring, line 136 */ if (!(among_var)) { z->c = z->l - m; goto lab2; } z->bra = z->c; /* ], line 136 */ switch(among_var) { case 0: { z->c = z->l - m; goto lab2; } case 1: { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; /* call R2, line 139 */ goto lab2; } if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 139 */ if (ret < 0) return ret; } break; } lab2: ; } break; case 8: { int ret = r_R2(z); if (ret == 0) return 0; /* call R2, line 146 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 146 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 147 */ z->ket = z->c; /* [, line 148 */ if (!(eq_s_b(z, 2, s_8))) { z->c = z->l - m; goto lab3; } z->bra = z->c; /* ], line 148 */ { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; /* call R2, line 148 */ goto lab3; } if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 148 */ if (ret < 0) return ret; } lab3: ; } break; case 9: { int ret = r_RV(z); if (ret == 0) return 0; /* call RV, line 153 */ if (ret < 0) return ret; } if (!(eq_s_b(z, 1, s_9))) return 0; { int ret; ret = slice_from_s(z, 2, s_10); /* <-, line 154 */ if (ret < 0) return ret; } break; } return 1; }
static int r_standard_suffix(struct SN_env * z) { int among_var; { int m = z->l - z->c; (void) m; /* do, line 74 */ z->ket = z->c; /* [, line 75 */ among_var = find_among_b(z, a_1, 7); /* substring, line 75 */ if (!(among_var)) goto lab0; z->bra = z->c; /* ], line 75 */ { int ret = r_R1(z); if (ret == 0) goto lab0; /* call R1, line 75 */ if (ret < 0) return ret; } switch(among_var) { case 0: goto lab0; case 1: { int ret; ret = slice_del(z); /* delete, line 77 */ if (ret < 0) return ret; } break; case 2: if (!(in_grouping_b(z, g_s_ending, 98, 116))) goto lab0; { int ret; ret = slice_del(z); /* delete, line 80 */ if (ret < 0) return ret; } break; } lab0: z->c = z->l - m; } { int m = z->l - z->c; (void) m; /* do, line 84 */ z->ket = z->c; /* [, line 85 */ among_var = find_among_b(z, a_2, 4); /* substring, line 85 */ if (!(among_var)) goto lab1; z->bra = z->c; /* ], line 85 */ { int ret = r_R1(z); if (ret == 0) goto lab1; /* call R1, line 85 */ if (ret < 0) return ret; } switch(among_var) { case 0: goto lab1; case 1: { int ret; ret = slice_del(z); /* delete, line 87 */ if (ret < 0) return ret; } break; case 2: if (!(in_grouping_b(z, g_st_ending, 98, 116))) goto lab1; { int c = z->c - 3; if (z->lb > c || c > z->l) goto lab1; z->c = c; /* hop, line 90 */ } { int ret; ret = slice_del(z); /* delete, line 90 */ if (ret < 0) return ret; } break; } lab1: z->c = z->l - m; } { int m = z->l - z->c; (void) m; /* do, line 94 */ z->ket = z->c; /* [, line 95 */ among_var = find_among_b(z, a_4, 8); /* substring, line 95 */ if (!(among_var)) goto lab2; z->bra = z->c; /* ], line 95 */ { int ret = r_R2(z); if (ret == 0) goto lab2; /* call R2, line 95 */ if (ret < 0) return ret; } switch(among_var) { case 0: goto lab2; case 1: { int ret; ret = slice_del(z); /* delete, line 97 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 98 */ z->ket = z->c; /* [, line 98 */ if (!(eq_s_b(z, 2, s_11))) { z->c = z->l - m; goto lab3; } z->bra = z->c; /* ], line 98 */ { int m = z->l - z->c; (void) m; /* not, line 98 */ if (!(eq_s_b(z, 1, s_12))) goto lab4; { z->c = z->l - m; goto lab3; } lab4: z->c = z->l - m; } { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; goto lab3; } /* call R2, line 98 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 98 */ if (ret < 0) return ret; } lab3: ; } break; case 2: { int m = z->l - z->c; (void) m; /* not, line 101 */ if (!(eq_s_b(z, 1, s_13))) goto lab5; goto lab2; lab5: z->c = z->l - m; } { int ret; ret = slice_del(z); /* delete, line 101 */ if (ret < 0) return ret; } break; case 3: { int ret; ret = slice_del(z); /* delete, line 104 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 105 */ z->ket = z->c; /* [, line 106 */ { int m = z->l - z->c; (void) m; /* or, line 106 */ if (!(eq_s_b(z, 2, s_14))) goto lab8; goto lab7; lab8: z->c = z->l - m; if (!(eq_s_b(z, 2, s_15))) { z->c = z->l - m; goto lab6; } } lab7: z->bra = z->c; /* ], line 106 */ { int ret = r_R1(z); if (ret == 0) { z->c = z->l - m; goto lab6; } /* call R1, line 106 */ if (ret < 0) return ret; } { int ret; ret = slice_del(z); /* delete, line 106 */ if (ret < 0) return ret; } lab6: ; } break; case 4: { int ret; ret = slice_del(z); /* delete, line 110 */ if (ret < 0) return ret; } { int m = z->l - z->c; (void) m; /* try, line 111 */ z->ket = z->c; /* [, line 112 */ among_var = find_among_b(z, a_3, 2); /* substring, line 112 */ if (!(among_var)) { z->c = z->l - m; goto lab9; } z->bra = z->c; /* ], line 112 */ { int ret = r_R2(z); if (ret == 0) { z->c = z->l - m; goto lab9; } /* call R2, line 112 */ if (ret < 0) return ret; } switch(among_var) { case 0: { z->c = z->l - m; goto lab9; } case 1: { int ret; ret = slice_del(z); /* delete, line 114 */ if (ret < 0) return ret; } break; } lab9: ; } break; } lab2: z->c = z->l - m; } return 1; }