/*
 *  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 System.Text;
using ZeroLevel.Services.Semantic;

namespace Iveonik.Stemmers
{
    public class FinnishStemmer : StemmerOperations, ILexer
    {
        ///private static final long serialVersionUID = 1L;

        private readonly static FinnishStemmer methodObject = new FinnishStemmer();

        public delegate bool DelegateType();

        private readonly static Among[] a_0 = {
                    new Among ( "pa", -1, 1, null! ),
                    new Among ( "sti", -1, 2, null! ),
                    new Among ( "kaan", -1, 1, null! ),
                    new Among ( "han", -1, 1, null! ),
                    new Among ( "kin", -1, 1, null! ),
                    new Among ( "h\u00E4n", -1, 1, null! ),
                    new Among ( "k\u00E4\u00E4n", -1, 1, null! ),
                    new Among ( "ko", -1, 1, null! ),
                    new Among ( "p\u00E4", -1, 1, null! ),
                    new Among ( "k\u00F6", -1, 1, null! )
                };

        private readonly static Among[] a_1 = {
                    new Among ( "lla", -1, -1, null! ),
                    new Among ( "na", -1, -1, null! ),
                    new Among ( "ssa", -1, -1, null! ),
                    new Among ( "ta", -1, -1, null! ),
                    new Among ( "lta", 3, -1, null! ),
                    new Among ( "sta", 3, -1, null! )
                };

        private readonly static Among[] a_2 = {
                    new Among ( "ll\u00E4", -1, -1, null! ),
                    new Among ( "n\u00E4", -1, -1, null! ),
                    new Among ( "ss\u00E4", -1, -1, null! ),
                    new Among ( "t\u00E4", -1, -1, null! ),
                    new Among ( "lt\u00E4", 3, -1, null! ),
                    new Among ( "st\u00E4", 3, -1, null! )
                };

        private readonly static Among[] a_3 = {
                    new Among ( "lle", -1, -1, null! ),
                    new Among ( "ine", -1, -1, null! )
                };

        private readonly static Among[] a_4 = {
                    new Among ( "nsa", -1, 3, null! ),
                    new Among ( "mme", -1, 3, null! ),
                    new Among ( "nne", -1, 3, null! ),
                    new Among ( "ni", -1, 2, null! ),
                    new Among ( "si", -1, 1, null! ),
                    new Among ( "an", -1, 4, null! ),
                    new Among ( "en", -1, 6, null! ),
                    new Among ( "\u00E4n", -1, 5, null! ),
                    new Among ( "ns\u00E4", -1, 3, null! )
                };

        private readonly static Among[] a_5 = {
                    new Among ( "aa", -1, -1, null! ),
                    new Among ( "ee", -1, -1, null! ),
                    new Among ( "ii", -1, -1, null! ),
                    new Among ( "oo", -1, -1, null! ),
                    new Among ( "uu", -1, -1, null! ),
                    new Among ( "\u00E4\u00E4", -1, -1, null! ),
                    new Among ( "\u00F6\u00F6", -1, -1, null! )
                };

        private readonly static Among[] a_6 = {
                    new Among ( "a", -1, 8, null! ),
                    new Among ( "lla", 0, -1, null! ),
                    new Among ( "na", 0, -1, null! ),
                    new Among ( "ssa", 0, -1, null! ),
                    new Among ( "ta", 0, -1, null! ),
                    new Among ( "lta", 4, -1, null! ),
                    new Among ( "sta", 4, -1, null! ),
                    new Among ( "tta", 4, 9, null! ),
                    new Among ( "lle", -1, -1, null! ),
                    new Among ( "ine", -1, -1, null! ),
                    new Among ( "ksi", -1, -1, null! ),
                    new Among ( "n", -1, 7, null! ),
                    new Among ( "han", 11, 1, null! ),
                    new Among ( "den", 11, -1, delegate{ return methodObject.r_VI();} /*"r_VI"*/ ),
                    new Among ( "seen", 11, -1, delegate{return methodObject.r_LONG();}/*"r_LONG"*/ ),
                    new Among ( "hen", 11, 2, null! ),
                    new Among ( "tten", 11, -1,delegate{ return methodObject.r_VI();} /*"r_VI"*/ ),
                    new Among ( "hin", 11, 3, null! ),
                    new Among ( "siin", 11, -1,delegate{ return methodObject.r_VI();} /*"r_VI"*/ ),
                    new Among ( "hon", 11, 4, null! ),
                    new Among ( "h\u00E4n", 11, 5, null! ),
                    new Among ( "h\u00F6n", 11, 6, null! ),
                    new Among ( "\u00E4", -1, 8, null! ),
                    new Among ( "ll\u00E4", 22, -1, null! ),
                    new Among ( "n\u00E4", 22, -1, null! ),
                    new Among ( "ss\u00E4", 22, -1, null! ),
                    new Among ( "t\u00E4", 22, -1, null! ),
                    new Among ( "lt\u00E4", 26, -1, null! ),
                    new Among ( "st\u00E4", 26, -1, null! ),
                    new Among ( "tt\u00E4", 26, 9, null! )
                };

        private readonly static Among[] a_7 = {
                    new Among ( "eja", -1, -1, null! ),
                    new Among ( "mma", -1, 1, null! ),
                    new Among ( "imma", 1, -1, null! ),
                    new Among ( "mpa", -1, 1, null! ),
                    new Among ( "impa", 3, -1, null! ),
                    new Among ( "mmi", -1, 1, null! ),
                    new Among ( "immi", 5, -1, null! ),
                    new Among ( "mpi", -1, 1, null! ),
                    new Among ( "impi", 7, -1, null! ),
                    new Among ( "ej\u00E4", -1, -1, null! ),
                    new Among ( "mm\u00E4", -1, 1, null! ),
                    new Among ( "imm\u00E4", 10, -1, null! ),
                    new Among ( "mp\u00E4", -1, 1, null! ),
                    new Among ( "imp\u00E4", 12, -1, null! )
                };

        private readonly static Among[] a_8 = {
                    new Among ( "i", -1, -1, null! ),
                    new Among ( "j", -1, -1, null! )
                };

        private readonly static Among[] a_9 = {
                    new Among ( "mma", -1, 1, null! ),
                    new Among ( "imma", 0, -1, null! )
                };

        private static readonly char[] g_AEI = {(char)17, (char)1, (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)0, (char)8 };

        private static readonly char[] g_V1 = {(char)17, (char)65, (char)16, (char)1, (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)8, (char)0,
                                                          (char)32 };

        private static readonly char[] g_V2 = {(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)8, (char)0,
                                                          (char)32 };

        private static readonly char[] g_particle_end = {(char)17, (char)97, (char)24, (char)1, (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)8, (char)0, (char)32 };

        private bool B_ending_removed;
        private StringBuilder S_x = new StringBuilder();
        private int I_p2;
        private int I_p1;

        private void copy_from(FinnishStemmer other)
        {
            B_ending_removed = other.B_ending_removed;
            S_x = other.S_x;
            I_p2 = other.I_p2;
            I_p1 = other.I_p1;
            base.copy_from(other);
        }

        private bool r_mark_regions()
        {
            bool subroot = false;
            int v_1;
            int v_3;
            // (, line 41
            I_p1 = limit;
            I_p2 = limit;
            // goto, line 46
            while (true)
            {
                v_1 = cursor;
                do
                {
                    if (!(in_grouping(g_V1, 97, 246)))
                    {
                        break;
                    }
                    cursor = v_1;
                    subroot = true;
                    if (subroot) break;
                } while (false);
                if (subroot) { subroot = false; break; }
                cursor = v_1;
                if (cursor >= limit)
                {
                    return false;
                }
                cursor++;
            }
            // gopast, line 46
            while (true)
            {
                do
                {
                    if (!(out_grouping(g_V1, 97, 246)))
                    {
                        break;
                    }
                    subroot = true;
                    if (subroot) break;
                } while (false);
                if (subroot) { subroot = false; break; }
                if (cursor >= limit)
                {
                    return false;
                }
                cursor++;
            }
            // setmark p1, line 46
            I_p1 = cursor;
            // goto, line 47
            while (true)
            {
                v_3 = cursor;
                do
                {
                    if (!(in_grouping(g_V1, 97, 246)))
                    {
                        break;
                    }
                    cursor = v_3;
                    subroot = true;
                    if (subroot) break;
                } while (false);
                if (subroot) { subroot = false; break; }
                cursor = v_3;
                if (cursor >= limit)
                {
                    return false;
                }
                cursor++;
            }
            // gopast, line 47
            while (true)
            {
                do
                {
                    if (!(out_grouping(g_V1, 97, 246)))
                    {
                        break;
                    }
                    subroot = true;
                    if (subroot) break;
                } while (false);
                if (subroot) { subroot = false; break; }
                if (cursor >= limit)
                {
                    return false;
                }
                cursor++;
            }
            // setmark p2, line 47
            I_p2 = cursor;
            return true;
        }

        private bool r_R2()
        {
            if (!(I_p2 <= cursor))
            {
                return false;
            }
            return true;
        }

        private bool r_particle_etc()
        {
            int among_var;
            int v_1;
            int v_2;
            // (, line 54
            // setlimit, line 55
            v_1 = limit - cursor;
            // tomark, line 55
            if (cursor < I_p1)
            {
                return false;
            }
            cursor = I_p1;
            v_2 = limit_backward;
            limit_backward = cursor;
            cursor = limit - v_1;
            // (, line 55
            // [, line 55
            ket = cursor;
            // substring, line 55
            among_var = find_among_b(a_0, 10);
            if (among_var == 0)
            {
                limit_backward = v_2;
                return false;
            }
            // ], line 55
            bra = cursor;
            limit_backward = v_2;
            switch (among_var)
            {
                case 0:
                    return false;

                case 1:
                    // (, line 62
                    if (!(in_grouping_b(g_particle_end, 97, 246)))
                    {
                        return false;
                    }
                    break;

                case 2:
                    // (, line 64
                    // call R2, line 64
                    if (!r_R2())
                    {
                        return false;
                    }
                    break;
            }
            // delete, line 66
            slice_del();
            return true;
        }

        private bool r_possessive()
        {
            bool returnn = false;
            int among_var;
            int v_1;
            int v_2;
            int v_3;
            // (, line 68
            // setlimit, line 69
            v_1 = limit - cursor;
            // tomark, line 69
            if (cursor < I_p1)
            {
                return false;
            }
            cursor = I_p1;
            v_2 = limit_backward;
            limit_backward = cursor;
            cursor = limit - v_1;
            // (, line 69
            // [, line 69
            ket = cursor;
            // substring, line 69
            among_var = find_among_b(a_4, 9);
            if (among_var == 0)
            {
                limit_backward = v_2;
                return false;
            }
            // ], line 69
            bra = cursor;
            limit_backward = v_2;
            switch (among_var)
            {
                case 0:
                    return false;

                case 1:
                    // (, line 72
                    // not, line 72
                    {
                        v_3 = limit - cursor;
                        do
                        {
                            // literal, line 72
                            returnn = true;
                            if (!(eq_s_b(1, "k")))
                            {
                                returnn = false;
                                break;
                            }
                            else if (returnn)
                            {
                                return false;
                            }
                        } while (false);
                        cursor = limit - v_3;
                    }
                    // delete, line 72
                    slice_del();
                    break;

                case 2:
                    // (, line 74
                    // delete, line 74
                    slice_del();
                    // [, line 74
                    ket = cursor;
                    // literal, line 74
                    if (!(eq_s_b(3, "kse")))
                    {
                        return false;
                    }
                    // ], line 74
                    bra = cursor;
                    // <-, line 74
                    slice_from("ksi");
                    break;

                case 3:
                    // (, line 78
                    // delete, line 78
                    slice_del();
                    break;

                case 4:
                    // (, line 81
                    // among, line 81
                    if (find_among_b(a_1, 6) == 0)
                    {
                        return false;
                    }
                    // delete, line 81
                    slice_del();
                    break;

                case 5:
                    // (, line 83
                    // among, line 83
                    if (find_among_b(a_2, 6) == 0)
                    {
                        return false;
                    }
                    // delete, line 84
                    slice_del();
                    break;

                case 6:
                    // (, line 86
                    // among, line 86
                    if (find_among_b(a_3, 2) == 0)
                    {
                        return false;
                    }
                    // delete, line 86
                    slice_del();
                    break;
            }
            return true;
        }

        private bool r_LONG()
        {
            // among, line 91
            if (find_among_b(a_5, 7) == 0)
            {
                return false;
            }
            return true;
        }

        private bool r_VI()
        {
            // (, line 93
            // literal, line 93
            if (!(eq_s_b(1, "i")))
            {
                return false;
            }
            if (!(in_grouping_b(g_V2, 97, 246)))
            {
                return false;
            }
            return true;
        }

        private bool r_case_ending()
        {
            bool subroot = false;
            int among_var;
            int v_1;
            int v_2;
            int v_3;
            int v_4;
            int v_5;
            // (, line 95
            // setlimit, line 96
            v_1 = limit - cursor;
            // tomark, line 96
            if (cursor < I_p1)
            {
                return false;
            }
            cursor = I_p1;
            v_2 = limit_backward;
            limit_backward = cursor;
            cursor = limit - v_1;
            // (, line 96
            // [, line 96
            ket = cursor;
            // substring, line 96
            among_var = find_among_b(a_6, 30);
            if (among_var == 0)
            {
                limit_backward = v_2;
                return false;
            }
            // ], line 96
            bra = cursor;
            limit_backward = v_2;
            switch (among_var)
            {
                case 0:
                    return false;

                case 1:
                    // (, line 98
                    // literal, line 98
                    if (!(eq_s_b(1, "a")))
                    {
                        return false;
                    }
                    break;

                case 2:
                    // (, line 99
                    // literal, line 99
                    if (!(eq_s_b(1, "e")))
                    {
                        return false;
                    }
                    break;

                case 3:
                    // (, line 100
                    // literal, line 100
                    if (!(eq_s_b(1, "i")))
                    {
                        return false;
                    }
                    break;

                case 4:
                    // (, line 101
                    // literal, line 101
                    if (!(eq_s_b(1, "o")))
                    {
                        return false;
                    }
                    break;

                case 5:
                    // (, line 102
                    // literal, line 102
                    if (!(eq_s_b(1, "\u00E4")))
                    {
                        return false;
                    }
                    break;

                case 6:
                    // (, line 103
                    // literal, line 103
                    if (!(eq_s_b(1, "\u00F6")))
                    {
                        return false;
                    }
                    break;

                case 7:
                    // (, line 111
                    // try, line 111
                    v_3 = limit - cursor;
                    do
                    {
                        // (, line 111
                        // and, line 113
                        v_4 = limit - cursor;
                        // or, line 112
                        do
                        {
                            v_5 = limit - cursor;
                            do
                            {
                                // call LONG, line 111
                                if (!r_LONG())
                                {
                                    break;
                                }
                                subroot = true;
                                if (subroot) break;
                            } while (false);
                            if (subroot) { subroot = false; break; }
                            cursor = limit - v_5;
                            // literal, line 112
                            if (!(eq_s_b(2, "ie")))
                            {
                                cursor = limit - v_3;
                                subroot = true;
                                break;
                            }
                        } while (false);
                        if (subroot) { subroot = false; break; }
                        cursor = limit - v_4;
                        // next, line 113
                        if (cursor <= limit_backward)
                        {
                            cursor = limit - v_3;
                            break;
                        }
                        cursor--;
                        // ], line 113
                        bra = cursor;
                    } while (false);
                    break;

                case 8:
                    // (, line 119
                    if (!(in_grouping_b(g_V1, 97, 246)))
                    {
                        return false;
                    }
                    if (!(out_grouping_b(g_V1, 97, 246)))
                    {
                        return false;
                    }
                    break;

                case 9:
                    // (, line 121
                    // literal, line 121
                    if (!(eq_s_b(1, "e")))
                    {
                        return false;
                    }
                    break;
            }
            // delete, line 138
            slice_del();
            // set ending_removed, line 139
            B_ending_removed = true;
            return true;
        }

        private bool r_other_endings()
        {
            bool returnn = false;
            int among_var;
            int v_1;
            int v_2;
            int v_3;
            // (, line 141
            // setlimit, line 142
            v_1 = limit - cursor;
            // tomark, line 142
            if (cursor < I_p2)
            {
                return false;
            }
            cursor = I_p2;
            v_2 = limit_backward;
            limit_backward = cursor;
            cursor = limit - v_1;
            // (, line 142
            // [, line 142
            ket = cursor;
            // substring, line 142
            among_var = find_among_b(a_7, 14);
            if (among_var == 0)
            {
                limit_backward = v_2;
                return false;
            }
            // ], line 142
            bra = cursor;
            limit_backward = v_2;
            switch (among_var)
            {
                case 0:
                    return false;

                case 1:
                    // (, line 146
                    // not, line 146
                    {
                        v_3 = limit - cursor;
                        do
                        {
                            returnn = true;
                            // literal, line 146
                            if (!(eq_s_b(2, "po")))
                            {
                                returnn = false;
                                break;
                            }
                            else if (returnn)
                            {
                                return false;
                            }
                        } while (false);
                        cursor = limit - v_3;
                    }
                    break;
            }
            // delete, line 151
            slice_del();
            return true;
        }

        private bool r_i_plural()
        {
            int v_1;
            int v_2;
            // (, line 153
            // setlimit, line 154
            v_1 = limit - cursor;
            // tomark, line 154
            if (cursor < I_p1)
            {
                return false;
            }
            cursor = I_p1;
            v_2 = limit_backward;
            limit_backward = cursor;
            cursor = limit - v_1;
            // (, line 154
            // [, line 154
            ket = cursor;
            // substring, line 154
            if (find_among_b(a_8, 2) == 0)
            {
                limit_backward = v_2;
                return false;
            }
            // ], line 154
            bra = cursor;
            limit_backward = v_2;
            // delete, line 158
            slice_del();
            return true;
        }

        private bool r_t_plural()
        {
            bool returnn = false;
            int among_var;
            int v_1;
            int v_2;
            int v_3;
            int v_4;
            int v_5;
            int v_6;
            // (, line 160
            // setlimit, line 161
            v_1 = limit - cursor;
            // tomark, line 161
            if (cursor < I_p1)
            {
                return false;
            }
            cursor = I_p1;
            v_2 = limit_backward;
            limit_backward = cursor;
            cursor = limit - v_1;
            // (, line 161
            // [, line 162
            ket = cursor;
            // literal, line 162
            if (!(eq_s_b(1, "t")))
            {
                limit_backward = v_2;
                return false;
            }
            // ], line 162
            bra = cursor;
            // test, line 162
            v_3 = limit - cursor;
            if (!(in_grouping_b(g_V1, 97, 246)))
            {
                limit_backward = v_2;
                return false;
            }
            cursor = limit - v_3;
            // delete, line 163
            slice_del();
            limit_backward = v_2;
            // setlimit, line 165
            v_4 = limit - cursor;
            // tomark, line 165
            if (cursor < I_p2)
            {
                return false;
            }
            cursor = I_p2;
            v_5 = limit_backward;
            limit_backward = cursor;
            cursor = limit - v_4;
            // (, line 165
            // [, line 165
            ket = cursor;
            // substring, line 165
            among_var = find_among_b(a_9, 2);
            if (among_var == 0)
            {
                limit_backward = v_5;
                return false;
            }
            // ], line 165
            bra = cursor;
            limit_backward = v_5;
            switch (among_var)
            {
                case 0:
                    return false;

                case 1:
                    // (, line 167
                    // not, line 167
                    {
                        v_6 = limit - cursor;
                        do
                        {
                            returnn = true;
                            // literal, line 167
                            if (!(eq_s_b(2, "po")))
                            {
                                returnn = false;
                                break;
                            }
                            else if (returnn)
                            {
                                return false;
                            }
                        } while (false);
                        cursor = limit - v_6;
                    }
                    break;
            }
            // delete, line 170
            slice_del();
            return true;
        }

        private bool r_tidy()
        {
            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;
            // (, line 172
            // setlimit, line 173
            v_1 = limit - cursor;
            // tomark, line 173
            if (cursor < I_p1)
            {
                return false;
            }
            cursor = I_p1;
            v_2 = limit_backward;
            limit_backward = cursor;
            cursor = limit - v_1;
            // (, line 173
            // do, line 174
            v_3 = limit - cursor;
            do
            {
                // (, line 174
                // and, line 174
                v_4 = limit - cursor;
                // call LONG, line 174
                if (!r_LONG())
                {
                    break;
                }
                cursor = limit - v_4;
                // (, line 174
                // [, line 174
                ket = cursor;
                // next, line 174
                if (cursor <= limit_backward)
                {
                    break;
                }
                cursor--;
                // ], line 174
                bra = cursor;
                // delete, line 174
                slice_del();
            } while (false);
            cursor = limit - v_3;
            // do, line 175
            v_5 = limit - cursor;
            do
            {
                // (, line 175
                // [, line 175
                ket = cursor;
                if (!(in_grouping_b(g_AEI, 97, 228)))
                {
                    break;
                }
                // ], line 175
                bra = cursor;
                if (!(out_grouping_b(g_V1, 97, 246)))
                {
                    break;
                }
                // delete, line 175
                slice_del();
            } while (false);
            cursor = limit - v_5;
            // do, line 176
            v_6 = limit - cursor;
            do
            {
                // (, line 176
                // [, line 176
                ket = cursor;
                // literal, line 176
                if (!(eq_s_b(1, "j")))
                {
                    //                            break lab2;
                    break;
                }
                // ], line 176
                bra = cursor;
                // or, line 176
                do
                {
                    v_7 = limit - cursor;
                    do
                    {
                        // literal, line 176
                        if (!(eq_s_b(1, "o")))
                        {
                            break;
                        }
                        subroot = true;
                        if (subroot) break;
                    } while (false);
                    if (subroot) { subroot = false; break; }
                    cursor = limit - v_7;
                    // literal, line 176
                    if (!(eq_s_b(1, "u")))
                    {
                        subroot = true;
                        break;
                    }
                } while (false);
                if (subroot) { subroot = false; break; }
                // delete, line 176
                slice_del();
            } while (false);
            cursor = limit - v_6;
            // do, line 177
            v_8 = limit - cursor;
            do
            {
                // (, line 177
                // [, line 177
                ket = cursor;
                // literal, line 177
                if (!(eq_s_b(1, "o")))
                {
                    break;
                }
                // ], line 177
                bra = cursor;
                // literal, line 177
                if (!(eq_s_b(1, "j")))
                {
                    break;
                }
                // delete, line 177
                slice_del();
            } while (false);
            cursor = limit - v_8;
            limit_backward = v_2;
            // goto, line 179
            while (true)
            {
                v_9 = limit - cursor;
                do
                {
                    if (!(out_grouping_b(g_V1, 97, 246)))
                    {
                        break;
                    }
                    cursor = limit - v_9;
                    subroot = true;
                    if (subroot) break;
                } while (false);
                if (subroot) { subroot = false; break; }
                cursor = limit - v_9;
                if (cursor <= limit_backward)
                {
                    return false;
                }
                cursor--;
            }
            // [, line 179
            ket = cursor;
            // next, line 179
            if (cursor <= limit_backward)
            {
                return false;
            }
            cursor--;
            // ], line 179
            bra = cursor;
            // -> x, line 179
            S_x = slice_to(S_x);
            // name x, line 179
            if (!(eq_v_b(S_x)))
            {
                return false;
            }
            // delete, line 179
            slice_del();
            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;
            // (, line 183
            // do, line 185
            v_1 = cursor;
            do
            {
                // call mark_regions, line 185
                if (!r_mark_regions())
                {
                    break;
                }
            } while (false);
            cursor = v_1;
            // unset ending_removed, line 186
            B_ending_removed = false;
            // backwards, line 187
            limit_backward = cursor; cursor = limit;
            // (, line 187
            // do, line 188
            v_2 = limit - cursor;
            do
            {
                // call particle_etc, line 188
                if (!r_particle_etc())
                {
                    break;
                }
            } while (false);
            cursor = limit - v_2;
            // do, line 189
            v_3 = limit - cursor;
            do
            {
                // call possessive, line 189
                if (!r_possessive())
                {
                    break;
                }
            } while (false);
            cursor = limit - v_3;
            // do, line 190
            v_4 = limit - cursor;
            do
            {
                // call case_ending, line 190
                if (!r_case_ending())
                {
                    break;
                }
            } while (false);
            cursor = limit - v_4;
            // do, line 191
            v_5 = limit - cursor;
            do
            {
                // call other_endings, line 191
                if (!r_other_endings())
                {
                    break;
                }
            } while (false);
            cursor = limit - v_5;
            // or, line 192
            do
            {
                v_6 = limit - cursor;
                do
                {
                    // (, line 192
                    // Boolean test ending_removed, line 192
                    if (!(B_ending_removed))
                    {
                        break;
                    }
                    // do, line 192
                    v_7 = limit - cursor;
                    do
                    {
                        // call i_plural, line 192
                        if (!r_i_plural())
                        {
                            break;
                        }
                    } while (false);
                    cursor = limit - v_7;
                    subroot = true;
                    if (subroot) break;
                } while (false);
                if (subroot) { subroot = false; break; }
                cursor = limit - v_6;
                // do, line 192
                v_8 = limit - cursor;
                do
                {
                    // call t_plural, line 192
                    if (!r_t_plural())
                    {
                        break;
                    }
                } while (false);
                cursor = limit - v_8;
            } while (false);
            // do, line 193
            v_9 = limit - cursor;
            do
            {
                // call tidy, line 193
                if (!r_tidy())
                {
                    break;
                }
            } while (false);
            cursor = limit - v_9;
            cursor = limit_backward;
            return true;
        }

        public string Lex(string s)
        {
            this.setCurrent(s.ToLowerInvariant());
            this.CanStem();
            return this.getCurrent();
        }
    }
}