TLA  Line data    Source code

       1                 : /* Generated by Snowball 2.2.0 - https://snowballstem.org/ */
       2                 : 
       3                 : #include "header.h"
       4                 : 
       5                 : #ifdef __cplusplus
       6                 : extern "C" {
       7                 : #endif
       8                 : extern int german_ISO_8859_1_stem(struct SN_env * z);
       9                 : #ifdef __cplusplus
      10                 : }
      11                 : #endif
      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);
      18                 : #ifdef __cplusplus
      19                 : extern "C" {
      20                 : #endif
      21                 : 
      22                 : 
      23                 : extern struct SN_env * german_ISO_8859_1_create_env(void);
      24                 : extern void german_ISO_8859_1_close_env(struct SN_env * z);
      25                 : 
      26                 : 
      27                 : #ifdef __cplusplus
      28                 : }
      29                 : #endif
      30                 : static const symbol s_0_1[1] = { 'U' };
      31                 : static const symbol s_0_2[1] = { 'Y' };
      32                 : static const symbol s_0_3[1] = { 0xE4 };
      33                 : static const symbol s_0_4[1] = { 0xF6 };
      34                 : static const symbol s_0_5[1] = { 0xFC };
      35                 : 
      36                 : static const struct among a_0[6] =
      37                 : {
      38                 : { 0, 0, -1, 5, 0},
      39                 : { 1, s_0_1, 0, 2, 0},
      40                 : { 1, s_0_2, 0, 1, 0},
      41                 : { 1, s_0_3, 0, 3, 0},
      42                 : { 1, s_0_4, 0, 4, 0},
      43                 : { 1, s_0_5, 0, 2, 0}
      44                 : };
      45                 : 
      46                 : static const symbol s_1_0[1] = { 'e' };
      47                 : static const symbol s_1_1[2] = { 'e', 'm' };
      48                 : static const symbol s_1_2[2] = { 'e', 'n' };
      49                 : static const symbol s_1_3[3] = { 'e', 'r', 'n' };
      50                 : static const symbol s_1_4[2] = { 'e', 'r' };
      51                 : static const symbol s_1_5[1] = { 's' };
      52                 : static const symbol s_1_6[2] = { 'e', 's' };
      53                 : 
      54                 : static const struct among a_1[7] =
      55                 : {
      56                 : { 1, s_1_0, -1, 2, 0},
      57                 : { 2, s_1_1, -1, 1, 0},
      58                 : { 2, s_1_2, -1, 2, 0},
      59                 : { 3, s_1_3, -1, 1, 0},
      60                 : { 2, s_1_4, -1, 1, 0},
      61                 : { 1, s_1_5, -1, 3, 0},
      62                 : { 2, s_1_6, 5, 2, 0}
      63                 : };
      64                 : 
      65                 : static const symbol s_2_0[2] = { 'e', 'n' };
      66                 : static const symbol s_2_1[2] = { 'e', 'r' };
      67                 : static const symbol s_2_2[2] = { 's', 't' };
      68                 : static const symbol s_2_3[3] = { 'e', 's', 't' };
      69                 : 
      70                 : static const struct among a_2[4] =
      71                 : {
      72                 : { 2, s_2_0, -1, 1, 0},
      73                 : { 2, s_2_1, -1, 1, 0},
      74                 : { 2, s_2_2, -1, 2, 0},
      75                 : { 3, s_2_3, 2, 1, 0}
      76                 : };
      77                 : 
      78                 : static const symbol s_3_0[2] = { 'i', 'g' };
      79                 : static const symbol s_3_1[4] = { 'l', 'i', 'c', 'h' };
      80                 : 
      81                 : static const struct among a_3[2] =
      82                 : {
      83                 : { 2, s_3_0, -1, 1, 0},
      84                 : { 4, s_3_1, -1, 1, 0}
      85                 : };
      86                 : 
      87                 : static const symbol s_4_0[3] = { 'e', 'n', 'd' };
      88                 : static const symbol s_4_1[2] = { 'i', 'g' };
      89                 : static const symbol s_4_2[3] = { 'u', 'n', 'g' };
      90                 : static const symbol s_4_3[4] = { 'l', 'i', 'c', 'h' };
      91                 : static const symbol s_4_4[4] = { 'i', 's', 'c', 'h' };
      92                 : static const symbol s_4_5[2] = { 'i', 'k' };
      93                 : static const symbol s_4_6[4] = { 'h', 'e', 'i', 't' };
      94                 : static const symbol s_4_7[4] = { 'k', 'e', 'i', 't' };
      95                 : 
      96                 : static const struct among a_4[8] =
      97                 : {
      98                 : { 3, s_4_0, -1, 1, 0},
      99                 : { 2, s_4_1, -1, 2, 0},
     100                 : { 3, s_4_2, -1, 1, 0},
     101                 : { 4, s_4_3, -1, 3, 0},
     102                 : { 4, s_4_4, -1, 2, 0},
     103                 : { 2, s_4_5, -1, 2, 0},
     104                 : { 4, s_4_6, -1, 3, 0},
     105                 : { 4, s_4_7, -1, 4, 0}
     106                 : };
     107                 : 
     108                 : static const unsigned char g_v[] = { 17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32, 8 };
     109                 : 
     110                 : static const unsigned char g_s_ending[] = { 117, 30, 5 };
     111                 : 
     112                 : static const unsigned char g_st_ending[] = { 117, 30, 4 };
     113                 : 
     114                 : static const symbol s_0[] = { 's', 's' };
     115                 : static const symbol s_1[] = { 'U' };
     116                 : static const symbol s_2[] = { 'Y' };
     117                 : static const symbol s_3[] = { 'y' };
     118                 : static const symbol s_4[] = { 'u' };
     119                 : static const symbol s_5[] = { 'a' };
     120                 : static const symbol s_6[] = { 'o' };
     121                 : static const symbol s_7[] = { 'n', 'i', 's' };
     122                 : static const symbol s_8[] = { 'i', 'g' };
     123                 : static const symbol s_9[] = { 'e', 'r' };
     124                 : static const symbol s_10[] = { 'e', 'n' };
     125                 : 
     126 UBC           0 : static int r_prelude(struct SN_env * z) {
     127               0 :     {   int c_test1 = z->c;
     128               0 :         while(1) {
     129               0 :             int c2 = z->c;
     130               0 :             {   int c3 = z->c;
     131               0 :                 z->bra = z->c;
     132               0 :                 if (z->c == z->l || z->p[z->c] != 0xDF) goto lab2;
     133               0 :                 z->c++;
     134               0 :                 z->ket = z->c;
     135               0 :                 {   int ret = slice_from_s(z, 2, s_0);
     136               0 :                     if (ret < 0) return ret;
     137                 :                 }
     138               0 :                 goto lab1;
     139               0 :             lab2:
     140               0 :                 z->c = c3;
     141               0 :                 if (z->c >= z->l) goto lab0;
     142               0 :                 z->c++;
     143                 :             }
     144               0 :         lab1:
     145               0 :             continue;
     146               0 :         lab0:
     147               0 :             z->c = c2;
     148               0 :             break;
     149                 :         }
     150               0 :         z->c = c_test1;
     151                 :     }
     152               0 :     while(1) {
     153               0 :         int c4 = z->c;
     154               0 :         while(1) {
     155               0 :             int c5 = z->c;
     156               0 :             if (in_grouping(z, g_v, 97, 252, 0)) goto lab4;
     157               0 :             z->bra = z->c;
     158               0 :             {   int c6 = z->c;
     159               0 :                 if (z->c == z->l || z->p[z->c] != 'u') goto lab6;
     160               0 :                 z->c++;
     161               0 :                 z->ket = z->c;
     162               0 :                 if (in_grouping(z, g_v, 97, 252, 0)) goto lab6;
     163               0 :                 {   int ret = slice_from_s(z, 1, s_1);
     164               0 :                     if (ret < 0) return ret;
     165                 :                 }
     166               0 :                 goto lab5;
     167               0 :             lab6:
     168               0 :                 z->c = c6;
     169               0 :                 if (z->c == z->l || z->p[z->c] != 'y') goto lab4;
     170               0 :                 z->c++;
     171               0 :                 z->ket = z->c;
     172               0 :                 if (in_grouping(z, g_v, 97, 252, 0)) goto lab4;
     173               0 :                 {   int ret = slice_from_s(z, 1, s_2);
     174               0 :                     if (ret < 0) return ret;
     175                 :                 }
     176                 :             }
     177               0 :         lab5:
     178               0 :             z->c = c5;
     179               0 :             break;
     180               0 :         lab4:
     181               0 :             z->c = c5;
     182               0 :             if (z->c >= z->l) goto lab3;
     183               0 :             z->c++;
     184                 :         }
     185               0 :         continue;
     186               0 :     lab3:
     187               0 :         z->c = c4;
     188               0 :         break;
     189                 :     }
     190               0 :     return 1;
     191                 : }
     192                 : 
     193               0 : static int r_mark_regions(struct SN_env * z) {
     194               0 :     z->I[2] = z->l;
     195               0 :     z->I[1] = z->l;
     196               0 :     {   int c_test1 = z->c;
     197               0 : z->c = z->c + 3;
     198               0 :         if (z->c > z->l) return 0;
     199               0 :         z->I[0] = z->c;
     200               0 :         z->c = c_test1;
     201                 :     }
     202                 :     {   
     203               0 :         int ret = out_grouping(z, g_v, 97, 252, 1);
     204               0 :         if (ret < 0) return 0;
     205               0 :         z->c += ret;
     206                 :     }
     207                 :     {   
     208               0 :         int ret = in_grouping(z, g_v, 97, 252, 1);
     209               0 :         if (ret < 0) return 0;
     210               0 :         z->c += ret;
     211                 :     }
     212               0 :     z->I[2] = z->c;
     213                 :     
     214               0 :     if (!(z->I[2] < z->I[0])) goto lab0;
     215               0 :     z->I[2] = z->I[0];
     216               0 : lab0:
     217                 :     {   
     218               0 :         int ret = out_grouping(z, g_v, 97, 252, 1);
     219               0 :         if (ret < 0) return 0;
     220               0 :         z->c += ret;
     221                 :     }
     222                 :     {   
     223               0 :         int ret = in_grouping(z, g_v, 97, 252, 1);
     224               0 :         if (ret < 0) return 0;
     225               0 :         z->c += ret;
     226                 :     }
     227               0 :     z->I[1] = z->c;
     228               0 :     return 1;
     229                 : }
     230                 : 
     231               0 : static int r_postlude(struct SN_env * z) {
     232                 :     int among_var;
     233               0 :     while(1) {
     234               0 :         int c1 = z->c;
     235               0 :         z->bra = z->c;
     236               0 :         among_var = find_among(z, a_0, 6);
     237               0 :         if (!(among_var)) goto lab0;
     238               0 :         z->ket = z->c;
     239               0 :         switch (among_var) {
     240               0 :             case 1:
     241               0 :                 {   int ret = slice_from_s(z, 1, s_3);
     242               0 :                     if (ret < 0) return ret;
     243                 :                 }
     244               0 :                 break;
     245               0 :             case 2:
     246               0 :                 {   int ret = slice_from_s(z, 1, s_4);
     247               0 :                     if (ret < 0) return ret;
     248                 :                 }
     249               0 :                 break;
     250               0 :             case 3:
     251               0 :                 {   int ret = slice_from_s(z, 1, s_5);
     252               0 :                     if (ret < 0) return ret;
     253                 :                 }
     254               0 :                 break;
     255               0 :             case 4:
     256               0 :                 {   int ret = slice_from_s(z, 1, s_6);
     257               0 :                     if (ret < 0) return ret;
     258                 :                 }
     259               0 :                 break;
     260               0 :             case 5:
     261               0 :                 if (z->c >= z->l) goto lab0;
     262               0 :                 z->c++;
     263               0 :                 break;
     264                 :         }
     265               0 :         continue;
     266               0 :     lab0:
     267               0 :         z->c = c1;
     268               0 :         break;
     269                 :     }
     270               0 :     return 1;
     271                 : }
     272                 : 
     273               0 : static int r_R1(struct SN_env * z) {
     274               0 :     if (!(z->I[2] <= z->c)) return 0;
     275               0 :     return 1;
     276                 : }
     277                 : 
     278               0 : static int r_R2(struct SN_env * z) {
     279               0 :     if (!(z->I[1] <= z->c)) return 0;
     280               0 :     return 1;
     281                 : }
     282                 : 
     283               0 : static int r_standard_suffix(struct SN_env * z) {
     284                 :     int among_var;
     285               0 :     {   int m1 = z->l - z->c; (void)m1;
     286               0 :         z->ket = z->c;
     287               0 :         if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((811040 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab0;
     288               0 :         among_var = find_among_b(z, a_1, 7);
     289               0 :         if (!(among_var)) goto lab0;
     290               0 :         z->bra = z->c;
     291               0 :         {   int ret = r_R1(z);
     292               0 :             if (ret == 0) goto lab0;
     293               0 :             if (ret < 0) return ret;
     294                 :         }
     295               0 :         switch (among_var) {
     296               0 :             case 1:
     297               0 :                 {   int ret = slice_del(z);
     298               0 :                     if (ret < 0) return ret;
     299                 :                 }
     300               0 :                 break;
     301               0 :             case 2:
     302               0 :                 {   int ret = slice_del(z);
     303               0 :                     if (ret < 0) return ret;
     304                 :                 }
     305               0 :                 {   int m2 = z->l - z->c; (void)m2;
     306               0 :                     z->ket = z->c;
     307               0 :                     if (z->c <= z->lb || z->p[z->c - 1] != 's') { z->c = z->l - m2; goto lab1; }
     308               0 :                     z->c--;
     309               0 :                     z->bra = z->c;
     310               0 :                     if (!(eq_s_b(z, 3, s_7))) { z->c = z->l - m2; goto lab1; }
     311               0 :                     {   int ret = slice_del(z);
     312               0 :                         if (ret < 0) return ret;
     313                 :                     }
     314               0 :                 lab1:
     315                 :                     ;
     316                 :                 }
     317               0 :                 break;
     318               0 :             case 3:
     319               0 :                 if (in_grouping_b(z, g_s_ending, 98, 116, 0)) goto lab0;
     320               0 :                 {   int ret = slice_del(z);
     321               0 :                     if (ret < 0) return ret;
     322                 :                 }
     323               0 :                 break;
     324                 :         }
     325               0 :     lab0:
     326               0 :         z->c = z->l - m1;
     327                 :     }
     328               0 :     {   int m3 = z->l - z->c; (void)m3;
     329               0 :         z->ket = z->c;
     330               0 :         if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1327104 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab2;
     331               0 :         among_var = find_among_b(z, a_2, 4);
     332               0 :         if (!(among_var)) goto lab2;
     333               0 :         z->bra = z->c;
     334               0 :         {   int ret = r_R1(z);
     335               0 :             if (ret == 0) goto lab2;
     336               0 :             if (ret < 0) return ret;
     337                 :         }
     338               0 :         switch (among_var) {
     339               0 :             case 1:
     340               0 :                 {   int ret = slice_del(z);
     341               0 :                     if (ret < 0) return ret;
     342                 :                 }
     343               0 :                 break;
     344               0 :             case 2:
     345               0 :                 if (in_grouping_b(z, g_st_ending, 98, 116, 0)) goto lab2;
     346               0 : z->c = z->c - 3;
     347               0 :                 if (z->c < z->lb) goto lab2;
     348               0 :                 {   int ret = slice_del(z);
     349               0 :                     if (ret < 0) return ret;
     350                 :                 }
     351               0 :                 break;
     352                 :         }
     353               0 :     lab2:
     354               0 :         z->c = z->l - m3;
     355                 :     }
     356               0 :     {   int m4 = z->l - z->c; (void)m4;
     357               0 :         z->ket = z->c;
     358               0 :         if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1051024 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab3;
     359               0 :         among_var = find_among_b(z, a_4, 8);
     360               0 :         if (!(among_var)) goto lab3;
     361               0 :         z->bra = z->c;
     362               0 :         {   int ret = r_R2(z);
     363               0 :             if (ret == 0) goto lab3;
     364               0 :             if (ret < 0) return ret;
     365                 :         }
     366               0 :         switch (among_var) {
     367               0 :             case 1:
     368               0 :                 {   int ret = slice_del(z);
     369               0 :                     if (ret < 0) return ret;
     370                 :                 }
     371               0 :                 {   int m5 = z->l - z->c; (void)m5;
     372               0 :                     z->ket = z->c;
     373               0 :                     if (!(eq_s_b(z, 2, s_8))) { z->c = z->l - m5; goto lab4; }
     374               0 :                     z->bra = z->c;
     375               0 :                     {   int m6 = z->l - z->c; (void)m6;
     376               0 :                         if (z->c <= z->lb || z->p[z->c - 1] != 'e') goto lab5;
     377               0 :                         z->c--;
     378               0 :                         { z->c = z->l - m5; goto lab4; }
     379               0 :                     lab5:
     380               0 :                         z->c = z->l - m6;
     381                 :                     }
     382               0 :                     {   int ret = r_R2(z);
     383               0 :                         if (ret == 0) { z->c = z->l - m5; goto lab4; }
     384               0 :                         if (ret < 0) return ret;
     385                 :                     }
     386               0 :                     {   int ret = slice_del(z);
     387               0 :                         if (ret < 0) return ret;
     388                 :                     }
     389               0 :                 lab4:
     390                 :                     ;
     391                 :                 }
     392               0 :                 break;
     393               0 :             case 2:
     394               0 :                 {   int m7 = z->l - z->c; (void)m7;
     395               0 :                     if (z->c <= z->lb || z->p[z->c - 1] != 'e') goto lab6;
     396               0 :                     z->c--;
     397               0 :                     goto lab3;
     398               0 :                 lab6:
     399               0 :                     z->c = z->l - m7;
     400                 :                 }
     401               0 :                 {   int ret = slice_del(z);
     402               0 :                     if (ret < 0) return ret;
     403                 :                 }
     404               0 :                 break;
     405               0 :             case 3:
     406               0 :                 {   int ret = slice_del(z);
     407               0 :                     if (ret < 0) return ret;
     408                 :                 }
     409               0 :                 {   int m8 = z->l - z->c; (void)m8;
     410               0 :                     z->ket = z->c;
     411               0 :                     {   int m9 = z->l - z->c; (void)m9;
     412               0 :                         if (!(eq_s_b(z, 2, s_9))) goto lab9;
     413               0 :                         goto lab8;
     414               0 :                     lab9:
     415               0 :                         z->c = z->l - m9;
     416               0 :                         if (!(eq_s_b(z, 2, s_10))) { z->c = z->l - m8; goto lab7; }
     417                 :                     }
     418               0 :                 lab8:
     419               0 :                     z->bra = z->c;
     420               0 :                     {   int ret = r_R1(z);
     421               0 :                         if (ret == 0) { z->c = z->l - m8; goto lab7; }
     422               0 :                         if (ret < 0) return ret;
     423                 :                     }
     424               0 :                     {   int ret = slice_del(z);
     425               0 :                         if (ret < 0) return ret;
     426                 :                     }
     427               0 :                 lab7:
     428                 :                     ;
     429                 :                 }
     430               0 :                 break;
     431               0 :             case 4:
     432               0 :                 {   int ret = slice_del(z);
     433               0 :                     if (ret < 0) return ret;
     434                 :                 }
     435               0 :                 {   int m10 = z->l - z->c; (void)m10;
     436               0 :                     z->ket = z->c;
     437               0 :                     if (z->c - 1 <= z->lb || (z->p[z->c - 1] != 103 && z->p[z->c - 1] != 104)) { z->c = z->l - m10; goto lab10; }
     438               0 :                     if (!(find_among_b(z, a_3, 2))) { z->c = z->l - m10; goto lab10; }
     439               0 :                     z->bra = z->c;
     440               0 :                     {   int ret = r_R2(z);
     441               0 :                         if (ret == 0) { z->c = z->l - m10; goto lab10; }
     442               0 :                         if (ret < 0) return ret;
     443                 :                     }
     444               0 :                     {   int ret = slice_del(z);
     445               0 :                         if (ret < 0) return ret;
     446                 :                     }
     447               0 :                 lab10:
     448                 :                     ;
     449                 :                 }
     450               0 :                 break;
     451                 :         }
     452               0 :     lab3:
     453               0 :         z->c = z->l - m4;
     454                 :     }
     455               0 :     return 1;
     456                 : }
     457                 : 
     458               0 : extern int german_ISO_8859_1_stem(struct SN_env * z) {
     459               0 :     {   int c1 = z->c;
     460               0 :         {   int ret = r_prelude(z);
     461               0 :             if (ret < 0) return ret;
     462                 :         }
     463               0 :         z->c = c1;
     464                 :     }
     465               0 :     {   int c2 = z->c;
     466               0 :         {   int ret = r_mark_regions(z);
     467               0 :             if (ret < 0) return ret;
     468                 :         }
     469               0 :         z->c = c2;
     470                 :     }
     471               0 :     z->lb = z->c; z->c = z->l;
     472                 : 
     473                 :     
     474               0 :     {   int ret = r_standard_suffix(z);
     475               0 :         if (ret < 0) return ret;
     476                 :     }
     477               0 :     z->c = z->lb;
     478               0 :     {   int c3 = z->c;
     479               0 :         {   int ret = r_postlude(z);
     480               0 :             if (ret < 0) return ret;
     481                 :         }
     482               0 :         z->c = c3;
     483                 :     }
     484               0 :     return 1;
     485                 : }
     486                 : 
     487               0 : extern struct SN_env * german_ISO_8859_1_create_env(void) { return SN_create_env(0, 3); }
     488                 : 
     489               0 : extern void german_ISO_8859_1_close_env(struct SN_env * z) { SN_close_env(z, 0); }
     490                 :