stem_ISO_8859_1_porter.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 *	porter_ISO_8859_1_create_env (void)
void	porter_ISO_8859_1_close_env (struct SN_env *z)
int	porter_ISO_8859_1_stem (struct SN_env *z)

Function Documentation

porter_ISO_8859_1_close_env()

void porter_ISO_8859_1_close_env

(

struct SN_env *

z

)

Definition at line 768 of file stem_ISO_8859_1_porter.c.

                                                           {
    SN_delete_env(z);
}

References SN_delete_env().

porter_ISO_8859_1_create_env()

struct SN_env * porter_ISO_8859_1_create_env

(

void

)

Definition at line 759 of file stem_ISO_8859_1_porter.c.

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

References SN_new_env().

porter_ISO_8859_1_stem()

int porter_ISO_8859_1_stem

(

struct SN_env *

z

)

Definition at line 584 of file stem_ISO_8859_1_porter.c.

                                                     {
    int b_Y_found;
    b_Y_found = 0;
    {
        int v_1 = z->c;
        z->bra = z->c;
        if (z->c == z->l || z->p[z->c] != 'y') goto lab0;
        z->c++;
        z->ket = z->c;
        {
            int ret = slice_from_s(z, 1, s_21);
            if (ret < 0) return ret;
        }
        b_Y_found = 1;
    lab0:
        z->c = v_1;
    }
    {
        int v_2 = z->c;
        while (1) {
            int v_3 = z->c;
            while (1) {
                int v_4 = z->c;
                if (in_grouping(z, g_v, 97, 121, 0)) goto lab3;
                z->bra = z->c;
                if (z->c == z->l || z->p[z->c] != 'y') goto lab3;
                z->c++;
                z->ket = z->c;
                z->c = v_4;
                break;
            lab3:
                z->c = v_4;
                if (z->c >= z->l) goto lab2;
                z->c++;
            }
            {
                int ret = slice_from_s(z, 1, s_22);
                if (ret < 0) return ret;
            }
            b_Y_found = 1;
            continue;
        lab2:
            z->c = v_3;
            break;
        }
        z->c = v_2;
    }
    ((SN_local *)z)->i_p1 = z->l;
    ((SN_local *)z)->i_p2 = z->l;
    {
        int v_5 = z->c;
        {
            int ret = out_grouping(z, g_v, 97, 121, 1);
            if (ret < 0) goto lab4;
            z->c += ret;
        }
        {
            int ret = in_grouping(z, g_v, 97, 121, 1);
            if (ret < 0) goto lab4;
            z->c += ret;
        }
        ((SN_local *)z)->i_p1 = z->c;
        {
            int ret = out_grouping(z, g_v, 97, 121, 1);
            if (ret < 0) goto lab4;
            z->c += ret;
        }
        {
            int ret = in_grouping(z, g_v, 97, 121, 1);
            if (ret < 0) goto lab4;
            z->c += ret;
        }
        ((SN_local *)z)->i_p2 = z->c;
    lab4:
        z->c = v_5;
    }
    z->lb = z->c; z->c = z->l;
    {
        int v_6 = z->l - z->c;
        {
            int ret = r_Step_1a(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - v_6;
    }
    {
        int v_7 = z->l - z->c;
        {
            int ret = r_Step_1b(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - v_7;
    }
    {
        int v_8 = z->l - z->c;
        {
            int ret = r_Step_1c(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - v_8;
    }
    {
        int v_9 = z->l - z->c;
        {
            int ret = r_Step_2(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - v_9;
    }
    {
        int v_10 = z->l - z->c;
        {
            int ret = r_Step_3(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - v_10;
    }
    {
        int v_11 = z->l - z->c;
        {
            int ret = r_Step_4(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - v_11;
    }
    {
        int v_12 = z->l - z->c;
        {
            int ret = r_Step_5a(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - v_12;
    }
    {
        int v_13 = z->l - z->c;
        {
            int ret = r_Step_5b(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - v_13;
    }
    z->c = z->lb;
    {
        int v_14 = z->c;
        if (!b_Y_found) goto lab5;
        while (1) {
            int v_15 = z->c;
            while (1) {
                int v_16 = z->c;
                z->bra = z->c;
                if (z->c == z->l || z->p[z->c] != 'Y') goto lab7;
                z->c++;
                z->ket = z->c;
                z->c = v_16;
                break;
            lab7:
                z->c = v_16;
                if (z->c >= z->l) goto lab6;
                z->c++;
            }
            {
                int ret = slice_from_s(z, 1, s_23);
                if (ret < 0) return ret;
            }
            continue;
        lab6:
            z->c = v_15;
            break;
        }
    lab5:
        z->c = v_14;
    }
    return 1;
}

References SN_env::bra, SN_env::c, g_v, in_grouping(), SN_env::ket, SN_env::l, SN_env::lb, out_grouping(), SN_env::p, r_Step_1a(), r_Step_1b(), r_Step_1c(), r_Step_2(), r_Step_3(), r_Step_4(), r_Step_5a(), r_Step_5b(), s_21, s_22, s_23, and slice_from_s().