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 dutch_UTF_8_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_undouble(struct SN_env * z);
      14             : static int r_R2(struct SN_env * z);
      15             : static int r_R1(struct SN_env * z);
      16             : static int r_mark_regions(struct SN_env * z);
      17             : static int r_en_ending(struct SN_env * z);
      18             : static int r_e_ending(struct SN_env * z);
      19             : static int r_postlude(struct SN_env * z);
      20             : static int r_prelude(struct SN_env * z);
      21             : #ifdef __cplusplus
      22             : extern "C" {
      23             : #endif
      24             : 
      25             : 
      26             : extern struct SN_env * dutch_UTF_8_create_env(void);
      27             : extern void dutch_UTF_8_close_env(struct SN_env * z);
      28             : 
      29             : 
      30             : #ifdef __cplusplus
      31             : }
      32             : #endif
      33             : static const symbol s_0_1[2] = { 0xC3, 0xA1 };
      34             : static const symbol s_0_2[2] = { 0xC3, 0xA4 };
      35             : static const symbol s_0_3[2] = { 0xC3, 0xA9 };
      36             : static const symbol s_0_4[2] = { 0xC3, 0xAB };
      37             : static const symbol s_0_5[2] = { 0xC3, 0xAD };
      38             : static const symbol s_0_6[2] = { 0xC3, 0xAF };
      39             : static const symbol s_0_7[2] = { 0xC3, 0xB3 };
      40             : static const symbol s_0_8[2] = { 0xC3, 0xB6 };
      41             : static const symbol s_0_9[2] = { 0xC3, 0xBA };
      42             : static const symbol s_0_10[2] = { 0xC3, 0xBC };
      43             : 
      44             : static const struct among a_0[11] =
      45             : {
      46             : { 0, 0, -1, 6, 0},
      47             : { 2, s_0_1, 0, 1, 0},
      48             : { 2, s_0_2, 0, 1, 0},
      49             : { 2, s_0_3, 0, 2, 0},
      50             : { 2, s_0_4, 0, 2, 0},
      51             : { 2, s_0_5, 0, 3, 0},
      52             : { 2, s_0_6, 0, 3, 0},
      53             : { 2, s_0_7, 0, 4, 0},
      54             : { 2, s_0_8, 0, 4, 0},
      55             : { 2, s_0_9, 0, 5, 0},
      56             : { 2, s_0_10, 0, 5, 0}
      57             : };
      58             : 
      59             : static const symbol s_1_1[1] = { 'I' };
      60             : static const symbol s_1_2[1] = { 'Y' };
      61             : 
      62             : static const struct among a_1[3] =
      63             : {
      64             : { 0, 0, -1, 3, 0},
      65             : { 1, s_1_1, 0, 2, 0},
      66             : { 1, s_1_2, 0, 1, 0}
      67             : };
      68             : 
      69             : static const symbol s_2_0[2] = { 'd', 'd' };
      70             : static const symbol s_2_1[2] = { 'k', 'k' };
      71             : static const symbol s_2_2[2] = { 't', 't' };
      72             : 
      73             : static const struct among a_2[3] =
      74             : {
      75             : { 2, s_2_0, -1, -1, 0},
      76             : { 2, s_2_1, -1, -1, 0},
      77             : { 2, s_2_2, -1, -1, 0}
      78             : };
      79             : 
      80             : static const symbol s_3_0[3] = { 'e', 'n', 'e' };
      81             : static const symbol s_3_1[2] = { 's', 'e' };
      82             : static const symbol s_3_2[2] = { 'e', 'n' };
      83             : static const symbol s_3_3[5] = { 'h', 'e', 'd', 'e', 'n' };
      84             : static const symbol s_3_4[1] = { 's' };
      85             : 
      86             : static const struct among a_3[5] =
      87             : {
      88             : { 3, s_3_0, -1, 2, 0},
      89             : { 2, s_3_1, -1, 3, 0},
      90             : { 2, s_3_2, -1, 2, 0},
      91             : { 5, s_3_3, 2, 1, 0},
      92             : { 1, s_3_4, -1, 3, 0}
      93             : };
      94             : 
      95             : static const symbol s_4_0[3] = { 'e', 'n', 'd' };
      96             : static const symbol s_4_1[2] = { 'i', 'g' };
      97             : static const symbol s_4_2[3] = { 'i', 'n', 'g' };
      98             : static const symbol s_4_3[4] = { 'l', 'i', 'j', 'k' };
      99             : static const symbol s_4_4[4] = { 'b', 'a', 'a', 'r' };
     100             : static const symbol s_4_5[3] = { 'b', 'a', 'r' };
     101             : 
     102             : static const struct among a_4[6] =
     103             : {
     104             : { 3, s_4_0, -1, 1, 0},
     105             : { 2, s_4_1, -1, 2, 0},
     106             : { 3, s_4_2, -1, 1, 0},
     107             : { 4, s_4_3, -1, 3, 0},
     108             : { 4, s_4_4, -1, 4, 0},
     109             : { 3, s_4_5, -1, 5, 0}
     110             : };
     111             : 
     112             : static const symbol s_5_0[2] = { 'a', 'a' };
     113             : static const symbol s_5_1[2] = { 'e', 'e' };
     114             : static const symbol s_5_2[2] = { 'o', 'o' };
     115             : static const symbol s_5_3[2] = { 'u', 'u' };
     116             : 
     117             : static const struct among a_5[4] =
     118             : {
     119             : { 2, s_5_0, -1, -1, 0},
     120             : { 2, s_5_1, -1, -1, 0},
     121             : { 2, s_5_2, -1, -1, 0},
     122             : { 2, s_5_3, -1, -1, 0}
     123             : };
     124             : 
     125             : static const unsigned char g_v[] = { 17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 128 };
     126             : 
     127             : static const unsigned char g_v_I[] = { 1, 0, 0, 17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 128 };
     128             : 
     129             : static const unsigned char g_v_j[] = { 17, 67, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 128 };
     130             : 
     131             : static const symbol s_0[] = { 'a' };
     132             : static const symbol s_1[] = { 'e' };
     133             : static const symbol s_2[] = { 'i' };
     134             : static const symbol s_3[] = { 'o' };
     135             : static const symbol s_4[] = { 'u' };
     136             : static const symbol s_5[] = { 'Y' };
     137             : static const symbol s_6[] = { 'I' };
     138             : static const symbol s_7[] = { 'Y' };
     139             : static const symbol s_8[] = { 'y' };
     140             : static const symbol s_9[] = { 'i' };
     141             : static const symbol s_10[] = { 'g', 'e', 'm' };
     142             : static const symbol s_11[] = { 'h', 'e', 'i', 'd' };
     143             : static const symbol s_12[] = { 'h', 'e', 'i', 'd' };
     144             : static const symbol s_13[] = { 'e', 'n' };
     145             : static const symbol s_14[] = { 'i', 'g' };
     146             : 
     147           0 : static int r_prelude(struct SN_env * z) {
     148             :     int among_var;
     149           0 :     {   int c_test1 = z->c;
     150           0 :         while(1) {
     151           0 :             int c2 = z->c;
     152           0 :             z->bra = z->c;
     153           0 :             if (z->c + 1 >= z->l || z->p[z->c + 1] >> 5 != 5 || !((340306450 >> (z->p[z->c + 1] & 0x1f)) & 1)) among_var = 6; else
     154           0 :             among_var = find_among(z, a_0, 11);
     155           0 :             z->ket = z->c;
     156           0 :             switch (among_var) {
     157           0 :                 case 1:
     158           0 :                     {   int ret = slice_from_s(z, 1, s_0);
     159           0 :                         if (ret < 0) return ret;
     160             :                     }
     161           0 :                     break;
     162           0 :                 case 2:
     163           0 :                     {   int ret = slice_from_s(z, 1, s_1);
     164           0 :                         if (ret < 0) return ret;
     165             :                     }
     166           0 :                     break;
     167           0 :                 case 3:
     168           0 :                     {   int ret = slice_from_s(z, 1, s_2);
     169           0 :                         if (ret < 0) return ret;
     170             :                     }
     171           0 :                     break;
     172           0 :                 case 4:
     173           0 :                     {   int ret = slice_from_s(z, 1, s_3);
     174           0 :                         if (ret < 0) return ret;
     175             :                     }
     176           0 :                     break;
     177           0 :                 case 5:
     178           0 :                     {   int ret = slice_from_s(z, 1, s_4);
     179           0 :                         if (ret < 0) return ret;
     180             :                     }
     181           0 :                     break;
     182           0 :                 case 6:
     183           0 :                     {   int ret = skip_utf8(z->p, z->c, z->l, 1);
     184           0 :                         if (ret < 0) goto lab0;
     185           0 :                         z->c = ret;
     186             :                     }
     187           0 :                     break;
     188             :             }
     189           0 :             continue;
     190           0 :         lab0:
     191           0 :             z->c = c2;
     192           0 :             break;
     193             :         }
     194           0 :         z->c = c_test1;
     195             :     }
     196           0 :     {   int c3 = z->c;
     197           0 :         z->bra = z->c;
     198           0 :         if (z->c == z->l || z->p[z->c] != 'y') { z->c = c3; goto lab1; }
     199           0 :         z->c++;
     200           0 :         z->ket = z->c;
     201           0 :         {   int ret = slice_from_s(z, 1, s_5);
     202           0 :             if (ret < 0) return ret;
     203             :         }
     204           0 :     lab1:
     205             :         ;
     206             :     }
     207           0 :     while(1) {
     208           0 :         int c4 = z->c;
     209           0 :         while(1) {
     210           0 :             int c5 = z->c;
     211           0 :             if (in_grouping_U(z, g_v, 97, 232, 0)) goto lab3;
     212           0 :             z->bra = z->c;
     213           0 :             {   int c6 = z->c;
     214           0 :                 if (z->c == z->l || z->p[z->c] != 'i') goto lab5;
     215           0 :                 z->c++;
     216           0 :                 z->ket = z->c;
     217           0 :                 if (in_grouping_U(z, g_v, 97, 232, 0)) goto lab5;
     218           0 :                 {   int ret = slice_from_s(z, 1, s_6);
     219           0 :                     if (ret < 0) return ret;
     220             :                 }
     221           0 :                 goto lab4;
     222           0 :             lab5:
     223           0 :                 z->c = c6;
     224           0 :                 if (z->c == z->l || z->p[z->c] != 'y') goto lab3;
     225           0 :                 z->c++;
     226           0 :                 z->ket = z->c;
     227           0 :                 {   int ret = slice_from_s(z, 1, s_7);
     228           0 :                     if (ret < 0) return ret;
     229             :                 }
     230             :             }
     231           0 :         lab4:
     232           0 :             z->c = c5;
     233           0 :             break;
     234           0 :         lab3:
     235           0 :             z->c = c5;
     236           0 :             {   int ret = skip_utf8(z->p, z->c, z->l, 1);
     237           0 :                 if (ret < 0) goto lab2;
     238           0 :                 z->c = ret;
     239             :             }
     240             :         }
     241           0 :         continue;
     242           0 :     lab2:
     243           0 :         z->c = c4;
     244           0 :         break;
     245             :     }
     246           0 :     return 1;
     247             : }
     248             : 
     249           0 : static int r_mark_regions(struct SN_env * z) {
     250           0 :     z->I[2] = z->l;
     251           0 :     z->I[1] = z->l;
     252           0 :     {   int c_test1 = z->c;
     253           0 :         {   int ret = skip_utf8(z->p, z->c, z->l, 3);
     254           0 :             if (ret < 0) return 0;
     255           0 :             z->c = ret;
     256             :         }
     257           0 :         z->I[0] = z->c;
     258           0 :         z->c = c_test1;
     259             :     }
     260             : 
     261             :     {
     262           0 :         int ret = out_grouping_U(z, g_v, 97, 232, 1);
     263           0 :         if (ret < 0) return 0;
     264           0 :         z->c += ret;
     265             :     }
     266             : 
     267             :     {
     268           0 :         int ret = in_grouping_U(z, g_v, 97, 232, 1);
     269           0 :         if (ret < 0) return 0;
     270           0 :         z->c += ret;
     271             :     }
     272           0 :     z->I[2] = z->c;
     273             : 
     274           0 :     if (z->I[2] >= z->I[0]) goto lab0;
     275           0 :     z->I[2] = z->I[0];
     276           0 : lab0:
     277             : 
     278             :     {
     279           0 :         int ret = out_grouping_U(z, g_v, 97, 232, 1);
     280           0 :         if (ret < 0) return 0;
     281           0 :         z->c += ret;
     282             :     }
     283             : 
     284             :     {
     285           0 :         int ret = in_grouping_U(z, g_v, 97, 232, 1);
     286           0 :         if (ret < 0) return 0;
     287           0 :         z->c += ret;
     288             :     }
     289           0 :     z->I[1] = z->c;
     290           0 :     return 1;
     291             : }
     292             : 
     293           0 : static int r_postlude(struct SN_env * z) {
     294             :     int among_var;
     295           0 :     while(1) {
     296           0 :         int c1 = z->c;
     297           0 :         z->bra = z->c;
     298           0 :         if (z->c >= z->l || (z->p[z->c + 0] != 73 && z->p[z->c + 0] != 89)) among_var = 3; else
     299           0 :         among_var = find_among(z, a_1, 3);
     300           0 :         z->ket = z->c;
     301           0 :         switch (among_var) {
     302           0 :             case 1:
     303           0 :                 {   int ret = slice_from_s(z, 1, s_8);
     304           0 :                     if (ret < 0) return ret;
     305             :                 }
     306           0 :                 break;
     307           0 :             case 2:
     308           0 :                 {   int ret = slice_from_s(z, 1, s_9);
     309           0 :                     if (ret < 0) return ret;
     310             :                 }
     311           0 :                 break;
     312           0 :             case 3:
     313           0 :                 {   int ret = skip_utf8(z->p, z->c, z->l, 1);
     314           0 :                     if (ret < 0) goto lab0;
     315           0 :                     z->c = ret;
     316             :                 }
     317           0 :                 break;
     318             :         }
     319           0 :         continue;
     320           0 :     lab0:
     321           0 :         z->c = c1;
     322           0 :         break;
     323             :     }
     324           0 :     return 1;
     325             : }
     326             : 
     327           0 : static int r_R1(struct SN_env * z) {
     328           0 :     return z->I[2] <= z->c;
     329             : }
     330             : 
     331           0 : static int r_R2(struct SN_env * z) {
     332           0 :     return z->I[1] <= z->c;
     333             : }
     334             : 
     335           0 : static int r_undouble(struct SN_env * z) {
     336           0 :     {   int m_test1 = z->l - z->c;
     337           0 :         if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1050640 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
     338           0 :         if (!find_among_b(z, a_2, 3)) return 0;
     339           0 :         z->c = z->l - m_test1;
     340             :     }
     341           0 :     z->ket = z->c;
     342           0 :     {   int ret = skip_b_utf8(z->p, z->c, z->lb, 1);
     343           0 :         if (ret < 0) return 0;
     344           0 :         z->c = ret;
     345             :     }
     346           0 :     z->bra = z->c;
     347           0 :     {   int ret = slice_del(z);
     348           0 :         if (ret < 0) return ret;
     349             :     }
     350           0 :     return 1;
     351             : }
     352             : 
     353           0 : static int r_e_ending(struct SN_env * z) {
     354           0 :     z->I[3] = 0;
     355           0 :     z->ket = z->c;
     356           0 :     if (z->c <= z->lb || z->p[z->c - 1] != 'e') return 0;
     357           0 :     z->c--;
     358           0 :     z->bra = z->c;
     359           0 :     {   int ret = r_R1(z);
     360           0 :         if (ret <= 0) return ret;
     361             :     }
     362           0 :     {   int m_test1 = z->l - z->c;
     363           0 :         if (out_grouping_b_U(z, g_v, 97, 232, 0)) return 0;
     364           0 :         z->c = z->l - m_test1;
     365             :     }
     366           0 :     {   int ret = slice_del(z);
     367           0 :         if (ret < 0) return ret;
     368             :     }
     369           0 :     z->I[3] = 1;
     370           0 :     {   int ret = r_undouble(z);
     371           0 :         if (ret <= 0) return ret;
     372             :     }
     373           0 :     return 1;
     374             : }
     375             : 
     376           0 : static int r_en_ending(struct SN_env * z) {
     377           0 :     {   int ret = r_R1(z);
     378           0 :         if (ret <= 0) return ret;
     379             :     }
     380           0 :     {   int m1 = z->l - z->c; (void)m1;
     381           0 :         if (out_grouping_b_U(z, g_v, 97, 232, 0)) return 0;
     382           0 :         z->c = z->l - m1;
     383           0 :         {   int m2 = z->l - z->c; (void)m2;
     384           0 :             if (!(eq_s_b(z, 3, s_10))) goto lab0;
     385           0 :             return 0;
     386           0 :         lab0:
     387           0 :             z->c = z->l - m2;
     388             :         }
     389             :     }
     390           0 :     {   int ret = slice_del(z);
     391           0 :         if (ret < 0) return ret;
     392             :     }
     393           0 :     {   int ret = r_undouble(z);
     394           0 :         if (ret <= 0) return ret;
     395             :     }
     396           0 :     return 1;
     397             : }
     398             : 
     399           0 : static int r_standard_suffix(struct SN_env * z) {
     400             :     int among_var;
     401           0 :     {   int m1 = z->l - z->c; (void)m1;
     402           0 :         z->ket = z->c;
     403           0 :         if (z->c <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((540704 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab0;
     404           0 :         among_var = find_among_b(z, a_3, 5);
     405           0 :         if (!among_var) goto lab0;
     406           0 :         z->bra = z->c;
     407           0 :         switch (among_var) {
     408           0 :             case 1:
     409           0 :                 {   int ret = r_R1(z);
     410           0 :                     if (ret == 0) goto lab0;
     411           0 :                     if (ret < 0) return ret;
     412             :                 }
     413           0 :                 {   int ret = slice_from_s(z, 4, s_11);
     414           0 :                     if (ret < 0) return ret;
     415             :                 }
     416           0 :                 break;
     417           0 :             case 2:
     418           0 :                 {   int ret = r_en_ending(z);
     419           0 :                     if (ret == 0) goto lab0;
     420           0 :                     if (ret < 0) return ret;
     421             :                 }
     422           0 :                 break;
     423           0 :             case 3:
     424           0 :                 {   int ret = r_R1(z);
     425           0 :                     if (ret == 0) goto lab0;
     426           0 :                     if (ret < 0) return ret;
     427             :                 }
     428           0 :                 if (out_grouping_b_U(z, g_v_j, 97, 232, 0)) goto lab0;
     429           0 :                 {   int ret = slice_del(z);
     430           0 :                     if (ret < 0) return ret;
     431             :                 }
     432           0 :                 break;
     433             :         }
     434           0 :     lab0:
     435           0 :         z->c = z->l - m1;
     436             :     }
     437           0 :     {   int m2 = z->l - z->c; (void)m2;
     438           0 :         {   int ret = r_e_ending(z);
     439           0 :             if (ret < 0) return ret;
     440             :         }
     441           0 :         z->c = z->l - m2;
     442             :     }
     443           0 :     {   int m3 = z->l - z->c; (void)m3;
     444           0 :         z->ket = z->c;
     445           0 :         if (!(eq_s_b(z, 4, s_12))) goto lab1;
     446           0 :         z->bra = z->c;
     447           0 :         {   int ret = r_R2(z);
     448           0 :             if (ret == 0) goto lab1;
     449           0 :             if (ret < 0) return ret;
     450             :         }
     451           0 :         {   int m4 = z->l - z->c; (void)m4;
     452           0 :             if (z->c <= z->lb || z->p[z->c - 1] != 'c') goto lab2;
     453           0 :             z->c--;
     454           0 :             goto lab1;
     455           0 :         lab2:
     456           0 :             z->c = z->l - m4;
     457             :         }
     458           0 :         {   int ret = slice_del(z);
     459           0 :             if (ret < 0) return ret;
     460             :         }
     461           0 :         z->ket = z->c;
     462           0 :         if (!(eq_s_b(z, 2, s_13))) goto lab1;
     463           0 :         z->bra = z->c;
     464           0 :         {   int ret = r_en_ending(z);
     465           0 :             if (ret == 0) goto lab1;
     466           0 :             if (ret < 0) return ret;
     467             :         }
     468           0 :     lab1:
     469           0 :         z->c = z->l - m3;
     470             :     }
     471           0 :     {   int m5 = z->l - z->c; (void)m5;
     472           0 :         z->ket = z->c;
     473           0 :         if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((264336 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab3;
     474           0 :         among_var = find_among_b(z, a_4, 6);
     475           0 :         if (!among_var) goto lab3;
     476           0 :         z->bra = z->c;
     477           0 :         switch (among_var) {
     478           0 :             case 1:
     479           0 :                 {   int ret = r_R2(z);
     480           0 :                     if (ret == 0) goto lab3;
     481           0 :                     if (ret < 0) return ret;
     482             :                 }
     483           0 :                 {   int ret = slice_del(z);
     484           0 :                     if (ret < 0) return ret;
     485             :                 }
     486           0 :                 {   int m6 = z->l - z->c; (void)m6;
     487           0 :                     z->ket = z->c;
     488           0 :                     if (!(eq_s_b(z, 2, s_14))) goto lab5;
     489           0 :                     z->bra = z->c;
     490           0 :                     {   int ret = r_R2(z);
     491           0 :                         if (ret == 0) goto lab5;
     492           0 :                         if (ret < 0) return ret;
     493             :                     }
     494           0 :                     {   int m7 = z->l - z->c; (void)m7;
     495           0 :                         if (z->c <= z->lb || z->p[z->c - 1] != 'e') goto lab6;
     496           0 :                         z->c--;
     497           0 :                         goto lab5;
     498           0 :                     lab6:
     499           0 :                         z->c = z->l - m7;
     500             :                     }
     501           0 :                     {   int ret = slice_del(z);
     502           0 :                         if (ret < 0) return ret;
     503             :                     }
     504           0 :                     goto lab4;
     505           0 :                 lab5:
     506           0 :                     z->c = z->l - m6;
     507           0 :                     {   int ret = r_undouble(z);
     508           0 :                         if (ret == 0) goto lab3;
     509           0 :                         if (ret < 0) return ret;
     510             :                     }
     511             :                 }
     512           0 :             lab4:
     513           0 :                 break;
     514           0 :             case 2:
     515           0 :                 {   int ret = r_R2(z);
     516           0 :                     if (ret == 0) goto lab3;
     517           0 :                     if (ret < 0) return ret;
     518             :                 }
     519           0 :                 {   int m8 = z->l - z->c; (void)m8;
     520           0 :                     if (z->c <= z->lb || z->p[z->c - 1] != 'e') goto lab7;
     521           0 :                     z->c--;
     522           0 :                     goto lab3;
     523           0 :                 lab7:
     524           0 :                     z->c = z->l - m8;
     525             :                 }
     526           0 :                 {   int ret = slice_del(z);
     527           0 :                     if (ret < 0) return ret;
     528             :                 }
     529           0 :                 break;
     530           0 :             case 3:
     531           0 :                 {   int ret = r_R2(z);
     532           0 :                     if (ret == 0) goto lab3;
     533           0 :                     if (ret < 0) return ret;
     534             :                 }
     535           0 :                 {   int ret = slice_del(z);
     536           0 :                     if (ret < 0) return ret;
     537             :                 }
     538           0 :                 {   int ret = r_e_ending(z);
     539           0 :                     if (ret == 0) goto lab3;
     540           0 :                     if (ret < 0) return ret;
     541             :                 }
     542           0 :                 break;
     543           0 :             case 4:
     544           0 :                 {   int ret = r_R2(z);
     545           0 :                     if (ret == 0) goto lab3;
     546           0 :                     if (ret < 0) return ret;
     547             :                 }
     548           0 :                 {   int ret = slice_del(z);
     549           0 :                     if (ret < 0) return ret;
     550             :                 }
     551           0 :                 break;
     552           0 :             case 5:
     553           0 :                 {   int ret = r_R2(z);
     554           0 :                     if (ret == 0) goto lab3;
     555           0 :                     if (ret < 0) return ret;
     556             :                 }
     557           0 :                 if (!(z->I[3])) goto lab3;
     558           0 :                 {   int ret = slice_del(z);
     559           0 :                     if (ret < 0) return ret;
     560             :                 }
     561           0 :                 break;
     562             :         }
     563           0 :     lab3:
     564           0 :         z->c = z->l - m5;
     565             :     }
     566           0 :     {   int m9 = z->l - z->c; (void)m9;
     567           0 :         if (out_grouping_b_U(z, g_v_I, 73, 232, 0)) goto lab8;
     568           0 :         {   int m_test10 = z->l - z->c;
     569           0 :             if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((2129954 >> (z->p[z->c - 1] & 0x1f)) & 1)) goto lab8;
     570           0 :             if (!find_among_b(z, a_5, 4)) goto lab8;
     571           0 :             if (out_grouping_b_U(z, g_v, 97, 232, 0)) goto lab8;
     572           0 :             z->c = z->l - m_test10;
     573             :         }
     574           0 :         z->ket = z->c;
     575           0 :         {   int ret = skip_b_utf8(z->p, z->c, z->lb, 1);
     576           0 :             if (ret < 0) goto lab8;
     577           0 :             z->c = ret;
     578             :         }
     579           0 :         z->bra = z->c;
     580           0 :         {   int ret = slice_del(z);
     581           0 :             if (ret < 0) return ret;
     582             :         }
     583           0 :     lab8:
     584           0 :         z->c = z->l - m9;
     585             :     }
     586           0 :     return 1;
     587             : }
     588             : 
     589           0 : extern int dutch_UTF_8_stem(struct SN_env * z) {
     590           0 :     {   int c1 = z->c;
     591           0 :         {   int ret = r_prelude(z);
     592           0 :             if (ret < 0) return ret;
     593             :         }
     594           0 :         z->c = c1;
     595             :     }
     596           0 :     {   int c2 = z->c;
     597           0 :         {   int ret = r_mark_regions(z);
     598           0 :             if (ret < 0) return ret;
     599             :         }
     600           0 :         z->c = c2;
     601             :     }
     602           0 :     z->lb = z->c; z->c = z->l;
     603             : 
     604             : 
     605           0 :     {   int ret = r_standard_suffix(z);
     606           0 :         if (ret < 0) return ret;
     607             :     }
     608           0 :     z->c = z->lb;
     609           0 :     {   int c3 = z->c;
     610           0 :         {   int ret = r_postlude(z);
     611           0 :             if (ret < 0) return ret;
     612             :         }
     613           0 :         z->c = c3;
     614             :     }
     615           0 :     return 1;
     616             : }
     617             : 
     618           0 : extern struct SN_env * dutch_UTF_8_create_env(void) { return SN_create_env(0, 4); }
     619             : 
     620           0 : extern void dutch_UTF_8_close_env(struct SN_env * z) { SN_close_env(z, 0); }
     621             :