1
- /* Generated by Snowball 2.1 .0 - https://snowballstem.org/ */
1
+ /* Generated by Snowball 2.2 .0 - https://snowballstem.org/ */
2
2
3
3
#include "header.h"
4
4
@@ -416,14 +416,16 @@ static const struct among a_6[4] =
416
416
};
417
417
418
418
static const symbol s_7_0 [2 ] = { 0xD8 , 0xA8 };
419
- static const symbol s_7_1 [4 ] = { 0xD8 , 0xA8 , 0xD8 , 0xA8 };
420
- static const symbol s_7_2 [4 ] = { 0xD9 , 0x83 , 0xD9 , 0x83 };
419
+ static const symbol s_7_1 [4 ] = { 0xD8 , 0xA8 , 0xD8 , 0xA7 };
420
+ static const symbol s_7_2 [4 ] = { 0xD8 , 0xA8 , 0xD8 , 0xA8 };
421
+ static const symbol s_7_3 [4 ] = { 0xD9 , 0x83 , 0xD9 , 0x83 };
421
422
422
- static const struct among a_7 [3 ] =
423
+ static const struct among a_7 [4 ] =
423
424
{
424
425
{ 2 , s_7_0 , -1 , 1 , 0 },
425
- { 4 , s_7_1 , 0 , 2 , 0 },
426
- { 4 , s_7_2 , -1 , 3 , 0 }
426
+ { 4 , s_7_1 , 0 , -1 , 0 },
427
+ { 4 , s_7_2 , 0 , 2 , 0 },
428
+ { 4 , s_7_3 , -1 , 3 , 0 }
427
429
};
428
430
429
431
static const symbol s_8_0 [4 ] = { 0xD8 , 0xB3 , 0xD8 , 0xA3 };
@@ -660,17 +662,15 @@ static const symbol s_54[] = { 0xD8, 0xA3 };
660
662
static const symbol s_55 [] = { 0xD8 , 0xA2 };
661
663
static const symbol s_56 [] = { 0xD8 , 0xA7 };
662
664
static const symbol s_57 [] = { 0xD8 , 0xA5 };
663
- static const symbol s_58 [] = { 0xD9 , 0x81 , 0xD8 , 0xA7 };
664
- static const symbol s_59 [] = { 0xD9 , 0x88 , 0xD8 , 0xA7 };
665
- static const symbol s_60 [] = { 0xD8 , 0xA8 , 0xD8 , 0xA7 };
666
- static const symbol s_61 [] = { 0xD8 , 0xA8 };
667
- static const symbol s_62 [] = { 0xD9 , 0x83 };
668
- static const symbol s_63 [] = { 0xD9 , 0x8A };
669
- static const symbol s_64 [] = { 0xD8 , 0xAA };
670
- static const symbol s_65 [] = { 0xD9 , 0x86 };
671
- static const symbol s_66 [] = { 0xD8 , 0xA3 };
672
- static const symbol s_67 [] = { 0xD8 , 0xA7 , 0xD8 , 0xB3 , 0xD8 , 0xAA };
673
- static const symbol s_68 [] = { 0xD9 , 0x8A };
665
+ static const symbol s_58 [] = { 0xD8 , 0xA7 };
666
+ static const symbol s_59 [] = { 0xD8 , 0xA8 };
667
+ static const symbol s_60 [] = { 0xD9 , 0x83 };
668
+ static const symbol s_61 [] = { 0xD9 , 0x8A };
669
+ static const symbol s_62 [] = { 0xD8 , 0xAA };
670
+ static const symbol s_63 [] = { 0xD9 , 0x86 };
671
+ static const symbol s_64 [] = { 0xD8 , 0xA3 };
672
+ static const symbol s_65 [] = { 0xD8 , 0xA7 , 0xD8 , 0xB3 , 0xD8 , 0xAA };
673
+ static const symbol s_66 [] = { 0xD9 , 0x8A };
674
674
675
675
static int r_Normalize_pre (struct SN_env * z ) {
676
676
int among_var ;
@@ -1080,23 +1080,17 @@ static int r_Prefix_Step1(struct SN_env * z) {
1080
1080
}
1081
1081
1082
1082
static int r_Prefix_Step2 (struct SN_env * z ) {
1083
- { int c1 = z -> c ;
1084
- if (!(eq_s (z , 4 , s_58 ))) goto lab0 ;
1085
- return 0 ;
1086
- lab0 :
1087
- z -> c = c1 ;
1088
- }
1089
- { int c2 = z -> c ;
1090
- if (!(eq_s (z , 4 , s_59 ))) goto lab1 ;
1091
- return 0 ;
1092
- lab1 :
1093
- z -> c = c2 ;
1094
- }
1095
1083
z -> bra = z -> c ;
1096
1084
if (z -> c + 1 >= z -> l || (z -> p [z -> c + 1 ] != 129 && z -> p [z -> c + 1 ] != 136 )) return 0 ;
1097
1085
if (!(find_among (z , a_5 , 2 ))) return 0 ;
1098
1086
z -> ket = z -> c ;
1099
1087
if (!(len_utf8 (z -> p ) > 3 )) return 0 ;
1088
+ { int c1 = z -> c ;
1089
+ if (!(eq_s (z , 2 , s_58 ))) goto lab0 ;
1090
+ return 0 ;
1091
+ lab0 :
1092
+ z -> c = c1 ;
1093
+ }
1100
1094
{ int ret = slice_del (z );
1101
1095
if (ret < 0 ) return ret ;
1102
1096
}
@@ -1129,15 +1123,9 @@ static int r_Prefix_Step3a_Noun(struct SN_env * z) {
1129
1123
1130
1124
static int r_Prefix_Step3b_Noun (struct SN_env * z ) {
1131
1125
int among_var ;
1132
- { int c1 = z -> c ;
1133
- if (!(eq_s (z , 4 , s_60 ))) goto lab0 ;
1134
- return 0 ;
1135
- lab0 :
1136
- z -> c = c1 ;
1137
- }
1138
1126
z -> bra = z -> c ;
1139
1127
if (z -> c + 1 >= z -> l || (z -> p [z -> c + 1 ] != 168 && z -> p [z -> c + 1 ] != 131 )) return 0 ;
1140
- among_var = find_among (z , a_7 , 3 );
1128
+ among_var = find_among (z , a_7 , 4 );
1141
1129
if (!(among_var )) return 0 ;
1142
1130
z -> ket = z -> c ;
1143
1131
switch (among_var ) {
@@ -1149,13 +1137,13 @@ static int r_Prefix_Step3b_Noun(struct SN_env * z) {
1149
1137
break ;
1150
1138
case 2 :
1151
1139
if (!(len_utf8 (z -> p ) > 3 )) return 0 ;
1152
- { int ret = slice_from_s (z , 2 , s_61 );
1140
+ { int ret = slice_from_s (z , 2 , s_59 );
1153
1141
if (ret < 0 ) return ret ;
1154
1142
}
1155
1143
break ;
1156
1144
case 3 :
1157
1145
if (!(len_utf8 (z -> p ) > 3 )) return 0 ;
1158
- { int ret = slice_from_s (z , 2 , s_62 );
1146
+ { int ret = slice_from_s (z , 2 , s_60 );
1159
1147
if (ret < 0 ) return ret ;
1160
1148
}
1161
1149
break ;
@@ -1172,25 +1160,25 @@ static int r_Prefix_Step3_Verb(struct SN_env * z) {
1172
1160
switch (among_var ) {
1173
1161
case 1 :
1174
1162
if (!(len_utf8 (z -> p ) > 4 )) return 0 ;
1175
- { int ret = slice_from_s (z , 2 , s_63 );
1163
+ { int ret = slice_from_s (z , 2 , s_61 );
1176
1164
if (ret < 0 ) return ret ;
1177
1165
}
1178
1166
break ;
1179
1167
case 2 :
1180
1168
if (!(len_utf8 (z -> p ) > 4 )) return 0 ;
1181
- { int ret = slice_from_s (z , 2 , s_64 );
1169
+ { int ret = slice_from_s (z , 2 , s_62 );
1182
1170
if (ret < 0 ) return ret ;
1183
1171
}
1184
1172
break ;
1185
1173
case 3 :
1186
1174
if (!(len_utf8 (z -> p ) > 4 )) return 0 ;
1187
- { int ret = slice_from_s (z , 2 , s_65 );
1175
+ { int ret = slice_from_s (z , 2 , s_63 );
1188
1176
if (ret < 0 ) return ret ;
1189
1177
}
1190
1178
break ;
1191
1179
case 4 :
1192
1180
if (!(len_utf8 (z -> p ) > 4 )) return 0 ;
1193
- { int ret = slice_from_s (z , 2 , s_66 );
1181
+ { int ret = slice_from_s (z , 2 , s_64 );
1194
1182
if (ret < 0 ) return ret ;
1195
1183
}
1196
1184
break ;
@@ -1206,7 +1194,7 @@ static int r_Prefix_Step4_Verb(struct SN_env * z) {
1206
1194
if (!(len_utf8 (z -> p ) > 4 )) return 0 ;
1207
1195
z -> I [1 ] = 1 ;
1208
1196
z -> I [2 ] = 0 ;
1209
- { int ret = slice_from_s (z , 6 , s_67 );
1197
+ { int ret = slice_from_s (z , 6 , s_65 );
1210
1198
if (ret < 0 ) return ret ;
1211
1199
}
1212
1200
return 1 ;
@@ -1417,7 +1405,7 @@ static int r_Suffix_All_alef_maqsura(struct SN_env * z) {
1417
1405
if (z -> c - 1 <= z -> lb || z -> p [z -> c - 1 ] != 137 ) return 0 ;
1418
1406
if (!(find_among_b (z , a_21 , 1 ))) return 0 ;
1419
1407
z -> bra = z -> c ;
1420
- { int ret = slice_from_s (z , 2 , s_68 );
1408
+ { int ret = slice_from_s (z , 2 , s_66 );
1421
1409
if (ret < 0 ) return ret ;
1422
1410
}
1423
1411
return 1 ;
0 commit comments