TraceLab Component Library
 All Classes Namespaces Files Functions Variables Enumerations Enumerator Properties
RomanianStemmer.cs
Go to the documentation of this file.
1 /*
2  * Port of Snowball stemmers on C#
3  * Original stemmers can be found on http://snowball.tartarus.org
4  * Licence still BSD: http://snowball.tartarus.org/license.php
5  *
6  * Most of stemmers are ported from Java by Iveonik Systems ltd. (www.iveonik.com)
7  */
8 using System;
9 using System.Collections.Generic;
10 using System.Text;
11 
12 namespace TraceLab.Components.DevelopmentKit.Preprocessors.Stemmers.Snowball.Languages
13 {
17  public class RomanianStemmer : StemmerOperations, ISnowballStemmer
18  {
19  private readonly static RomanianStemmer methodObject = new RomanianStemmer();
20 
21  private readonly static Among[] a_0 = {
22  new Among ( "", -1, 3, null ),
23  new Among ( "I", 0, 1, null ),
24  new Among ( "U", 0, 2, null )
25  };
26 
27  private readonly static Among[] a_1 = {
28  new Among ( "ea", -1, 3, null ),
29  new Among ( "a\u0163ia", -1, 7, null ),
30  new Among ( "aua", -1, 2, null ),
31  new Among ( "iua", -1, 4, null ),
32  new Among ( "a\u0163ie", -1, 7, null ),
33  new Among ( "ele", -1, 3, null ),
34  new Among ( "ile", -1, 5, null ),
35  new Among ( "iile", 6, 4, null ),
36  new Among ( "iei", -1, 4, null ),
37  new Among ( "atei", -1, 6, null ),
38  new Among ( "ii", -1, 4, null ),
39  new Among ( "ului", -1, 1, null ),
40  new Among ( "ul", -1, 1, null ),
41  new Among ( "elor", -1, 3, null ),
42  new Among ( "ilor", -1, 4, null ),
43  new Among ( "iilor", 14, 4, null )
44  };
45 
46  private readonly static Among[] a_2 = {
47  new Among ( "icala", -1, 4, null ),
48  new Among ( "iciva", -1, 4, null ),
49  new Among ( "ativa", -1, 5, null ),
50  new Among ( "itiva", -1, 6, null ),
51  new Among ( "icale", -1, 4, null ),
52  new Among ( "a\u0163iune", -1, 5, null ),
53  new Among ( "i\u0163iune", -1, 6, null ),
54  new Among ( "atoare", -1, 5, null ),
55  new Among ( "itoare", -1, 6, null ),
56  new Among ( "\u0103toare", -1, 5, null ),
57  new Among ( "icitate", -1, 4, null ),
58  new Among ( "abilitate", -1, 1, null ),
59  new Among ( "ibilitate", -1, 2, null ),
60  new Among ( "ivitate", -1, 3, null ),
61  new Among ( "icive", -1, 4, null ),
62  new Among ( "ative", -1, 5, null ),
63  new Among ( "itive", -1, 6, null ),
64  new Among ( "icali", -1, 4, null ),
65  new Among ( "atori", -1, 5, null ),
66  new Among ( "icatori", 18, 4, null ),
67  new Among ( "itori", -1, 6, null ),
68  new Among ( "\u0103tori", -1, 5, null ),
69  new Among ( "icitati", -1, 4, null ),
70  new Among ( "abilitati", -1, 1, null ),
71  new Among ( "ivitati", -1, 3, null ),
72  new Among ( "icivi", -1, 4, null ),
73  new Among ( "ativi", -1, 5, null ),
74  new Among ( "itivi", -1, 6, null ),
75  new Among ( "icit\u0103i", -1, 4, null ),
76  new Among ( "abilit\u0103i", -1, 1, null ),
77  new Among ( "ivit\u0103i", -1, 3, null ),
78  new Among ( "icit\u0103\u0163i", -1, 4, null ),
79  new Among ( "abilit\u0103\u0163i", -1, 1, null ),
80  new Among ( "ivit\u0103\u0163i", -1, 3, null ),
81  new Among ( "ical", -1, 4, null ),
82  new Among ( "ator", -1, 5, null ),
83  new Among ( "icator", 35, 4, null ),
84  new Among ( "itor", -1, 6, null ),
85  new Among ( "\u0103tor", -1, 5, null ),
86  new Among ( "iciv", -1, 4, null ),
87  new Among ( "ativ", -1, 5, null ),
88  new Among ( "itiv", -1, 6, null ),
89  new Among ( "ical\u0103", -1, 4, null ),
90  new Among ( "iciv\u0103", -1, 4, null ),
91  new Among ( "ativ\u0103", -1, 5, null ),
92  new Among ( "itiv\u0103", -1, 6, null )
93  };
94 
95  private readonly static Among[] a_3 = {
96  new Among ( "ica", -1, 1, null ),
97  new Among ( "abila", -1, 1, null ),
98  new Among ( "ibila", -1, 1, null ),
99  new Among ( "oasa", -1, 1, null ),
100  new Among ( "ata", -1, 1, null ),
101  new Among ( "ita", -1, 1, null ),
102  new Among ( "anta", -1, 1, null ),
103  new Among ( "ista", -1, 3, null ),
104  new Among ( "uta", -1, 1, null ),
105  new Among ( "iva", -1, 1, null ),
106  new Among ( "ic", -1, 1, null ),
107  new Among ( "ice", -1, 1, null ),
108  new Among ( "abile", -1, 1, null ),
109  new Among ( "ibile", -1, 1, null ),
110  new Among ( "isme", -1, 3, null ),
111  new Among ( "iune", -1, 2, null ),
112  new Among ( "oase", -1, 1, null ),
113  new Among ( "ate", -1, 1, null ),
114  new Among ( "itate", 17, 1, null ),
115  new Among ( "ite", -1, 1, null ),
116  new Among ( "ante", -1, 1, null ),
117  new Among ( "iste", -1, 3, null ),
118  new Among ( "ute", -1, 1, null ),
119  new Among ( "ive", -1, 1, null ),
120  new Among ( "ici", -1, 1, null ),
121  new Among ( "abili", -1, 1, null ),
122  new Among ( "ibili", -1, 1, null ),
123  new Among ( "iuni", -1, 2, null ),
124  new Among ( "atori", -1, 1, null ),
125  new Among ( "osi", -1, 1, null ),
126  new Among ( "ati", -1, 1, null ),
127  new Among ( "itati", 30, 1, null ),
128  new Among ( "iti", -1, 1, null ),
129  new Among ( "anti", -1, 1, null ),
130  new Among ( "isti", -1, 3, null ),
131  new Among ( "uti", -1, 1, null ),
132  new Among ( "i\u015Fti", -1, 3, null ),
133  new Among ( "ivi", -1, 1, null ),
134  new Among ( "it\u0103i", -1, 1, null ),
135  new Among ( "o\u015Fi", -1, 1, null ),
136  new Among ( "it\u0103\u0163i", -1, 1, null ),
137  new Among ( "abil", -1, 1, null ),
138  new Among ( "ibil", -1, 1, null ),
139  new Among ( "ism", -1, 3, null ),
140  new Among ( "ator", -1, 1, null ),
141  new Among ( "os", -1, 1, null ),
142  new Among ( "at", -1, 1, null ),
143  new Among ( "it", -1, 1, null ),
144  new Among ( "ant", -1, 1, null ),
145  new Among ( "ist", -1, 3, null ),
146  new Among ( "ut", -1, 1, null ),
147  new Among ( "iv", -1, 1, null ),
148  new Among ( "ic\u0103", -1, 1, null ),
149  new Among ( "abil\u0103", -1, 1, null ),
150  new Among ( "ibil\u0103", -1, 1, null ),
151  new Among ( "oas\u0103", -1, 1, null ),
152  new Among ( "at\u0103", -1, 1, null ),
153  new Among ( "it\u0103", -1, 1, null ),
154  new Among ( "ant\u0103", -1, 1, null ),
155  new Among ( "ist\u0103", -1, 3, null ),
156  new Among ( "ut\u0103", -1, 1, null ),
157  new Among ( "iv\u0103", -1, 1, null )
158  };
159 
160  private readonly static Among[] a_4 = {
161  new Among ( "ea", -1, 1, null ),
162  new Among ( "ia", -1, 1, null ),
163  new Among ( "esc", -1, 1, null ),
164  new Among ( "\u0103sc", -1, 1, null ),
165  new Among ( "ind", -1, 1, null ),
166  new Among ( "\u00E2nd", -1, 1, null ),
167  new Among ( "are", -1, 1, null ),
168  new Among ( "ere", -1, 1, null ),
169  new Among ( "ire", -1, 1, null ),
170  new Among ( "\u00E2re", -1, 1, null ),
171  new Among ( "se", -1, 2, null ),
172  new Among ( "ase", 10, 1, null ),
173  new Among ( "sese", 10, 2, null ),
174  new Among ( "ise", 10, 1, null ),
175  new Among ( "use", 10, 1, null ),
176  new Among ( "\u00E2se", 10, 1, null ),
177  new Among ( "e\u015Fte", -1, 1, null ),
178  new Among ( "\u0103\u015Fte", -1, 1, null ),
179  new Among ( "eze", -1, 1, null ),
180  new Among ( "ai", -1, 1, null ),
181  new Among ( "eai", 19, 1, null ),
182  new Among ( "iai", 19, 1, null ),
183  new Among ( "sei", -1, 2, null ),
184  new Among ( "e\u015Fti", -1, 1, null ),
185  new Among ( "\u0103\u015Fti", -1, 1, null ),
186  new Among ( "ui", -1, 1, null ),
187  new Among ( "ezi", -1, 1, null ),
188  new Among ( "\u00E2i", -1, 1, null ),
189  new Among ( "a\u015Fi", -1, 1, null ),
190  new Among ( "se\u015Fi", -1, 2, null ),
191  new Among ( "ase\u015Fi", 29, 1, null ),
192  new Among ( "sese\u015Fi", 29, 2, null ),
193  new Among ( "ise\u015Fi", 29, 1, null ),
194  new Among ( "use\u015Fi", 29, 1, null ),
195  new Among ( "\u00E2se\u015Fi", 29, 1, null ),
196  new Among ( "i\u015Fi", -1, 1, null ),
197  new Among ( "u\u015Fi", -1, 1, null ),
198  new Among ( "\u00E2\u015Fi", -1, 1, null ),
199  new Among ( "a\u0163i", -1, 2, null ),
200  new Among ( "ea\u0163i", 38, 1, null ),
201  new Among ( "ia\u0163i", 38, 1, null ),
202  new Among ( "e\u0163i", -1, 2, null ),
203  new Among ( "i\u0163i", -1, 2, null ),
204  new Among ( "\u00E2\u0163i", -1, 2, null ),
205  new Among ( "ar\u0103\u0163i", -1, 1, null ),
206  new Among ( "ser\u0103\u0163i", -1, 2, null ),
207  new Among ( "aser\u0103\u0163i", 45, 1, null ),
208  new Among ( "seser\u0103\u0163i", 45, 2, null ),
209  new Among ( "iser\u0103\u0163i", 45, 1, null ),
210  new Among ( "user\u0103\u0163i", 45, 1, null ),
211  new Among ( "\u00E2ser\u0103\u0163i", 45, 1, null ),
212  new Among ( "ir\u0103\u0163i", -1, 1, null ),
213  new Among ( "ur\u0103\u0163i", -1, 1, null ),
214  new Among ( "\u00E2r\u0103\u0163i", -1, 1, null ),
215  new Among ( "am", -1, 1, null ),
216  new Among ( "eam", 54, 1, null ),
217  new Among ( "iam", 54, 1, null ),
218  new Among ( "em", -1, 2, null ),
219  new Among ( "asem", 57, 1, null ),
220  new Among ( "sesem", 57, 2, null ),
221  new Among ( "isem", 57, 1, null ),
222  new Among ( "usem", 57, 1, null ),
223  new Among ( "\u00E2sem", 57, 1, null ),
224  new Among ( "im", -1, 2, null ),
225  new Among ( "\u00E2m", -1, 2, null ),
226  new Among ( "\u0103m", -1, 2, null ),
227  new Among ( "ar\u0103m", 65, 1, null ),
228  new Among ( "ser\u0103m", 65, 2, null ),
229  new Among ( "aser\u0103m", 67, 1, null ),
230  new Among ( "seser\u0103m", 67, 2, null ),
231  new Among ( "iser\u0103m", 67, 1, null ),
232  new Among ( "user\u0103m", 67, 1, null ),
233  new Among ( "\u00E2ser\u0103m", 67, 1, null ),
234  new Among ( "ir\u0103m", 65, 1, null ),
235  new Among ( "ur\u0103m", 65, 1, null ),
236  new Among ( "\u00E2r\u0103m", 65, 1, null ),
237  new Among ( "au", -1, 1, null ),
238  new Among ( "eau", 76, 1, null ),
239  new Among ( "iau", 76, 1, null ),
240  new Among ( "indu", -1, 1, null ),
241  new Among ( "\u00E2ndu", -1, 1, null ),
242  new Among ( "ez", -1, 1, null ),
243  new Among ( "easc\u0103", -1, 1, null ),
244  new Among ( "ar\u0103", -1, 1, null ),
245  new Among ( "ser\u0103", -1, 2, null ),
246  new Among ( "aser\u0103", 84, 1, null ),
247  new Among ( "seser\u0103", 84, 2, null ),
248  new Among ( "iser\u0103", 84, 1, null ),
249  new Among ( "user\u0103", 84, 1, null ),
250  new Among ( "\u00E2ser\u0103", 84, 1, null ),
251  new Among ( "ir\u0103", -1, 1, null ),
252  new Among ( "ur\u0103", -1, 1, null ),
253  new Among ( "\u00E2r\u0103", -1, 1, null ),
254  new Among ( "eaz\u0103", -1, 1, null )
255  };
256 
257  private readonly static Among[] a_5 = {
258  new Among ( "a", -1, 1, null ),
259  new Among ( "e", -1, 1, null ),
260  new Among ( "ie", 1, 1, null ),
261  new Among ( "i", -1, 1, null ),
262  new Among ( "\u0103", -1, 1, null )
263  };
264 
265  private static readonly char[] g_v = {(char)17, (char)65, (char)16, (char)0, (char)0, (char)0,
266  (char)0,(char) 0, (char)0, (char)0, (char)0, (char)0,
267  (char)0, (char)0, (char)0, (char)0, (char)2, (char)32,
268  (char)0, (char)0, (char)4 };
269 
270  private bool B_standard_suffix_removed;
271  private int I_p2;
272  private int I_p1;
273  private int I_pV;
274 
275 
276  private void copy_from(RomanianStemmer other)
277  {
278  B_standard_suffix_removed = other.B_standard_suffix_removed;
279  I_p2 = other.I_p2;
280  I_p1 = other.I_p1;
281  I_pV = other.I_pV;
282  base.copy_from(other);
283  }
284 
285 
286  private bool r_prelude()
287  {
288  bool subroot = false;
289  int v_1;
290  int v_2;
291  int v_3;
292  // (, line 31
293  // repeat, line 32
294  replab0: while (true)
295  {
296  v_1 = cursor;
297  do
298  {
299  // goto, line 32
300  while (true)
301  {
302  v_2 = cursor;
303  do
304  {
305  // (, line 32
306  if (!(in_grouping(g_v, 97, 259)))
307  {
308  break;
309  }
310  // [, line 33
311  bra = cursor;
312  // or, line 33
313  do
314  {
315  v_3 = cursor;
316  do
317  {
318  // (, line 33
319  // literal, line 33
320  if (!(eq_s(1, "u")))
321  {
322  break;
323  }
324  // ], line 33
325  ket = cursor;
326  if (!(in_grouping(g_v, 97, 259)))
327  {
328  break;
329  }
330  // <-, line 33
331  slice_from("U");
332  subroot = true;
333  if (subroot) break;
334  } while (false);
335  if (subroot) { subroot = false; break; }
336  cursor = v_3;
337  // (, line 34
338  // literal, line 34
339  if (!(eq_s(1, "i")))
340  {
341  subroot = true;
342  break;
343  }
344  // ], line 34
345  ket = cursor;
346  if (!(in_grouping(g_v, 97, 259)))
347  {
348  subroot = true;
349  break;
350  }
351  // <-, line 34
352  slice_from("I");
353  } while (false);
354  if (subroot) { subroot = false; break; }
355  cursor = v_2;
356  subroot = true;
357  if (subroot) break;
358  } while (false);
359  if (subroot) { subroot = false; break; }
360  cursor = v_2;
361  if (cursor >= limit)
362  {
363  subroot = true;
364  break;
365  }
366  cursor++;
367  }
368  if (subroot) { subroot = false; break; }
369  if (!subroot)
370  {
371  goto replab0;
372  }
373  } while (false);
374  cursor = v_1;
375  break;
376  }
377  return true;
378  }
379 
380 
381  private bool r_mark_regions()
382  {
383  bool subroot = false;
384  int v_1;
385  int v_2;
386  int v_3;
387  int v_6;
388  int v_8;
389  // (, line 38
390  I_pV = limit;
391  I_p1 = limit;
392  I_p2 = limit;
393  // do, line 44
394  v_1 = cursor;
395  do
396  {
397  // (, line 44
398  // or, line 46
399  do
400  {
401  v_2 = cursor;
402  do
403  {
404  // (, line 45
405  if (!(in_grouping(g_v, 97, 259)))
406  {
407  break;
408  }
409  // or, line 45
410  do
411  {
412  v_3 = cursor;
413  do
414  {
415  // (, line 45
416  if (!(out_grouping(g_v, 97, 259)))
417  {
418  break;
419  }
420  // gopast, line 45
421  while (true)
422  {
423  do
424  {
425  if (!(in_grouping(g_v, 97, 259)))
426  {
427  break;
428  }
429  subroot = true;
430  if (subroot) break;
431  } while (false);
432  if (subroot) { subroot = false; break; }
433  if (cursor >= limit)
434  {
435  subroot = true;
436  break;
437  }
438  cursor++;
439  }
440  if (subroot) { subroot = false; break; }
441  subroot = true;
442  if (subroot) break;
443  } while (false);
444  if (subroot) { subroot = false; break; }
445  cursor = v_3;
446  // (, line 45
447  if (!(in_grouping(g_v, 97, 259)))
448  {
449  subroot = true;
450  break;
451  }
452  // gopast, line 45
453  while (true)
454  {
455  do
456  {
457  if (!(out_grouping(g_v, 97, 259)))
458  {
459  break;
460  }
461  subroot = true;
462  if (subroot) break;
463  } while (false);
464  if (subroot) { subroot = false; break; }
465  if (cursor >= limit)
466  {
467  subroot = true;
468  break;
469  }
470  cursor++;
471  }
472  if (subroot) break;
473  } while (false);
474  if (subroot) { subroot = false; break; }
475  subroot = true;
476  if (subroot) break;
477  } while (false);
478  if (subroot) { subroot = false; break; }
479  cursor = v_2;
480  // (, line 47
481  if (!(out_grouping(g_v, 97, 259)))
482  {
483  subroot = true;
484  break;
485  }
486  // or, line 47
487  do
488  {
489  v_6 = cursor;
490  do
491  {
492  // (, line 47
493  if (!(out_grouping(g_v, 97, 259)))
494  {
495  break;
496  }
497  // gopast, line 47
498  while (true)
499  {
500  do
501  {
502  if (!(in_grouping(g_v, 97, 259)))
503  {
504  break;
505  }
506  subroot = true;
507  if (subroot) break;
508  } while (false);
509  if (subroot) { subroot = false; break; }
510  if (cursor >= limit)
511  {
512  subroot = true;
513  break;
514  }
515  cursor++;
516  }
517  if (subroot) { subroot = false; break; }
518  subroot = true;
519  if (subroot) break;
520  } while (false);
521  if (subroot) { subroot = false; break; }
522  cursor = v_6;
523  // (, line 47
524  if (!(in_grouping(g_v, 97, 259)))
525  {
526  subroot = true;
527  break;
528  }
529  // next, line 47
530  if (cursor >= limit)
531  {
532  subroot = true;
533  break;
534  }
535  cursor++;
536  } while (false);
537  if (subroot) break;
538  } while (false);
539  if (subroot) { subroot = false; break; }
540  // setmark pV, line 48
541  I_pV = cursor;
542  } while (false);
543  cursor = v_1;
544  // do, line 50
545  v_8 = cursor;
546  do
547  {
548  // (, line 50
549  // gopast, line 51
550  while (true)
551  {
552  do
553  {
554  if (!(in_grouping(g_v, 97, 259)))
555  {
556  break;
557  }
558  subroot = true;
559  if (subroot) break;
560  } while (false);
561  if (subroot) { subroot = false; break; }
562  if (cursor >= limit)
563  {
564  subroot = true;
565  break;
566  }
567  cursor++;
568  }
569  if (subroot) { subroot = false; break; }
570  // gopast, line 51
571  while (true)
572  {
573  do
574  {
575  if (!(out_grouping(g_v, 97, 259)))
576  {
577  break;
578  }
579  subroot = true;
580  if (subroot) break;
581  } while (false);
582  if (subroot) { subroot = false; break; }
583  if (cursor >= limit)
584  {
585  subroot = true;
586  break;
587  }
588  cursor++;
589  }
590  if (subroot) { subroot = false; break; }
591  // setmark p1, line 51
592  I_p1 = cursor;
593  // gopast, line 52
594  while (true)
595  {
596  do
597  {
598  if (!(in_grouping(g_v, 97, 259)))
599  {
600  break;
601  }
602  subroot = true;
603  if (subroot) break;
604  } while (false);
605  if (subroot) { subroot = false; break; }
606  if (cursor >= limit)
607  {
608  subroot = true;
609  break;
610  }
611  cursor++;
612  }
613  if (subroot) { subroot = false; break; }
614  // gopast, line 52
615  while (true)
616  {
617  do
618  {
619  if (!(out_grouping(g_v, 97, 259)))
620  {
621  break;
622  }
623  subroot = true;
624  if (subroot) break;
625  } while (false);
626  if (subroot) { subroot = false; break; }
627  if (cursor >= limit)
628  {
629  subroot = true;
630  break;
631  }
632  cursor++;
633  }
634  if (subroot) { subroot = false; break; }
635  // setmark p2, line 52
636  I_p2 = cursor;
637  } while (false);
638  cursor = v_8;
639  return true;
640  }
641 
642 
643  private bool r_postlude()
644  {
645  bool subroot = false;
646  int among_var;
647  int v_1;
648  // repeat, line 56
649  replab0: while (true)
650  {
651  v_1 = cursor;
652  do
653  {
654  // (, line 56
655  // [, line 58
656  bra = cursor;
657  // substring, line 58
658  among_var = find_among(a_0, 3);
659  if (among_var == 0)
660  {
661  break;
662  }
663  // ], line 58
664  ket = cursor;
665  switch (among_var)
666  {
667  case 0:
668  subroot = true;
669  break;
670  case 1:
671  // (, line 59
672  // <-, line 59
673  slice_from("i");
674  break;
675  case 2:
676  // (, line 60
677  // <-, line 60
678  slice_from("u");
679  break;
680  case 3:
681  // (, line 61
682  // next, line 61
683  if (cursor >= limit)
684  {
685  subroot = true;
686  break;
687  }
688  cursor++;
689  break;
690  }
691  if (subroot) { subroot = false; break; }
692  if (!subroot)
693  {
694  goto replab0;
695  }
696  } while (false);
697  cursor = v_1;
698  break;
699  }
700  return true;
701  }
702 
703  private bool r_RV()
704  {
705  if (!(I_pV <= cursor))
706  {
707  return false;
708  }
709  return true;
710  }
711 
712  private bool r_R1()
713  {
714  if (!(I_p1 <= cursor))
715  {
716  return false;
717  }
718  return true;
719  }
720 
721  private bool r_R2()
722  {
723  if (!(I_p2 <= cursor))
724  {
725  return false;
726  }
727  return true;
728  }
729 
730 
731  private bool r_step_0()
732  {
733  bool returnn = false;
734  int among_var;
735  int v_1;
736  // (, line 72
737  // [, line 73
738  ket = cursor;
739  // substring, line 73
740  among_var = find_among_b(a_1, 16);
741  if (among_var == 0)
742  {
743  return false;
744  }
745  // ], line 73
746  bra = cursor;
747  // call R1, line 73
748  if (!r_R1())
749  {
750  return false;
751  }
752  switch (among_var)
753  {
754  case 0:
755  return false;
756  case 1:
757  // (, line 75
758  // delete, line 75
759  slice_del();
760  break;
761  case 2:
762  // (, line 77
763  // <-, line 77
764  slice_from("a");
765  break;
766  case 3:
767  // (, line 79
768  // <-, line 79
769  slice_from("e");
770  break;
771  case 4:
772  // (, line 81
773  // <-, line 81
774  slice_from("i");
775  break;
776  case 5:
777  // (, line 83
778  // not, line 83
779  {
780  v_1 = limit - cursor;
781  do
782  {
783  // literal, line 83
784  returnn = true;
785  if (!(eq_s_b(2, "ab")))
786  {
787  returnn = false;
788  break;
789  }
790  else if (returnn)
791  {
792  return false;
793  }
794  } while (false);
795  cursor = limit - v_1;
796  }
797  // <-, line 83
798  slice_from("i");
799  break;
800  case 6:
801  // (, line 85
802  // <-, line 85
803  slice_from("at");
804  break;
805  case 7:
806  // (, line 87
807  // <-, line 87
808  slice_from("a\u0163i");
809  break;
810  }
811  return true;
812  }
813 
814 
815  private bool r_combo_suffix()
816  {
817  int among_var;
818  int v_1;
819  // test, line 91
820  v_1 = limit - cursor;
821  // (, line 91
822  // [, line 92
823  ket = cursor;
824  // substring, line 92
825  among_var = find_among_b(a_2, 46);
826  if (among_var == 0)
827  {
828  return false;
829  }
830  // ], line 92
831  bra = cursor;
832  // call R1, line 92
833  if (!r_R1())
834  {
835  return false;
836  }
837  // (, line 92
838  switch (among_var)
839  {
840  case 0:
841  return false;
842  case 1:
843  // (, line 100
844  // <-, line 101
845  slice_from("abil");
846  break;
847  case 2:
848  // (, line 103
849  // <-, line 104
850  slice_from("ibil");
851  break;
852  case 3:
853  // (, line 106
854  // <-, line 107
855  slice_from("iv");
856  break;
857  case 4:
858  // (, line 112
859  // <-, line 113
860  slice_from("ic");
861  break;
862  case 5:
863  // (, line 117
864  // <-, line 118
865  slice_from("at");
866  break;
867  case 6:
868  // (, line 121
869  // <-, line 122
870  slice_from("it");
871  break;
872  }
873  // set standard_suffix_removed, line 125
874  B_standard_suffix_removed = true;
875  cursor = limit - v_1;
876  return true;
877  }
878 
879 
880  private bool r_standard_suffix()
881  {
882  int among_var;
883  int v_1;
884  // (, line 129
885  // unset standard_suffix_removed, line 130
886  B_standard_suffix_removed = false;
887  // repeat, line 131
888  replab0: while (true)
889  {
890  v_1 = limit - cursor;
891  do
892  {
893  // call combo_suffix, line 131
894  if (!r_combo_suffix())
895  {
896  break;
897  }
898  else if (r_combo_suffix())
899  {
900  goto replab0;
901  }
902  } while (false);
903  cursor = limit - v_1;
904  break;
905  }
906  // [, line 132
907  ket = cursor;
908  // substring, line 132
909  among_var = find_among_b(a_3, 62);
910  if (among_var == 0)
911  {
912  return false;
913  }
914  // ], line 132
915  bra = cursor;
916  // call R2, line 132
917  if (!r_R2())
918  {
919  return false;
920  }
921  // (, line 132
922  switch (among_var)
923  {
924  case 0:
925  return false;
926  case 1:
927  // (, line 148
928  // delete, line 149
929  slice_del();
930  break;
931  case 2:
932  // (, line 151
933  // literal, line 152
934  if (!(eq_s_b(1, "\u0163")))
935  {
936  return false;
937  }
938  // ], line 152
939  bra = cursor;
940  // <-, line 152
941  slice_from("t");
942  break;
943  case 3:
944  // (, line 155
945  // <-, line 156
946  slice_from("ist");
947  break;
948  }
949  // set standard_suffix_removed, line 160
950  B_standard_suffix_removed = true;
951  return true;
952  }
953 
954 
955  private bool r_verb_suffix()
956  {
957  bool subroot = false;
958  int among_var;
959  int v_1;
960  int v_2;
961  int v_3;
962  // setlimit, line 164
963  v_1 = limit - cursor;
964  // tomark, line 164
965  if (cursor < I_pV)
966  {
967  return false;
968  }
969  cursor = I_pV;
970  v_2 = limit_backward;
971  limit_backward = cursor;
972  cursor = limit - v_1;
973  // (, line 164
974  // [, line 165
975  ket = cursor;
976  // substring, line 165
977  among_var = find_among_b(a_4, 94);
978  if (among_var == 0)
979  {
980  limit_backward = v_2;
981  return false;
982  }
983  // ], line 165
984  bra = cursor;
985  switch (among_var)
986  {
987  case 0:
988  limit_backward = v_2;
989  return false;
990  case 1:
991  // (, line 200
992  // or, line 200
993  do
994  {
995  v_3 = limit - cursor;
996  do
997  {
998  if (!(out_grouping_b(g_v, 97, 259)))
999  {
1000  break;
1001  }
1002  subroot = true;
1003  if (subroot) break;
1004  } while (false);
1005  if (subroot) { subroot = false; break; }
1006  cursor = limit - v_3;
1007  // literal, line 200
1008  if (!(eq_s_b(1, "u")))
1009  {
1010  limit_backward = v_2;
1011  return false;
1012  }
1013  } while (false);
1014  // delete, line 200
1015  slice_del();
1016  break;
1017  case 2:
1018  // (, line 214
1019  // delete, line 214
1020  slice_del();
1021  break;
1022  }
1023  limit_backward = v_2;
1024  return true;
1025  }
1026 
1027 
1028  private bool r_vowel_suffix()
1029  {
1030  int among_var;
1031  // (, line 218
1032  // [, line 219
1033  ket = cursor;
1034  // substring, line 219
1035  among_var = find_among_b(a_5, 5);
1036  if (among_var == 0)
1037  {
1038  return false;
1039  }
1040  // ], line 219
1041  bra = cursor;
1042  // call RV, line 219
1043  if (!r_RV())
1044  {
1045  return false;
1046  }
1047  switch (among_var)
1048  {
1049  case 0:
1050  return false;
1051  case 1:
1052  // (, line 220
1053  // delete, line 220
1054  slice_del();
1055  break;
1056  }
1057  return true;
1058  }
1059 
1060 
1061  private bool CanStem()
1062  {
1063  bool subroot = false;
1064  int v_1;
1065  int v_2;
1066  int v_3;
1067  int v_4;
1068  int v_5;
1069  int v_6;
1070  int v_7;
1071  int v_8;
1072  // (, line 225
1073  // do, line 226
1074  v_1 = cursor;
1075  do
1076  {
1077  // call prelude, line 226
1078  if (!r_prelude())
1079  {
1080  break;
1081  }
1082  } while (false);
1083  cursor = v_1;
1084  // do, line 227
1085  v_2 = cursor;
1086  do
1087  {
1088  // call mark_regions, line 227
1089  if (!r_mark_regions())
1090  {
1091  break;
1092  }
1093  } while (false);
1094  cursor = v_2;
1095  // backwards, line 228
1096  limit_backward = cursor; cursor = limit;
1097  // (, line 228
1098  // do, line 229
1099  v_3 = limit - cursor;
1100  do
1101  {
1102  // call step_0, line 229
1103  if (!r_step_0())
1104  {
1105  break;
1106  }
1107  } while (false);
1108  cursor = limit - v_3;
1109  // do, line 230
1110  v_4 = limit - cursor;
1111  do
1112  {
1113  // call standard_suffix, line 230
1114  if (!r_standard_suffix())
1115  {
1116  break;
1117  }
1118  } while (false);
1119  cursor = limit - v_4;
1120  // do, line 231
1121  v_5 = limit - cursor;
1122  do
1123  {
1124  // (, line 231
1125  // or, line 231
1126  do
1127  {
1128  v_6 = limit - cursor;
1129  do
1130  {
1131  // Boolean test standard_suffix_removed, line 231
1132  if (!(B_standard_suffix_removed))
1133  {
1134  break;
1135  }
1136  subroot = true;
1137  if (subroot) break;
1138  } while (false);
1139  if (subroot) { subroot = false; break; }
1140  cursor = limit - v_6;
1141  // call verb_suffix, line 231
1142  if (!r_verb_suffix())
1143  {
1144  subroot = true;
1145  break;
1146  }
1147  } while (false);
1148  if (subroot) { subroot = false; break; }
1149  } while (false);
1150  cursor = limit - v_5;
1151  // do, line 232
1152  v_7 = limit - cursor;
1153  do
1154  {
1155  // call vowel_suffix, line 232
1156  if (!r_vowel_suffix())
1157  {
1158  break;
1159  }
1160  } while (false);
1161  cursor = limit - v_7;
1162  cursor = limit_backward; // do, line 234
1163  v_8 = cursor;
1164  do
1165  {
1166  // call postlude, line 234
1167  if (!r_postlude())
1168  {
1169  break;
1170  }
1171  } while (false);
1172  cursor = v_8;
1173  return true;
1174  }
1175 
1181  public string Stem(string s)
1182  {
1183  this.setCurrent(s.ToLowerInvariant());
1184  this.CanStem();
1185  return this.getCurrent();
1186  }
1187 
1188  }
1189 }