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 716 of file stem_ISO_8859_1_porter.c.

{ SN_close_env(z, 0); }

References SN_close_env().

porter_ISO_8859_1_create_env()

struct SN_env* porter_ISO_8859_1_create_env

(

void

)

Definition at line 714 of file stem_ISO_8859_1_porter.c.

{ return SN_create_env(0, 3); }

References SN_create_env().

porter_ISO_8859_1_stem()

int porter_ISO_8859_1_stem

(

struct SN_env *

z

)

Definition at line 562 of file stem_ISO_8859_1_porter.c.

                                                     {
    z->I[2] = 0;
    {   int c1 = 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;
        }
        z->I[2] = 1;
    lab0:
        z->c = c1;
    }
    {   int c2 = z->c;
        while(1) {
            int c3 = z->c;
            while(1) {
                int c4 = 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 = c4;
                break;
            lab3:
                z->c = c4;
                if (z->c >= z->l) goto lab2;
                z->c++;
            }
            {   int ret = slice_from_s(z, 1, s_22);
                if (ret < 0) return ret;
            }
            z->I[2] = 1;
            continue;
        lab2:
            z->c = c3;
            break;
        }
        z->c = c2;
    }
    z->I[1] = z->l;
    z->I[0] = z->l;
    {   int c5 = 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;
        }
        z->I[1] = 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;
        }
        z->I[0] = z->c;
    lab4:
        z->c = c5;
    }
    z->lb = z->c; z->c = z->l;
 
    {   int m6 = z->l - z->c; (void)m6;
        {   int ret = r_Step_1a(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - m6;
    }
    {   int m7 = z->l - z->c; (void)m7;
        {   int ret = r_Step_1b(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - m7;
    }
    {   int m8 = z->l - z->c; (void)m8;
        {   int ret = r_Step_1c(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - m8;
    }
    {   int m9 = z->l - z->c; (void)m9;
        {   int ret = r_Step_2(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - m9;
    }
    {   int m10 = z->l - z->c; (void)m10;
        {   int ret = r_Step_3(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - m10;
    }
    {   int m11 = z->l - z->c; (void)m11;
        {   int ret = r_Step_4(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - m11;
    }
    {   int m12 = z->l - z->c; (void)m12;
        {   int ret = r_Step_5a(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - m12;
    }
    {   int m13 = z->l - z->c; (void)m13;
        {   int ret = r_Step_5b(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - m13;
    }
    z->c = z->lb;
    {   int c14 = z->c;
        if (!(z->I[2])) goto lab5;
        while(1) {
            int c15 = z->c;
            while(1) {
                int c16 = 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 = c16;
                break;
            lab7:
                z->c = c16;
                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 = c15;
            break;
        }
    lab5:
        z->c = c14;
    }
    return 1;
}

References SN_env::bra, SN_env::c, g_v, SN_env::I, 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().