8 extern int german_ISO_8859_1_stem(struct SN_env * z);
12 static int r_standard_suffix(struct SN_env * z);
13 static int r_R2(struct SN_env * z);
14 static int r_R1(struct SN_env * z);
15 static int r_mark_regions(struct SN_env * z);
16 static int r_postlude(struct SN_env * z);
17 static int r_prelude(struct SN_env * z);
24 extern void german_ISO_8859_1_close_env(struct SN_env * z);
126 static int r_prelude(struct SN_env * z) {  in r_prelude()  argument
127     {   int c_test1 = z->c;  in r_prelude()
129             int c2 = z->c;  in r_prelude()
130             {   int c3 = z->c;  in r_prelude()
131                 z->bra = z->c;  in r_prelude()
132                 if (z->c == z->l || z->p[z->c] != 0xDF) goto lab2;  in r_prelude()
133                 z->c++;  in r_prelude()
134                 z->ket = z->c;  in r_prelude()
135                 {   int ret = slice_from_s(z, 2, s_0);  in r_prelude()
140                 z->c = c3;  in r_prelude()
141                 if (z->c >= z->l) goto lab0;  in r_prelude()
142                 z->c++;  in r_prelude()
147             z->c = c2;  in r_prelude()
150         z->c = c_test1;  in r_prelude()
153         int c4 = z->c;  in r_prelude()
155             int c5 = z->c;  in r_prelude()
156             if (in_grouping(z, g_v, 97, 252, 0)) goto lab4;  in r_prelude()
157             z->bra = z->c;  in r_prelude()
158             {   int c6 = z->c;  in r_prelude()
159                 if (z->c == z->l || z->p[z->c] != 'u') goto lab6;  in r_prelude()
160                 z->c++;  in r_prelude()
161                 z->ket = z->c;  in r_prelude()
162                 if (in_grouping(z, g_v, 97, 252, 0)) goto lab6;  in r_prelude()
163                 {   int ret = slice_from_s(z, 1, s_1);  in r_prelude()
168                 z->c = c6;  in r_prelude()
169                 if (z->c == z->l || z->p[z->c] != 'y') goto lab4;  in r_prelude()
170                 z->c++;  in r_prelude()
171                 z->ket = z->c;  in r_prelude()
172                 if (in_grouping(z, g_v, 97, 252, 0)) goto lab4;  in r_prelude()
173                 {   int ret = slice_from_s(z, 1, s_2);  in r_prelude()
178             z->c = c5;  in r_prelude()
181             z->c = c5;  in r_prelude()
182             if (z->c >= z->l) goto lab3;  in r_prelude()
183             z->c++;  in r_prelude()
187         z->c = c4;  in r_prelude()
193 static int r_mark_regions(struct SN_env * z) {  in r_mark_regions()  argument
194     z->I[2] = z->l;  in r_mark_regions()
195     z->I[1] = z->l;  in r_mark_regions()
196     {   int c_test1 = z->c;  in r_mark_regions()
197 z->c = z->c + 3;  in r_mark_regions()
198         if (z->c > z->l) return 0;  in r_mark_regions()
199         z->I[0] = z->c;  in r_mark_regions()
200         z->c = c_test1;  in r_mark_regions()
203         int ret = out_grouping(z, g_v, 97, 252, 1);  in r_mark_regions()
205         z->c += ret;  in r_mark_regions()
208         int ret = in_grouping(z, g_v, 97, 252, 1);  in r_mark_regions()
210         z->c += ret;  in r_mark_regions()
212     z->I[2] = z->c;  in r_mark_regions()
214     if (!(z->I[2] < z->I[0])) goto lab0;  in r_mark_regions()
215     z->I[2] = z->I[0];  in r_mark_regions()
218         int ret = out_grouping(z, g_v, 97, 252, 1);  in r_mark_regions()
220         z->c += ret;  in r_mark_regions()
223         int ret = in_grouping(z, g_v, 97, 252, 1);  in r_mark_regions()
225         z->c += ret;  in r_mark_regions()
227     z->I[1] = z->c;  in r_mark_regions()
231 static int r_postlude(struct SN_env * z) {  in r_postlude()  argument
234         int c1 = z->c;  in r_postlude()
235         z->bra = z->c;  in r_postlude()
236         among_var = find_among(z, a_0, 6);  in r_postlude()
238         z->ket = z->c;  in r_postlude()
241                 {   int ret = slice_from_s(z, 1, s_3);  in r_postlude()
246                 {   int ret = slice_from_s(z, 1, s_4);  in r_postlude()
251                 {   int ret = slice_from_s(z, 1, s_5);  in r_postlude()
256                 {   int ret = slice_from_s(z, 1, s_6);  in r_postlude()
261                 if (z->c >= z->l) goto lab0;  in r_postlude()
262                 z->c++;  in r_postlude()
267         z->c = c1;  in r_postlude()
273 static int r_R1(struct SN_env * z) {  in r_R1()  argument
274     if (!(z->I[2] <= z->c)) return 0;  in r_R1()
278 static int r_R2(struct SN_env * z) {  in r_R2()  argument
279     if (!(z->I[1] <= z->c)) return 0;  in r_R2()
283 static int r_standard_suffix(struct SN_env * z) {  in r_standard_suffix()  argument
285     {   int m1 = z->l - z->c; (void)m1;  in r_standard_suffix()
286         z->ket = z->c;  in r_standard_suffix()
287 …if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((811040 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto …  in r_standard_suffix()
288         among_var = find_among_b(z, a_1, 7);  in r_standard_suffix()
290         z->bra = z->c;  in r_standard_suffix()
291         {   int ret = r_R1(z);  in r_standard_suffix()
297                 {   int ret = slice_del(z);  in r_standard_suffix()
302                 {   int ret = slice_del(z);  in r_standard_suffix()
305                 {   int m2 = z->l - z->c; (void)m2;  in r_standard_suffix()
306                     z->ket = z->c;  in r_standard_suffix()
307                     if (z->c <= z->lb || z->p[z->c - 1] != 's') { z->c = z->l - m2; goto lab1; }  in r_standard_suffix()
308                     z->c--;  in r_standard_suffix()
309                     z->bra = z->c;  in r_standard_suffix()
310                     if (!(eq_s_b(z, 3, s_7))) { z->c = z->l - m2; goto lab1; }  in r_standard_suffix()
311                     {   int ret = slice_del(z);  in r_standard_suffix()
319                 if (in_grouping_b(z, g_s_ending, 98, 116, 0)) goto lab0;  in r_standard_suffix()
320                 {   int ret = slice_del(z);  in r_standard_suffix()
326         z->c = z->l - m1;  in r_standard_suffix()
328     {   int m3 = z->l - z->c; (void)m3;  in r_standard_suffix()
329         z->ket = z->c;  in r_standard_suffix()
330 …if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1327104 >> (z->p[z->c - 1] & 0x1f)) & 1)) …  in r_standard_suffix()
331         among_var = find_among_b(z, a_2, 4);  in r_standard_suffix()
333         z->bra = z->c;  in r_standard_suffix()
334         {   int ret = r_R1(z);  in r_standard_suffix()
340                 {   int ret = slice_del(z);  in r_standard_suffix()
345                 if (in_grouping_b(z, g_st_ending, 98, 116, 0)) goto lab2;  in r_standard_suffix()
346 z->c = z->c - 3;  in r_standard_suffix()
347                 if (z->c < z->lb) goto lab2;  in r_standard_suffix()
348                 {   int ret = slice_del(z);  in r_standard_suffix()
354         z->c = z->l - m3;  in r_standard_suffix()
356     {   int m4 = z->l - z->c; (void)m4;  in r_standard_suffix()
357         z->ket = z->c;  in r_standard_suffix()
358 …if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1051024 >> (z->p[z->c - 1] & 0x1f)) & 1)) …  in r_standard_suffix()
359         among_var = find_among_b(z, a_4, 8);  in r_standard_suffix()
361         z->bra = z->c;  in r_standard_suffix()
362         {   int ret = r_R2(z);  in r_standard_suffix()
368                 {   int ret = slice_del(z);  in r_standard_suffix()
371                 {   int m5 = z->l - z->c; (void)m5;  in r_standard_suffix()
372                     z->ket = z->c;  in r_standard_suffix()
373                     if (!(eq_s_b(z, 2, s_8))) { z->c = z->l - m5; goto lab4; }  in r_standard_suffix()
374                     z->bra = z->c;  in r_standard_suffix()
375                     {   int m6 = z->l - z->c; (void)m6;  in r_standard_suffix()
376                         if (z->c <= z->lb || z->p[z->c - 1] != 'e') goto lab5;  in r_standard_suffix()
377                         z->c--;  in r_standard_suffix()
378                         { z->c = z->l - m5; goto lab4; }  in r_standard_suffix()
380                         z->c = z->l - m6;  in r_standard_suffix()
382                     {   int ret = r_R2(z);  in r_standard_suffix()
383                         if (ret == 0) { z->c = z->l - m5; goto lab4; }  in r_standard_suffix()
386                     {   int ret = slice_del(z);  in r_standard_suffix()
394                 {   int m7 = z->l - z->c; (void)m7;  in r_standard_suffix()
395                     if (z->c <= z->lb || z->p[z->c - 1] != 'e') goto lab6;  in r_standard_suffix()
396                     z->c--;  in r_standard_suffix()
399                     z->c = z->l - m7;  in r_standard_suffix()
401                 {   int ret = slice_del(z);  in r_standard_suffix()
406                 {   int ret = slice_del(z);  in r_standard_suffix()
409                 {   int m8 = z->l - z->c; (void)m8;  in r_standard_suffix()
410                     z->ket = z->c;  in r_standard_suffix()
411                     {   int m9 = z->l - z->c; (void)m9;  in r_standard_suffix()
412                         if (!(eq_s_b(z, 2, s_9))) goto lab9;  in r_standard_suffix()
415                         z->c = z->l - m9;  in r_standard_suffix()
416                         if (!(eq_s_b(z, 2, s_10))) { z->c = z->l - m8; goto lab7; }  in r_standard_suffix()
419                     z->bra = z->c;  in r_standard_suffix()
420                     {   int ret = r_R1(z);  in r_standard_suffix()
421                         if (ret == 0) { z->c = z->l - m8; goto lab7; }  in r_standard_suffix()
424                     {   int ret = slice_del(z);  in r_standard_suffix()
432                 {   int ret = slice_del(z);  in r_standard_suffix()
435                 {   int m10 = z->l - z->c; (void)m10;  in r_standard_suffix()
436                     z->ket = z->c;  in r_standard_suffix()
437 …if (z->c - 1 <= z->lb || (z->p[z->c - 1] != 103 && z->p[z->c - 1] != 104)) { z->c = z->l - m10; go…  in r_standard_suffix()
438                     if (!(find_among_b(z, a_3, 2))) { z->c = z->l - m10; goto lab10; }  in r_standard_suffix()
439                     z->bra = z->c;  in r_standard_suffix()
440                     {   int ret = r_R2(z);  in r_standard_suffix()
441                         if (ret == 0) { z->c = z->l - m10; goto lab10; }  in r_standard_suffix()
444                     {   int ret = slice_del(z);  in r_standard_suffix()
453         z->c = z->l - m4;  in r_standard_suffix()
458 extern int german_ISO_8859_1_stem(struct SN_env * z) {  in german_ISO_8859_1_stem()  argument
459     {   int c1 = z->c;  in german_ISO_8859_1_stem()
460         {   int ret = r_prelude(z);  in german_ISO_8859_1_stem()
463         z->c = c1;  in german_ISO_8859_1_stem()
465     {   int c2 = z->c;  in german_ISO_8859_1_stem()
466         {   int ret = r_mark_regions(z);  in german_ISO_8859_1_stem()
469         z->c = c2;  in german_ISO_8859_1_stem()
471     z->lb = z->c; z->c = z->l;  in german_ISO_8859_1_stem()
474     {   int ret = r_standard_suffix(z);  in german_ISO_8859_1_stem()
477     z->c = z->lb;  in german_ISO_8859_1_stem()
478     {   int c3 = z->c;  in german_ISO_8859_1_stem()
479         {   int ret = r_postlude(z);  in german_ISO_8859_1_stem()
482         z->c = c3;  in german_ISO_8859_1_stem()
489 extern void german_ISO_8859_1_close_env(struct SN_env * z) { SN_close_env(z, 0); }  in german_ISO_8859_1_close_env()  argument