mirror of https://github.com/ogoun/Zero.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1293 lines
44 KiB
1293 lines
44 KiB
/*
|
|
* Port of Snowball stemmers on C#
|
|
* Original stemmers can be found on http://snowball.tartarus.org
|
|
* Licence still BSD: http://snowball.tartarus.org/license.php
|
|
*
|
|
* Most of stemmers are ported from Java by Iveonik Systems ltd. (www.iveonik.com)
|
|
*/
|
|
|
|
using ZeroLevel.Services.Semantic;
|
|
|
|
namespace Iveonik.Stemmers
|
|
{
|
|
public class PortugalStemmer : StemmerOperations, ILexer
|
|
{
|
|
private readonly static PortugalStemmer methodObject = new PortugalStemmer();
|
|
|
|
private readonly static Among[] a_0 =
|
|
{
|
|
new Among ( "", -1, 3, null ),
|
|
new Among ( "\u00E3", 0, 1, null ),
|
|
new Among ( "\u00F5", 0, 2, null )
|
|
};
|
|
|
|
private readonly static Among[] a_1 =
|
|
{
|
|
new Among ( "", -1, 3, null ),
|
|
new Among ( "a~", 0, 1, null ),
|
|
new Among ( "o~", 0, 2, null )
|
|
};
|
|
|
|
private readonly static Among[] a_2 =
|
|
{
|
|
new Among ( "ic", -1, -1, null ),
|
|
new Among ( "ad", -1, -1, null ),
|
|
new Among ( "os", -1, -1, null ),
|
|
new Among ( "iv", -1, 1, null )
|
|
};
|
|
|
|
private readonly static Among[] a_3 =
|
|
{
|
|
new Among ( "ante", -1, 1, null ),
|
|
new Among ( "avel", -1, 1, null ),
|
|
new Among ( "\u00EDvel", -1, 1, null )
|
|
};
|
|
|
|
private readonly static Among[] a_4 =
|
|
{
|
|
new Among ( "ic", -1, 1, null ),
|
|
new Among ( "abil", -1, 1, null ),
|
|
new Among ( "iv", -1, 1, null )
|
|
};
|
|
|
|
private readonly static Among[] a_5 =
|
|
{
|
|
new Among ( "ica", -1, 1, null ),
|
|
new Among ( "\u00E2ncia", -1, 1, null ),
|
|
new Among ( "\u00EAncia", -1, 4, null ),
|
|
new Among ( "ira", -1, 9, null ),
|
|
new Among ( "adora", -1, 1, null ),
|
|
new Among ( "osa", -1, 1, null ),
|
|
new Among ( "ista", -1, 1, null ),
|
|
new Among ( "iva", -1, 8, null ),
|
|
new Among ( "eza", -1, 1, null ),
|
|
new Among ( "log\u00EDa", -1, 2, null ),
|
|
new Among ( "idade", -1, 7, null ),
|
|
new Among ( "ante", -1, 1, null ),
|
|
new Among ( "mente", -1, 6, null ),
|
|
new Among ( "amente", 12, 5, null ),
|
|
new Among ( "\u00E1vel", -1, 1, null ),
|
|
new Among ( "\u00EDvel", -1, 1, null ),
|
|
new Among ( "uci\u00F3n", -1, 3, null ),
|
|
new Among ( "ico", -1, 1, null ),
|
|
new Among ( "ismo", -1, 1, null ),
|
|
new Among ( "oso", -1, 1, null ),
|
|
new Among ( "amento", -1, 1, null ),
|
|
new Among ( "imento", -1, 1, null ),
|
|
new Among ( "ivo", -1, 8, null ),
|
|
new Among ( "a\u00E7a~o", -1, 1, null ),
|
|
new Among ( "ador", -1, 1, null ),
|
|
new Among ( "icas", -1, 1, null ),
|
|
new Among ( "\u00EAncias", -1, 4, null ),
|
|
new Among ( "iras", -1, 9, null ),
|
|
new Among ( "adoras", -1, 1, null ),
|
|
new Among ( "osas", -1, 1, null ),
|
|
new Among ( "istas", -1, 1, null ),
|
|
new Among ( "ivas", -1, 8, null ),
|
|
new Among ( "ezas", -1, 1, null ),
|
|
new Among ( "log\u00EDas", -1, 2, null ),
|
|
new Among ( "idades", -1, 7, null ),
|
|
new Among ( "uciones", -1, 3, null ),
|
|
new Among ( "adores", -1, 1, null ),
|
|
new Among ( "antes", -1, 1, null ),
|
|
new Among ( "a\u00E7o~es", -1, 1, null ),
|
|
new Among ( "icos", -1, 1, null ),
|
|
new Among ( "ismos", -1, 1, null ),
|
|
new Among ( "osos", -1, 1, null ),
|
|
new Among ( "amentos", -1, 1, null ),
|
|
new Among ( "imentos", -1, 1, null ),
|
|
new Among ( "ivos", -1, 8, null )
|
|
};
|
|
|
|
private readonly static Among[] a_6 =
|
|
{
|
|
new Among ( "ada", -1, 1, null ),
|
|
new Among ( "ida", -1, 1, null ),
|
|
new Among ( "ia", -1, 1, null ),
|
|
new Among ( "aria", 2, 1, null ),
|
|
new Among ( "eria", 2, 1, null ),
|
|
new Among ( "iria", 2, 1, null ),
|
|
new Among ( "ara", -1, 1, null ),
|
|
new Among ( "era", -1, 1, null ),
|
|
new Among ( "ira", -1, 1, null ),
|
|
new Among ( "ava", -1, 1, null ),
|
|
new Among ( "asse", -1, 1, null ),
|
|
new Among ( "esse", -1, 1, null ),
|
|
new Among ( "isse", -1, 1, null ),
|
|
new Among ( "aste", -1, 1, null ),
|
|
new Among ( "este", -1, 1, null ),
|
|
new Among ( "iste", -1, 1, null ),
|
|
new Among ( "ei", -1, 1, null ),
|
|
new Among ( "arei", 16, 1, null ),
|
|
new Among ( "erei", 16, 1, null ),
|
|
new Among ( "irei", 16, 1, null ),
|
|
new Among ( "am", -1, 1, null ),
|
|
new Among ( "iam", 20, 1, null ),
|
|
new Among ( "ariam", 21, 1, null ),
|
|
new Among ( "eriam", 21, 1, null ),
|
|
new Among ( "iriam", 21, 1, null ),
|
|
new Among ( "aram", 20, 1, null ),
|
|
new Among ( "eram", 20, 1, null ),
|
|
new Among ( "iram", 20, 1, null ),
|
|
new Among ( "avam", 20, 1, null ),
|
|
new Among ( "em", -1, 1, null ),
|
|
new Among ( "arem", 29, 1, null ),
|
|
new Among ( "erem", 29, 1, null ),
|
|
new Among ( "irem", 29, 1, null ),
|
|
new Among ( "assem", 29, 1, null ),
|
|
new Among ( "essem", 29, 1, null ),
|
|
new Among ( "issem", 29, 1, null ),
|
|
new Among ( "ado", -1, 1, null ),
|
|
new Among ( "ido", -1, 1, null ),
|
|
new Among ( "ando", -1, 1, null ),
|
|
new Among ( "endo", -1, 1, null ),
|
|
new Among ( "indo", -1, 1, null ),
|
|
new Among ( "ara~o", -1, 1, null ),
|
|
new Among ( "era~o", -1, 1, null ),
|
|
new Among ( "ira~o", -1, 1, null ),
|
|
new Among ( "ar", -1, 1, null ),
|
|
new Among ( "er", -1, 1, null ),
|
|
new Among ( "ir", -1, 1, null ),
|
|
new Among ( "as", -1, 1, null ),
|
|
new Among ( "adas", 47, 1, null ),
|
|
new Among ( "idas", 47, 1, null ),
|
|
new Among ( "ias", 47, 1, null ),
|
|
new Among ( "arias", 50, 1, null ),
|
|
new Among ( "erias", 50, 1, null ),
|
|
new Among ( "irias", 50, 1, null ),
|
|
new Among ( "aras", 47, 1, null ),
|
|
new Among ( "eras", 47, 1, null ),
|
|
new Among ( "iras", 47, 1, null ),
|
|
new Among ( "avas", 47, 1, null ),
|
|
new Among ( "es", -1, 1, null ),
|
|
new Among ( "ardes", 58, 1, null ),
|
|
new Among ( "erdes", 58, 1, null ),
|
|
new Among ( "irdes", 58, 1, null ),
|
|
new Among ( "ares", 58, 1, null ),
|
|
new Among ( "eres", 58, 1, null ),
|
|
new Among ( "ires", 58, 1, null ),
|
|
new Among ( "asses", 58, 1, null ),
|
|
new Among ( "esses", 58, 1, null ),
|
|
new Among ( "isses", 58, 1, null ),
|
|
new Among ( "astes", 58, 1, null ),
|
|
new Among ( "estes", 58, 1, null ),
|
|
new Among ( "istes", 58, 1, null ),
|
|
new Among ( "is", -1, 1, null ),
|
|
new Among ( "ais", 71, 1, null ),
|
|
new Among ( "eis", 71, 1, null ),
|
|
new Among ( "areis", 73, 1, null ),
|
|
new Among ( "ereis", 73, 1, null ),
|
|
new Among ( "ireis", 73, 1, null ),
|
|
new Among ( "\u00E1reis", 73, 1, null ),
|
|
new Among ( "\u00E9reis", 73, 1, null ),
|
|
new Among ( "\u00EDreis", 73, 1, null ),
|
|
new Among ( "\u00E1sseis", 73, 1, null ),
|
|
new Among ( "\u00E9sseis", 73, 1, null ),
|
|
new Among ( "\u00EDsseis", 73, 1, null ),
|
|
new Among ( "\u00E1veis", 73, 1, null ),
|
|
new Among ( "\u00EDeis", 73, 1, null ),
|
|
new Among ( "ar\u00EDeis", 84, 1, null ),
|
|
new Among ( "er\u00EDeis", 84, 1, null ),
|
|
new Among ( "ir\u00EDeis", 84, 1, null ),
|
|
new Among ( "ados", -1, 1, null ),
|
|
new Among ( "idos", -1, 1, null ),
|
|
new Among ( "amos", -1, 1, null ),
|
|
new Among ( "\u00E1ramos", 90, 1, null ),
|
|
new Among ( "\u00E9ramos", 90, 1, null ),
|
|
new Among ( "\u00EDramos", 90, 1, null ),
|
|
new Among ( "\u00E1vamos", 90, 1, null ),
|
|
new Among ( "\u00EDamos", 90, 1, null ),
|
|
new Among ( "ar\u00EDamos", 95, 1, null ),
|
|
new Among ( "er\u00EDamos", 95, 1, null ),
|
|
new Among ( "ir\u00EDamos", 95, 1, null ),
|
|
new Among ( "emos", -1, 1, null ),
|
|
new Among ( "aremos", 99, 1, null ),
|
|
new Among ( "eremos", 99, 1, null ),
|
|
new Among ( "iremos", 99, 1, null ),
|
|
new Among ( "\u00E1ssemos", 99, 1, null ),
|
|
new Among ( "\u00EAssemos", 99, 1, null ),
|
|
new Among ( "\u00EDssemos", 99, 1, null ),
|
|
new Among ( "imos", -1, 1, null ),
|
|
new Among ( "armos", -1, 1, null ),
|
|
new Among ( "ermos", -1, 1, null ),
|
|
new Among ( "irmos", -1, 1, null ),
|
|
new Among ( "\u00E1mos", -1, 1, null ),
|
|
new Among ( "ar\u00E1s", -1, 1, null ),
|
|
new Among ( "er\u00E1s", -1, 1, null ),
|
|
new Among ( "ir\u00E1s", -1, 1, null ),
|
|
new Among ( "eu", -1, 1, null ),
|
|
new Among ( "iu", -1, 1, null ),
|
|
new Among ( "ou", -1, 1, null ),
|
|
new Among ( "ar\u00E1", -1, 1, null ),
|
|
new Among ( "er\u00E1", -1, 1, null ),
|
|
new Among ( "ir\u00E1", -1, 1, null )
|
|
};
|
|
|
|
private readonly static Among[] a_7 =
|
|
{
|
|
new Among ( "a", -1, 1, null ),
|
|
new Among ( "i", -1, 1, null ),
|
|
new Among ( "o", -1, 1, null ),
|
|
new Among ( "os", -1, 1, null ),
|
|
new Among ( "\u00E1", -1, 1, null ),
|
|
new Among ( "\u00ED", -1, 1, null ),
|
|
new Among ( "\u00F3", -1, 1, null )
|
|
};
|
|
|
|
private readonly static Among[] a_8 =
|
|
{
|
|
new Among ( "e", -1, 1, null ),
|
|
new Among ( "\u00E7", -1, 2, null ),
|
|
new Among ( "\u00E9", -1, 1, null ),
|
|
new Among ( "\u00EA", -1, 1, null )
|
|
};
|
|
|
|
private static readonly char[] g_v = {(char)17, (char)65, (char)16, (char)0, (char)0, (char)0, (char)0,
|
|
(char)0, (char)0, (char)0, (char)0, (char)0, (char)0, (char)0,
|
|
(char)0, (char)0, (char)3, (char)19, (char)12, (char)2 };
|
|
|
|
private int I_p2;
|
|
private int I_p1;
|
|
private int I_pV;
|
|
|
|
private void copy_from(PortugalStemmer other)
|
|
{
|
|
I_p2 = other.I_p2;
|
|
I_p1 = other.I_p1;
|
|
I_pV = other.I_pV;
|
|
base.copy_from(other);
|
|
}
|
|
|
|
private bool r_prelude()
|
|
{
|
|
bool subroot = false;
|
|
int among_var;
|
|
int v_1;
|
|
// repeat, line 36
|
|
replab0: while (true)
|
|
{
|
|
v_1 = cursor;
|
|
do
|
|
{
|
|
// (, line 36
|
|
// [, line 37
|
|
bra = cursor;
|
|
// substring, line 37
|
|
among_var = find_among(a_0, 3);
|
|
if (among_var == 0)
|
|
{
|
|
break;
|
|
}
|
|
// ], line 37
|
|
ket = cursor;
|
|
switch (among_var)
|
|
{
|
|
case 0:
|
|
subroot = true;
|
|
break;
|
|
|
|
case 1:
|
|
// (, line 38
|
|
// <-, line 38
|
|
slice_from("a~");
|
|
break;
|
|
|
|
case 2:
|
|
// (, line 39
|
|
// <-, line 39
|
|
slice_from("o~");
|
|
break;
|
|
|
|
case 3:
|
|
// (, line 40
|
|
// next, line 40
|
|
if (cursor >= limit)
|
|
{
|
|
subroot = true;
|
|
break;
|
|
}
|
|
cursor++;
|
|
break;
|
|
}
|
|
if (subroot) { subroot = false; break; }
|
|
if (!subroot)
|
|
{
|
|
goto replab0;
|
|
}
|
|
} while (false);
|
|
cursor = v_1;
|
|
break;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
private bool r_mark_regions()
|
|
{
|
|
bool subroot = false;
|
|
int v_1;
|
|
int v_2;
|
|
int v_3;
|
|
int v_6;
|
|
int v_8;
|
|
// (, line 44
|
|
I_pV = limit;
|
|
I_p1 = limit;
|
|
I_p2 = limit;
|
|
// do, line 50
|
|
v_1 = cursor;
|
|
do
|
|
{
|
|
// (, line 50
|
|
// or, line 52
|
|
do
|
|
{
|
|
v_2 = cursor;
|
|
do
|
|
{
|
|
// (, line 51
|
|
if (!(in_grouping(g_v, 97, 250)))
|
|
{
|
|
break;
|
|
}
|
|
// or, line 51
|
|
do
|
|
{
|
|
v_3 = cursor;
|
|
do
|
|
{
|
|
// (, line 51
|
|
if (!(out_grouping(g_v, 97, 250)))
|
|
{
|
|
break;
|
|
}
|
|
// gopast, line 51
|
|
// golab5:
|
|
while (true)
|
|
{
|
|
do
|
|
{
|
|
if (!(in_grouping(g_v, 97, 250)))
|
|
{
|
|
break;
|
|
}
|
|
subroot = true;
|
|
if (subroot) break;
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
if (cursor >= limit)
|
|
{
|
|
subroot = true;
|
|
break;
|
|
}
|
|
cursor++;
|
|
}
|
|
if (subroot) { subroot = false; break; }
|
|
subroot = true;
|
|
if (subroot) break;
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
cursor = v_3;
|
|
// (, line 51
|
|
if (!(in_grouping(g_v, 97, 250)))
|
|
{
|
|
subroot = true;
|
|
break;
|
|
}
|
|
// gopast, line 51
|
|
while (true)
|
|
{
|
|
do
|
|
{
|
|
if (!(out_grouping(g_v, 97, 250)))
|
|
{
|
|
break;
|
|
}
|
|
subroot = true;
|
|
if (subroot) break;
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
if (cursor >= limit)
|
|
{
|
|
subroot = true;
|
|
break;
|
|
}
|
|
cursor++;
|
|
}
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
subroot = true;
|
|
if (subroot) break;
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
cursor = v_2;
|
|
// (, line 53
|
|
if (!(out_grouping(g_v, 97, 250)))
|
|
{
|
|
subroot = true;
|
|
break;
|
|
}
|
|
// or, line 53
|
|
do
|
|
{
|
|
v_6 = cursor;
|
|
do
|
|
{
|
|
// (, line 53
|
|
if (!(out_grouping(g_v, 97, 250)))
|
|
{
|
|
break;
|
|
}
|
|
// gopast, line 53
|
|
while (true)
|
|
{
|
|
do
|
|
{
|
|
if (!(in_grouping(g_v, 97, 250)))
|
|
{
|
|
break;
|
|
}
|
|
subroot = true;
|
|
if (subroot) break;
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
if (cursor >= limit)
|
|
{
|
|
subroot = false;
|
|
break;
|
|
}
|
|
cursor++;
|
|
}
|
|
if (subroot) { subroot = false; break; }
|
|
subroot = true;
|
|
if (subroot) break;
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
cursor = v_6;
|
|
// (, line 53
|
|
if (!(in_grouping(g_v, 97, 250)))
|
|
{
|
|
subroot = true;
|
|
break;
|
|
}
|
|
// next, line 53
|
|
if (cursor >= limit)
|
|
{
|
|
subroot = true;
|
|
break;
|
|
}
|
|
cursor++;
|
|
} while (false);
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; } //***lab0
|
|
// setmark pV, line 54
|
|
I_pV = cursor;
|
|
} while (false);
|
|
cursor = v_1;
|
|
// do, line 56
|
|
v_8 = cursor;
|
|
do
|
|
{
|
|
// (, line 56
|
|
// gopast, line 57
|
|
while (true)
|
|
{
|
|
do
|
|
{
|
|
if (!(in_grouping(g_v, 97, 250)))
|
|
{
|
|
break;
|
|
}
|
|
subroot = true;
|
|
if (subroot) break;
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
if (cursor >= limit)
|
|
{
|
|
subroot = true;
|
|
break;
|
|
}
|
|
cursor++;
|
|
}
|
|
if (subroot) { subroot = false; break; }
|
|
// gopast, line 57
|
|
while (true)
|
|
{
|
|
do
|
|
{
|
|
if (!(out_grouping(g_v, 97, 250)))
|
|
{
|
|
break;
|
|
}
|
|
subroot = true;
|
|
if (subroot) break;
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
if (cursor >= limit)
|
|
{
|
|
subroot = true;
|
|
break;
|
|
}
|
|
cursor++;
|
|
}
|
|
if (subroot) { subroot = false; break; }
|
|
// setmark p1, line 57
|
|
I_p1 = cursor;
|
|
// gopast, line 58
|
|
while (true)
|
|
{
|
|
do
|
|
{
|
|
if (!(in_grouping(g_v, 97, 250)))
|
|
{
|
|
break;
|
|
}
|
|
subroot = true;
|
|
if (subroot) break;
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
if (cursor >= limit)
|
|
{
|
|
subroot = true;
|
|
break;
|
|
}
|
|
cursor++;
|
|
}
|
|
if (subroot) { subroot = false; break; }
|
|
// gopast, line 58
|
|
while (true)
|
|
{
|
|
do
|
|
{
|
|
if (!(out_grouping(g_v, 97, 250)))
|
|
{
|
|
break;
|
|
}
|
|
subroot = true;
|
|
if (subroot) break;
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
if (cursor >= limit)
|
|
{
|
|
subroot = true;
|
|
break;
|
|
}
|
|
cursor++;
|
|
}
|
|
if (subroot) { subroot = false; break; }
|
|
// setmark p2, line 58
|
|
I_p2 = cursor;
|
|
} while (false);
|
|
cursor = v_8;
|
|
return true;
|
|
}
|
|
|
|
private bool r_postlude()
|
|
{
|
|
bool subroot = false;
|
|
int among_var;
|
|
int v_1;
|
|
// repeat, line 62
|
|
replab0: while (true)
|
|
{
|
|
v_1 = cursor;
|
|
//lab1:
|
|
do
|
|
{
|
|
// (, line 62
|
|
// [, line 63
|
|
bra = cursor;
|
|
// substring, line 63
|
|
among_var = find_among(a_1, 3);
|
|
if (among_var == 0)
|
|
{
|
|
break;
|
|
}
|
|
// ], line 63
|
|
ket = cursor;
|
|
switch (among_var)
|
|
{
|
|
case 0:
|
|
subroot = true;
|
|
break;
|
|
|
|
case 1:
|
|
// (, line 64
|
|
// <-, line 64
|
|
slice_from("\u00E3");
|
|
break;
|
|
|
|
case 2:
|
|
// (, line 65
|
|
// <-, line 65
|
|
slice_from("\u00F5");
|
|
break;
|
|
|
|
case 3:
|
|
// (, line 66
|
|
// next, line 66
|
|
if (cursor >= limit)
|
|
{
|
|
subroot = true;
|
|
break;
|
|
}
|
|
cursor++;
|
|
break;
|
|
}
|
|
if (subroot) { subroot = false; break; }
|
|
else if (!subroot)
|
|
{
|
|
goto replab0;
|
|
}
|
|
} while (false);
|
|
cursor = v_1;
|
|
break;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
private bool r_RV()
|
|
{
|
|
if (!(I_pV <= cursor))
|
|
{
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
private bool r_R1()
|
|
{
|
|
if (!(I_p1 <= cursor))
|
|
{
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
private bool r_R2()
|
|
{
|
|
if (!(I_p2 <= cursor))
|
|
{
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
private bool r_standard_suffix()
|
|
{
|
|
bool subroot = false;
|
|
int among_var;
|
|
int v_1;
|
|
int v_2;
|
|
int v_3;
|
|
int v_4;
|
|
// (, line 76
|
|
// [, line 77
|
|
ket = cursor;
|
|
// substring, line 77
|
|
among_var = find_among_b(a_5, 45);
|
|
if (among_var == 0)
|
|
{
|
|
return false;
|
|
}
|
|
// ], line 77
|
|
bra = cursor;
|
|
switch (among_var)
|
|
{
|
|
case 0:
|
|
return false;
|
|
|
|
case 1:
|
|
// (, line 92
|
|
// call R2, line 93
|
|
if (!r_R2())
|
|
{
|
|
return false;
|
|
}
|
|
// delete, line 93
|
|
slice_del();
|
|
break;
|
|
|
|
case 2:
|
|
// (, line 97
|
|
// call R2, line 98
|
|
if (!r_R2())
|
|
{
|
|
return false;
|
|
}
|
|
// <-, line 98
|
|
slice_from("log");
|
|
break;
|
|
|
|
case 3:
|
|
// (, line 101
|
|
// call R2, line 102
|
|
if (!r_R2())
|
|
{
|
|
return false;
|
|
}
|
|
// <-, line 102
|
|
slice_from("u");
|
|
break;
|
|
|
|
case 4:
|
|
// (, line 105
|
|
// call R2, line 106
|
|
if (!r_R2())
|
|
{
|
|
return false;
|
|
}
|
|
// <-, line 106
|
|
slice_from("ente");
|
|
break;
|
|
|
|
case 5:
|
|
// (, line 109
|
|
// call R1, line 110
|
|
if (!r_R1())
|
|
{
|
|
return false;
|
|
}
|
|
// delete, line 110
|
|
slice_del();
|
|
// try, line 111
|
|
v_1 = limit - cursor;
|
|
do
|
|
{
|
|
// (, line 111
|
|
// [, line 112
|
|
ket = cursor;
|
|
// substring, line 112
|
|
among_var = find_among_b(a_2, 4);
|
|
if (among_var == 0)
|
|
{
|
|
cursor = limit - v_1;
|
|
break;
|
|
}
|
|
// ], line 112
|
|
bra = cursor;
|
|
// call R2, line 112
|
|
if (!r_R2())
|
|
{
|
|
cursor = limit - v_1;
|
|
break;
|
|
}
|
|
// delete, line 112
|
|
slice_del();
|
|
switch (among_var)
|
|
{
|
|
case 0:
|
|
cursor = limit - v_1;
|
|
subroot = true;
|
|
break;
|
|
|
|
case 1:
|
|
// (, line 113
|
|
// [, line 113
|
|
ket = cursor;
|
|
// literal, line 113
|
|
if (!(eq_s_b(2, "at")))
|
|
{
|
|
cursor = limit - v_1;
|
|
subroot = true;
|
|
break;
|
|
}
|
|
// ], line 113
|
|
bra = cursor;
|
|
// call R2, line 113
|
|
if (!r_R2())
|
|
{
|
|
cursor = limit - v_1;
|
|
subroot = true;
|
|
break;
|
|
}
|
|
// delete, line 113
|
|
slice_del();
|
|
break;
|
|
}
|
|
if (subroot) { subroot = false; break; }
|
|
} while (false);
|
|
break;
|
|
|
|
case 6:
|
|
// (, line 121
|
|
// call R2, line 122
|
|
if (!r_R2())
|
|
{
|
|
return false;
|
|
}
|
|
// delete, line 122
|
|
slice_del();
|
|
// try, line 123
|
|
v_2 = limit - cursor;
|
|
do
|
|
{
|
|
// (, line 123
|
|
// [, line 124
|
|
ket = cursor;
|
|
// substring, line 124
|
|
among_var = find_among_b(a_3, 3);
|
|
if (among_var == 0)
|
|
{
|
|
cursor = limit - v_2;
|
|
break;
|
|
}
|
|
// ], line 124
|
|
bra = cursor;
|
|
switch (among_var)
|
|
{
|
|
case 0:
|
|
cursor = limit - v_2;
|
|
subroot = true;
|
|
break;
|
|
|
|
case 1:
|
|
// (, line 127
|
|
// call R2, line 127
|
|
if (!r_R2())
|
|
{
|
|
cursor = limit - v_2;
|
|
subroot = true;
|
|
break;
|
|
}
|
|
// delete, line 127
|
|
slice_del();
|
|
break;
|
|
}
|
|
if (subroot) { subroot = false; break; }
|
|
} while (false);
|
|
break;
|
|
|
|
case 7:
|
|
// (, line 133
|
|
// call R2, line 134
|
|
if (!r_R2())
|
|
{
|
|
return false;
|
|
}
|
|
// delete, line 134
|
|
slice_del();
|
|
// try, line 135
|
|
v_3 = limit - cursor;
|
|
do
|
|
{
|
|
// (, line 135
|
|
// [, line 136
|
|
ket = cursor;
|
|
// substring, line 136
|
|
among_var = find_among_b(a_4, 3);
|
|
if (among_var == 0)
|
|
{
|
|
cursor = limit - v_3;
|
|
break;
|
|
}
|
|
// ], line 136
|
|
bra = cursor;
|
|
switch (among_var)
|
|
{
|
|
case 0:
|
|
cursor = limit - v_3;
|
|
subroot = true;
|
|
break;
|
|
|
|
case 1:
|
|
// (, line 139
|
|
// call R2, line 139
|
|
if (!r_R2())
|
|
{
|
|
cursor = limit - v_3;
|
|
subroot = true;
|
|
break;
|
|
}
|
|
// delete, line 139
|
|
slice_del();
|
|
break;
|
|
}
|
|
if (subroot) { subroot = false; break; }
|
|
} while (false);
|
|
break;
|
|
|
|
case 8:
|
|
// (, line 145
|
|
// call R2, line 146
|
|
if (!r_R2())
|
|
{
|
|
return false;
|
|
}
|
|
// delete, line 146
|
|
slice_del();
|
|
// try, line 147
|
|
v_4 = limit - cursor;
|
|
do
|
|
{
|
|
// (, line 147
|
|
// [, line 148
|
|
ket = cursor;
|
|
// literal, line 148
|
|
if (!(eq_s_b(2, "at")))
|
|
{
|
|
cursor = limit - v_4;
|
|
break;
|
|
}
|
|
// ], line 148
|
|
bra = cursor;
|
|
// call R2, line 148
|
|
if (!r_R2())
|
|
{
|
|
cursor = limit - v_4;
|
|
break;
|
|
}
|
|
// delete, line 148
|
|
slice_del();
|
|
} while (false);
|
|
break;
|
|
|
|
case 9:
|
|
// (, line 152
|
|
// call RV, line 153
|
|
if (!r_RV())
|
|
{
|
|
return false;
|
|
}
|
|
// literal, line 153
|
|
if (!(eq_s_b(1, "e")))
|
|
{
|
|
return false;
|
|
}
|
|
// <-, line 154
|
|
slice_from("ir");
|
|
break;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
private bool r_verb_suffix()
|
|
{
|
|
int among_var;
|
|
int v_1;
|
|
int v_2;
|
|
// setlimit, line 159
|
|
v_1 = limit - cursor;
|
|
// tomark, line 159
|
|
if (cursor < I_pV)
|
|
{
|
|
return false;
|
|
}
|
|
cursor = I_pV;
|
|
v_2 = limit_backward;
|
|
limit_backward = cursor;
|
|
cursor = limit - v_1;
|
|
// (, line 159
|
|
// [, line 160
|
|
ket = cursor;
|
|
// substring, line 160
|
|
among_var = find_among_b(a_6, 120);
|
|
if (among_var == 0)
|
|
{
|
|
limit_backward = v_2;
|
|
return false;
|
|
}
|
|
// ], line 160
|
|
bra = cursor;
|
|
switch (among_var)
|
|
{
|
|
case 0:
|
|
limit_backward = v_2;
|
|
return false;
|
|
|
|
case 1:
|
|
// (, line 179
|
|
// delete, line 179
|
|
slice_del();
|
|
break;
|
|
}
|
|
limit_backward = v_2;
|
|
return true;
|
|
}
|
|
|
|
private bool r_residual_suffix()
|
|
{
|
|
int among_var;
|
|
// (, line 183
|
|
// [, line 184
|
|
ket = cursor;
|
|
// substring, line 184
|
|
among_var = find_among_b(a_7, 7);
|
|
if (among_var == 0)
|
|
{
|
|
return false;
|
|
}
|
|
// ], line 184
|
|
bra = cursor;
|
|
switch (among_var)
|
|
{
|
|
case 0:
|
|
return false;
|
|
|
|
case 1:
|
|
// (, line 187
|
|
// call RV, line 187
|
|
if (!r_RV())
|
|
{
|
|
return false;
|
|
}
|
|
// delete, line 187
|
|
slice_del();
|
|
break;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
private bool r_residual_form()
|
|
{
|
|
bool subroot = false;
|
|
int among_var;
|
|
int v_1;
|
|
int v_2;
|
|
int v_3;
|
|
// (, line 191
|
|
// [, line 192
|
|
ket = cursor;
|
|
// substring, line 192
|
|
among_var = find_among_b(a_8, 4);
|
|
if (among_var == 0)
|
|
{
|
|
return false;
|
|
}
|
|
// ], line 192
|
|
bra = cursor;
|
|
switch (among_var)
|
|
{
|
|
case 0:
|
|
return false;
|
|
|
|
case 1:
|
|
// (, line 194
|
|
// call RV, line 194
|
|
if (!r_RV())
|
|
{
|
|
return false;
|
|
}
|
|
// delete, line 194
|
|
slice_del();
|
|
// [, line 194
|
|
ket = cursor;
|
|
// or, line 194
|
|
do
|
|
{
|
|
v_1 = limit - cursor;
|
|
do
|
|
{
|
|
// (, line 194
|
|
// literal, line 194
|
|
if (!(eq_s_b(1, "u")))
|
|
{
|
|
break;
|
|
}
|
|
// ], line 194
|
|
bra = cursor;
|
|
// test, line 194
|
|
v_2 = limit - cursor;
|
|
// literal, line 194
|
|
if (!(eq_s_b(1, "g")))
|
|
{
|
|
break;
|
|
}
|
|
cursor = limit - v_2;
|
|
subroot = true;
|
|
if (subroot) break;
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
cursor = limit - v_1;
|
|
// (, line 195
|
|
// literal, line 195
|
|
if (!(eq_s_b(1, "i")))
|
|
{
|
|
return false;
|
|
}
|
|
// ], line 195
|
|
bra = cursor;
|
|
// test, line 195
|
|
v_3 = limit - cursor;
|
|
// literal, line 195
|
|
if (!(eq_s_b(1, "c")))
|
|
{
|
|
return false;
|
|
}
|
|
cursor = limit - v_3;
|
|
} while (false);
|
|
// call RV, line 195
|
|
if (!r_RV())
|
|
{
|
|
return false;
|
|
}
|
|
// delete, line 195
|
|
slice_del();
|
|
break;
|
|
|
|
case 2:
|
|
// (, line 196
|
|
// <-, line 196
|
|
slice_from("c");
|
|
break;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
private bool CanStem()
|
|
{
|
|
bool subroot = false;
|
|
int v_1;
|
|
int v_2;
|
|
int v_3;
|
|
int v_4;
|
|
int v_5;
|
|
int v_6;
|
|
int v_7;
|
|
int v_8;
|
|
int v_9;
|
|
int v_10;
|
|
// (, line 201
|
|
// do, line 202
|
|
v_1 = cursor;
|
|
do
|
|
{
|
|
// call prelude, line 202
|
|
if (!r_prelude())
|
|
{
|
|
break;
|
|
}
|
|
} while (false);
|
|
cursor = v_1;
|
|
// do, line 203
|
|
v_2 = cursor;
|
|
do
|
|
{
|
|
// call mark_regions, line 203
|
|
if (!r_mark_regions())
|
|
{
|
|
break;
|
|
}
|
|
} while (false);
|
|
cursor = v_2;
|
|
// backwards, line 204
|
|
limit_backward = cursor; cursor = limit;
|
|
// (, line 204
|
|
// do, line 205
|
|
v_3 = limit - cursor;
|
|
do
|
|
{
|
|
// (, line 205
|
|
// or, line 209
|
|
do
|
|
{
|
|
v_4 = limit - cursor;
|
|
do
|
|
{
|
|
// (, line 206
|
|
// and, line 207
|
|
v_5 = limit - cursor;
|
|
// (, line 206
|
|
// or, line 206
|
|
do
|
|
{
|
|
v_6 = limit - cursor;
|
|
do
|
|
{
|
|
// call standard_suffix, line 206
|
|
if (!r_standard_suffix())
|
|
{
|
|
break;
|
|
}
|
|
subroot = true;
|
|
if (subroot) break;
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
cursor = limit - v_6;
|
|
// call verb_suffix, line 206
|
|
if (!r_verb_suffix())
|
|
{
|
|
subroot = true;
|
|
break;
|
|
}
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
cursor = limit - v_5;
|
|
// do, line 207
|
|
v_7 = limit - cursor;
|
|
do
|
|
{
|
|
// (, line 207
|
|
// [, line 207
|
|
ket = cursor;
|
|
// literal, line 207
|
|
if (!(eq_s_b(1, "i")))
|
|
{
|
|
break;
|
|
}
|
|
// ], line 207
|
|
bra = cursor;
|
|
// test, line 207
|
|
v_8 = limit - cursor;
|
|
// literal, line 207
|
|
if (!(eq_s_b(1, "c")))
|
|
{
|
|
break;
|
|
}
|
|
cursor = limit - v_8;
|
|
// call RV, line 207
|
|
if (!r_RV())
|
|
{
|
|
break;
|
|
}
|
|
// delete, line 207
|
|
slice_del();
|
|
} while (false);
|
|
cursor = limit - v_7;
|
|
subroot = true;
|
|
if (subroot) break;
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
cursor = limit - v_4;
|
|
// call residual_suffix, line 209
|
|
if (!r_residual_suffix())
|
|
{
|
|
subroot = true;
|
|
break;
|
|
}
|
|
} while (false);
|
|
if (subroot) { subroot = false; break; }
|
|
} while (false);
|
|
cursor = limit - v_3;
|
|
// do, line 211
|
|
v_9 = limit - cursor;
|
|
do
|
|
{
|
|
// call residual_form, line 211
|
|
if (!r_residual_form())
|
|
{
|
|
break;
|
|
}
|
|
} while (false);
|
|
cursor = limit - v_9;
|
|
cursor = limit_backward; // do, line 213
|
|
v_10 = cursor;
|
|
do
|
|
{
|
|
// call postlude, line 213
|
|
if (!r_postlude())
|
|
{
|
|
break;
|
|
}
|
|
} while (false);
|
|
cursor = v_10;
|
|
return true;
|
|
}
|
|
|
|
public string Lex(string s)
|
|
{
|
|
this.setCurrent(s.ToLowerInvariant());
|
|
this.CanStem();
|
|
return this.getCurrent();
|
|
}
|
|
}
|
|
} |