stem_UTF_8_armenian.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 *	armenian_UTF_8_create_env (void)
void	armenian_UTF_8_close_env (struct SN_env *z)
int	armenian_UTF_8_stem (struct SN_env *z)

Function Documentation

armenian_UTF_8_close_env()

void armenian_UTF_8_close_env

(

struct SN_env *

z

)

Definition at line 571 of file stem_UTF_8_armenian.c.

                                                        {
    SN_delete_env(z);
}

References SN_delete_env().

armenian_UTF_8_create_env()

struct SN_env * armenian_UTF_8_create_env

(

void

)

Definition at line 562 of file stem_UTF_8_armenian.c.

                                                       {
    struct SN_env * z = SN_new_env(sizeof(SN_local));
    if (z) {
        ((SN_local *)z)->i_p2 = 0;
        ((SN_local *)z)->i_pV = 0;
    }
    return z;
}

References SN_new_env().

armenian_UTF_8_stem()

int armenian_UTF_8_stem

(

struct SN_env *

z

)

Definition at line 514 of file stem_UTF_8_armenian.c.

                                                  {
    {
        int ret = r_mark_regions(z);
        if (ret < 0) return ret;
    }
    z->lb = z->c; z->c = z->l;
    {
        int v_1;
        if (z->c < ((SN_local *)z)->i_pV) return 0;
        v_1 = z->lb; z->lb = ((SN_local *)z)->i_pV;
        {
            int v_2 = z->l - z->c;
            {
                int ret = r_ending(z);
                if (ret < 0) return ret;
            }
            z->c = z->l - v_2;
        }
        {
            int v_3 = z->l - z->c;
            {
                int ret = r_verb(z);
                if (ret < 0) return ret;
            }
            z->c = z->l - v_3;
        }
        {
            int v_4 = z->l - z->c;
            {
                int ret = r_adjective(z);
                if (ret < 0) return ret;
            }
            z->c = z->l - v_4;
        }
        {
            int v_5 = z->l - z->c;
            {
                int ret = r_noun(z);
                if (ret < 0) return ret;
            }
            z->c = z->l - v_5;
        }
        z->lb = v_1;
    }
    z->c = z->lb;
    return 1;
}

References SN_env::c, SN_local::i_pV, SN_env::l, SN_env::lb, r_adjective(), r_ending(), r_mark_regions(), r_noun(), and r_verb().