|
|
|
|
/*
|
|
|
|
|
* 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 RussianStemmer : StemmerOperations, ILexer
|
|
|
|
|
{
|
|
|
|
|
private readonly static RussianStemmer methodObject = new RussianStemmer();
|
|
|
|
|
|
|
|
|
|
private readonly static Among[] a_0 =
|
|
|
|
|
{
|
|
|
|
|
new Among ( "\u0432", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0432", 0, 2, null! ),
|
|
|
|
|
new Among ( "\u044B\u0432", 0, 2, null! ),
|
|
|
|
|
new Among ( "\u0432\u0448\u0438", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0432\u0448\u0438", 3, 2, null! ),
|
|
|
|
|
new Among ( "\u044B\u0432\u0448\u0438", 3, 2, null! ),
|
|
|
|
|
new Among ( "\u0432\u0448\u0438\u0441\u044C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0432\u0448\u0438\u0441\u044C", 6, 2, null! ),
|
|
|
|
|
new Among ( "\u044B\u0432\u0448\u0438\u0441\u044C", 6, 2, null! )
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
private readonly static Among[] a_1 =
|
|
|
|
|
{
|
|
|
|
|
new Among ( "\u0435\u0435", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0435", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u043E\u0435", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u044B\u0435", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u043C\u0438", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u044B\u043C\u0438", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u0439", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0439", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u043E\u0439", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u044B\u0439", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u043C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u043C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u043E\u043C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u044B\u043C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u0433\u043E", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u043E\u0433\u043E", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u043C\u0443", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u043E\u043C\u0443", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0445", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u044B\u0445", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u044E", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u043E\u044E", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0443\u044E", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u044E\u044E", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0430\u044F", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u044F\u044F", -1, 1, null! )
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
private readonly static Among[] a_2 =
|
|
|
|
|
{
|
|
|
|
|
new Among ( "\u0435\u043C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u043D\u043D", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0432\u0448", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0432\u0448", 2, 2, null! ),
|
|
|
|
|
new Among ( "\u044B\u0432\u0448", 2, 2, null! ),
|
|
|
|
|
new Among ( "\u0449", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u044E\u0449", 5, 1, null! ),
|
|
|
|
|
new Among ( "\u0443\u044E\u0449", 6, 2, null! )
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
private readonly static Among[] a_3 =
|
|
|
|
|
{
|
|
|
|
|
new Among ( "\u0441\u044C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0441\u044F", -1, 1, null! )
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
private readonly static Among[] a_4 =
|
|
|
|
|
{
|
|
|
|
|
new Among ( "\u043B\u0430", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u043B\u0430", 0, 2, null! ),
|
|
|
|
|
new Among ( "\u044B\u043B\u0430", 0, 2, null! ),
|
|
|
|
|
new Among ( "\u043D\u0430", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u043D\u0430", 3, 2, null! ),
|
|
|
|
|
new Among ( "\u0435\u0442\u0435", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0442\u0435", -1, 2, null! ),
|
|
|
|
|
new Among ( "\u0439\u0442\u0435", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u0439\u0442\u0435", 7, 2, null! ),
|
|
|
|
|
new Among ( "\u0443\u0439\u0442\u0435", 7, 2, null! ),
|
|
|
|
|
new Among ( "\u043B\u0438", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u043B\u0438", 10, 2, null! ),
|
|
|
|
|
new Among ( "\u044B\u043B\u0438", 10, 2, null! ),
|
|
|
|
|
new Among ( "\u0439", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u0439", 13, 2, null! ),
|
|
|
|
|
new Among ( "\u0443\u0439", 13, 2, null! ),
|
|
|
|
|
new Among ( "\u043B", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u043B", 16, 2, null! ),
|
|
|
|
|
new Among ( "\u044B\u043B", 16, 2, null! ),
|
|
|
|
|
new Among ( "\u0435\u043C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u043C", -1, 2, null! ),
|
|
|
|
|
new Among ( "\u044B\u043C", -1, 2, null! ),
|
|
|
|
|
new Among ( "\u043D", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u043D", 22, 2, null! ),
|
|
|
|
|
new Among ( "\u043B\u043E", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u043B\u043E", 24, 2, null! ),
|
|
|
|
|
new Among ( "\u044B\u043B\u043E", 24, 2, null! ),
|
|
|
|
|
new Among ( "\u043D\u043E", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u043D\u043E", 27, 2, null! ),
|
|
|
|
|
new Among ( "\u043D\u043D\u043E", 27, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u0442", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0443\u0435\u0442", 30, 2, null! ),
|
|
|
|
|
new Among ( "\u0438\u0442", -1, 2, null! ),
|
|
|
|
|
new Among ( "\u044B\u0442", -1, 2, null! ),
|
|
|
|
|
new Among ( "\u044E\u0442", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0443\u044E\u0442", 34, 2, null! ),
|
|
|
|
|
new Among ( "\u044F\u0442", -1, 2, null! ),
|
|
|
|
|
new Among ( "\u043D\u044B", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u043D\u044B", 37, 2, null! ),
|
|
|
|
|
new Among ( "\u0442\u044C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0442\u044C", 39, 2, null! ),
|
|
|
|
|
new Among ( "\u044B\u0442\u044C", 39, 2, null! ),
|
|
|
|
|
new Among ( "\u0435\u0448\u044C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0448\u044C", -1, 2, null! ),
|
|
|
|
|
new Among ( "\u044E", -1, 2, null! ),
|
|
|
|
|
new Among ( "\u0443\u044E", 44, 2, null! )
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
private readonly static Among[] a_5 =
|
|
|
|
|
{
|
|
|
|
|
new Among ( "\u0430", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u0432", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u043E\u0432", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0435", 3, 1, null! ),
|
|
|
|
|
new Among ( "\u044C\u0435", 3, 1, null! ),
|
|
|
|
|
new Among ( "\u0438", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u0438", 6, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0438", 6, 1, null! ),
|
|
|
|
|
new Among ( "\u0430\u043C\u0438", 6, 1, null! ),
|
|
|
|
|
new Among ( "\u044F\u043C\u0438", 6, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u044F\u043C\u0438", 10, 1, null! ),
|
|
|
|
|
new Among ( "\u0439", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u0439", 12, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0435\u0439", 13, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0439", 12, 1, null! ),
|
|
|
|
|
new Among ( "\u043E\u0439", 12, 1, null! ),
|
|
|
|
|
new Among ( "\u0430\u043C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0435\u043C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u0435\u043C", 18, 1, null! ),
|
|
|
|
|
new Among ( "\u043E\u043C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u044F\u043C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u044F\u043C", 21, 1, null! ),
|
|
|
|
|
new Among ( "\u043E", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0443", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0430\u0445", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u044F\u0445", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u044F\u0445", 26, 1, null! ),
|
|
|
|
|
new Among ( "\u044B", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u044C", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u044E", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u044E", 30, 1, null! ),
|
|
|
|
|
new Among ( "\u044C\u044E", 30, 1, null! ),
|
|
|
|
|
new Among ( "\u044F", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u0438\u044F", 33, 1, null! ),
|
|
|
|
|
new Among ( "\u044C\u044F", 33, 1, null! )
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
private readonly static Among[] a_6 =
|
|
|
|
|
{
|
|
|
|
|
new Among ( "\u043E\u0441\u0442", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u043E\u0441\u0442\u044C", -1, 1, null! )
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
private readonly static Among[] a_7 =
|
|
|
|
|
{
|
|
|
|
|
new Among ( "\u0435\u0439\u0448\u0435", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u043D", -1, 2, null! ),
|
|
|
|
|
new Among ( "\u0435\u0439\u0448", -1, 1, null! ),
|
|
|
|
|
new Among ( "\u044C", -1, 3, null! )
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
private static readonly char[] g_v = { (char)33, (char)65, (char)8, (char)232 };
|
|
|
|
|
private int I_p2;
|
|
|
|
|
private int I_pV;
|
|
|
|
|
|
|
|
|
|
private void copy_from(RussianStemmer other)
|
|
|
|
|
{
|
|
|
|
|
I_p2 = other.I_p2;
|
|
|
|
|
I_pV = other.I_pV;
|
|
|
|
|
copy_from(other);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
private bool r_mark_regions()
|
|
|
|
|
{
|
|
|
|
|
bool root = false;
|
|
|
|
|
bool subroot = false;
|
|
|
|
|
int v_1;
|
|
|
|
|
|
|
|
|
|
// (, line 57
|
|
|
|
|
|
|
|
|
|
I_pV = limit;
|
|
|
|
|
|
|
|
|
|
I_p2 = limit;
|
|
|
|
|
|
|
|
|
|
// do, line 61
|
|
|
|
|
|
|
|
|
|
v_1 = cursor;
|
|
|
|
|
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
// (, line 61
|
|
|
|
|
// gopast, line 62
|
|
|
|
|
while (true)
|
|
|
|
|
{
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
if (!(in_grouping(g_v, 1072, 1103)))
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
subroot = true;
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
} while (false);
|
|
|
|
|
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
|
|
|
|
|
if (cursor >= limit)
|
|
|
|
|
{
|
|
|
|
|
root = true;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
cursor++;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (root) break;
|
|
|
|
|
root = false;
|
|
|
|
|
subroot = false;
|
|
|
|
|
// setmark pV, line 62
|
|
|
|
|
I_pV = cursor;
|
|
|
|
|
// gopast, line 62
|
|
|
|
|
while (true)
|
|
|
|
|
{
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
if (!(out_grouping(g_v, 1072, 1103)))
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
subroot = true;
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
} while (false);
|
|
|
|
|
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
|
|
|
|
|
if (cursor >= limit)
|
|
|
|
|
{
|
|
|
|
|
root = true;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
cursor++;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (root) break;
|
|
|
|
|
root = false;
|
|
|
|
|
subroot = false;
|
|
|
|
|
// gopast, line 63
|
|
|
|
|
while (true)
|
|
|
|
|
{
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
if (!(in_grouping(g_v, 1072, 1103)))
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
subroot = true;
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
} while (false);
|
|
|
|
|
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
if (cursor >= limit)
|
|
|
|
|
{
|
|
|
|
|
root = true;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
cursor++;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (root) break;
|
|
|
|
|
root = false;
|
|
|
|
|
subroot = false;
|
|
|
|
|
// gopast, line 63
|
|
|
|
|
while (true)
|
|
|
|
|
{
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
if (!(out_grouping(g_v, 1072, 1103)))
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
subroot = true;
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
} while (false);
|
|
|
|
|
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
|
|
|
|
|
if (cursor >= limit)
|
|
|
|
|
{
|
|
|
|
|
root = true;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
cursor++;
|
|
|
|
|
}
|
|
|
|
|
if (root) break;
|
|
|
|
|
// setmark p2, line 63
|
|
|
|
|
I_p2 = cursor;
|
|
|
|
|
} while (false);
|
|
|
|
|
cursor = v_1;
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
private bool r_R2()
|
|
|
|
|
{
|
|
|
|
|
if (!(I_p2 <= cursor))
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
private bool r_perfective_gerund()
|
|
|
|
|
{
|
|
|
|
|
bool subroot = false;
|
|
|
|
|
int among_var;
|
|
|
|
|
int v_1;
|
|
|
|
|
// (, line 71
|
|
|
|
|
// [, line 72
|
|
|
|
|
ket = cursor;
|
|
|
|
|
// substring, line 72
|
|
|
|
|
among_var = find_among_b(a_0, 9);
|
|
|
|
|
if (among_var == 0)
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
// ], line 72
|
|
|
|
|
bra = cursor;
|
|
|
|
|
switch (among_var)
|
|
|
|
|
{
|
|
|
|
|
case 0:
|
|
|
|
|
return false;
|
|
|
|
|
|
|
|
|
|
case 1:
|
|
|
|
|
// (, line 76
|
|
|
|
|
// or, line 76
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
v_1 = limit - cursor;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
// literal, line 76
|
|
|
|
|
if (!(eq_s_b(1, "\u0430")))
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
subroot = true;
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
} while (false);
|
|
|
|
|
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
cursor = limit - v_1;
|
|
|
|
|
// literal, line 76
|
|
|
|
|
if (!(eq_s_b(1, "\u044F")))
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
} while (false);
|
|
|
|
|
// delete, line 76
|
|
|
|
|
slice_del();
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 2:
|
|
|
|
|
// (, line 83
|
|
|
|
|
// delete, line 83
|
|
|
|
|
slice_del();
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
private bool r_adjective()
|
|
|
|
|
{
|
|
|
|
|
int among_var;
|
|
|
|
|
// (, line 87
|
|
|
|
|
// [, line 88
|
|
|
|
|
ket = cursor;
|
|
|
|
|
// substring, line 88
|
|
|
|
|
among_var = find_among_b(a_1, 26);
|
|
|
|
|
if (among_var == 0)
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
// ], line 88
|
|
|
|
|
bra = cursor;
|
|
|
|
|
switch (among_var)
|
|
|
|
|
{
|
|
|
|
|
case 0:
|
|
|
|
|
return false;
|
|
|
|
|
|
|
|
|
|
case 1:
|
|
|
|
|
// (, line 97
|
|
|
|
|
// delete, line 97
|
|
|
|
|
slice_del();
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
private bool r_adjectival()
|
|
|
|
|
{
|
|
|
|
|
bool root = false;
|
|
|
|
|
bool subroot = false;
|
|
|
|
|
int among_var;
|
|
|
|
|
int v_1;
|
|
|
|
|
int v_2;
|
|
|
|
|
// (, line 101
|
|
|
|
|
// call adjective, line 102
|
|
|
|
|
if (!r_adjective())
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
// try, line 109
|
|
|
|
|
v_1 = limit - cursor;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
// (, line 109
|
|
|
|
|
// [, line 110
|
|
|
|
|
ket = cursor;
|
|
|
|
|
// substring, line 110
|
|
|
|
|
among_var = find_among_b(a_2, 8);
|
|
|
|
|
if (among_var == 0)
|
|
|
|
|
{
|
|
|
|
|
cursor = limit - v_1;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
// ], line 110
|
|
|
|
|
bra = cursor;
|
|
|
|
|
switch (among_var)
|
|
|
|
|
{
|
|
|
|
|
case 0:
|
|
|
|
|
cursor = limit - v_1;
|
|
|
|
|
goto default;
|
|
|
|
|
case 1:
|
|
|
|
|
// (, line 115
|
|
|
|
|
// or, line 115
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
v_2 = limit - cursor;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
// literal, line 115
|
|
|
|
|
if (!(eq_s_b(1, "\u0430")))
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
subroot = true;
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
} while (false);
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
cursor = limit - v_2;
|
|
|
|
|
// literal, line 115
|
|
|
|
|
if (!(eq_s_b(1, "\u044F")))
|
|
|
|
|
{
|
|
|
|
|
cursor = limit - v_1;
|
|
|
|
|
goto default;
|
|
|
|
|
}
|
|
|
|
|
} while (false);
|
|
|
|
|
// delete, line 115
|
|
|
|
|
slice_del();
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 2:
|
|
|
|
|
// (, line 122
|
|
|
|
|
// delete, line 122
|
|
|
|
|
slice_del();
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
default: root = true; break;
|
|
|
|
|
}
|
|
|
|
|
if (root) break;
|
|
|
|
|
} while (false);
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
private bool r_reflexive()
|
|
|
|
|
{
|
|
|
|
|
int among_var;
|
|
|
|
|
// (, line 128
|
|
|
|
|
// [, line 129
|
|
|
|
|
ket = cursor;
|
|
|
|
|
// substring, line 129
|
|
|
|
|
among_var = find_among_b(a_3, 2);
|
|
|
|
|
if (among_var == 0)
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
// ], line 129
|
|
|
|
|
bra = cursor;
|
|
|
|
|
switch (among_var)
|
|
|
|
|
{
|
|
|
|
|
case 0:
|
|
|
|
|
return false;
|
|
|
|
|
|
|
|
|
|
case 1:
|
|
|
|
|
// (, line 132
|
|
|
|
|
// delete, line 132
|
|
|
|
|
slice_del();
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
private bool r_verb()
|
|
|
|
|
{
|
|
|
|
|
bool subroot = false;
|
|
|
|
|
int among_var;
|
|
|
|
|
int v_1;
|
|
|
|
|
// (, line 136
|
|
|
|
|
// [, line 137
|
|
|
|
|
ket = cursor;
|
|
|
|
|
// substring, line 137
|
|
|
|
|
among_var = find_among_b(a_4, 46);
|
|
|
|
|
if (among_var == 0)
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
// ], line 137
|
|
|
|
|
bra = cursor;
|
|
|
|
|
switch (among_var)
|
|
|
|
|
{
|
|
|
|
|
case 0:
|
|
|
|
|
return false;
|
|
|
|
|
|
|
|
|
|
case 1:
|
|
|
|
|
// (, line 143
|
|
|
|
|
// or, line 143
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
v_1 = limit - cursor;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
// literal, line 143
|
|
|
|
|
if (!(eq_s_b(1, "\u0430")))
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
subroot = true;
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
} while (false);
|
|
|
|
|
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
|
|
|
|
|
cursor = limit - v_1;
|
|
|
|
|
// literal, line 143
|
|
|
|
|
if (!(eq_s_b(1, "\u044F")))
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
} while (false);
|
|
|
|
|
// delete, line 143
|
|
|
|
|
slice_del();
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 2:
|
|
|
|
|
// (, line 151
|
|
|
|
|
// delete, line 151
|
|
|
|
|
slice_del();
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
private bool r_noun()
|
|
|
|
|
{
|
|
|
|
|
int among_var;
|
|
|
|
|
// (, line 159
|
|
|
|
|
// [, line 160
|
|
|
|
|
ket = cursor;
|
|
|
|
|
// substring, line 160
|
|
|
|
|
among_var = find_among_b(a_5, 36);
|
|
|
|
|
if (among_var == 0)
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
// ], line 160
|
|
|
|
|
bra = cursor;
|
|
|
|
|
switch (among_var)
|
|
|
|
|
{
|
|
|
|
|
case 0:
|
|
|
|
|
return false;
|
|
|
|
|
|
|
|
|
|
case 1:
|
|
|
|
|
// (, line 167
|
|
|
|
|
// delete, line 167
|
|
|
|
|
slice_del();
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
private bool r_derivational()
|
|
|
|
|
{
|
|
|
|
|
int among_var;
|
|
|
|
|
// (, line 175
|
|
|
|
|
// [, line 176
|
|
|
|
|
ket = cursor;
|
|
|
|
|
// substring, line 176
|
|
|
|
|
among_var = find_among_b(a_6, 2);
|
|
|
|
|
if (among_var == 0)
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
// ], line 176
|
|
|
|
|
bra = cursor;
|
|
|
|
|
// call R2, line 176
|
|
|
|
|
if (!r_R2())
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
switch (among_var)
|
|
|
|
|
{
|
|
|
|
|
case 0:
|
|
|
|
|
return false;
|
|
|
|
|
|
|
|
|
|
case 1:
|
|
|
|
|
// (, line 179
|
|
|
|
|
// delete, line 179
|
|
|
|
|
slice_del();
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
private bool r_tidy_up()
|
|
|
|
|
{
|
|
|
|
|
int among_var;
|
|
|
|
|
// (, line 183
|
|
|
|
|
// [, line 184
|
|
|
|
|
ket = cursor;
|
|
|
|
|
// substring, line 184
|
|
|
|
|
among_var = find_among_b(a_7, 4);
|
|
|
|
|
if (among_var == 0)
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
// ], line 184
|
|
|
|
|
bra = cursor;
|
|
|
|
|
switch (among_var)
|
|
|
|
|
{
|
|
|
|
|
case 0:
|
|
|
|
|
return false;
|
|
|
|
|
|
|
|
|
|
case 1:
|
|
|
|
|
// (, line 188
|
|
|
|
|
// delete, line 188
|
|
|
|
|
slice_del();
|
|
|
|
|
// [, line 189
|
|
|
|
|
ket = cursor;
|
|
|
|
|
// literal, line 189
|
|
|
|
|
if (!(eq_s_b(1, "\u043D")))
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
// ], line 189
|
|
|
|
|
bra = cursor;
|
|
|
|
|
// literal, line 189
|
|
|
|
|
if (!(eq_s_b(1, "\u043D")))
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
// delete, line 189
|
|
|
|
|
slice_del();
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 2:
|
|
|
|
|
// (, line 192
|
|
|
|
|
// literal, line 192
|
|
|
|
|
if (!(eq_s_b(1, "\u043D")))
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
// delete, line 192
|
|
|
|
|
slice_del();
|
|
|
|
|
break;
|
|
|
|
|
|
|
|
|
|
case 3:
|
|
|
|
|
// (, line 194
|
|
|
|
|
// delete, line 194
|
|
|
|
|
slice_del();
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
public bool CanStem()
|
|
|
|
|
{
|
|
|
|
|
bool root = false;
|
|
|
|
|
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 199
|
|
|
|
|
// do, line 201
|
|
|
|
|
v_1 = cursor;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
// call mark_regions, line 201
|
|
|
|
|
if (!r_mark_regions())
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
} while (false);
|
|
|
|
|
cursor = v_1;
|
|
|
|
|
// backwards, line 202
|
|
|
|
|
limit_backward = cursor; cursor = limit;
|
|
|
|
|
// setlimit, line 202
|
|
|
|
|
v_2 = limit - cursor;
|
|
|
|
|
// tomark, line 202
|
|
|
|
|
if (cursor < I_pV)
|
|
|
|
|
{
|
|
|
|
|
return false;
|
|
|
|
|
}
|
|
|
|
|
cursor = I_pV;
|
|
|
|
|
v_3 = limit_backward;
|
|
|
|
|
limit_backward = cursor;
|
|
|
|
|
cursor = limit - v_2;
|
|
|
|
|
// (, line 202
|
|
|
|
|
// do, line 203
|
|
|
|
|
v_4 = limit - cursor;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
// (, line 203
|
|
|
|
|
// or, line 204
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
v_5 = limit - cursor;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
// call perfective_gerund, line 204
|
|
|
|
|
if (!r_perfective_gerund())
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
subroot = true;
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
} while (false);
|
|
|
|
|
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
cursor = limit - v_5;
|
|
|
|
|
// (, line 205
|
|
|
|
|
// try, line 205
|
|
|
|
|
v_6 = limit - cursor;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
// call reflexive, line 205
|
|
|
|
|
if (!r_reflexive())
|
|
|
|
|
{
|
|
|
|
|
cursor = limit - v_6;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
} while (false);
|
|
|
|
|
// or, line 206
|
|
|
|
|
subroot = false;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
v_7 = limit - cursor;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
// call adjectival, line 206
|
|
|
|
|
if (!r_adjectival())
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
subroot = true;
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
} while (false);
|
|
|
|
|
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
|
|
|
|
|
cursor = limit - v_7;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
// call verb, line 206
|
|
|
|
|
if (!r_verb())
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
subroot = true;
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
} while (false);
|
|
|
|
|
|
|
|
|
|
if (subroot) break;
|
|
|
|
|
|
|
|
|
|
cursor = limit - v_7;
|
|
|
|
|
// call noun, line 206
|
|
|
|
|
if (!r_noun())
|
|
|
|
|
{
|
|
|
|
|
root = true;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
} while (false);
|
|
|
|
|
|
|
|
|
|
if (root) break;
|
|
|
|
|
} while (false);
|
|
|
|
|
|
|
|
|
|
if (root) break;
|
|
|
|
|
} while (false);
|
|
|
|
|
cursor = limit - v_4;
|
|
|
|
|
|
|
|
|
|
root = false;
|
|
|
|
|
subroot = false;
|
|
|
|
|
|
|
|
|
|
// try, line 209
|
|
|
|
|
v_8 = limit - cursor;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
// (, line 209
|
|
|
|
|
// [, line 209
|
|
|
|
|
ket = cursor;
|
|
|
|
|
// literal, line 209
|
|
|
|
|
if (!(eq_s_b(1, "\u0438")))
|
|
|
|
|
{
|
|
|
|
|
cursor = limit - v_8;
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
// ], line 209
|
|
|
|
|
bra = cursor;
|
|
|
|
|
// delete, line 209
|
|
|
|
|
slice_del();
|
|
|
|
|
} while (false);
|
|
|
|
|
// do, line 212
|
|
|
|
|
v_9 = limit - cursor;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
// call derivational, line 212
|
|
|
|
|
if (!r_derivational())
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
} while (false);
|
|
|
|
|
cursor = limit - v_9;
|
|
|
|
|
// do, line 213
|
|
|
|
|
v_10 = limit - cursor;
|
|
|
|
|
do
|
|
|
|
|
{
|
|
|
|
|
// call tidy_up, line 213
|
|
|
|
|
if (!r_tidy_up())
|
|
|
|
|
{
|
|
|
|
|
break;
|
|
|
|
|
}
|
|
|
|
|
} while (false);
|
|
|
|
|
cursor = limit - v_10;
|
|
|
|
|
limit_backward = v_3;
|
|
|
|
|
cursor = limit_backward;
|
|
|
|
|
return true;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
public string Lex(string s)
|
|
|
|
|
{
|
|
|
|
|
this.setCurrent(s.ToLowerInvariant());
|
|
|
|
|
this.CanStem();
|
|
|
|
|
return this.getCurrent();
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
