stem_UTF_8_lithuanian.h File Reference

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
struct SN_env *	lithuanian_UTF_8_create_env (void)
void	lithuanian_UTF_8_close_env (struct SN_env *z)
int	lithuanian_UTF_8_stem (struct SN_env *z)

Function Documentation

lithuanian_UTF_8_close_env()

void lithuanian_UTF_8_close_env

(

struct SN_env *

z

)

Definition at line 836 of file stem_UTF_8_lithuanian.c.

{ SN_close_env(z, 0); }

References SN_close_env().

lithuanian_UTF_8_create_env()

struct SN_env* lithuanian_UTF_8_create_env

(

void

)

Definition at line 834 of file stem_UTF_8_lithuanian.c.

{ return SN_create_env(0, 1); }

References SN_create_env().

lithuanian_UTF_8_stem()

int lithuanian_UTF_8_stem

(

struct SN_env *

z

)

Definition at line 761 of file stem_UTF_8_lithuanian.c.

                                                    {
    z->I[0] = z->l;
    {   int c1 = z->c;
        {   int c2 = z->c;
            {   int c_test3 = z->c;
                if (z->c == z->l || z->p[z->c] != 'a') { z->c = c2; goto lab1; }
                z->c++;
                z->c = c_test3;
            }
            if (!(len_utf8(z->p) > 6)) { z->c = c2; goto lab1; }
            {   int ret = skip_utf8(z->p, z->c, z->l, 1);
                if (ret < 0) { z->c = c2; goto lab1; }
                z->c = ret;
            }
        lab1:
            ;
        }
        {   
            int ret = out_grouping_U(z, g_v, 97, 371, 1);
            if (ret < 0) goto lab0;
            z->c += ret;
        }
        {   
            int ret = in_grouping_U(z, g_v, 97, 371, 1);
            if (ret < 0) goto lab0;
            z->c += ret;
        }
        z->I[0] = z->c;
    lab0:
        z->c = c1;
    }
    z->lb = z->c; z->c = z->l;
 
    {   int m4 = z->l - z->c; (void)m4;
        {   int ret = r_fix_conflicts(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - m4;
    }
    {   int m5 = z->l - z->c; (void)m5;
        {   int ret = r_step1(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - m5;
    }
    {   int m6 = z->l - z->c; (void)m6;
        {   int ret = r_fix_chdz(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - m6;
    }
    {   int m7 = z->l - z->c; (void)m7;
        {   int ret = r_step2(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - m7;
    }
    {   int m8 = z->l - z->c; (void)m8;
        {   int ret = r_fix_chdz(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - m8;
    }
    {   int m9 = z->l - z->c; (void)m9;
        {   int ret = r_fix_gd(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - m9;
    }
    z->c = z->lb;
    return 1;
}

References SN_env::c, g_v, SN_env::I, in_grouping_U(), SN_env::l, SN_env::lb, len_utf8(), out_grouping_U(), SN_env::p, r_fix_chdz(), r_fix_conflicts(), r_fix_gd(), r_step1(), r_step2(), and skip_utf8().