isomorfeus-ferret 0.12.2 → 0.12.6

Sign up to get free protection for your applications and to get access to all the features.
Files changed (125) hide show
  1. checksums.yaml +4 -4
  2. data/LICENSE +612 -612
  3. data/README.md +80 -44
  4. data/ext/isomorfeus_ferret_ext/bm_hash.c +9 -6
  5. data/ext/isomorfeus_ferret_ext/bm_micro_string.c +4 -2
  6. data/ext/isomorfeus_ferret_ext/frb_search.c +14 -2
  7. data/ext/isomorfeus_ferret_ext/frb_store.c +34 -5
  8. data/ext/isomorfeus_ferret_ext/frt_posh.h +11 -19
  9. data/ext/isomorfeus_ferret_ext/frt_q_parser.c +1844 -1911
  10. data/ext/isomorfeus_ferret_ext/frt_q_phrase.c +12 -15
  11. data/ext/isomorfeus_ferret_ext/frt_scanner.c +1 -0
  12. data/ext/isomorfeus_ferret_ext/frt_scanner_mb.c +1 -0
  13. data/ext/isomorfeus_ferret_ext/frt_scanner_utf8.c +1 -0
  14. data/ext/isomorfeus_ferret_ext/frt_search.h +1 -1
  15. data/ext/isomorfeus_ferret_ext/libstemmer.c +14 -11
  16. data/ext/isomorfeus_ferret_ext/libstemmer.h +4 -9
  17. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_basque.c +1167 -0
  18. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_basque.h +6 -0
  19. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_catalan.c +1433 -0
  20. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_catalan.h +6 -0
  21. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_danish.c +120 -143
  22. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_danish.h +1 -2
  23. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_dutch.c +217 -237
  24. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_dutch.h +1 -1
  25. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_english.c +377 -432
  26. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_english.h +1 -1
  27. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_finnish.c +298 -342
  28. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_finnish.h +1 -2
  29. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_french.c +530 -524
  30. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_french.h +1 -1
  31. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_german.c +201 -214
  32. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_german.h +1 -1
  33. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_hungarian.c +1 -1
  34. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_indonesian.c +394 -0
  35. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_indonesian.h +6 -0
  36. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_irish.c +457 -0
  37. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_irish.h +6 -0
  38. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_italian.c +396 -439
  39. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_italian.h +1 -1
  40. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_norwegian.c +104 -128
  41. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_norwegian.h +1 -1
  42. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_porter.c +242 -273
  43. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_porter.h +1 -1
  44. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_portuguese.c +406 -461
  45. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_portuguese.h +1 -2
  46. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_spanish.c +405 -456
  47. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_spanish.h +1 -1
  48. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_swedish.c +108 -126
  49. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_1_swedish.h +1 -1
  50. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_2_hungarian.c +849 -0
  51. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_2_hungarian.h +6 -0
  52. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_2_romanian.c +373 -405
  53. data/ext/isomorfeus_ferret_ext/stem_ISO_8859_2_romanian.h +1 -1
  54. data/ext/isomorfeus_ferret_ext/stem_KOI8_R_russian.c +288 -305
  55. data/ext/isomorfeus_ferret_ext/stem_KOI8_R_russian.h +1 -1
  56. data/ext/isomorfeus_ferret_ext/stem_UTF_8_arabic.c +1651 -0
  57. data/ext/isomorfeus_ferret_ext/stem_UTF_8_arabic.h +6 -0
  58. data/ext/isomorfeus_ferret_ext/stem_UTF_8_armenian.c +546 -0
  59. data/ext/isomorfeus_ferret_ext/stem_UTF_8_armenian.h +6 -0
  60. data/ext/isomorfeus_ferret_ext/stem_UTF_8_basque.c +1171 -0
  61. data/ext/isomorfeus_ferret_ext/stem_UTF_8_basque.h +6 -0
  62. data/ext/isomorfeus_ferret_ext/stem_UTF_8_catalan.c +1436 -0
  63. data/ext/isomorfeus_ferret_ext/stem_UTF_8_catalan.h +6 -0
  64. data/ext/isomorfeus_ferret_ext/stem_UTF_8_danish.c +121 -141
  65. data/ext/isomorfeus_ferret_ext/stem_UTF_8_danish.h +1 -1
  66. data/ext/isomorfeus_ferret_ext/stem_UTF_8_dutch.c +221 -241
  67. data/ext/isomorfeus_ferret_ext/stem_UTF_8_dutch.h +1 -1
  68. data/ext/isomorfeus_ferret_ext/stem_UTF_8_english.c +381 -431
  69. data/ext/isomorfeus_ferret_ext/stem_UTF_8_english.h +1 -1
  70. data/ext/isomorfeus_ferret_ext/stem_UTF_8_finnish.c +300 -345
  71. data/ext/isomorfeus_ferret_ext/stem_UTF_8_finnish.h +1 -1
  72. data/ext/isomorfeus_ferret_ext/stem_UTF_8_french.c +518 -511
  73. data/ext/isomorfeus_ferret_ext/stem_UTF_8_french.h +1 -1
  74. data/ext/isomorfeus_ferret_ext/stem_UTF_8_german.c +201 -209
  75. data/ext/isomorfeus_ferret_ext/stem_UTF_8_german.h +1 -1
  76. data/ext/isomorfeus_ferret_ext/stem_UTF_8_greek.c +3660 -0
  77. data/ext/isomorfeus_ferret_ext/stem_UTF_8_greek.h +6 -0
  78. data/ext/isomorfeus_ferret_ext/stem_UTF_8_hindi.c +309 -0
  79. data/ext/isomorfeus_ferret_ext/stem_UTF_8_hindi.h +6 -0
  80. data/ext/isomorfeus_ferret_ext/stem_UTF_8_hungarian.c +306 -671
  81. data/ext/isomorfeus_ferret_ext/stem_UTF_8_hungarian.h +1 -1
  82. data/ext/isomorfeus_ferret_ext/stem_UTF_8_indonesian.c +394 -0
  83. data/ext/isomorfeus_ferret_ext/stem_UTF_8_indonesian.h +6 -0
  84. data/ext/isomorfeus_ferret_ext/stem_UTF_8_irish.c +457 -0
  85. data/ext/isomorfeus_ferret_ext/stem_UTF_8_irish.h +6 -0
  86. data/ext/isomorfeus_ferret_ext/stem_UTF_8_italian.c +400 -442
  87. data/ext/isomorfeus_ferret_ext/stem_UTF_8_italian.h +1 -1
  88. data/ext/isomorfeus_ferret_ext/stem_UTF_8_lithuanian.c +824 -0
  89. data/ext/isomorfeus_ferret_ext/stem_UTF_8_lithuanian.h +6 -0
  90. data/ext/isomorfeus_ferret_ext/stem_UTF_8_nepali.c +408 -0
  91. data/ext/isomorfeus_ferret_ext/stem_UTF_8_nepali.h +6 -0
  92. data/ext/isomorfeus_ferret_ext/stem_UTF_8_norwegian.c +105 -127
  93. data/ext/isomorfeus_ferret_ext/stem_UTF_8_norwegian.h +1 -1
  94. data/ext/isomorfeus_ferret_ext/stem_UTF_8_porter.c +245 -276
  95. data/ext/isomorfeus_ferret_ext/stem_UTF_8_porter.h +1 -1
  96. data/ext/isomorfeus_ferret_ext/stem_UTF_8_portuguese.c +409 -464
  97. data/ext/isomorfeus_ferret_ext/stem_UTF_8_portuguese.h +1 -1
  98. data/ext/isomorfeus_ferret_ext/stem_UTF_8_romanian.c +376 -408
  99. data/ext/isomorfeus_ferret_ext/stem_UTF_8_romanian.h +1 -1
  100. data/ext/isomorfeus_ferret_ext/stem_UTF_8_russian.c +272 -287
  101. data/ext/isomorfeus_ferret_ext/stem_UTF_8_russian.h +1 -1
  102. data/ext/isomorfeus_ferret_ext/stem_UTF_8_serbian.c +6530 -0
  103. data/ext/isomorfeus_ferret_ext/stem_UTF_8_serbian.h +6 -0
  104. data/ext/isomorfeus_ferret_ext/stem_UTF_8_spanish.c +407 -458
  105. data/ext/isomorfeus_ferret_ext/stem_UTF_8_spanish.h +1 -1
  106. data/ext/isomorfeus_ferret_ext/stem_UTF_8_swedish.c +110 -125
  107. data/ext/isomorfeus_ferret_ext/stem_UTF_8_swedish.h +1 -1
  108. data/ext/isomorfeus_ferret_ext/stem_UTF_8_tamil.c +1865 -0
  109. data/ext/isomorfeus_ferret_ext/stem_UTF_8_tamil.h +6 -0
  110. data/ext/isomorfeus_ferret_ext/stem_UTF_8_turkish.c +698 -806
  111. data/ext/isomorfeus_ferret_ext/stem_UTF_8_turkish.h +1 -1
  112. data/ext/isomorfeus_ferret_ext/stem_UTF_8_yiddish.c +1220 -0
  113. data/ext/isomorfeus_ferret_ext/stem_UTF_8_yiddish.h +6 -0
  114. data/ext/isomorfeus_ferret_ext/stem_api.c +1 -9
  115. data/ext/isomorfeus_ferret_ext/stem_api.h +1 -3
  116. data/ext/isomorfeus_ferret_ext/stem_header.h +30 -26
  117. data/ext/isomorfeus_ferret_ext/stem_modules.h +113 -26
  118. data/ext/isomorfeus_ferret_ext/stem_modules.txt +18 -5
  119. data/ext/isomorfeus_ferret_ext/stem_utilities.c +167 -132
  120. data/ext/isomorfeus_ferret_ext/test.c +7 -1
  121. data/ext/isomorfeus_ferret_ext/test_search.c +0 -1
  122. data/lib/isomorfeus/ferret/index/index.rb +1 -1
  123. data/lib/isomorfeus/ferret/version.rb +1 -1
  124. metadata +43 -7
  125. data/ext/isomorfeus_ferret_ext/q_parser.y +0 -1366
@@ -1,5 +1,4 @@
1
-
2
- /* This file was generated automatically by the Snowball to ANSI C compiler */
1
+ /* Generated by Snowball 2.2.0 - https://snowballstem.org/ */
3
2
 
4
3
  #include "stem_header.h"
5
4
 
@@ -30,9 +29,9 @@ static const symbol s_0_2[5] = { 'g', 'e', 'n', 'e', 'r' };
30
29
 
31
30
  static const struct among a_0[3] =
32
31
  {
33
- /* 0 */ { 5, s_0_0, -1, -1, 0},
34
- /* 1 */ { 6, s_0_1, -1, -1, 0},
35
- /* 2 */ { 5, s_0_2, -1, -1, 0}
32
+ { 5, s_0_0, -1, -1, 0},
33
+ { 6, s_0_1, -1, -1, 0},
34
+ { 5, s_0_2, -1, -1, 0}
36
35
  };
37
36
 
38
37
  static const symbol s_1_0[1] = { '\'' };
@@ -41,9 +40,9 @@ static const symbol s_1_2[2] = { '\'', 's' };
41
40
 
42
41
  static const struct among a_1[3] =
43
42
  {
44
- /* 0 */ { 1, s_1_0, -1, 1, 0},
45
- /* 1 */ { 3, s_1_1, 0, 1, 0},
46
- /* 2 */ { 2, s_1_2, -1, 1, 0}
43
+ { 1, s_1_0, -1, 1, 0},
44
+ { 3, s_1_1, 0, 1, 0},
45
+ { 2, s_1_2, -1, 1, 0}
47
46
  };
48
47
 
49
48
  static const symbol s_2_0[3] = { 'i', 'e', 'd' };
@@ -55,12 +54,12 @@ static const symbol s_2_5[2] = { 'u', 's' };
55
54
 
56
55
  static const struct among a_2[6] =
57
56
  {
58
- /* 0 */ { 3, s_2_0, -1, 2, 0},
59
- /* 1 */ { 1, s_2_1, -1, 3, 0},
60
- /* 2 */ { 3, s_2_2, 1, 2, 0},
61
- /* 3 */ { 4, s_2_3, 1, 1, 0},
62
- /* 4 */ { 2, s_2_4, 1, -1, 0},
63
- /* 5 */ { 2, s_2_5, 1, -1, 0}
57
+ { 3, s_2_0, -1, 2, 0},
58
+ { 1, s_2_1, -1, 3, 0},
59
+ { 3, s_2_2, 1, 2, 0},
60
+ { 4, s_2_3, 1, 1, 0},
61
+ { 2, s_2_4, 1, -1, 0},
62
+ { 2, s_2_5, 1, -1, 0}
64
63
  };
65
64
 
66
65
  static const symbol s_3_1[2] = { 'b', 'b' };
@@ -78,19 +77,19 @@ static const symbol s_3_12[2] = { 'i', 'z' };
78
77
 
79
78
  static const struct among a_3[13] =
80
79
  {
81
- /* 0 */ { 0, 0, -1, 3, 0},
82
- /* 1 */ { 2, s_3_1, 0, 2, 0},
83
- /* 2 */ { 2, s_3_2, 0, 2, 0},
84
- /* 3 */ { 2, s_3_3, 0, 2, 0},
85
- /* 4 */ { 2, s_3_4, 0, 2, 0},
86
- /* 5 */ { 2, s_3_5, 0, 1, 0},
87
- /* 6 */ { 2, s_3_6, 0, 2, 0},
88
- /* 7 */ { 2, s_3_7, 0, 2, 0},
89
- /* 8 */ { 2, s_3_8, 0, 2, 0},
90
- /* 9 */ { 2, s_3_9, 0, 2, 0},
91
- /* 10 */ { 2, s_3_10, 0, 1, 0},
92
- /* 11 */ { 2, s_3_11, 0, 2, 0},
93
- /* 12 */ { 2, s_3_12, 0, 1, 0}
80
+ { 0, 0, -1, 3, 0},
81
+ { 2, s_3_1, 0, 2, 0},
82
+ { 2, s_3_2, 0, 2, 0},
83
+ { 2, s_3_3, 0, 2, 0},
84
+ { 2, s_3_4, 0, 2, 0},
85
+ { 2, s_3_5, 0, 1, 0},
86
+ { 2, s_3_6, 0, 2, 0},
87
+ { 2, s_3_7, 0, 2, 0},
88
+ { 2, s_3_8, 0, 2, 0},
89
+ { 2, s_3_9, 0, 2, 0},
90
+ { 2, s_3_10, 0, 1, 0},
91
+ { 2, s_3_11, 0, 2, 0},
92
+ { 2, s_3_12, 0, 1, 0}
94
93
  };
95
94
 
96
95
  static const symbol s_4_0[2] = { 'e', 'd' };
@@ -102,12 +101,12 @@ static const symbol s_4_5[5] = { 'i', 'n', 'g', 'l', 'y' };
102
101
 
103
102
  static const struct among a_4[6] =
104
103
  {
105
- /* 0 */ { 2, s_4_0, -1, 2, 0},
106
- /* 1 */ { 3, s_4_1, 0, 1, 0},
107
- /* 2 */ { 3, s_4_2, -1, 2, 0},
108
- /* 3 */ { 4, s_4_3, -1, 2, 0},
109
- /* 4 */ { 5, s_4_4, 3, 1, 0},
110
- /* 5 */ { 5, s_4_5, -1, 2, 0}
104
+ { 2, s_4_0, -1, 2, 0},
105
+ { 3, s_4_1, 0, 1, 0},
106
+ { 3, s_4_2, -1, 2, 0},
107
+ { 4, s_4_3, -1, 2, 0},
108
+ { 5, s_4_4, 3, 1, 0},
109
+ { 5, s_4_5, -1, 2, 0}
111
110
  };
112
111
 
113
112
  static const symbol s_5_0[4] = { 'a', 'n', 'c', 'i' };
@@ -137,30 +136,30 @@ static const symbol s_5_23[7] = { 'o', 'u', 's', 'n', 'e', 's', 's' };
137
136
 
138
137
  static const struct among a_5[24] =
139
138
  {
140
- /* 0 */ { 4, s_5_0, -1, 3, 0},
141
- /* 1 */ { 4, s_5_1, -1, 2, 0},
142
- /* 2 */ { 3, s_5_2, -1, 13, 0},
143
- /* 3 */ { 2, s_5_3, -1, 16, 0},
144
- /* 4 */ { 3, s_5_4, 3, 12, 0},
145
- /* 5 */ { 4, s_5_5, 4, 4, 0},
146
- /* 6 */ { 4, s_5_6, 3, 8, 0},
147
- /* 7 */ { 5, s_5_7, 3, 14, 0},
148
- /* 8 */ { 6, s_5_8, 3, 15, 0},
149
- /* 9 */ { 5, s_5_9, 3, 10, 0},
150
- /* 10 */ { 5, s_5_10, 3, 5, 0},
151
- /* 11 */ { 5, s_5_11, -1, 8, 0},
152
- /* 12 */ { 6, s_5_12, -1, 12, 0},
153
- /* 13 */ { 5, s_5_13, -1, 11, 0},
154
- /* 14 */ { 6, s_5_14, -1, 1, 0},
155
- /* 15 */ { 7, s_5_15, 14, 7, 0},
156
- /* 16 */ { 5, s_5_16, -1, 8, 0},
157
- /* 17 */ { 5, s_5_17, -1, 7, 0},
158
- /* 18 */ { 7, s_5_18, 17, 6, 0},
159
- /* 19 */ { 4, s_5_19, -1, 6, 0},
160
- /* 20 */ { 4, s_5_20, -1, 7, 0},
161
- /* 21 */ { 7, s_5_21, -1, 11, 0},
162
- /* 22 */ { 7, s_5_22, -1, 9, 0},
163
- /* 23 */ { 7, s_5_23, -1, 10, 0}
139
+ { 4, s_5_0, -1, 3, 0},
140
+ { 4, s_5_1, -1, 2, 0},
141
+ { 3, s_5_2, -1, 13, 0},
142
+ { 2, s_5_3, -1, 15, 0},
143
+ { 3, s_5_4, 3, 12, 0},
144
+ { 4, s_5_5, 4, 4, 0},
145
+ { 4, s_5_6, 3, 8, 0},
146
+ { 5, s_5_7, 3, 9, 0},
147
+ { 6, s_5_8, 3, 14, 0},
148
+ { 5, s_5_9, 3, 10, 0},
149
+ { 5, s_5_10, 3, 5, 0},
150
+ { 5, s_5_11, -1, 8, 0},
151
+ { 6, s_5_12, -1, 12, 0},
152
+ { 5, s_5_13, -1, 11, 0},
153
+ { 6, s_5_14, -1, 1, 0},
154
+ { 7, s_5_15, 14, 7, 0},
155
+ { 5, s_5_16, -1, 8, 0},
156
+ { 5, s_5_17, -1, 7, 0},
157
+ { 7, s_5_18, 17, 6, 0},
158
+ { 4, s_5_19, -1, 6, 0},
159
+ { 4, s_5_20, -1, 7, 0},
160
+ { 7, s_5_21, -1, 11, 0},
161
+ { 7, s_5_22, -1, 9, 0},
162
+ { 7, s_5_23, -1, 10, 0}
164
163
  };
165
164
 
166
165
  static const symbol s_6_0[5] = { 'i', 'c', 'a', 't', 'e' };
@@ -175,15 +174,15 @@ static const symbol s_6_8[4] = { 'n', 'e', 's', 's' };
175
174
 
176
175
  static const struct among a_6[9] =
177
176
  {
178
- /* 0 */ { 5, s_6_0, -1, 4, 0},
179
- /* 1 */ { 5, s_6_1, -1, 6, 0},
180
- /* 2 */ { 5, s_6_2, -1, 3, 0},
181
- /* 3 */ { 5, s_6_3, -1, 4, 0},
182
- /* 4 */ { 4, s_6_4, -1, 4, 0},
183
- /* 5 */ { 6, s_6_5, -1, 1, 0},
184
- /* 6 */ { 7, s_6_6, 5, 2, 0},
185
- /* 7 */ { 3, s_6_7, -1, 5, 0},
186
- /* 8 */ { 4, s_6_8, -1, 5, 0}
177
+ { 5, s_6_0, -1, 4, 0},
178
+ { 5, s_6_1, -1, 6, 0},
179
+ { 5, s_6_2, -1, 3, 0},
180
+ { 5, s_6_3, -1, 4, 0},
181
+ { 4, s_6_4, -1, 4, 0},
182
+ { 6, s_6_5, -1, 1, 0},
183
+ { 7, s_6_6, 5, 2, 0},
184
+ { 3, s_6_7, -1, 5, 0},
185
+ { 4, s_6_8, -1, 5, 0}
187
186
  };
188
187
 
189
188
  static const symbol s_7_0[2] = { 'i', 'c' };
@@ -207,24 +206,24 @@ static const symbol s_7_17[5] = { 'e', 'm', 'e', 'n', 't' };
207
206
 
208
207
  static const struct among a_7[18] =
209
208
  {
210
- /* 0 */ { 2, s_7_0, -1, 1, 0},
211
- /* 1 */ { 4, s_7_1, -1, 1, 0},
212
- /* 2 */ { 4, s_7_2, -1, 1, 0},
213
- /* 3 */ { 4, s_7_3, -1, 1, 0},
214
- /* 4 */ { 4, s_7_4, -1, 1, 0},
215
- /* 5 */ { 3, s_7_5, -1, 1, 0},
216
- /* 6 */ { 3, s_7_6, -1, 1, 0},
217
- /* 7 */ { 3, s_7_7, -1, 1, 0},
218
- /* 8 */ { 3, s_7_8, -1, 1, 0},
219
- /* 9 */ { 2, s_7_9, -1, 1, 0},
220
- /* 10 */ { 3, s_7_10, -1, 1, 0},
221
- /* 11 */ { 3, s_7_11, -1, 2, 0},
222
- /* 12 */ { 2, s_7_12, -1, 1, 0},
223
- /* 13 */ { 3, s_7_13, -1, 1, 0},
224
- /* 14 */ { 3, s_7_14, -1, 1, 0},
225
- /* 15 */ { 3, s_7_15, -1, 1, 0},
226
- /* 16 */ { 4, s_7_16, 15, 1, 0},
227
- /* 17 */ { 5, s_7_17, 16, 1, 0}
209
+ { 2, s_7_0, -1, 1, 0},
210
+ { 4, s_7_1, -1, 1, 0},
211
+ { 4, s_7_2, -1, 1, 0},
212
+ { 4, s_7_3, -1, 1, 0},
213
+ { 4, s_7_4, -1, 1, 0},
214
+ { 3, s_7_5, -1, 1, 0},
215
+ { 3, s_7_6, -1, 1, 0},
216
+ { 3, s_7_7, -1, 1, 0},
217
+ { 3, s_7_8, -1, 1, 0},
218
+ { 2, s_7_9, -1, 1, 0},
219
+ { 3, s_7_10, -1, 1, 0},
220
+ { 3, s_7_11, -1, 2, 0},
221
+ { 2, s_7_12, -1, 1, 0},
222
+ { 3, s_7_13, -1, 1, 0},
223
+ { 3, s_7_14, -1, 1, 0},
224
+ { 3, s_7_15, -1, 1, 0},
225
+ { 4, s_7_16, 15, 1, 0},
226
+ { 5, s_7_17, 16, 1, 0}
228
227
  };
229
228
 
230
229
  static const symbol s_8_0[1] = { 'e' };
@@ -232,8 +231,8 @@ static const symbol s_8_1[1] = { 'l' };
232
231
 
233
232
  static const struct among a_8[2] =
234
233
  {
235
- /* 0 */ { 1, s_8_0, -1, 1, 0},
236
- /* 1 */ { 1, s_8_1, -1, 2, 0}
234
+ { 1, s_8_0, -1, 1, 0},
235
+ { 1, s_8_1, -1, 2, 0}
237
236
  };
238
237
 
239
238
  static const symbol s_9_0[7] = { 's', 'u', 'c', 'c', 'e', 'e', 'd' };
@@ -247,14 +246,14 @@ static const symbol s_9_7[6] = { 'o', 'u', 't', 'i', 'n', 'g' };
247
246
 
248
247
  static const struct among a_9[8] =
249
248
  {
250
- /* 0 */ { 7, s_9_0, -1, -1, 0},
251
- /* 1 */ { 7, s_9_1, -1, -1, 0},
252
- /* 2 */ { 6, s_9_2, -1, -1, 0},
253
- /* 3 */ { 7, s_9_3, -1, -1, 0},
254
- /* 4 */ { 6, s_9_4, -1, -1, 0},
255
- /* 5 */ { 7, s_9_5, -1, -1, 0},
256
- /* 6 */ { 7, s_9_6, -1, -1, 0},
257
- /* 7 */ { 6, s_9_7, -1, -1, 0}
249
+ { 7, s_9_0, -1, -1, 0},
250
+ { 7, s_9_1, -1, -1, 0},
251
+ { 6, s_9_2, -1, -1, 0},
252
+ { 7, s_9_3, -1, -1, 0},
253
+ { 6, s_9_4, -1, -1, 0},
254
+ { 7, s_9_5, -1, -1, 0},
255
+ { 7, s_9_6, -1, -1, 0},
256
+ { 6, s_9_7, -1, -1, 0}
258
257
  };
259
258
 
260
259
  static const symbol s_10_0[5] = { 'a', 'n', 'd', 'e', 's' };
@@ -278,24 +277,24 @@ static const symbol s_10_17[4] = { 'u', 'g', 'l', 'y' };
278
277
 
279
278
  static const struct among a_10[18] =
280
279
  {
281
- /* 0 */ { 5, s_10_0, -1, -1, 0},
282
- /* 1 */ { 5, s_10_1, -1, -1, 0},
283
- /* 2 */ { 4, s_10_2, -1, -1, 0},
284
- /* 3 */ { 6, s_10_3, -1, -1, 0},
285
- /* 4 */ { 5, s_10_4, -1, 3, 0},
286
- /* 5 */ { 5, s_10_5, -1, 9, 0},
287
- /* 6 */ { 6, s_10_6, -1, 7, 0},
288
- /* 7 */ { 4, s_10_7, -1, -1, 0},
289
- /* 8 */ { 4, s_10_8, -1, 6, 0},
290
- /* 9 */ { 5, s_10_9, -1, 4, 0},
291
- /* 10 */ { 4, s_10_10, -1, -1, 0},
292
- /* 11 */ { 4, s_10_11, -1, 10, 0},
293
- /* 12 */ { 6, s_10_12, -1, 11, 0},
294
- /* 13 */ { 5, s_10_13, -1, 2, 0},
295
- /* 14 */ { 4, s_10_14, -1, 1, 0},
296
- /* 15 */ { 3, s_10_15, -1, -1, 0},
297
- /* 16 */ { 5, s_10_16, -1, 5, 0},
298
- /* 17 */ { 4, s_10_17, -1, 8, 0}
280
+ { 5, s_10_0, -1, -1, 0},
281
+ { 5, s_10_1, -1, -1, 0},
282
+ { 4, s_10_2, -1, -1, 0},
283
+ { 6, s_10_3, -1, -1, 0},
284
+ { 5, s_10_4, -1, 3, 0},
285
+ { 5, s_10_5, -1, 9, 0},
286
+ { 6, s_10_6, -1, 7, 0},
287
+ { 4, s_10_7, -1, -1, 0},
288
+ { 4, s_10_8, -1, 6, 0},
289
+ { 5, s_10_9, -1, 4, 0},
290
+ { 4, s_10_10, -1, -1, 0},
291
+ { 4, s_10_11, -1, 10, 0},
292
+ { 6, s_10_12, -1, 11, 0},
293
+ { 5, s_10_13, -1, 2, 0},
294
+ { 4, s_10_14, -1, 1, 0},
295
+ { 3, s_10_15, -1, -1, 0},
296
+ { 5, s_10_16, -1, 5, 0},
297
+ { 4, s_10_17, -1, 8, 0}
299
298
  };
300
299
 
301
300
  static const unsigned char g_v[] = { 17, 65, 16, 1 };
@@ -304,100 +303,92 @@ static const unsigned char g_v_WXY[] = { 1, 17, 65, 208, 1 };
304
303
 
305
304
  static const unsigned char g_valid_LI[] = { 55, 141, 2 };
306
305
 
307
- static const symbol s_0[] = { '\'' };
308
- static const symbol s_1[] = { 'y' };
309
- static const symbol s_2[] = { 'Y' };
310
- static const symbol s_3[] = { 'y' };
311
- static const symbol s_4[] = { 'Y' };
312
- static const symbol s_5[] = { 's', 's' };
313
- static const symbol s_6[] = { 'i' };
314
- static const symbol s_7[] = { 'i', 'e' };
315
- static const symbol s_8[] = { 'e', 'e' };
316
- static const symbol s_9[] = { 'e' };
317
- static const symbol s_10[] = { 'e' };
318
- static const symbol s_11[] = { 'y' };
319
- static const symbol s_12[] = { 'Y' };
320
- static const symbol s_13[] = { 'i' };
321
- static const symbol s_14[] = { 't', 'i', 'o', 'n' };
322
- static const symbol s_15[] = { 'e', 'n', 'c', 'e' };
323
- static const symbol s_16[] = { 'a', 'n', 'c', 'e' };
324
- static const symbol s_17[] = { 'a', 'b', 'l', 'e' };
325
- static const symbol s_18[] = { 'e', 'n', 't' };
326
- static const symbol s_19[] = { 'i', 'z', 'e' };
327
- static const symbol s_20[] = { 'a', 't', 'e' };
328
- static const symbol s_21[] = { 'a', 'l' };
329
- static const symbol s_22[] = { 'f', 'u', 'l' };
330
- static const symbol s_23[] = { 'o', 'u', 's' };
331
- static const symbol s_24[] = { 'i', 'v', 'e' };
332
- static const symbol s_25[] = { 'b', 'l', 'e' };
333
- static const symbol s_26[] = { 'l' };
334
- static const symbol s_27[] = { 'o', 'g' };
335
- static const symbol s_28[] = { 'f', 'u', 'l' };
336
- static const symbol s_29[] = { 'l', 'e', 's', 's' };
337
- static const symbol s_30[] = { 't', 'i', 'o', 'n' };
338
- static const symbol s_31[] = { 'a', 't', 'e' };
339
- static const symbol s_32[] = { 'a', 'l' };
340
- static const symbol s_33[] = { 'i', 'c' };
341
- static const symbol s_34[] = { 's' };
342
- static const symbol s_35[] = { 't' };
343
- static const symbol s_36[] = { 'l' };
344
- static const symbol s_37[] = { 's', 'k', 'i' };
345
- static const symbol s_38[] = { 's', 'k', 'y' };
346
- static const symbol s_39[] = { 'd', 'i', 'e' };
347
- static const symbol s_40[] = { 'l', 'i', 'e' };
348
- static const symbol s_41[] = { 't', 'i', 'e' };
349
- static const symbol s_42[] = { 'i', 'd', 'l' };
350
- static const symbol s_43[] = { 'g', 'e', 'n', 't', 'l' };
351
- static const symbol s_44[] = { 'u', 'g', 'l', 'i' };
352
- static const symbol s_45[] = { 'e', 'a', 'r', 'l', 'i' };
353
- static const symbol s_46[] = { 'o', 'n', 'l', 'i' };
354
- static const symbol s_47[] = { 's', 'i', 'n', 'g', 'l' };
355
- static const symbol s_48[] = { 'Y' };
356
- static const symbol s_49[] = { 'y' };
306
+ static const symbol s_0[] = { 'Y' };
307
+ static const symbol s_1[] = { 'Y' };
308
+ static const symbol s_2[] = { 's', 's' };
309
+ static const symbol s_3[] = { 'i' };
310
+ static const symbol s_4[] = { 'i', 'e' };
311
+ static const symbol s_5[] = { 'e', 'e' };
312
+ static const symbol s_6[] = { 'e' };
313
+ static const symbol s_7[] = { 'e' };
314
+ static const symbol s_8[] = { 'i' };
315
+ static const symbol s_9[] = { 't', 'i', 'o', 'n' };
316
+ static const symbol s_10[] = { 'e', 'n', 'c', 'e' };
317
+ static const symbol s_11[] = { 'a', 'n', 'c', 'e' };
318
+ static const symbol s_12[] = { 'a', 'b', 'l', 'e' };
319
+ static const symbol s_13[] = { 'e', 'n', 't' };
320
+ static const symbol s_14[] = { 'i', 'z', 'e' };
321
+ static const symbol s_15[] = { 'a', 't', 'e' };
322
+ static const symbol s_16[] = { 'a', 'l' };
323
+ static const symbol s_17[] = { 'f', 'u', 'l' };
324
+ static const symbol s_18[] = { 'o', 'u', 's' };
325
+ static const symbol s_19[] = { 'i', 'v', 'e' };
326
+ static const symbol s_20[] = { 'b', 'l', 'e' };
327
+ static const symbol s_21[] = { 'o', 'g' };
328
+ static const symbol s_22[] = { 'l', 'e', 's', 's' };
329
+ static const symbol s_23[] = { 't', 'i', 'o', 'n' };
330
+ static const symbol s_24[] = { 'a', 't', 'e' };
331
+ static const symbol s_25[] = { 'a', 'l' };
332
+ static const symbol s_26[] = { 'i', 'c' };
333
+ static const symbol s_27[] = { 's', 'k', 'i' };
334
+ static const symbol s_28[] = { 's', 'k', 'y' };
335
+ static const symbol s_29[] = { 'd', 'i', 'e' };
336
+ static const symbol s_30[] = { 'l', 'i', 'e' };
337
+ static const symbol s_31[] = { 't', 'i', 'e' };
338
+ static const symbol s_32[] = { 'i', 'd', 'l' };
339
+ static const symbol s_33[] = { 'g', 'e', 'n', 't', 'l' };
340
+ static const symbol s_34[] = { 'u', 'g', 'l', 'i' };
341
+ static const symbol s_35[] = { 'e', 'a', 'r', 'l', 'i' };
342
+ static const symbol s_36[] = { 'o', 'n', 'l', 'i' };
343
+ static const symbol s_37[] = { 's', 'i', 'n', 'g', 'l' };
344
+ static const symbol s_38[] = { 'y' };
357
345
 
358
346
  static int r_prelude(struct SN_env * z) {
359
- z->B[0] = 0; /* unset Y_found, line 26 */
360
- { int c1 = z->c; /* do, line 27 */
361
- z->bra = z->c; /* [, line 27 */
362
- if (!(eq_s(z, 1, s_0))) goto lab0;
363
- z->ket = z->c; /* ], line 27 */
364
- { int ret = slice_del(z); /* delete, line 27 */
347
+ z->I[2] = 0;
348
+ { int c1 = z->c;
349
+ z->bra = z->c;
350
+ if (z->c == z->l || z->p[z->c] != '\'') goto lab0;
351
+ z->c++;
352
+ z->ket = z->c;
353
+ { int ret = slice_del(z);
365
354
  if (ret < 0) return ret;
366
355
  }
367
356
  lab0:
368
357
  z->c = c1;
369
358
  }
370
- { int c2 = z->c; /* do, line 28 */
371
- z->bra = z->c; /* [, line 28 */
372
- if (!(eq_s(z, 1, s_1))) goto lab1;
373
- z->ket = z->c; /* ], line 28 */
374
- { int ret = slice_from_s(z, 1, s_2); /* <-, line 28 */
359
+ { int c2 = z->c;
360
+ z->bra = z->c;
361
+ if (z->c == z->l || z->p[z->c] != 'y') goto lab1;
362
+ z->c++;
363
+ z->ket = z->c;
364
+ { int ret = slice_from_s(z, 1, s_0);
375
365
  if (ret < 0) return ret;
376
366
  }
377
- z->B[0] = 1; /* set Y_found, line 28 */
367
+ z->I[2] = 1;
378
368
  lab1:
379
369
  z->c = c2;
380
370
  }
381
- { int c3 = z->c; /* do, line 29 */
382
- while(1) { /* repeat, line 29 */
371
+ { int c3 = z->c;
372
+ while(1) {
383
373
  int c4 = z->c;
384
- while(1) { /* goto, line 29 */
374
+ while(1) {
385
375
  int c5 = z->c;
386
376
  if (in_grouping(z, g_v, 97, 121, 0)) goto lab4;
387
- z->bra = z->c; /* [, line 29 */
388
- if (!(eq_s(z, 1, s_3))) goto lab4;
389
- z->ket = z->c; /* ], line 29 */
377
+ z->bra = z->c;
378
+ if (z->c == z->l || z->p[z->c] != 'y') goto lab4;
379
+ z->c++;
380
+ z->ket = z->c;
390
381
  z->c = c5;
391
382
  break;
392
383
  lab4:
393
384
  z->c = c5;
394
385
  if (z->c >= z->l) goto lab3;
395
- z->c++; /* goto, line 29 */
386
+ z->c++;
396
387
  }
397
- { int ret = slice_from_s(z, 1, s_4); /* <-, line 29 */
388
+ { int ret = slice_from_s(z, 1, s_1);
398
389
  if (ret < 0) return ret;
399
390
  }
400
- z->B[0] = 1; /* set Y_found, line 29 */
391
+ z->I[2] = 1;
401
392
  continue;
402
393
  lab3:
403
394
  z->c = c4;
@@ -409,39 +400,39 @@ static int r_prelude(struct SN_env * z) {
409
400
  }
410
401
 
411
402
  static int r_mark_regions(struct SN_env * z) {
412
- z->I[0] = z->l;
413
403
  z->I[1] = z->l;
414
- { int c1 = z->c; /* do, line 35 */
415
- { int c2 = z->c; /* or, line 41 */
404
+ z->I[0] = z->l;
405
+ { int c1 = z->c;
406
+ { int c2 = z->c;
416
407
  if (z->c + 4 >= z->l || z->p[z->c + 4] >> 5 != 3 || !((2375680 >> (z->p[z->c + 4] & 0x1f)) & 1)) goto lab2;
417
- if (!(find_among(z, a_0, 3))) goto lab2; /* among, line 36 */
408
+ if (!(find_among(z, a_0, 3))) goto lab2;
418
409
  goto lab1;
419
410
  lab2:
420
411
  z->c = c2;
421
- { /* gopast */ /* grouping v, line 41 */
412
+ {
422
413
  int ret = out_grouping(z, g_v, 97, 121, 1);
423
414
  if (ret < 0) goto lab0;
424
415
  z->c += ret;
425
416
  }
426
- { /* gopast */ /* non v, line 41 */
417
+ {
427
418
  int ret = in_grouping(z, g_v, 97, 121, 1);
428
419
  if (ret < 0) goto lab0;
429
420
  z->c += ret;
430
421
  }
431
422
  }
432
423
  lab1:
433
- z->I[0] = z->c; /* setmark p1, line 42 */
434
- { /* gopast */ /* grouping v, line 43 */
424
+ z->I[1] = z->c;
425
+ {
435
426
  int ret = out_grouping(z, g_v, 97, 121, 1);
436
427
  if (ret < 0) goto lab0;
437
428
  z->c += ret;
438
429
  }
439
- { /* gopast */ /* non v, line 43 */
430
+ {
440
431
  int ret = in_grouping(z, g_v, 97, 121, 1);
441
432
  if (ret < 0) goto lab0;
442
433
  z->c += ret;
443
434
  }
444
- z->I[1] = z->c; /* setmark p2, line 43 */
435
+ z->I[0] = z->c;
445
436
  lab0:
446
437
  z->c = c1;
447
438
  }
@@ -449,7 +440,7 @@ static int r_mark_regions(struct SN_env * z) {
449
440
  }
450
441
 
451
442
  static int r_shortv(struct SN_env * z) {
452
- { int m1 = z->l - z->c; (void)m1; /* or, line 51 */
443
+ { int m1 = z->l - z->c; (void)m1;
453
444
  if (out_grouping_b(z, g_v_WXY, 89, 121, 0)) goto lab1;
454
445
  if (in_grouping_b(z, g_v, 97, 121, 0)) goto lab1;
455
446
  if (out_grouping_b(z, g_v, 97, 121, 0)) goto lab1;
@@ -458,66 +449,57 @@ static int r_shortv(struct SN_env * z) {
458
449
  z->c = z->l - m1;
459
450
  if (out_grouping_b(z, g_v, 97, 121, 0)) return 0;
460
451
  if (in_grouping_b(z, g_v, 97, 121, 0)) return 0;
461
- if (z->c > z->lb) return 0; /* atlimit, line 52 */
452
+ if (z->c > z->lb) return 0;
462
453
  }
463
454
  lab0:
464
455
  return 1;
465
456
  }
466
457
 
467
458
  static int r_R1(struct SN_env * z) {
468
- if (!(z->I[0] <= z->c)) return 0;
459
+ if (!(z->I[1] <= z->c)) return 0;
469
460
  return 1;
470
461
  }
471
462
 
472
463
  static int r_R2(struct SN_env * z) {
473
- if (!(z->I[1] <= z->c)) return 0;
464
+ if (!(z->I[0] <= z->c)) return 0;
474
465
  return 1;
475
466
  }
476
467
 
477
468
  static int r_Step_1a(struct SN_env * z) {
478
469
  int among_var;
479
- { int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 59 */
480
- z->ket = z->c; /* [, line 60 */
481
- if (z->c <= z->lb || (z->p[z->c - 1] != 39 && z->p[z->c - 1] != 115)) { z->c = z->l - m_keep; goto lab0; }
482
- among_var = find_among_b(z, a_1, 3); /* substring, line 60 */
483
- if (!(among_var)) { z->c = z->l - m_keep; goto lab0; }
484
- z->bra = z->c; /* ], line 60 */
485
- switch(among_var) {
486
- case 0: { z->c = z->l - m_keep; goto lab0; }
487
- case 1:
488
- { int ret = slice_del(z); /* delete, line 62 */
489
- if (ret < 0) return ret;
490
- }
491
- break;
470
+ { int m1 = z->l - z->c; (void)m1;
471
+ z->ket = z->c;
472
+ if (z->c <= z->lb || (z->p[z->c - 1] != 39 && z->p[z->c - 1] != 115)) { z->c = z->l - m1; goto lab0; }
473
+ if (!(find_among_b(z, a_1, 3))) { z->c = z->l - m1; goto lab0; }
474
+ z->bra = z->c;
475
+ { int ret = slice_del(z);
476
+ if (ret < 0) return ret;
492
477
  }
493
478
  lab0:
494
479
  ;
495
480
  }
496
- z->ket = z->c; /* [, line 65 */
481
+ z->ket = z->c;
497
482
  if (z->c <= z->lb || (z->p[z->c - 1] != 100 && z->p[z->c - 1] != 115)) return 0;
498
- among_var = find_among_b(z, a_2, 6); /* substring, line 65 */
483
+ among_var = find_among_b(z, a_2, 6);
499
484
  if (!(among_var)) return 0;
500
- z->bra = z->c; /* ], line 65 */
501
- switch(among_var) {
502
- case 0: return 0;
485
+ z->bra = z->c;
486
+ switch (among_var) {
503
487
  case 1:
504
- { int ret = slice_from_s(z, 2, s_5); /* <-, line 66 */
488
+ { int ret = slice_from_s(z, 2, s_2);
505
489
  if (ret < 0) return ret;
506
490
  }
507
491
  break;
508
492
  case 2:
509
- { int m1 = z->l - z->c; (void)m1; /* or, line 68 */
510
- { int ret = z->c - 2;
511
- if (z->lb > ret || ret > z->l) goto lab2;
512
- z->c = ret; /* hop, line 68 */
513
- }
514
- { int ret = slice_from_s(z, 1, s_6); /* <-, line 68 */
493
+ { int m2 = z->l - z->c; (void)m2;
494
+ z->c = z->c - 2;
495
+ if (z->c < z->lb) goto lab2;
496
+ { int ret = slice_from_s(z, 1, s_3);
515
497
  if (ret < 0) return ret;
516
498
  }
517
499
  goto lab1;
518
500
  lab2:
519
- z->c = z->l - m1;
520
- { int ret = slice_from_s(z, 2, s_7); /* <-, line 68 */
501
+ z->c = z->l - m2;
502
+ { int ret = slice_from_s(z, 2, s_4);
521
503
  if (ret < 0) return ret;
522
504
  }
523
505
  }
@@ -525,13 +507,13 @@ static int r_Step_1a(struct SN_env * z) {
525
507
  break;
526
508
  case 3:
527
509
  if (z->c <= z->lb) return 0;
528
- z->c--; /* next, line 69 */
529
- { /* gopast */ /* grouping v, line 69 */
510
+ z->c--;
511
+ {
530
512
  int ret = out_grouping_b(z, g_v, 97, 121, 1);
531
513
  if (ret < 0) return 0;
532
514
  z->c -= ret;
533
515
  }
534
- { int ret = slice_del(z); /* delete, line 69 */
516
+ { int ret = slice_del(z);
535
517
  if (ret < 0) return ret;
536
518
  }
537
519
  break;
@@ -541,70 +523,70 @@ static int r_Step_1a(struct SN_env * z) {
541
523
 
542
524
  static int r_Step_1b(struct SN_env * z) {
543
525
  int among_var;
544
- z->ket = z->c; /* [, line 75 */
526
+ z->ket = z->c;
545
527
  if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((33554576 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
546
- among_var = find_among_b(z, a_4, 6); /* substring, line 75 */
528
+ among_var = find_among_b(z, a_4, 6);
547
529
  if (!(among_var)) return 0;
548
- z->bra = z->c; /* ], line 75 */
549
- switch(among_var) {
550
- case 0: return 0;
530
+ z->bra = z->c;
531
+ switch (among_var) {
551
532
  case 1:
552
533
  { int ret = r_R1(z);
553
- if (ret == 0) return 0; /* call R1, line 77 */
554
- if (ret < 0) return ret;
534
+ if (ret <= 0) return ret;
555
535
  }
556
- { int ret = slice_from_s(z, 2, s_8); /* <-, line 77 */
536
+ { int ret = slice_from_s(z, 2, s_5);
557
537
  if (ret < 0) return ret;
558
538
  }
559
539
  break;
560
540
  case 2:
561
- { int m_test = z->l - z->c; /* test, line 80 */
562
- { /* gopast */ /* grouping v, line 80 */
541
+ { int m_test1 = z->l - z->c;
542
+ {
563
543
  int ret = out_grouping_b(z, g_v, 97, 121, 1);
564
544
  if (ret < 0) return 0;
565
545
  z->c -= ret;
566
546
  }
567
- z->c = z->l - m_test;
547
+ z->c = z->l - m_test1;
568
548
  }
569
- { int ret = slice_del(z); /* delete, line 80 */
549
+ { int ret = slice_del(z);
570
550
  if (ret < 0) return ret;
571
551
  }
572
- { int m_test = z->l - z->c; /* test, line 81 */
552
+ { int m_test2 = z->l - z->c;
573
553
  if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((68514004 >> (z->p[z->c - 1] & 0x1f)) & 1)) among_var = 3; else
574
- among_var = find_among_b(z, a_3, 13); /* substring, line 81 */
554
+ among_var = find_among_b(z, a_3, 13);
575
555
  if (!(among_var)) return 0;
576
- z->c = z->l - m_test;
556
+ z->c = z->l - m_test2;
577
557
  }
578
- switch(among_var) {
579
- case 0: return 0;
558
+ switch (among_var) {
580
559
  case 1:
581
- { int c_keep = z->c;
582
- int ret = insert_s(z, z->c, z->c, 1, s_9); /* <+, line 83 */
583
- z->c = c_keep;
560
+ { int ret;
561
+ { int saved_c = z->c;
562
+ ret = insert_s(z, z->c, z->c, 1, s_6);
563
+ z->c = saved_c;
564
+ }
584
565
  if (ret < 0) return ret;
585
566
  }
586
567
  break;
587
568
  case 2:
588
- z->ket = z->c; /* [, line 86 */
569
+ z->ket = z->c;
589
570
  if (z->c <= z->lb) return 0;
590
- z->c--; /* next, line 86 */
591
- z->bra = z->c; /* ], line 86 */
592
- { int ret = slice_del(z); /* delete, line 86 */
571
+ z->c--;
572
+ z->bra = z->c;
573
+ { int ret = slice_del(z);
593
574
  if (ret < 0) return ret;
594
575
  }
595
576
  break;
596
577
  case 3:
597
- if (z->c != z->I[0]) return 0; /* atmark, line 87 */
598
- { int m_test = z->l - z->c; /* test, line 87 */
578
+ if (z->c != z->I[1]) return 0;
579
+ { int m_test3 = z->l - z->c;
599
580
  { int ret = r_shortv(z);
600
- if (ret == 0) return 0; /* call shortv, line 87 */
601
- if (ret < 0) return ret;
581
+ if (ret <= 0) return ret;
602
582
  }
603
- z->c = z->l - m_test;
583
+ z->c = z->l - m_test3;
604
584
  }
605
- { int c_keep = z->c;
606
- int ret = insert_s(z, z->c, z->c, 1, s_10); /* <+, line 87 */
607
- z->c = c_keep;
585
+ { int ret;
586
+ { int saved_c = z->c;
587
+ ret = insert_s(z, z->c, z->c, 1, s_7);
588
+ z->c = saved_c;
589
+ }
608
590
  if (ret < 0) return ret;
609
591
  }
610
592
  break;
@@ -615,24 +597,24 @@ static int r_Step_1b(struct SN_env * z) {
615
597
  }
616
598
 
617
599
  static int r_Step_1c(struct SN_env * z) {
618
- z->ket = z->c; /* [, line 94 */
619
- { int m1 = z->l - z->c; (void)m1; /* or, line 94 */
620
- if (!(eq_s_b(z, 1, s_11))) goto lab1;
600
+ z->ket = z->c;
601
+ { int m1 = z->l - z->c; (void)m1;
602
+ if (z->c <= z->lb || z->p[z->c - 1] != 'y') goto lab1;
603
+ z->c--;
621
604
  goto lab0;
622
605
  lab1:
623
606
  z->c = z->l - m1;
624
- if (!(eq_s_b(z, 1, s_12))) return 0;
607
+ if (z->c <= z->lb || z->p[z->c - 1] != 'Y') return 0;
608
+ z->c--;
625
609
  }
626
610
  lab0:
627
- z->bra = z->c; /* ], line 94 */
611
+ z->bra = z->c;
628
612
  if (out_grouping_b(z, g_v, 97, 121, 0)) return 0;
629
- { int m2 = z->l - z->c; (void)m2; /* not, line 95 */
630
- if (z->c > z->lb) goto lab2; /* atlimit, line 95 */
631
- return 0;
632
- lab2:
633
- z->c = z->l - m2;
634
- }
635
- { int ret = slice_from_s(z, 1, s_13); /* <-, line 96 */
613
+
614
+ if (z->c > z->lb) goto lab2;
615
+ return 0;
616
+ lab2:
617
+ { int ret = slice_from_s(z, 1, s_8);
636
618
  if (ret < 0) return ret;
637
619
  }
638
620
  return 1;
@@ -640,96 +622,90 @@ lab0:
640
622
 
641
623
  static int r_Step_2(struct SN_env * z) {
642
624
  int among_var;
643
- z->ket = z->c; /* [, line 100 */
625
+ z->ket = z->c;
644
626
  if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((815616 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
645
- among_var = find_among_b(z, a_5, 24); /* substring, line 100 */
627
+ among_var = find_among_b(z, a_5, 24);
646
628
  if (!(among_var)) return 0;
647
- z->bra = z->c; /* ], line 100 */
629
+ z->bra = z->c;
648
630
  { int ret = r_R1(z);
649
- if (ret == 0) return 0; /* call R1, line 100 */
650
- if (ret < 0) return ret;
631
+ if (ret <= 0) return ret;
651
632
  }
652
- switch(among_var) {
653
- case 0: return 0;
633
+ switch (among_var) {
654
634
  case 1:
655
- { int ret = slice_from_s(z, 4, s_14); /* <-, line 101 */
635
+ { int ret = slice_from_s(z, 4, s_9);
656
636
  if (ret < 0) return ret;
657
637
  }
658
638
  break;
659
639
  case 2:
660
- { int ret = slice_from_s(z, 4, s_15); /* <-, line 102 */
640
+ { int ret = slice_from_s(z, 4, s_10);
661
641
  if (ret < 0) return ret;
662
642
  }
663
643
  break;
664
644
  case 3:
665
- { int ret = slice_from_s(z, 4, s_16); /* <-, line 103 */
645
+ { int ret = slice_from_s(z, 4, s_11);
666
646
  if (ret < 0) return ret;
667
647
  }
668
648
  break;
669
649
  case 4:
670
- { int ret = slice_from_s(z, 4, s_17); /* <-, line 104 */
650
+ { int ret = slice_from_s(z, 4, s_12);
671
651
  if (ret < 0) return ret;
672
652
  }
673
653
  break;
674
654
  case 5:
675
- { int ret = slice_from_s(z, 3, s_18); /* <-, line 105 */
655
+ { int ret = slice_from_s(z, 3, s_13);
676
656
  if (ret < 0) return ret;
677
657
  }
678
658
  break;
679
659
  case 6:
680
- { int ret = slice_from_s(z, 3, s_19); /* <-, line 107 */
660
+ { int ret = slice_from_s(z, 3, s_14);
681
661
  if (ret < 0) return ret;
682
662
  }
683
663
  break;
684
664
  case 7:
685
- { int ret = slice_from_s(z, 3, s_20); /* <-, line 109 */
665
+ { int ret = slice_from_s(z, 3, s_15);
686
666
  if (ret < 0) return ret;
687
667
  }
688
668
  break;
689
669
  case 8:
690
- { int ret = slice_from_s(z, 2, s_21); /* <-, line 111 */
670
+ { int ret = slice_from_s(z, 2, s_16);
691
671
  if (ret < 0) return ret;
692
672
  }
693
673
  break;
694
674
  case 9:
695
- { int ret = slice_from_s(z, 3, s_22); /* <-, line 112 */
675
+ { int ret = slice_from_s(z, 3, s_17);
696
676
  if (ret < 0) return ret;
697
677
  }
698
678
  break;
699
679
  case 10:
700
- { int ret = slice_from_s(z, 3, s_23); /* <-, line 114 */
680
+ { int ret = slice_from_s(z, 3, s_18);
701
681
  if (ret < 0) return ret;
702
682
  }
703
683
  break;
704
684
  case 11:
705
- { int ret = slice_from_s(z, 3, s_24); /* <-, line 116 */
685
+ { int ret = slice_from_s(z, 3, s_19);
706
686
  if (ret < 0) return ret;
707
687
  }
708
688
  break;
709
689
  case 12:
710
- { int ret = slice_from_s(z, 3, s_25); /* <-, line 118 */
690
+ { int ret = slice_from_s(z, 3, s_20);
711
691
  if (ret < 0) return ret;
712
692
  }
713
693
  break;
714
694
  case 13:
715
- if (!(eq_s_b(z, 1, s_26))) return 0;
716
- { int ret = slice_from_s(z, 2, s_27); /* <-, line 119 */
695
+ if (z->c <= z->lb || z->p[z->c - 1] != 'l') return 0;
696
+ z->c--;
697
+ { int ret = slice_from_s(z, 2, s_21);
717
698
  if (ret < 0) return ret;
718
699
  }
719
700
  break;
720
701
  case 14:
721
- { int ret = slice_from_s(z, 3, s_28); /* <-, line 120 */
702
+ { int ret = slice_from_s(z, 4, s_22);
722
703
  if (ret < 0) return ret;
723
704
  }
724
705
  break;
725
706
  case 15:
726
- { int ret = slice_from_s(z, 4, s_29); /* <-, line 121 */
727
- if (ret < 0) return ret;
728
- }
729
- break;
730
- case 16:
731
707
  if (in_grouping_b(z, g_valid_LI, 99, 116, 0)) return 0;
732
- { int ret = slice_del(z); /* delete, line 122 */
708
+ { int ret = slice_del(z);
733
709
  if (ret < 0) return ret;
734
710
  }
735
711
  break;
@@ -739,48 +715,45 @@ static int r_Step_2(struct SN_env * z) {
739
715
 
740
716
  static int r_Step_3(struct SN_env * z) {
741
717
  int among_var;
742
- z->ket = z->c; /* [, line 127 */
718
+ z->ket = z->c;
743
719
  if (z->c - 2 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((528928 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
744
- among_var = find_among_b(z, a_6, 9); /* substring, line 127 */
720
+ among_var = find_among_b(z, a_6, 9);
745
721
  if (!(among_var)) return 0;
746
- z->bra = z->c; /* ], line 127 */
722
+ z->bra = z->c;
747
723
  { int ret = r_R1(z);
748
- if (ret == 0) return 0; /* call R1, line 127 */
749
- if (ret < 0) return ret;
724
+ if (ret <= 0) return ret;
750
725
  }
751
- switch(among_var) {
752
- case 0: return 0;
726
+ switch (among_var) {
753
727
  case 1:
754
- { int ret = slice_from_s(z, 4, s_30); /* <-, line 128 */
728
+ { int ret = slice_from_s(z, 4, s_23);
755
729
  if (ret < 0) return ret;
756
730
  }
757
731
  break;
758
732
  case 2:
759
- { int ret = slice_from_s(z, 3, s_31); /* <-, line 129 */
733
+ { int ret = slice_from_s(z, 3, s_24);
760
734
  if (ret < 0) return ret;
761
735
  }
762
736
  break;
763
737
  case 3:
764
- { int ret = slice_from_s(z, 2, s_32); /* <-, line 130 */
738
+ { int ret = slice_from_s(z, 2, s_25);
765
739
  if (ret < 0) return ret;
766
740
  }
767
741
  break;
768
742
  case 4:
769
- { int ret = slice_from_s(z, 2, s_33); /* <-, line 132 */
743
+ { int ret = slice_from_s(z, 2, s_26);
770
744
  if (ret < 0) return ret;
771
745
  }
772
746
  break;
773
747
  case 5:
774
- { int ret = slice_del(z); /* delete, line 134 */
748
+ { int ret = slice_del(z);
775
749
  if (ret < 0) return ret;
776
750
  }
777
751
  break;
778
752
  case 6:
779
753
  { int ret = r_R2(z);
780
- if (ret == 0) return 0; /* call R2, line 136 */
781
- if (ret < 0) return ret;
754
+ if (ret <= 0) return ret;
782
755
  }
783
- { int ret = slice_del(z); /* delete, line 136 */
756
+ { int ret = slice_del(z);
784
757
  if (ret < 0) return ret;
785
758
  }
786
759
  break;
@@ -790,32 +763,32 @@ static int r_Step_3(struct SN_env * z) {
790
763
 
791
764
  static int r_Step_4(struct SN_env * z) {
792
765
  int among_var;
793
- z->ket = z->c; /* [, line 141 */
766
+ z->ket = z->c;
794
767
  if (z->c - 1 <= z->lb || z->p[z->c - 1] >> 5 != 3 || !((1864232 >> (z->p[z->c - 1] & 0x1f)) & 1)) return 0;
795
- among_var = find_among_b(z, a_7, 18); /* substring, line 141 */
768
+ among_var = find_among_b(z, a_7, 18);
796
769
  if (!(among_var)) return 0;
797
- z->bra = z->c; /* ], line 141 */
770
+ z->bra = z->c;
798
771
  { int ret = r_R2(z);
799
- if (ret == 0) return 0; /* call R2, line 141 */
800
- if (ret < 0) return ret;
772
+ if (ret <= 0) return ret;
801
773
  }
802
- switch(among_var) {
803
- case 0: return 0;
774
+ switch (among_var) {
804
775
  case 1:
805
- { int ret = slice_del(z); /* delete, line 144 */
776
+ { int ret = slice_del(z);
806
777
  if (ret < 0) return ret;
807
778
  }
808
779
  break;
809
780
  case 2:
810
- { int m1 = z->l - z->c; (void)m1; /* or, line 145 */
811
- if (!(eq_s_b(z, 1, s_34))) goto lab1;
781
+ { int m1 = z->l - z->c; (void)m1;
782
+ if (z->c <= z->lb || z->p[z->c - 1] != 's') goto lab1;
783
+ z->c--;
812
784
  goto lab0;
813
785
  lab1:
814
786
  z->c = z->l - m1;
815
- if (!(eq_s_b(z, 1, s_35))) return 0;
787
+ if (z->c <= z->lb || z->p[z->c - 1] != 't') return 0;
788
+ z->c--;
816
789
  }
817
790
  lab0:
818
- { int ret = slice_del(z); /* delete, line 145 */
791
+ { int ret = slice_del(z);
819
792
  if (ret < 0) return ret;
820
793
  }
821
794
  break;
@@ -825,29 +798,27 @@ static int r_Step_4(struct SN_env * z) {
825
798
 
826
799
  static int r_Step_5(struct SN_env * z) {
827
800
  int among_var;
828
- z->ket = z->c; /* [, line 150 */
801
+ z->ket = z->c;
829
802
  if (z->c <= z->lb || (z->p[z->c - 1] != 101 && z->p[z->c - 1] != 108)) return 0;
830
- among_var = find_among_b(z, a_8, 2); /* substring, line 150 */
803
+ among_var = find_among_b(z, a_8, 2);
831
804
  if (!(among_var)) return 0;
832
- z->bra = z->c; /* ], line 150 */
833
- switch(among_var) {
834
- case 0: return 0;
805
+ z->bra = z->c;
806
+ switch (among_var) {
835
807
  case 1:
836
- { int m1 = z->l - z->c; (void)m1; /* or, line 151 */
808
+ { int m1 = z->l - z->c; (void)m1;
837
809
  { int ret = r_R2(z);
838
- if (ret == 0) goto lab1; /* call R2, line 151 */
810
+ if (ret == 0) goto lab1;
839
811
  if (ret < 0) return ret;
840
812
  }
841
813
  goto lab0;
842
814
  lab1:
843
815
  z->c = z->l - m1;
844
816
  { int ret = r_R1(z);
845
- if (ret == 0) return 0; /* call R1, line 151 */
846
- if (ret < 0) return ret;
817
+ if (ret <= 0) return ret;
847
818
  }
848
- { int m2 = z->l - z->c; (void)m2; /* not, line 151 */
819
+ { int m2 = z->l - z->c; (void)m2;
849
820
  { int ret = r_shortv(z);
850
- if (ret == 0) goto lab2; /* call shortv, line 151 */
821
+ if (ret == 0) goto lab2;
851
822
  if (ret < 0) return ret;
852
823
  }
853
824
  return 0;
@@ -856,17 +827,17 @@ static int r_Step_5(struct SN_env * z) {
856
827
  }
857
828
  }
858
829
  lab0:
859
- { int ret = slice_del(z); /* delete, line 151 */
830
+ { int ret = slice_del(z);
860
831
  if (ret < 0) return ret;
861
832
  }
862
833
  break;
863
834
  case 2:
864
835
  { int ret = r_R2(z);
865
- if (ret == 0) return 0; /* call R2, line 152 */
866
- if (ret < 0) return ret;
836
+ if (ret <= 0) return ret;
867
837
  }
868
- if (!(eq_s_b(z, 1, s_36))) return 0;
869
- { int ret = slice_del(z); /* delete, line 152 */
838
+ if (z->c <= z->lb || z->p[z->c - 1] != 'l') return 0;
839
+ z->c--;
840
+ { int ret = slice_del(z);
870
841
  if (ret < 0) return ret;
871
842
  }
872
843
  break;
@@ -875,76 +846,75 @@ static int r_Step_5(struct SN_env * z) {
875
846
  }
876
847
 
877
848
  static int r_exception2(struct SN_env * z) {
878
- z->ket = z->c; /* [, line 158 */
849
+ z->ket = z->c;
879
850
  if (z->c - 5 <= z->lb || (z->p[z->c - 1] != 100 && z->p[z->c - 1] != 103)) return 0;
880
- if (!(find_among_b(z, a_9, 8))) return 0; /* substring, line 158 */
881
- z->bra = z->c; /* ], line 158 */
882
- if (z->c > z->lb) return 0; /* atlimit, line 158 */
851
+ if (!(find_among_b(z, a_9, 8))) return 0;
852
+ z->bra = z->c;
853
+ if (z->c > z->lb) return 0;
883
854
  return 1;
884
855
  }
885
856
 
886
857
  static int r_exception1(struct SN_env * z) {
887
858
  int among_var;
888
- z->bra = z->c; /* [, line 170 */
859
+ z->bra = z->c;
889
860
  if (z->c + 2 >= z->l || z->p[z->c + 2] >> 5 != 3 || !((42750482 >> (z->p[z->c + 2] & 0x1f)) & 1)) return 0;
890
- among_var = find_among(z, a_10, 18); /* substring, line 170 */
861
+ among_var = find_among(z, a_10, 18);
891
862
  if (!(among_var)) return 0;
892
- z->ket = z->c; /* ], line 170 */
893
- if (z->c < z->l) return 0; /* atlimit, line 170 */
894
- switch(among_var) {
895
- case 0: return 0;
863
+ z->ket = z->c;
864
+ if (z->c < z->l) return 0;
865
+ switch (among_var) {
896
866
  case 1:
897
- { int ret = slice_from_s(z, 3, s_37); /* <-, line 174 */
867
+ { int ret = slice_from_s(z, 3, s_27);
898
868
  if (ret < 0) return ret;
899
869
  }
900
870
  break;
901
871
  case 2:
902
- { int ret = slice_from_s(z, 3, s_38); /* <-, line 175 */
872
+ { int ret = slice_from_s(z, 3, s_28);
903
873
  if (ret < 0) return ret;
904
874
  }
905
875
  break;
906
876
  case 3:
907
- { int ret = slice_from_s(z, 3, s_39); /* <-, line 176 */
877
+ { int ret = slice_from_s(z, 3, s_29);
908
878
  if (ret < 0) return ret;
909
879
  }
910
880
  break;
911
881
  case 4:
912
- { int ret = slice_from_s(z, 3, s_40); /* <-, line 177 */
882
+ { int ret = slice_from_s(z, 3, s_30);
913
883
  if (ret < 0) return ret;
914
884
  }
915
885
  break;
916
886
  case 5:
917
- { int ret = slice_from_s(z, 3, s_41); /* <-, line 178 */
887
+ { int ret = slice_from_s(z, 3, s_31);
918
888
  if (ret < 0) return ret;
919
889
  }
920
890
  break;
921
891
  case 6:
922
- { int ret = slice_from_s(z, 3, s_42); /* <-, line 182 */
892
+ { int ret = slice_from_s(z, 3, s_32);
923
893
  if (ret < 0) return ret;
924
894
  }
925
895
  break;
926
896
  case 7:
927
- { int ret = slice_from_s(z, 5, s_43); /* <-, line 183 */
897
+ { int ret = slice_from_s(z, 5, s_33);
928
898
  if (ret < 0) return ret;
929
899
  }
930
900
  break;
931
901
  case 8:
932
- { int ret = slice_from_s(z, 4, s_44); /* <-, line 184 */
902
+ { int ret = slice_from_s(z, 4, s_34);
933
903
  if (ret < 0) return ret;
934
904
  }
935
905
  break;
936
906
  case 9:
937
- { int ret = slice_from_s(z, 5, s_45); /* <-, line 185 */
907
+ { int ret = slice_from_s(z, 5, s_35);
938
908
  if (ret < 0) return ret;
939
909
  }
940
910
  break;
941
911
  case 10:
942
- { int ret = slice_from_s(z, 4, s_46); /* <-, line 186 */
912
+ { int ret = slice_from_s(z, 4, s_36);
943
913
  if (ret < 0) return ret;
944
914
  }
945
915
  break;
946
916
  case 11:
947
- { int ret = slice_from_s(z, 5, s_47); /* <-, line 187 */
917
+ { int ret = slice_from_s(z, 5, s_37);
948
918
  if (ret < 0) return ret;
949
919
  }
950
920
  break;
@@ -953,22 +923,23 @@ static int r_exception1(struct SN_env * z) {
953
923
  }
954
924
 
955
925
  static int r_postlude(struct SN_env * z) {
956
- if (!(z->B[0])) return 0; /* Boolean test Y_found, line 203 */
957
- while(1) { /* repeat, line 203 */
926
+ if (!(z->I[2])) return 0;
927
+ while(1) {
958
928
  int c1 = z->c;
959
- while(1) { /* goto, line 203 */
929
+ while(1) {
960
930
  int c2 = z->c;
961
- z->bra = z->c; /* [, line 203 */
962
- if (!(eq_s(z, 1, s_48))) goto lab1;
963
- z->ket = z->c; /* ], line 203 */
931
+ z->bra = z->c;
932
+ if (z->c == z->l || z->p[z->c] != 'Y') goto lab1;
933
+ z->c++;
934
+ z->ket = z->c;
964
935
  z->c = c2;
965
936
  break;
966
937
  lab1:
967
938
  z->c = c2;
968
939
  if (z->c >= z->l) goto lab0;
969
- z->c++; /* goto, line 203 */
940
+ z->c++;
970
941
  }
971
- { int ret = slice_from_s(z, 1, s_49); /* <-, line 203 */
942
+ { int ret = slice_from_s(z, 1, s_38);
972
943
  if (ret < 0) return ret;
973
944
  }
974
945
  continue;
@@ -980,19 +951,17 @@ static int r_postlude(struct SN_env * z) {
980
951
  }
981
952
 
982
953
  extern int english_ISO_8859_1_stem(struct SN_env * z) {
983
- { int c1 = z->c; /* or, line 207 */
954
+ { int c1 = z->c;
984
955
  { int ret = r_exception1(z);
985
- if (ret == 0) goto lab1; /* call exception1, line 207 */
956
+ if (ret == 0) goto lab1;
986
957
  if (ret < 0) return ret;
987
958
  }
988
959
  goto lab0;
989
960
  lab1:
990
961
  z->c = c1;
991
- { int c2 = z->c; /* not, line 208 */
992
- { int ret = z->c + 3;
993
- if (0 > ret || ret > z->l) goto lab3;
994
- z->c = ret; /* hop, line 208 */
995
- }
962
+ { int c2 = z->c;
963
+ z->c = z->c + 3;
964
+ if (z->c > z->l) goto lab3;
996
965
  goto lab2;
997
966
  lab3:
998
967
  z->c = c2;
@@ -1000,105 +969,81 @@ extern int english_ISO_8859_1_stem(struct SN_env * z) {
1000
969
  goto lab0;
1001
970
  lab2:
1002
971
  z->c = c1;
1003
- { int c3 = z->c; /* do, line 209 */
1004
- { int ret = r_prelude(z);
1005
- if (ret == 0) goto lab4; /* call prelude, line 209 */
1006
- if (ret < 0) return ret;
1007
- }
1008
- lab4:
1009
- z->c = c3;
972
+
973
+ { int ret = r_prelude(z);
974
+ if (ret < 0) return ret;
1010
975
  }
1011
- { int c4 = z->c; /* do, line 210 */
1012
- { int ret = r_mark_regions(z);
1013
- if (ret == 0) goto lab5; /* call mark_regions, line 210 */
1014
- if (ret < 0) return ret;
1015
- }
1016
- lab5:
1017
- z->c = c4;
976
+
977
+ { int ret = r_mark_regions(z);
978
+ if (ret < 0) return ret;
1018
979
  }
1019
- z->lb = z->c; z->c = z->l; /* backwards, line 211 */
980
+ z->lb = z->c; z->c = z->l;
1020
981
 
1021
- { int m5 = z->l - z->c; (void)m5; /* do, line 213 */
982
+ { int m3 = z->l - z->c; (void)m3;
1022
983
  { int ret = r_Step_1a(z);
1023
- if (ret == 0) goto lab6; /* call Step_1a, line 213 */
1024
984
  if (ret < 0) return ret;
1025
985
  }
1026
- lab6:
1027
- z->c = z->l - m5;
986
+ z->c = z->l - m3;
1028
987
  }
1029
- { int m6 = z->l - z->c; (void)m6; /* or, line 215 */
988
+ { int m4 = z->l - z->c; (void)m4;
1030
989
  { int ret = r_exception2(z);
1031
- if (ret == 0) goto lab8; /* call exception2, line 215 */
990
+ if (ret == 0) goto lab5;
1032
991
  if (ret < 0) return ret;
1033
992
  }
1034
- goto lab7;
1035
- lab8:
1036
- z->c = z->l - m6;
1037
- { int m7 = z->l - z->c; (void)m7; /* do, line 217 */
993
+ goto lab4;
994
+ lab5:
995
+ z->c = z->l - m4;
996
+ { int m5 = z->l - z->c; (void)m5;
1038
997
  { int ret = r_Step_1b(z);
1039
- if (ret == 0) goto lab9; /* call Step_1b, line 217 */
1040
998
  if (ret < 0) return ret;
1041
999
  }
1042
- lab9:
1043
- z->c = z->l - m7;
1000
+ z->c = z->l - m5;
1044
1001
  }
1045
- { int m8 = z->l - z->c; (void)m8; /* do, line 218 */
1002
+ { int m6 = z->l - z->c; (void)m6;
1046
1003
  { int ret = r_Step_1c(z);
1047
- if (ret == 0) goto lab10; /* call Step_1c, line 218 */
1048
1004
  if (ret < 0) return ret;
1049
1005
  }
1050
- lab10:
1051
- z->c = z->l - m8;
1006
+ z->c = z->l - m6;
1052
1007
  }
1053
- { int m9 = z->l - z->c; (void)m9; /* do, line 220 */
1008
+ { int m7 = z->l - z->c; (void)m7;
1054
1009
  { int ret = r_Step_2(z);
1055
- if (ret == 0) goto lab11; /* call Step_2, line 220 */
1056
1010
  if (ret < 0) return ret;
1057
1011
  }
1058
- lab11:
1059
- z->c = z->l - m9;
1012
+ z->c = z->l - m7;
1060
1013
  }
1061
- { int m10 = z->l - z->c; (void)m10; /* do, line 221 */
1014
+ { int m8 = z->l - z->c; (void)m8;
1062
1015
  { int ret = r_Step_3(z);
1063
- if (ret == 0) goto lab12; /* call Step_3, line 221 */
1064
1016
  if (ret < 0) return ret;
1065
1017
  }
1066
- lab12:
1067
- z->c = z->l - m10;
1018
+ z->c = z->l - m8;
1068
1019
  }
1069
- { int m11 = z->l - z->c; (void)m11; /* do, line 222 */
1020
+ { int m9 = z->l - z->c; (void)m9;
1070
1021
  { int ret = r_Step_4(z);
1071
- if (ret == 0) goto lab13; /* call Step_4, line 222 */
1072
1022
  if (ret < 0) return ret;
1073
1023
  }
1074
- lab13:
1075
- z->c = z->l - m11;
1024
+ z->c = z->l - m9;
1076
1025
  }
1077
- { int m12 = z->l - z->c; (void)m12; /* do, line 224 */
1026
+ { int m10 = z->l - z->c; (void)m10;
1078
1027
  { int ret = r_Step_5(z);
1079
- if (ret == 0) goto lab14; /* call Step_5, line 224 */
1080
1028
  if (ret < 0) return ret;
1081
1029
  }
1082
- lab14:
1083
- z->c = z->l - m12;
1030
+ z->c = z->l - m10;
1084
1031
  }
1085
1032
  }
1086
- lab7:
1033
+ lab4:
1087
1034
  z->c = z->lb;
1088
- { int c13 = z->c; /* do, line 227 */
1035
+ { int c11 = z->c;
1089
1036
  { int ret = r_postlude(z);
1090
- if (ret == 0) goto lab15; /* call postlude, line 227 */
1091
1037
  if (ret < 0) return ret;
1092
1038
  }
1093
- lab15:
1094
- z->c = c13;
1039
+ z->c = c11;
1095
1040
  }
1096
1041
  }
1097
1042
  lab0:
1098
1043
  return 1;
1099
1044
  }
1100
1045
 
1101
- extern struct SN_env * english_ISO_8859_1_create_env(void) { return SN_create_env(0, 2, 1); }
1046
+ extern struct SN_env * english_ISO_8859_1_create_env(void) { return SN_create_env(0, 3); }
1102
1047
 
1103
1048
  extern void english_ISO_8859_1_close_env(struct SN_env * z) { SN_close_env(z, 0); }
1104
1049