/*
 *  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 SpanishStemmer : StemmerOperations, ILexer
    {
        private readonly static SpanishStemmer methodObject = new SpanishStemmer();

        private readonly static Among[] a_0 =
        {
            new Among ( "", -1, 6, null! ),
            new Among ( "\u00E1", 0, 1, null! ),
            new Among ( "\u00E9", 0, 2, null! ),
            new Among ( "\u00ED", 0, 3, null! ),
            new Among ( "\u00F3", 0, 4, null! ),
            new Among ( "\u00FA", 0, 5, null! )
        };

        private readonly static Among[] a_1 =
        {
            new Among ( "la", -1, -1, null! ),
            new Among ( "sela", 0, -1, null! ),
            new Among ( "le", -1, -1, null! ),
            new Among ( "me", -1, -1, null! ),
            new Among ( "se", -1, -1, null! ),
            new Among ( "lo", -1, -1, null! ),
            new Among ( "selo", 5, -1, null! ),
            new Among ( "las", -1, -1, null! ),
            new Among ( "selas", 7, -1, null! ),
            new Among ( "les", -1, -1, null! ),
            new Among ( "los", -1, -1, null! ),
            new Among ( "selos", 10, -1, null! ),
            new Among ( "nos", -1, -1, null! )
        };

        private readonly static Among[] a_2 =
        {
            new Among ( "ando", -1, 6, null! ),
            new Among ( "iendo", -1, 6, null! ),
            new Among ( "yendo", -1, 7, null! ),
            new Among ( "\u00E1ndo", -1, 2, null! ),
            new Among ( "i\u00E9ndo", -1, 1, null! ),
            new Among ( "ar", -1, 6, null! ),
            new Among ( "er", -1, 6, null! ),
            new Among ( "ir", -1, 6, null! ),
            new Among ( "\u00E1r", -1, 3, null! ),
            new Among ( "\u00E9r", -1, 4, null! ),
            new Among ( "\u00EDr", -1, 5, null! )
        };

        private readonly static Among[] a_3 =
        {
            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_4 =
        {
            new Among ( "able", -1, 1, null! ),
            new Among ( "ible", -1, 1, null! ),
            new Among ( "ante", -1, 1, null! )
        };

        private readonly static Among[] a_5 =
        {
            new Among ( "ic", -1, 1, null! ),
            new Among ( "abil", -1, 1, null! ),
            new Among ( "iv", -1, 1, null! )
        };

        private readonly static Among[] a_6 =
        {
            new Among ( "ica", -1, 1, null! ),
            new Among ( "ancia", -1, 2, null! ),
            new Among ( "encia", -1, 5, null! ),
            new Among ( "adora", -1, 2, null! ),
            new Among ( "osa", -1, 1, null! ),
            new Among ( "ista", -1, 1, null! ),
            new Among ( "iva", -1, 9, null! ),
            new Among ( "anza", -1, 1, null! ),
            new Among ( "log\u00EDa", -1, 3, null! ),
            new Among ( "idad", -1, 8, null! ),
            new Among ( "able", -1, 1, null! ),
            new Among ( "ible", -1, 1, null! ),
            new Among ( "ante", -1, 2, null! ),
            new Among ( "mente", -1, 7, null! ),
            new Among ( "amente", 13, 6, null! ),
            new Among ( "aci\u00F3n", -1, 2, null! ),
            new Among ( "uci\u00F3n", -1, 4, null! ),
            new Among ( "ico", -1, 1, null! ),
            new Among ( "ismo", -1, 1, null! ),
            new Among ( "oso", -1, 1, null! ),
            new Among ( "amiento", -1, 1, null! ),
            new Among ( "imiento", -1, 1, null! ),
            new Among ( "ivo", -1, 9, null! ),
            new Among ( "ador", -1, 2, null! ),
            new Among ( "icas", -1, 1, null! ),
            new Among ( "ancias", -1, 2, null! ),
            new Among ( "encias", -1, 5, null! ),
            new Among ( "adoras", -1, 2, null! ),
            new Among ( "osas", -1, 1, null! ),
            new Among ( "istas", -1, 1, null! ),
            new Among ( "ivas", -1, 9, null! ),
            new Among ( "anzas", -1, 1, null! ),
            new Among ( "log\u00EDas", -1, 3, null! ),
            new Among ( "idades", -1, 8, null! ),
            new Among ( "ables", -1, 1, null! ),
            new Among ( "ibles", -1, 1, null! ),
            new Among ( "aciones", -1, 2, null! ),
            new Among ( "uciones", -1, 4, null! ),
            new Among ( "adores", -1, 2, null! ),
            new Among ( "antes", -1, 2, null! ),
            new Among ( "icos", -1, 1, null! ),
            new Among ( "ismos", -1, 1, null! ),
            new Among ( "osos", -1, 1, null! ),
            new Among ( "amientos", -1, 1, null! ),
            new Among ( "imientos", -1, 1, null! ),
            new Among ( "ivos", -1, 9, null! )
        };

        private readonly static Among[] a_7 =
        {
            new Among ( "ya", -1, 1, null! ),
            new Among ( "ye", -1, 1, null! ),
            new Among ( "yan", -1, 1, null! ),
            new Among ( "yen", -1, 1, null! ),
            new Among ( "yeron", -1, 1, null! ),
            new Among ( "yendo", -1, 1, null! ),
            new Among ( "yo", -1, 1, null! ),
            new Among ( "yas", -1, 1, null! ),
            new Among ( "yes", -1, 1, null! ),
            new Among ( "yais", -1, 1, null! ),
            new Among ( "yamos", -1, 1, null! ),
            new Among ( "y\u00F3", -1, 1, null! )
        };

        private readonly static Among[] a_8 =
        {
            new Among ( "aba", -1, 2, null! ),
            new Among ( "ada", -1, 2, null! ),
            new Among ( "ida", -1, 2, null! ),
            new Among ( "ara", -1, 2, null! ),
            new Among ( "iera", -1, 2, null! ),
            new Among ( "\u00EDa", -1, 2, null! ),
            new Among ( "ar\u00EDa", 5, 2, null! ),
            new Among ( "er\u00EDa", 5, 2, null! ),
            new Among ( "ir\u00EDa", 5, 2, null! ),
            new Among ( "ad", -1, 2, null! ),
            new Among ( "ed", -1, 2, null! ),
            new Among ( "id", -1, 2, null! ),
            new Among ( "ase", -1, 2, null! ),
            new Among ( "iese", -1, 2, null! ),
            new Among ( "aste", -1, 2, null! ),
            new Among ( "iste", -1, 2, null! ),
            new Among ( "an", -1, 2, null! ),
            new Among ( "aban", 16, 2, null! ),
            new Among ( "aran", 16, 2, null! ),
            new Among ( "ieran", 16, 2, null! ),
            new Among ( "\u00EDan", 16, 2, null! ),
            new Among ( "ar\u00EDan", 20, 2, null! ),
            new Among ( "er\u00EDan", 20, 2, null! ),
            new Among ( "ir\u00EDan", 20, 2, null! ),
            new Among ( "en", -1, 1, null! ),
            new Among ( "asen", 24, 2, null! ),
            new Among ( "iesen", 24, 2, null! ),
            new Among ( "aron", -1, 2, null! ),
            new Among ( "ieron", -1, 2, null! ),
            new Among ( "ar\u00E1n", -1, 2, null! ),
            new Among ( "er\u00E1n", -1, 2, null! ),
            new Among ( "ir\u00E1n", -1, 2, null! ),
            new Among ( "ado", -1, 2, null! ),
            new Among ( "ido", -1, 2, null! ),
            new Among ( "ando", -1, 2, null! ),
            new Among ( "iendo", -1, 2, null! ),
            new Among ( "ar", -1, 2, null! ),
            new Among ( "er", -1, 2, null! ),
            new Among ( "ir", -1, 2, null! ),
            new Among ( "as", -1, 2, null! ),
            new Among ( "abas", 39, 2, null! ),
            new Among ( "adas", 39, 2, null! ),
            new Among ( "idas", 39, 2, null! ),
            new Among ( "aras", 39, 2, null! ),
            new Among ( "ieras", 39, 2, null! ),
            new Among ( "\u00EDas", 39, 2, null! ),
            new Among ( "ar\u00EDas", 45, 2, null! ),
            new Among ( "er\u00EDas", 45, 2, null! ),
            new Among ( "ir\u00EDas", 45, 2, null! ),
            new Among ( "es", -1, 1, null! ),
            new Among ( "ases", 49, 2, null! ),
            new Among ( "ieses", 49, 2, null! ),
            new Among ( "abais", -1, 2, null! ),
            new Among ( "arais", -1, 2, null! ),
            new Among ( "ierais", -1, 2, null! ),
            new Among ( "\u00EDais", -1, 2, null! ),
            new Among ( "ar\u00EDais", 55, 2, null! ),
            new Among ( "er\u00EDais", 55, 2, null! ),
            new Among ( "ir\u00EDais", 55, 2, null! ),
            new Among ( "aseis", -1, 2, null! ),
            new Among ( "ieseis", -1, 2, null! ),
            new Among ( "asteis", -1, 2, null! ),
            new Among ( "isteis", -1, 2, null! ),
            new Among ( "\u00E1is", -1, 2, null! ),
            new Among ( "\u00E9is", -1, 1, null! ),
            new Among ( "ar\u00E9is", 64, 2, null! ),
            new Among ( "er\u00E9is", 64, 2, null! ),
            new Among ( "ir\u00E9is", 64, 2, null! ),
            new Among ( "ados", -1, 2, null! ),
            new Among ( "idos", -1, 2, null! ),
            new Among ( "amos", -1, 2, null! ),
            new Among ( "\u00E1bamos", 70, 2, null! ),
            new Among ( "\u00E1ramos", 70, 2, null! ),
            new Among ( "i\u00E9ramos", 70, 2, null! ),
            new Among ( "\u00EDamos", 70, 2, null! ),
            new Among ( "ar\u00EDamos", 74, 2, null! ),
            new Among ( "er\u00EDamos", 74, 2, null! ),
            new Among ( "ir\u00EDamos", 74, 2, null! ),
            new Among ( "emos", -1, 1, null! ),
            new Among ( "aremos", 78, 2, null! ),
            new Among ( "eremos", 78, 2, null! ),
            new Among ( "iremos", 78, 2, null! ),
            new Among ( "\u00E1semos", 78, 2, null! ),
            new Among ( "i\u00E9semos", 78, 2, null! ),
            new Among ( "imos", -1, 2, null! ),
            new Among ( "ar\u00E1s", -1, 2, null! ),
            new Among ( "er\u00E1s", -1, 2, null! ),
            new Among ( "ir\u00E1s", -1, 2, null! ),
            new Among ( "\u00EDs", -1, 2, null! ),
            new Among ( "ar\u00E1", -1, 2, null! ),
            new Among ( "er\u00E1", -1, 2, null! ),
            new Among ( "ir\u00E1", -1, 2, null! ),
            new Among ( "ar\u00E9", -1, 2, null! ),
            new Among ( "er\u00E9", -1, 2, null! ),
            new Among ( "ir\u00E9", -1, 2, null! ),
            new Among ( "i\u00F3", -1, 2, null! )
        };

        private readonly static Among[] a_9 =
        {
            new Among ( "a", -1, 1, null! ),
            new Among ( "e", -1, 2, null! ),
            new Among ( "o", -1, 1, null! ),
            new Among ( "os", -1, 1, null! ),
            new Among ( "\u00E1", -1, 1, null! ),
            new Among ( "\u00E9", -1, 2, null! ),
            new Among ( "\u00ED", -1, 1, null! ),
            new Among ( "\u00F3", -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)1, (char)17, (char)4, (char)10 };

        private int I_p2;
        private int I_p1;
        private int I_pV;

        private void copy_from(SpanishStemmer other)
        {
            I_p2 = other.I_p2;
            I_p1 = other.I_p1;
            I_pV = other.I_pV;
            base.copy_from(other);
        }

        private bool r_mark_regions()
        {
            bool subroot = false;
            int v_1;
            int v_2;
            int v_3;
            int v_6;
            int v_8;
            // (, line 31
            I_pV = limit;
            I_p1 = limit;
            I_p2 = limit;
            // do, line 37
            v_1 = cursor;
            do
            {
                // (, line 37
                // or, line 39
                do
                {
                    v_2 = cursor;
                    do
                    {
                        // (, line 38
                        if (!(in_grouping(g_v, 97, 252)))
                        {
                            break;
                        }
                        // or, line 38
                        do
                        {
                            v_3 = cursor;
                            do
                            {
                                // (, line 38
                                if (!(out_grouping(g_v, 97, 252)))
                                {
                                    break;
                                }
                                // gopast, line 38
                                while (true)
                                {
                                    do
                                    {
                                        if (!(in_grouping(g_v, 97, 252)))
                                        {
                                            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 38
                            if (!(in_grouping(g_v, 97, 252)))
                            {
                                subroot = true;
                                goto breaklab2;
                            }
                            // gopast, line 38
                            while (true)
                            {
                                do
                                {
                                    if (!(out_grouping(g_v, 97, 252)))
                                    {
                                        break;
                                    }
                                    subroot = true;
                                    if (subroot) break;
                                } while (false);
                                if (subroot) { subroot = false; break; }
                                if (cursor >= limit)
                                {
                                    subroot = true;
                                    goto breaklab2;
                                }
                                cursor++;
                            }
                        } while (false);
                    breaklab2: if (subroot) { subroot = false; break; }
                        subroot = true;
                        if (subroot) break;
                    } while (false);
                    if (subroot) { subroot = false; break; }
                    cursor = v_2;
                    // (, line 40
                    if (!(out_grouping(g_v, 97, 252)))
                    {
                        subroot = true;
                        goto breaklab0;
                    }
                    // or, line 40
                    do
                    {
                        v_6 = cursor;
                        do
                        {
                            // (, line 40
                            if (!(out_grouping(g_v, 97, 252)))
                            {
                                break;
                            }
                            // gopast, line 40
                            while (true)
                            {
                                do
                                {
                                    if (!(in_grouping(g_v, 97, 252)))
                                    {
                                        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_6;
                        // (, line 40
                        if (!(in_grouping(g_v, 97, 252)))
                        {
                            subroot = true;
                            goto breaklab0;
                        }
                        // next, line 40
                        if (cursor >= limit)
                        {
                            subroot = true;
                            goto breaklab0;
                        }
                        cursor++;
                    } while (false);
                } while (false);
            breaklab0: if (subroot) { subroot = false; break; }
                // setmark pV, line 41
                I_pV = cursor;
            } while (false);
            cursor = v_1;
            // do, line 43
            v_8 = cursor;
            do
            {
                // (, line 43
                // gopast, line 44
                while (true)
                {
                    do
                    {
                        if (!(in_grouping(g_v, 97, 252)))
                        {
                            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 44
                while (true)
                {
                    do
                    {
                        if (!(out_grouping(g_v, 97, 252)))
                        {
                            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 44
                I_p1 = cursor;
                // gopast, line 45
                while (true)
                {
                    do
                    {
                        if (!(in_grouping(g_v, 97, 252)))
                        {
                            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 45
                while (true)
                {
                    do
                    {
                        if (!(out_grouping(g_v, 97, 252)))
                        {
                            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 45
                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 49
        replab0: while (true)
            {
                v_1 = cursor;
                do
                {
                    // (, line 49
                    // [, line 50
                    bra = cursor;
                    // substring, line 50
                    among_var = find_among(a_0, 6);
                    if (among_var == 0)
                    {
                        break;
                    }
                    // ], line 50
                    ket = cursor;
                    switch (among_var)
                    {
                        case 0:
                            subroot = true;
                            break;

                        case 1:
                            // (, line 51
                            // <-, line 51
                            slice_from("a");
                            break;

                        case 2:
                            // (, line 52
                            // <-, line 52
                            slice_from("e");
                            break;

                        case 3:
                            // (, line 53
                            // <-, line 53
                            slice_from("i");
                            break;

                        case 4:
                            // (, line 54
                            // <-, line 54
                            slice_from("o");
                            break;

                        case 5:
                            // (, line 55
                            // <-, line 55
                            slice_from("u");
                            break;

                        case 6:
                            // (, line 57
                            // next, line 57
                            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_attached_pronoun()
        {
            int among_var;
            // (, line 67
            // [, line 68
            ket = cursor;
            // substring, line 68
            if (find_among_b(a_1, 13) == 0)
            {
                return false;
            }
            // ], line 68
            bra = cursor;
            // substring, line 72
            among_var = find_among_b(a_2, 11);
            if (among_var == 0)
            {
                return false;
            }
            // call RV, line 72
            if (!r_RV())
            {
                return false;
            }
            switch (among_var)
            {
                case 0:
                    return false;

                case 1:
                    // (, line 73
                    // ], line 73
                    bra = cursor;
                    // <-, line 73
                    slice_from("iendo");
                    break;

                case 2:
                    // (, line 74
                    // ], line 74
                    bra = cursor;
                    // <-, line 74
                    slice_from("ando");
                    break;

                case 3:
                    // (, line 75
                    // ], line 75
                    bra = cursor;
                    // <-, line 75
                    slice_from("ar");
                    break;

                case 4:
                    // (, line 76
                    // ], line 76
                    bra = cursor;
                    // <-, line 76
                    slice_from("er");
                    break;

                case 5:
                    // (, line 77
                    // ], line 77
                    bra = cursor;
                    // <-, line 77
                    slice_from("ir");
                    break;

                case 6:
                    // (, line 81
                    // delete, line 81
                    slice_del();
                    break;

                case 7:
                    // (, line 82
                    // literal, line 82
                    if (!(eq_s_b(1, "u")))
                    {
                        return false;
                    }
                    // delete, line 82
                    slice_del();
                    break;
            }
            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;
            int v_5;
            // (, line 86
            // [, line 87
            ket = cursor;
            // substring, line 87
            among_var = find_among_b(a_6, 46);
            if (among_var == 0)
            {
                return false;
            }
            // ], line 87
            bra = cursor;
            switch (among_var)
            {
                case 0:
                    return false;

                case 1:
                    // (, line 98
                    // call R2, line 99
                    if (!r_R2())
                    {
                        return false;
                    }
                    // delete, line 99
                    slice_del();
                    break;

                case 2:
                    // (, line 104
                    // call R2, line 105
                    if (!r_R2())
                    {
                        return false;
                    }
                    // delete, line 105
                    slice_del();
                    // try, line 106
                    v_1 = limit - cursor;
                    do
                    {
                        // (, line 106
                        // [, line 106
                        ket = cursor;
                        // literal, line 106
                        if (!(eq_s_b(2, "ic")))
                        {
                            cursor = limit - v_1;
                            break;
                        }
                        // ], line 106
                        bra = cursor;
                        // call R2, line 106
                        if (!r_R2())
                        {
                            cursor = limit - v_1;
                            break;
                        }
                        // delete, line 106
                        slice_del();
                    } while (false);
                    break;

                case 3:
                    // (, line 110
                    // call R2, line 111
                    if (!r_R2())
                    {
                        return false;
                    }
                    // <-, line 111
                    slice_from("log");
                    break;

                case 4:
                    // (, line 114
                    // call R2, line 115
                    if (!r_R2())
                    {
                        return false;
                    }
                    // <-, line 115
                    slice_from("u");
                    break;

                case 5:
                    // (, line 118
                    // call R2, line 119
                    if (!r_R2())
                    {
                        return false;
                    }
                    // <-, line 119
                    slice_from("ente");
                    break;

                case 6:
                    // (, line 122
                    // call R1, line 123
                    if (!r_R1())
                    {
                        return false;
                    }
                    // delete, line 123
                    slice_del();
                    // try, line 124
                    v_2 = limit - cursor;
                    do
                    {
                        // (, line 124
                        // [, line 125
                        ket = cursor;
                        // substring, line 125
                        among_var = find_among_b(a_3, 4);
                        if (among_var == 0)
                        {
                            cursor = limit - v_2;
                            break;
                        }
                        // ], line 125
                        bra = cursor;
                        // call R2, line 125
                        if (!r_R2())
                        {
                            cursor = limit - v_2;
                            break;
                        }
                        // delete, line 125
                        slice_del();
                        switch (among_var)
                        {
                            case 0:
                                cursor = limit - v_2;
                                subroot = true;
                                break;

                            case 1:
                                // (, line 126
                                // [, line 126
                                ket = cursor;
                                // literal, line 126
                                if (!(eq_s_b(2, "at")))
                                {
                                    cursor = limit - v_2;
                                    subroot = true;
                                    break;
                                }
                                // ], line 126
                                bra = cursor;
                                // call R2, line 126
                                if (!r_R2())
                                {
                                    cursor = limit - v_2;
                                    subroot = true;
                                    break;
                                }
                                // delete, line 126
                                slice_del();
                                break;
                        }
                        if (subroot) { subroot = false; break; }
                    } while (false);
                    break;

                case 7:
                    // (, line 134
                    // call R2, line 135
                    if (!r_R2())
                    {
                        return false;
                    }
                    // delete, line 135
                    slice_del();
                    // try, line 136
                    v_3 = limit - cursor;
                    do
                    {
                        // (, line 136
                        // [, line 137
                        ket = cursor;
                        // substring, line 137
                        among_var = find_among_b(a_4, 3);
                        if (among_var == 0)
                        {
                            cursor = limit - v_3;
                            break;
                        }
                        // ], line 137
                        bra = cursor;
                        switch (among_var)
                        {
                            case 0:
                                cursor = limit - v_3;
                                subroot = true;
                                break;

                            case 1:
                                // (, line 140
                                // call R2, line 140
                                if (!r_R2())
                                {
                                    cursor = limit - v_3;
                                    subroot = true;
                                    break;
                                }
                                // delete, line 140
                                slice_del();
                                break;
                        }
                        if (subroot) { subroot = false; break; }
                    } while (false);
                    break;

                case 8:
                    // (, line 146
                    // call R2, line 147
                    if (!r_R2())
                    {
                        return false;
                    }
                    // delete, line 147
                    slice_del();
                    // try, line 148
                    v_4 = limit - cursor;
                    do
                    {
                        // (, line 148
                        // [, line 149
                        ket = cursor;
                        // substring, line 149
                        among_var = find_among_b(a_5, 3);
                        if (among_var == 0)
                        {
                            cursor = limit - v_4;
                            break;
                        }
                        // ], line 149
                        bra = cursor;
                        switch (among_var)
                        {
                            case 0:
                                cursor = limit - v_4;
                                subroot = true;
                                break;

                            case 1:
                                // (, line 152
                                // call R2, line 152
                                if (!r_R2())
                                {
                                    cursor = limit - v_4;
                                    subroot = true;
                                    break;
                                }
                                // delete, line 152
                                slice_del();
                                break;
                        }
                        if (subroot) { subroot = false; break; }
                    } while (false);
                    break;

                case 9:
                    // (, line 158
                    // call R2, line 159
                    if (!r_R2())
                    {
                        return false;
                    }
                    // delete, line 159
                    slice_del();
                    // try, line 160
                    v_5 = limit - cursor;
                    do
                    {
                        // (, line 160
                        // [, line 161
                        ket = cursor;
                        // literal, line 161
                        if (!(eq_s_b(2, "at")))
                        {
                            cursor = limit - v_5;
                            break;
                        }
                        // ], line 161
                        bra = cursor;
                        // call R2, line 161
                        if (!r_R2())
                        {
                            cursor = limit - v_5;
                            break;
                        }
                        // delete, line 161
                        slice_del();
                    } while (false);
                    break;
            }
            return true;
        }

        private bool r_y_verb_suffix()
        {
            int among_var;
            int v_1;
            int v_2;
            // (, line 167
            // setlimit, line 168
            v_1 = limit - cursor;
            // tomark, line 168
            if (cursor < I_pV)
            {
                return false;
            }
            cursor = I_pV;
            v_2 = limit_backward;
            limit_backward = cursor;
            cursor = limit - v_1;
            // (, line 168
            // [, line 168
            ket = cursor;
            // substring, line 168
            among_var = find_among_b(a_7, 12);
            if (among_var == 0)
            {
                limit_backward = v_2;
                return false;
            }
            // ], line 168
            bra = cursor;
            limit_backward = v_2;
            switch (among_var)
            {
                case 0:
                    return false;

                case 1:
                    // (, line 171
                    // literal, line 171
                    if (!(eq_s_b(1, "u")))
                    {
                        return false;
                    }
                    // delete, line 171
                    slice_del();
                    break;
            }
            return true;
        }

        private bool r_verb_suffix()
        {
            int among_var;
            int v_1;
            int v_2;
            int v_3;
            int v_4;
            // (, line 175
            // setlimit, line 176
            v_1 = limit - cursor;
            // tomark, line 176
            if (cursor < I_pV)
            {
                return false;
            }
            cursor = I_pV;
            v_2 = limit_backward;
            limit_backward = cursor;
            cursor = limit - v_1;
            // (, line 176
            // [, line 176
            ket = cursor;
            // substring, line 176
            among_var = find_among_b(a_8, 96);
            if (among_var == 0)
            {
                limit_backward = v_2;
                return false;
            }
            // ], line 176
            bra = cursor;
            limit_backward = v_2;
            switch (among_var)
            {
                case 0:
                    return false;

                case 1:
                    // (, line 179
                    // try, line 179
                    v_3 = limit - cursor;
                    do
                    {
                        // (, line 179
                        // literal, line 179
                        if (!(eq_s_b(1, "u")))
                        {
                            cursor = limit - v_3;
                            break;
                        }
                        // test, line 179
                        v_4 = limit - cursor;
                        // literal, line 179
                        if (!(eq_s_b(1, "g")))
                        {
                            cursor = limit - v_3;
                            break;
                        }
                        cursor = limit - v_4;
                    } while (false);
                    // ], line 179
                    bra = cursor;
                    // delete, line 179
                    slice_del();
                    break;

                case 2:
                    // (, line 200
                    // delete, line 200
                    slice_del();
                    break;
            }
            return true;
        }

        private bool r_residual_suffix()
        {
            int among_var;
            int v_1;
            int v_2;
            // (, line 204
            // [, line 205
            ket = cursor;
            // substring, line 205
            among_var = find_among_b(a_9, 8);
            if (among_var == 0)
            {
                return false;
            }
            // ], line 205
            bra = cursor;
            switch (among_var)
            {
                case 0:
                    return false;

                case 1:
                    // (, line 208
                    // call RV, line 208
                    if (!r_RV())
                    {
                        return false;
                    }
                    // delete, line 208
                    slice_del();
                    break;

                case 2:
                    // (, line 210
                    // call RV, line 210
                    if (!r_RV())
                    {
                        return false;
                    }
                    // delete, line 210
                    slice_del();
                    // try, line 210
                    v_1 = limit - cursor;
                    do
                    {
                        // (, line 210
                        // [, line 210
                        ket = cursor;
                        // literal, line 210
                        if (!(eq_s_b(1, "u")))
                        {
                            cursor = limit - v_1;
                            break;
                        }
                        // ], line 210
                        bra = cursor;
                        // test, line 210
                        v_2 = limit - cursor;
                        // literal, line 210
                        if (!(eq_s_b(1, "g")))
                        {
                            cursor = limit - v_1;
                            break;
                        }
                        cursor = limit - v_2;
                        // call RV, line 210
                        if (!r_RV())
                        {
                            cursor = limit - v_1;
                            break;
                        }
                        // delete, line 210
                        slice_del();
                    } while (false);
                    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;
            // (, line 215
            // do, line 216
            v_1 = cursor;
            do
            {
                // call mark_regions, line 216
                if (!r_mark_regions())
                {
                    break;
                }
            } while (false);
            cursor = v_1;
            // backwards, line 217
            limit_backward = cursor; cursor = limit;
            // (, line 217
            // do, line 218
            v_2 = limit - cursor;
            do
            {
                // call attached_pronoun, line 218
                if (!r_attached_pronoun())
                {
                    break;
                }
            } while (false);
            cursor = limit - v_2;
            // do, line 219
            v_3 = limit - cursor;
            do
            {
                // (, line 219
                // or, line 219
                do
                {
                    v_4 = limit - cursor;

                    do
                    {
                        // call standard_suffix, line 219
                        if (!r_standard_suffix())
                        {
                            break;
                        }
                        subroot = true;
                        if (subroot) break;
                    } while (false);

                    if (subroot) { subroot = false; break; }
                    cursor = limit - v_4;
                    do
                    {
                        // call y_verb_suffix, line 220
                        if (!r_y_verb_suffix())
                        {
                            break;
                        }
                        subroot = true;
                        if (subroot) break;
                    } while (false);
                    if (subroot) { subroot = false; break; }
                    cursor = limit - v_4;
                    // call verb_suffix, line 221
                    if (!r_verb_suffix())
                    {
                        subroot = true;
                        break;
                    }
                } while (false);
                if (subroot) { subroot = false; break; }
            } while (false);
            cursor = limit - v_3;
            // do, line 223
            v_5 = limit - cursor;
            do
            {
                // call residual_suffix, line 223
                if (!r_residual_suffix())
                {
                    break;
                }
            } while (false);
            cursor = limit - v_5;
            cursor = limit_backward;                    // do, line 225
            v_6 = cursor;
            do
            {
                // call postlude, line 225
                if (!r_postlude())
                {
                    break;
                }
            } while (false);
            cursor = v_6;
            return true;
        }

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