9 extern int finnish_ISO_8859_1_stem(struct SN_env * z);
13 static int r_tidy(struct SN_env * z);
14 static int r_other_endings(struct SN_env * z);
15 static int r_t_plural(struct SN_env * z);
16 static int r_i_plural(struct SN_env * z);
17 static int r_case_ending(struct SN_env * z);
18 static int r_VI(struct SN_env * z);
19 static int r_LONG(struct SN_env * z);
20 static int r_possessive(struct SN_env * z);
21 static int r_particle_etc(struct SN_env * z);
22 static int r_R2(struct SN_env * z);
23 static int r_mark_regions(struct SN_env * z);
30 extern void finnish_ISO_8859_1_close_env(struct SN_env * z);
291 static int r_mark_regions(struct SN_env * z) {  in r_mark_regions()  argument
292     z->I[0] = z->l;  in r_mark_regions()
293     z->I[1] = z->l;  in r_mark_regions()
294     if (out_grouping(z, g_V1, 97, 246, 1) < 0) return 0; /* goto */ /* grouping V1, line 46 */  in r_mark_regions()
296         int ret = in_grouping(z, g_V1, 97, 246, 1);  in r_mark_regions()
298         z->c += ret;  in r_mark_regions()
300     z->I[0] = z->c; /* setmark p1, line 46 */  in r_mark_regions()
301     if (out_grouping(z, g_V1, 97, 246, 1) < 0) return 0; /* goto */ /* grouping V1, line 47 */  in r_mark_regions()
303         int ret = in_grouping(z, g_V1, 97, 246, 1);  in r_mark_regions()
305         z->c += ret;  in r_mark_regions()
307     z->I[1] = z->c; /* setmark p2, line 47 */  in r_mark_regions()
311 static int r_R2(struct SN_env * z) {  in r_R2()  argument
312     if (!(z->I[1] <= z->c)) return 0;  in r_R2()
316 static int r_particle_etc(struct SN_env * z) {  in r_particle_etc()  argument
319         int m1 = z->l - z->c; (void)m1;  in r_particle_etc()
320         if (z->c < z->I[0]) return 0;  in r_particle_etc()
321         z->c = z->I[0]; /* tomark, line 55 */  in r_particle_etc()
322         mlimit = z->lb; z->lb = z->c;  in r_particle_etc()
323         z->c = z->l - m1;  in r_particle_etc()
324         z->ket = z->c; /* [, line 55 */  in r_particle_etc()
325         among_var = find_among_b(z, a_0, 10); /* substring, line 55 */  in r_particle_etc()
326         if (!(among_var)) { z->lb = mlimit; return 0; }  in r_particle_etc()
327         z->bra = z->c; /* ], line 55 */  in r_particle_etc()
328         z->lb = mlimit;  in r_particle_etc()
333             if (in_grouping_b(z, g_particle_end, 97, 246, 0)) return 0;  in r_particle_etc()
336             {   int ret = r_R2(z);  in r_particle_etc()
342     {   int ret = slice_del(z); /* delete, line 66 */  in r_particle_etc()
348 static int r_possessive(struct SN_env * z) {  in r_possessive()  argument
351         int m1 = z->l - z->c; (void)m1;  in r_possessive()
352         if (z->c < z->I[0]) return 0;  in r_possessive()
353         z->c = z->I[0]; /* tomark, line 69 */  in r_possessive()
354         mlimit = z->lb; z->lb = z->c;  in r_possessive()
355         z->c = z->l - m1;  in r_possessive()
356         z->ket = z->c; /* [, line 69 */  in r_possessive()
357         among_var = find_among_b(z, a_4, 9); /* substring, line 69 */  in r_possessive()
358         if (!(among_var)) { z->lb = mlimit; return 0; }  in r_possessive()
359         z->bra = z->c; /* ], line 69 */  in r_possessive()
360         z->lb = mlimit;  in r_possessive()
365             {   int m2 = z->l - z->c; (void)m2; /* not, line 72 */  in r_possessive()
366                 if (!(eq_s_b(z, 1, s_0))) goto lab0;  in r_possessive()
369                 z->c = z->l - m2;  in r_possessive()
371             {   int ret = slice_del(z); /* delete, line 72 */  in r_possessive()
376             {   int ret = slice_del(z); /* delete, line 74 */  in r_possessive()
379             z->ket = z->c; /* [, line 74 */  in r_possessive()
380             if (!(eq_s_b(z, 3, s_1))) return 0;  in r_possessive()
381             z->bra = z->c; /* ], line 74 */  in r_possessive()
382             {   int ret = slice_from_s(z, 3, s_2); /* <-, line 74 */  in r_possessive()
387             {   int ret = slice_del(z); /* delete, line 78 */  in r_possessive()
392             if (z->c - 1 <= z->lb || z->p[z->c - 1] != 97) return 0;  in r_possessive()
393             if (!(find_among_b(z, a_1, 6))) return 0; /* among, line 81 */  in r_possessive()
394             {   int ret = slice_del(z); /* delete, line 81 */  in r_possessive()
399             if (z->c - 1 <= z->lb || z->p[z->c - 1] != 228) return 0;  in r_possessive()
400             if (!(find_among_b(z, a_2, 6))) return 0; /* among, line 83 */  in r_possessive()
401             {   int ret = slice_del(z); /* delete, line 84 */  in r_possessive()
406             if (z->c - 2 <= z->lb || z->p[z->c - 1] != 101) return 0;  in r_possessive()
407             if (!(find_among_b(z, a_3, 2))) return 0; /* among, line 86 */  in r_possessive()
408             {   int ret = slice_del(z); /* delete, line 86 */  in r_possessive()
416 static int r_LONG(struct SN_env * z) {  in r_LONG()  argument
417     if (!(find_among_b(z, a_5, 7))) return 0; /* among, line 91 */  in r_LONG()
421 static int r_VI(struct SN_env * z) {  in r_VI()  argument
422     if (!(eq_s_b(z, 1, s_3))) return 0;  in r_VI()
423     if (in_grouping_b(z, g_V2, 97, 246, 0)) return 0;  in r_VI()
427 static int r_case_ending(struct SN_env * z) {  in r_case_ending()  argument
430         int m1 = z->l - z->c; (void)m1;  in r_case_ending()
431         if (z->c < z->I[0]) return 0;  in r_case_ending()
432         z->c = z->I[0]; /* tomark, line 96 */  in r_case_ending()
433         mlimit = z->lb; z->lb = z->c;  in r_case_ending()
434         z->c = z->l - m1;  in r_case_ending()
435         z->ket = z->c; /* [, line 96 */  in r_case_ending()
436         among_var = find_among_b(z, a_6, 30); /* substring, line 96 */  in r_case_ending()
437         if (!(among_var)) { z->lb = mlimit; return 0; }  in r_case_ending()
438         z->bra = z->c; /* ], line 96 */  in r_case_ending()
439         z->lb = mlimit;  in r_case_ending()
444             if (!(eq_s_b(z, 1, s_4))) return 0;  in r_case_ending()
447             if (!(eq_s_b(z, 1, s_5))) return 0;  in r_case_ending()
450             if (!(eq_s_b(z, 1, s_6))) return 0;  in r_case_ending()
453             if (!(eq_s_b(z, 1, s_7))) return 0;  in r_case_ending()
456             if (!(eq_s_b(z, 1, s_8))) return 0;  in r_case_ending()
459             if (!(eq_s_b(z, 1, s_9))) return 0;  in r_case_ending()
462             {   int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 111 */  in r_case_ending()
463                 {   int m2 = z->l - z->c; (void)m2; /* and, line 113 */  in r_case_ending()
464                     {   int m3 = z->l - z->c; (void)m3; /* or, line 112 */  in r_case_ending()
465                         {   int ret = r_LONG(z);  in r_case_ending()
471                         z->c = z->l - m3;  in r_case_ending()
472                         if (!(eq_s_b(z, 2, s_10))) { z->c = z->l - m_keep; goto lab0; }  in r_case_ending()
475                     z->c = z->l - m2;  in r_case_ending()
476                     if (z->c <= z->lb) { z->c = z->l - m_keep; goto lab0; }  in r_case_ending()
477                     z->c--; /* next, line 113 */  in r_case_ending()
479                 z->bra = z->c; /* ], line 113 */  in r_case_ending()
485             if (in_grouping_b(z, g_V1, 97, 246, 0)) return 0;  in r_case_ending()
486             if (out_grouping_b(z, g_V1, 97, 246, 0)) return 0;  in r_case_ending()
489             if (!(eq_s_b(z, 1, s_11))) return 0;  in r_case_ending()
492     {   int ret = slice_del(z); /* delete, line 138 */  in r_case_ending()
495     z->B[0] = 1; /* set ending_removed, line 139 */  in r_case_ending()
499 static int r_other_endings(struct SN_env * z) {  in r_other_endings()  argument
502         int m1 = z->l - z->c; (void)m1;  in r_other_endings()
503         if (z->c < z->I[1]) return 0;  in r_other_endings()
504         z->c = z->I[1]; /* tomark, line 142 */  in r_other_endings()
505         mlimit = z->lb; z->lb = z->c;  in r_other_endings()
506         z->c = z->l - m1;  in r_other_endings()
507         z->ket = z->c; /* [, line 142 */  in r_other_endings()
508         among_var = find_among_b(z, a_7, 14); /* substring, line 142 */  in r_other_endings()
509         if (!(among_var)) { z->lb = mlimit; return 0; }  in r_other_endings()
510         z->bra = z->c; /* ], line 142 */  in r_other_endings()
511         z->lb = mlimit;  in r_other_endings()
516             {   int m2 = z->l - z->c; (void)m2; /* not, line 146 */  in r_other_endings()
517                 if (!(eq_s_b(z, 2, s_12))) goto lab0;  in r_other_endings()
520                 z->c = z->l - m2;  in r_other_endings()
524     {   int ret = slice_del(z); /* delete, line 151 */  in r_other_endings()
530 static int r_i_plural(struct SN_env * z) {  in r_i_plural()  argument
532         int m1 = z->l - z->c; (void)m1;  in r_i_plural()
533         if (z->c < z->I[0]) return 0;  in r_i_plural()
534         z->c = z->I[0]; /* tomark, line 154 */  in r_i_plural()
535         mlimit = z->lb; z->lb = z->c;  in r_i_plural()
536         z->c = z->l - m1;  in r_i_plural()
537         z->ket = z->c; /* [, line 154 */  in r_i_plural()
538 …if (z->c <= z->lb || (z->p[z->c - 1] != 105 && z->p[z->c - 1] != 106)) { z->lb = mlimit; return 0;…  in r_i_plural()
539         if (!(find_among_b(z, a_8, 2))) { z->lb = mlimit; return 0; } /* substring, line 154 */  in r_i_plural()
540         z->bra = z->c; /* ], line 154 */  in r_i_plural()
541         z->lb = mlimit;  in r_i_plural()
543     {   int ret = slice_del(z); /* delete, line 158 */  in r_i_plural()
549 static int r_t_plural(struct SN_env * z) {  in r_t_plural()  argument
552         int m1 = z->l - z->c; (void)m1;  in r_t_plural()
553         if (z->c < z->I[0]) return 0;  in r_t_plural()
554         z->c = z->I[0]; /* tomark, line 161 */  in r_t_plural()
555         mlimit = z->lb; z->lb = z->c;  in r_t_plural()
556         z->c = z->l - m1;  in r_t_plural()
557         z->ket = z->c; /* [, line 162 */  in r_t_plural()
558         if (!(eq_s_b(z, 1, s_13))) { z->lb = mlimit; return 0; }  in r_t_plural()
559         z->bra = z->c; /* ], line 162 */  in r_t_plural()
560         {   int m_test = z->l - z->c; /* test, line 162 */  in r_t_plural()
561             if (in_grouping_b(z, g_V1, 97, 246, 0)) { z->lb = mlimit; return 0; }  in r_t_plural()
562             z->c = z->l - m_test;  in r_t_plural()
564         {   int ret = slice_del(z); /* delete, line 163 */  in r_t_plural()
567         z->lb = mlimit;  in r_t_plural()
570         int m2 = z->l - z->c; (void)m2;  in r_t_plural()
571         if (z->c < z->I[1]) return 0;  in r_t_plural()
572         z->c = z->I[1]; /* tomark, line 165 */  in r_t_plural()
573         mlimit = z->lb; z->lb = z->c;  in r_t_plural()
574         z->c = z->l - m2;  in r_t_plural()
575         z->ket = z->c; /* [, line 165 */  in r_t_plural()
576         if (z->c - 2 <= z->lb || z->p[z->c - 1] != 97) { z->lb = mlimit; return 0; }  in r_t_plural()
577         among_var = find_among_b(z, a_9, 2); /* substring, line 165 */  in r_t_plural()
578         if (!(among_var)) { z->lb = mlimit; return 0; }  in r_t_plural()
579         z->bra = z->c; /* ], line 165 */  in r_t_plural()
580         z->lb = mlimit;  in r_t_plural()
585             {   int m3 = z->l - z->c; (void)m3; /* not, line 167 */  in r_t_plural()
586                 if (!(eq_s_b(z, 2, s_14))) goto lab0;  in r_t_plural()
589                 z->c = z->l - m3;  in r_t_plural()
593     {   int ret = slice_del(z); /* delete, line 170 */  in r_t_plural()
599 static int r_tidy(struct SN_env * z) {  in r_tidy()  argument
601         int m1 = z->l - z->c; (void)m1;  in r_tidy()
602         if (z->c < z->I[0]) return 0;  in r_tidy()
603         z->c = z->I[0]; /* tomark, line 173 */  in r_tidy()
604         mlimit = z->lb; z->lb = z->c;  in r_tidy()
605         z->c = z->l - m1;  in r_tidy()
606         {   int m2 = z->l - z->c; (void)m2; /* do, line 174 */  in r_tidy()
607             {   int m3 = z->l - z->c; (void)m3; /* and, line 174 */  in r_tidy()
608                 {   int ret = r_LONG(z);  in r_tidy()
612                 z->c = z->l - m3;  in r_tidy()
613                 z->ket = z->c; /* [, line 174 */  in r_tidy()
614                 if (z->c <= z->lb) goto lab0;  in r_tidy()
615                 z->c--; /* next, line 174 */  in r_tidy()
616                 z->bra = z->c; /* ], line 174 */  in r_tidy()
617                 {   int ret = slice_del(z); /* delete, line 174 */  in r_tidy()
622             z->c = z->l - m2;  in r_tidy()
624         {   int m4 = z->l - z->c; (void)m4; /* do, line 175 */  in r_tidy()
625             z->ket = z->c; /* [, line 175 */  in r_tidy()
626             if (in_grouping_b(z, g_AEI, 97, 228, 0)) goto lab1;  in r_tidy()
627             z->bra = z->c; /* ], line 175 */  in r_tidy()
628             if (out_grouping_b(z, g_V1, 97, 246, 0)) goto lab1;  in r_tidy()
629             {   int ret = slice_del(z); /* delete, line 175 */  in r_tidy()
633             z->c = z->l - m4;  in r_tidy()
635         {   int m5 = z->l - z->c; (void)m5; /* do, line 176 */  in r_tidy()
636             z->ket = z->c; /* [, line 176 */  in r_tidy()
637             if (!(eq_s_b(z, 1, s_15))) goto lab2;  in r_tidy()
638             z->bra = z->c; /* ], line 176 */  in r_tidy()
639             {   int m6 = z->l - z->c; (void)m6; /* or, line 176 */  in r_tidy()
640                 if (!(eq_s_b(z, 1, s_16))) goto lab4;  in r_tidy()
643                 z->c = z->l - m6;  in r_tidy()
644                 if (!(eq_s_b(z, 1, s_17))) goto lab2;  in r_tidy()
647             {   int ret = slice_del(z); /* delete, line 176 */  in r_tidy()
651             z->c = z->l - m5;  in r_tidy()
653         {   int m7 = z->l - z->c; (void)m7; /* do, line 177 */  in r_tidy()
654             z->ket = z->c; /* [, line 177 */  in r_tidy()
655             if (!(eq_s_b(z, 1, s_18))) goto lab5;  in r_tidy()
656             z->bra = z->c; /* ], line 177 */  in r_tidy()
657             if (!(eq_s_b(z, 1, s_19))) goto lab5;  in r_tidy()
658             {   int ret = slice_del(z); /* delete, line 177 */  in r_tidy()
662             z->c = z->l - m7;  in r_tidy()
664         z->lb = mlimit;  in r_tidy()
666     if (in_grouping_b(z, g_V1, 97, 246, 1) < 0) return 0; /* goto */ /* non V1, line 179 */  in r_tidy()
667     z->ket = z->c; /* [, line 179 */  in r_tidy()
668     if (z->c <= z->lb) return 0;  in r_tidy()
669     z->c--; /* next, line 179 */  in r_tidy()
670     z->bra = z->c; /* ], line 179 */  in r_tidy()
671     z->S[0] = slice_to(z, z->S[0]); /* -> x, line 179 */  in r_tidy()
672     if (z->S[0] == 0) return -1; /* -> x, line 179 */  in r_tidy()
673     if (!(eq_v_b(z, z->S[0]))) return 0; /* name x, line 179 */  in r_tidy()
674     {   int ret = slice_del(z); /* delete, line 179 */  in r_tidy()
680 extern int finnish_ISO_8859_1_stem(struct SN_env * z) {  in finnish_ISO_8859_1_stem()  argument
681     {   int c1 = z->c; /* do, line 185 */  in finnish_ISO_8859_1_stem()
682         {   int ret = r_mark_regions(z);  in finnish_ISO_8859_1_stem()
687         z->c = c1;  in finnish_ISO_8859_1_stem()
689     z->B[0] = 0; /* unset ending_removed, line 186 */  in finnish_ISO_8859_1_stem()
690     z->lb = z->c; z->c = z->l; /* backwards, line 187 */  in finnish_ISO_8859_1_stem()
692     {   int m2 = z->l - z->c; (void)m2; /* do, line 188 */  in finnish_ISO_8859_1_stem()
693         {   int ret = r_particle_etc(z);  in finnish_ISO_8859_1_stem()
698         z->c = z->l - m2;  in finnish_ISO_8859_1_stem()
700     {   int m3 = z->l - z->c; (void)m3; /* do, line 189 */  in finnish_ISO_8859_1_stem()
701         {   int ret = r_possessive(z);  in finnish_ISO_8859_1_stem()
706         z->c = z->l - m3;  in finnish_ISO_8859_1_stem()
708     {   int m4 = z->l - z->c; (void)m4; /* do, line 190 */  in finnish_ISO_8859_1_stem()
709         {   int ret = r_case_ending(z);  in finnish_ISO_8859_1_stem()
714         z->c = z->l - m4;  in finnish_ISO_8859_1_stem()
716     {   int m5 = z->l - z->c; (void)m5; /* do, line 191 */  in finnish_ISO_8859_1_stem()
717         {   int ret = r_other_endings(z);  in finnish_ISO_8859_1_stem()
722         z->c = z->l - m5;  in finnish_ISO_8859_1_stem()
724     {   int m6 = z->l - z->c; (void)m6; /* or, line 192 */  in finnish_ISO_8859_1_stem()
725         if (!(z->B[0])) goto lab6; /* Boolean test ending_removed, line 192 */  in finnish_ISO_8859_1_stem()
726         {   int m7 = z->l - z->c; (void)m7; /* do, line 192 */  in finnish_ISO_8859_1_stem()
727             {   int ret = r_i_plural(z);  in finnish_ISO_8859_1_stem()
732             z->c = z->l - m7;  in finnish_ISO_8859_1_stem()
736         z->c = z->l - m6;  in finnish_ISO_8859_1_stem()
737         {   int m8 = z->l - z->c; (void)m8; /* do, line 192 */  in finnish_ISO_8859_1_stem()
738             {   int ret = r_t_plural(z);  in finnish_ISO_8859_1_stem()
743             z->c = z->l - m8;  in finnish_ISO_8859_1_stem()
747     {   int m9 = z->l - z->c; (void)m9; /* do, line 193 */  in finnish_ISO_8859_1_stem()
748         {   int ret = r_tidy(z);  in finnish_ISO_8859_1_stem()
753         z->c = z->l - m9;  in finnish_ISO_8859_1_stem()
755     z->c = z->lb;  in finnish_ISO_8859_1_stem()
761 extern void finnish_ISO_8859_1_close_env(struct SN_env * z) { SN_close_env(z, 1); }  in finnish_ISO_8859_1_close_env()  argument