/*
 *  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();
        }
    }
}