static int r_vowel_suffix(struct SN_env * z) {
{ int m = z->l - z->c; /* try, line 170 */
z->ket = z->c; /* [, line 171 */
if (!(in_grouping_b(z, g_AEIO, 97, 242))) { z->c = z->l - m; goto lab0; }
z->bra = z->c; /* ], line 171 */
if (!r_RV(z)) { z->c = z->l - m; goto lab0; } /* call RV, line 171 */
slice_del(z); /* delete, line 171 */
z->ket = z->c; /* [, line 172 */
if (!(eq_s_b(z, 1, s_20))) { z->c = z->l - m; goto lab0; }
z->bra = z->c; /* ], line 172 */
if (!r_RV(z)) { z->c = z->l - m; goto lab0; } /* call RV, line 172 */
slice_del(z); /* delete, line 172 */
lab0:
;
}
{ int m = z->l - z->c; /* try, line 174 */
z->ket = z->c; /* [, line 175 */
if (!(eq_s_b(z, 1, s_21))) { z->c = z->l - m; goto lab1; }
z->bra = z->c; /* ], line 175 */
if (!(in_grouping_b(z, g_CG, 99, 103))) { z->c = z->l - m; goto lab1; }
if (!r_RV(z)) { z->c = z->l - m; goto lab1; } /* call RV, line 175 */
slice_del(z); /* delete, line 175 */
lab1:
;
}
return 1;
}
static int r_residual_form(struct SN_env * z) {
int among_var;
z->ket = z->c; /* [, line 192 */
among_var = find_among_b(z, a_8, 4); /* substring, line 192 */
if (!(among_var)) return 0;
z->bra = z->c; /* ], line 192 */
switch(among_var) {
case 0:
return 0;
case 1:
{ int ret = r_RV(z);
if (ret == 0) return 0; /* call RV, line 194 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 194 */
if (ret < 0) return ret;
}
z->ket = z->c; /* [, line 194 */
{ int m = z->l - z->c;
(void) m; /* or, line 194 */
if (!(eq_s_b(z, 1, s_11))) goto lab1;
z->bra = z->c; /* ], line 194 */
{ int m_test = z->l - z->c; /* test, line 194 */
if (!(eq_s_b(z, 1, s_12))) goto lab1;
z->c = z->l - m_test;
}
goto lab0;
lab1:
z->c = z->l - m;
if (!(eq_s_b(z, 1, s_13))) return 0;
z->bra = z->c; /* ], line 195 */
{ int m_test = z->l - z->c; /* test, line 195 */
if (!(eq_s_b(z, 1, s_14))) return 0;
z->c = z->l - m_test;
}
}
lab0:
{ int ret = r_RV(z);
if (ret == 0) return 0; /* call RV, line 195 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 195 */
if (ret < 0) return ret;
}
break;
case 2:
{ int ret;
ret = slice_from_s(z, 1, s_15); /* <-, line 196 */
if (ret < 0) return ret;
}
break;
}
return 1;
}
static int r_residual_suffix(struct SN_env * z) {
int among_var;
z->ket = z->c; /* [, line 205 */
among_var = find_among_b(z, a_9, 8); /* substring, line 205 */
if (!(among_var)) return 0;
z->bra = z->c; /* ], line 205 */
switch(among_var) {
case 0: return 0;
case 1:
{ int ret = r_RV(z);
if (ret == 0) return 0; /* call RV, line 208 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 208 */
if (ret < 0) return ret;
}
break;
case 2:
{ int ret = r_RV(z);
if (ret == 0) return 0; /* call RV, line 210 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 210 */
if (ret < 0) return ret;
}
{ int m = z->l - z->c; (void) m; /* try, line 210 */
z->ket = z->c; /* [, line 210 */
if (!(eq_s_b(z, 1, s_20))) { z->c = z->l - m; goto lab0; }
z->bra = z->c; /* ], line 210 */
{ int m_test = z->l - z->c; /* test, line 210 */
if (!(eq_s_b(z, 1, s_21))) { z->c = z->l - m; goto lab0; }
z->c = z->l - m_test;
}
{ int ret = r_RV(z);
if (ret == 0) { z->c = z->l - m; goto lab0; } /* call RV, line 210 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 210 */
if (ret < 0) return ret;
}
lab0:
;
}
break;
}
return 1;
}
static int r_attached_pronoun(struct SN_env * z) {
int among_var;
z->ket = z->c; /* [, line 87 */
if (!(find_among_b(z, a_2, 37))) return 0; /* substring, line 87 */
z->bra = z->c; /* ], line 87 */
among_var = find_among_b(z, a_3, 5); /* among, line 97 */
if (!(among_var)) return 0;
{ int ret = r_RV(z);
if (ret == 0) return 0; /* call RV, line 97 */
if (ret < 0) return ret;
}
switch(among_var) {
case 0: return 0;
case 1:
{ int ret;
ret = slice_del(z); /* delete, line 98 */
if (ret < 0) return ret;
}
break;
case 2:
{ int ret;
ret = slice_from_s(z, 1, s_12); /* <-, line 99 */
if (ret < 0) return ret;
}
break;
}
return 1;
}
extern int portuguese_stem(struct SN_env * z) {
{ int c = z->c; /* do, line 200 */
if (!r_prelude(z)) goto lab0; /* call prelude, line 200 */
lab0:
z->c = c;
}
{ int c = z->c; /* do, line 201 */
if (!r_mark_regions(z)) goto lab1; /* call mark_regions, line 201 */
lab1:
z->c = c;
}
z->lb = z->c; z->c = z->l; /* backwards, line 202 */
{ int m = z->l - z->c; /* do, line 203 */
{ int m = z->l - z->c; /* or, line 207 */
{ int m = z->l - z->c; /* or, line 204 */
if (!r_standard_suffix(z)) goto lab6; /* call standard_suffix, line 204 */
goto lab5;
lab6:
z->c = z->l - m;
if (!r_verb_suffix(z)) goto lab4; /* call verb_suffix, line 204 */
}
lab5:
{ int m = z->l - z->c; /* do, line 205 */
z->ket = z->c; /* [, line 205 */
if (!(eq_s_b(z, 1, s_16))) goto lab7;
z->bra = z->c; /* ], line 205 */
{ int m_test = z->l - z->c; /* test, line 205 */
if (!(eq_s_b(z, 1, s_17))) goto lab7;
z->c = z->l - m_test;
}
if (!r_RV(z)) goto lab7; /* call RV, line 205 */
slice_del(z); /* delete, line 205 */
lab7:
z->c = z->l - m;
}
goto lab3;
lab4:
z->c = z->l - m;
if (!r_residual_suffix(z)) goto lab2; /* call residual_suffix, line 207 */
}
lab3:
lab2:
z->c = z->l - m;
}
{ int m = z->l - z->c; /* do, line 209 */
if (!r_residual_form(z)) goto lab8; /* call residual_form, line 209 */
lab8:
z->c = z->l - m;
}
z->c = z->lb;
{ int c = z->c; /* do, line 211 */
if (!r_postlude(z)) goto lab9; /* call postlude, line 211 */
lab9:
z->c = c;
}
return 1;
}
static int r_vowel_suffix(struct SN_env * z) {
{ int m = z->l - z->c; (void) m; /* try, line 171 */
z->ket = z->c; /* [, line 172 */
if (!(in_grouping_b(z, g_AEIO, 97, 242))) { z->c = z->l - m; goto lab0; }
z->bra = z->c; /* ], line 172 */
{ int ret = r_RV(z);
if (ret == 0) { z->c = z->l - m; goto lab0; } /* call RV, line 172 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 172 */
if (ret < 0) return ret;
}
z->ket = z->c; /* [, line 173 */
if (!(eq_s_b(z, 1, s_20))) { z->c = z->l - m; goto lab0; }
z->bra = z->c; /* ], line 173 */
{ int ret = r_RV(z);
if (ret == 0) { z->c = z->l - m; goto lab0; } /* call RV, line 173 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 173 */
if (ret < 0) return ret;
}
lab0:
;
}
{ int m = z->l - z->c; (void) m; /* try, line 175 */
z->ket = z->c; /* [, line 176 */
if (!(eq_s_b(z, 1, s_21))) { z->c = z->l - m; goto lab1; }
z->bra = z->c; /* ], line 176 */
if (!(in_grouping_b(z, g_CG, 99, 103))) { z->c = z->l - m; goto lab1; }
{ int ret = r_RV(z);
if (ret == 0) { z->c = z->l - m; goto lab1; } /* call RV, line 176 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 176 */
if (ret < 0) return ret;
}
lab1:
;
}
return 1;
}
static int r_residual_suffix(struct SN_env * z) {
int among_var;
z->ket = z->c; /* [, line 182 */
among_var = find_among_b(z, a_7, 7); /* substring, line 182 */
if (!(among_var)) return 0;
z->bra = z->c; /* ], line 182 */
switch(among_var) {
case 0: return 0;
case 1:
if (!r_RV(z)) return 0; /* call RV, line 185 */
slice_del(z); /* delete, line 185 */
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_attached_pronoun(struct SN_env * z) {
int among_var;
z->ket = z->c; /* [, line 68 */
if (!(find_among_b(z, a_1, 13))) return 0; /* substring, line 68 */
z->bra = z->c; /* ], line 68 */
among_var = find_among_b(z, a_2, 11); /* substring, line 72 */
if (!(among_var)) return 0;
{ int ret = r_RV(z);
if (ret == 0) return 0; /* call RV, line 72 */
if (ret < 0) return ret;
}
switch(among_var) {
case 0: return 0;
case 1:
z->bra = z->c; /* ], line 73 */
{ int ret;
ret = slice_from_s(z, 5, s_5); /* <-, line 73 */
if (ret < 0) return ret;
}
break;
case 2:
z->bra = z->c; /* ], line 74 */
{ int ret;
ret = slice_from_s(z, 4, s_6); /* <-, line 74 */
if (ret < 0) return ret;
}
break;
case 3:
z->bra = z->c; /* ], line 75 */
{ int ret;
ret = slice_from_s(z, 2, s_7); /* <-, line 75 */
if (ret < 0) return ret;
}
break;
case 4:
z->bra = z->c; /* ], line 76 */
{ int ret;
ret = slice_from_s(z, 2, s_8); /* <-, line 76 */
if (ret < 0) return ret;
}
break;
case 5:
z->bra = z->c; /* ], line 77 */
{ int ret;
ret = slice_from_s(z, 2, s_9); /* <-, line 77 */
if (ret < 0) return ret;
}
break;
case 6:
{ int ret;
ret = slice_del(z); /* delete, line 81 */
if (ret < 0) return ret;
}
break;
case 7:
if (!(eq_s_b(z, 1, s_10))) return 0;
{ int ret;
ret = slice_del(z); /* delete, line 82 */
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 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_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 104 */
among_var = find_among_b(z, a_6, 51); /* substring, line 104 */
if (!(among_var)) return 0;
z->bra = z->c; /* ], line 104 */
switch(among_var) {
case 0: return 0;
case 1:
{ int ret = r_R2(z);
if (ret == 0) return 0; /* 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 2:
{ int ret = r_R2(z);
if (ret == 0) return 0; /* call R2, line 113 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 113 */
if (ret < 0) return ret;
}
{ int m = z->l - z->c; (void) m; /* try, line 114 */
z->ket = z->c; /* [, line 114 */
if (!(eq_s_b(z, 2, s_13))) { z->c = z->l - m; goto lab0; }
z->bra = z->c; /* ], line 114 */
{ int ret = r_R2(z);
if (ret == 0) { z->c = z->l - m; goto lab0; } /* call R2, line 114 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 114 */
if (ret < 0) return ret;
}
lab0:
;
}
break;
case 3:
{ int ret = r_R2(z);
if (ret == 0) return 0; /* call R2, line 117 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_from_s(z, 3, s_14); /* <-, line 117 */
if (ret < 0) return ret;
}
break;
case 4:
{ 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, 1, s_15); /* <-, line 119 */
if (ret < 0) return ret;
}
break;
case 5:
{ int ret = r_R2(z);
if (ret == 0) return 0; /* call R2, line 121 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_from_s(z, 4, s_16); /* <-, line 121 */
if (ret < 0) return ret;
}
break;
case 6:
{ int ret = r_RV(z);
if (ret == 0) return 0; /* call RV, line 123 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 123 */
if (ret < 0) return ret;
}
break;
case 7:
{ int ret = r_R1(z);
if (ret == 0) return 0; /* call R1, line 125 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 125 */
if (ret < 0) return ret;
}
{ int m = z->l - z->c; (void) m; /* try, line 126 */
z->ket = z->c; /* [, line 127 */
among_var = find_among_b(z, a_4, 4); /* substring, line 127 */
if (!(among_var)) { z->c = z->l - m; goto lab1; }
z->bra = z->c; /* ], line 127 */
{ int ret = r_R2(z);
if (ret == 0) { z->c = z->l - m; goto lab1; } /* call R2, line 127 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 127 */
if (ret < 0) return ret;
}
switch(among_var) {
case 0: { z->c = z->l - m; goto lab1; }
case 1:
z->ket = z->c; /* [, line 128 */
if (!(eq_s_b(z, 2, s_17))) { z->c = z->l - m; goto lab1; }
z->bra = z->c; /* ], line 128 */
{ int ret = r_R2(z);
if (ret == 0) { z->c = z->l - m; goto lab1; } /* call R2, line 128 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 128 */
if (ret < 0) return ret;
}
break;
}
lab1:
;
}
break;
case 8:
{ 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_5, 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; goto lab2; } /* call R2, line 137 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 137 */
if (ret < 0) return ret;
}
break;
}
lab2:
;
}
break;
case 9:
{ int ret = r_R2(z);
if (ret == 0) return 0; /* call R2, line 142 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 142 */
if (ret < 0) return ret;
}
{ int m = z->l - z->c; (void) m; /* try, line 143 */
z->ket = z->c; /* [, line 143 */
if (!(eq_s_b(z, 2, s_18))) { z->c = z->l - m; goto lab3; }
z->bra = z->c; /* ], line 143 */
{ int ret = r_R2(z);
if (ret == 0) { z->c = z->l - m; goto lab3; } /* call R2, line 143 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 143 */
if (ret < 0) return ret;
}
z->ket = z->c; /* [, line 143 */
if (!(eq_s_b(z, 2, s_19))) { z->c = z->l - m; goto lab3; }
z->bra = z->c; /* ], line 143 */
{ int ret = r_R2(z);
if (ret == 0) { z->c = z->l - m; goto lab3; } /* call R2, line 143 */
if (ret < 0) return ret;
}
{ int ret;
ret = slice_del(z); /* delete, line 143 */
if (ret < 0) return ret;
}
lab3:
;
}
break;
}
return 1;
}
