stem_ISO_8859_1_finnish.c File Reference

#include "stem_ISO_8859_1_finnish.h"
#include <stddef.h>
#include "snowball_runtime.h"

Include dependency graph for stem_ISO_8859_1_finnish.c:

Go to the source code of this file.

Data Structures
struct	SN_local

Typedefs
typedef struct SN_local	SN_local

Functions
int	finnish_ISO_8859_1_stem (struct SN_env *z)
static int	r_tidy (struct SN_env *z)
static int	r_other_endings (struct SN_env *z)
static int	r_t_plural (struct SN_env *z)
static int	r_i_plural (struct SN_env *z)
static int	r_case_ending (struct SN_env *z)
static int	r_VI (struct SN_env *z)
static int	r_LONG (struct SN_env *z)
static int	r_possessive (struct SN_env *z)
static int	r_particle_etc (struct SN_env *z)
static int	r_R2 (struct SN_env *z)
static int	r_mark_regions (struct SN_env *z)
static int	af_6 (struct SN_env *z)
struct SN_env *	finnish_ISO_8859_1_create_env (void)
void	finnish_ISO_8859_1_close_env (struct SN_env *z)

Variables
static const symbol	s_0 [] = { 'k', 's', 'e' }
static const symbol	s_1 [] = { 'k', 's', 'i' }
static const symbol	s_2 [] = { 'i', 'e' }
static const symbol	s_3 [] = { 'p', 'o' }
static const symbol	s_4 [] = { 'p', 'o' }
static const symbol	s_0_0 [2] = { 'p', 'a' }
static const symbol	s_0_1 [3] = { 's', 't', 'i' }
static const symbol	s_0_2 [4] = { 'k', 'a', 'a', 'n' }
static const symbol	s_0_3 [3] = { 'h', 'a', 'n' }
static const symbol	s_0_4 [3] = { 'k', 'i', 'n' }
static const symbol	s_0_5 [3] = { 'h', 0xE4, 'n' }
static const symbol	s_0_6 [4] = { 'k', 0xE4, 0xE4, 'n' }
static const symbol	s_0_7 [2] = { 'k', 'o' }
static const symbol	s_0_8 [2] = { 'p', 0xE4 }
static const symbol	s_0_9 [2] = { 'k', 0xF6 }
static const struct among	a_0 [10]
static const symbol	s_1_0 [3] = { 'l', 'l', 'a' }
static const symbol	s_1_1 [2] = { 'n', 'a' }
static const symbol	s_1_2 [3] = { 's', 's', 'a' }
static const symbol	s_1_3 [2] = { 't', 'a' }
static const symbol	s_1_4 [3] = { 'l', 't', 'a' }
static const symbol	s_1_5 [3] = { 's', 't', 'a' }
static const struct among	a_1 [6]
static const symbol	s_2_0 [3] = { 'l', 'l', 0xE4 }
static const symbol	s_2_1 [2] = { 'n', 0xE4 }
static const symbol	s_2_2 [3] = { 's', 's', 0xE4 }
static const symbol	s_2_3 [2] = { 't', 0xE4 }
static const symbol	s_2_4 [3] = { 'l', 't', 0xE4 }
static const symbol	s_2_5 [3] = { 's', 't', 0xE4 }
static const struct among	a_2 [6]
static const symbol	s_3_0 [3] = { 'l', 'l', 'e' }
static const symbol	s_3_1 [3] = { 'i', 'n', 'e' }
static const struct among	a_3 [2]
static const symbol	s_4_0 [3] = { 'n', 's', 'a' }
static const symbol	s_4_1 [3] = { 'm', 'm', 'e' }
static const symbol	s_4_2 [3] = { 'n', 'n', 'e' }
static const symbol	s_4_3 [2] = { 'n', 'i' }
static const symbol	s_4_4 [2] = { 's', 'i' }
static const symbol	s_4_5 [2] = { 'a', 'n' }
static const symbol	s_4_6 [2] = { 'e', 'n' }
static const symbol	s_4_7 [2] = { 0xE4, 'n' }
static const symbol	s_4_8 [3] = { 'n', 's', 0xE4 }
static const struct among	a_4 [9]
static const symbol	s_5_0 [2] = { 'a', 'a' }
static const symbol	s_5_1 [2] = { 'e', 'e' }
static const symbol	s_5_2 [2] = { 'i', 'i' }
static const symbol	s_5_3 [2] = { 'o', 'o' }
static const symbol	s_5_4 [2] = { 'u', 'u' }
static const symbol	s_5_5 [2] = { 0xE4, 0xE4 }
static const symbol	s_5_6 [2] = { 0xF6, 0xF6 }
static const struct among	a_5 [7]
static const symbol	s_6_0 [1] = { 'a' }
static const symbol	s_6_1 [3] = { 'l', 'l', 'a' }
static const symbol	s_6_2 [2] = { 'n', 'a' }
static const symbol	s_6_3 [3] = { 's', 's', 'a' }
static const symbol	s_6_4 [2] = { 't', 'a' }
static const symbol	s_6_5 [3] = { 'l', 't', 'a' }
static const symbol	s_6_6 [3] = { 's', 't', 'a' }
static const symbol	s_6_7 [3] = { 't', 't', 'a' }
static const symbol	s_6_8 [3] = { 'l', 'l', 'e' }
static const symbol	s_6_9 [3] = { 'i', 'n', 'e' }
static const symbol	s_6_10 [3] = { 'k', 's', 'i' }
static const symbol	s_6_11 [1] = { 'n' }
static const symbol	s_6_12 [3] = { 'h', 'a', 'n' }
static const symbol	s_6_13 [3] = { 'd', 'e', 'n' }
static const symbol	s_6_14 [4] = { 's', 'e', 'e', 'n' }
static const symbol	s_6_15 [3] = { 'h', 'e', 'n' }
static const symbol	s_6_16 [4] = { 't', 't', 'e', 'n' }
static const symbol	s_6_17 [3] = { 'h', 'i', 'n' }
static const symbol	s_6_18 [4] = { 's', 'i', 'i', 'n' }
static const symbol	s_6_19 [3] = { 'h', 'o', 'n' }
static const symbol	s_6_20 [3] = { 'h', 0xE4, 'n' }
static const symbol	s_6_21 [3] = { 'h', 0xF6, 'n' }
static const symbol	s_6_22 [1] = { 0xE4 }
static const symbol	s_6_23 [3] = { 'l', 'l', 0xE4 }
static const symbol	s_6_24 [2] = { 'n', 0xE4 }
static const symbol	s_6_25 [3] = { 's', 's', 0xE4 }
static const symbol	s_6_26 [2] = { 't', 0xE4 }
static const symbol	s_6_27 [3] = { 'l', 't', 0xE4 }
static const symbol	s_6_28 [3] = { 's', 't', 0xE4 }
static const symbol	s_6_29 [3] = { 't', 't', 0xE4 }
static const struct among	a_6 [30]
static const symbol	s_7_0 [3] = { 'e', 'j', 'a' }
static const symbol	s_7_1 [3] = { 'm', 'm', 'a' }
static const symbol	s_7_2 [4] = { 'i', 'm', 'm', 'a' }
static const symbol	s_7_3 [3] = { 'm', 'p', 'a' }
static const symbol	s_7_4 [4] = { 'i', 'm', 'p', 'a' }
static const symbol	s_7_5 [3] = { 'm', 'm', 'i' }
static const symbol	s_7_6 [4] = { 'i', 'm', 'm', 'i' }
static const symbol	s_7_7 [3] = { 'm', 'p', 'i' }
static const symbol	s_7_8 [4] = { 'i', 'm', 'p', 'i' }
static const symbol	s_7_9 [3] = { 'e', 'j', 0xE4 }
static const symbol	s_7_10 [3] = { 'm', 'm', 0xE4 }
static const symbol	s_7_11 [4] = { 'i', 'm', 'm', 0xE4 }
static const symbol	s_7_12 [3] = { 'm', 'p', 0xE4 }
static const symbol	s_7_13 [4] = { 'i', 'm', 'p', 0xE4 }
static const struct among	a_7 [14]
static const symbol	s_9_0 [3] = { 'm', 'm', 'a' }
static const symbol	s_9_1 [4] = { 'i', 'm', 'm', 'a' }
static const struct among	a_9 [2]
static const unsigned char	g_AEI [] = { 17, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8 }
static const unsigned char	g_C [] = { 119, 223, 119, 1 }
static const unsigned char	g_V1 [] = { 17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 }
static const unsigned char	g_V2 [] = { 17, 65, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 }
static const unsigned char	g_particle_end [] = { 17, 97, 24, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 }

Typedef Documentation

SN_local

typedef struct SN_local SN_local

Definition at line 17 of file stem_ISO_8859_1_finnish.c.

Function Documentation

af_6()

static int af_6 ( struct SN_env *  z )

static

Definition at line 206 of file stem_ISO_8859_1_finnish.c.

                                   {
    switch (z->af) {
        case 1: return r_VI(z);
        case 2: return r_LONG(z);
    }
    return -1;
}

References SN_env::af, r_LONG(), and r_VI().

Referenced by r_case_ending().

finnish_ISO_8859_1_close_env()

void finnish_ISO_8859_1_close_env

(

struct SN_env *

z

)

Definition at line 770 of file stem_ISO_8859_1_finnish.c.

                                                            {
    if (z) {
        lose_s(((SN_local *)z)->s_x);
    }
    SN_delete_env(z);
}

References lose_s(), and SN_delete_env().

Referenced by finnish_ISO_8859_1_create_env().

finnish_ISO_8859_1_create_env()

struct SN_env * finnish_ISO_8859_1_create_env

(

void

)

Definition at line 754 of file stem_ISO_8859_1_finnish.c.

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

References create_s(), finnish_ISO_8859_1_close_env(), and SN_new_env().

finnish_ISO_8859_1_stem()

int finnish_ISO_8859_1_stem

(

struct SN_env *

z

)

Definition at line 678 of file stem_ISO_8859_1_finnish.c.

                                                      {
    {
        int v_1 = z->c;
        {
            int ret = r_mark_regions(z);
            if (ret < 0) return ret;
        }
        z->c = v_1;
    }
    ((SN_local *)z)->b_ending_removed = 0;
    z->lb = z->c; z->c = z->l;
    {
        int v_2 = z->l - z->c;
        {
            int ret = r_particle_etc(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - v_2;
    }
    {
        int v_3 = z->l - z->c;
        {
            int ret = r_possessive(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - v_3;
    }
    {
        int v_4 = z->l - z->c;
        {
            int ret = r_case_ending(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - v_4;
    }
    {
        int v_5 = z->l - z->c;
        {
            int ret = r_other_endings(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - v_5;
    }
    do {
        if (!((SN_local *)z)->b_ending_removed) goto lab0;
        {
            int v_6 = z->l - z->c;
            {
                int ret = r_i_plural(z);
                if (ret < 0) return ret;
            }
            z->c = z->l - v_6;
        }
        break;
    lab0:
        {
            int v_7 = z->l - z->c;
            {
                int ret = r_t_plural(z);
                if (ret < 0) return ret;
            }
            z->c = z->l - v_7;
        }
    } while (0);
    {
        int v_8 = z->l - z->c;
        {
            int ret = r_tidy(z);
            if (ret < 0) return ret;
        }
        z->c = z->l - v_8;
    }
    z->c = z->lb;
    return 1;
}

References SN_env::c, SN_env::l, SN_env::lb, r_case_ending(), r_i_plural(), r_mark_regions(), r_other_endings(), r_particle_etc(), r_possessive(), r_t_plural(), and r_tidy().

r_case_ending()

static int r_case_ending ( struct SN_env *  z )

static

Definition at line 408 of file stem_ISO_8859_1_finnish.c.

                                            {
    int among_var;
    {
        int v_1;
        if (z->c < ((SN_local *)z)->i_p1) return 0;
        v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
        z->ket = z->c;
        among_var = find_among_b(z, a_6, 30, af_6);
        if (!among_var) { z->lb = v_1; return 0; }
        z->bra = z->c;
        z->lb = v_1;
    }
    switch (among_var) {
        case 1:
            if (z->c <= z->lb || z->p[z->c - 1] != 'a') return 0;
            z->c--;
            break;
        case 2:
            if (z->c <= z->lb || z->p[z->c - 1] != 'e') return 0;
            z->c--;
            break;
        case 3:
            if (z->c <= z->lb || z->p[z->c - 1] != 'i') return 0;
            z->c--;
            break;
        case 4:
            if (z->c <= z->lb || z->p[z->c - 1] != 'o') return 0;
            z->c--;
            break;
        case 5:
            if (z->c <= z->lb || z->p[z->c - 1] != 0xE4) return 0;
            z->c--;
            break;
        case 6:
            if (z->c <= z->lb || z->p[z->c - 1] != 0xF6) return 0;
            z->c--;
            break;
        case 7:
            {
                int v_2 = z->l - z->c;
                {
                    int v_3 = z->l - z->c;
                    do {
                        int v_4 = z->l - z->c;
                        {
                            int ret = r_LONG(z);
                            if (ret == 0) goto lab1;
                            if (ret < 0) return ret;
                        }
                        break;
                    lab1:
                        z->c = z->l - v_4;
                        if (!(eq_s_b(z, 2, s_2))) { z->c = z->l - v_2; goto lab0; }
                    } while (0);
                    z->c = z->l - v_3;
                    if (z->c <= z->lb) { z->c = z->l - v_2; goto lab0; }
                    z->c--;
                }
                z->bra = z->c;
            lab0:
                ;
            }
            break;
        case 8:
            if (in_grouping_b(z, g_V1, 97, 246, 0)) return 0;
            if (in_grouping_b(z, g_C, 98, 122, 0)) return 0;
            break;
    }
    {
        int ret = slice_del(z);
        if (ret < 0) return ret;
    }
    ((SN_local *)z)->b_ending_removed = 1;
    return 1;
}

References a_6, af_6(), SN_env::bra, SN_env::c, eq_s_b(), find_among_b(), g_C, g_V1, SN_local::i_p1, in_grouping_b(), SN_env::l, SN_env::lb, SN_env::p, r_LONG(), s_2, and slice_del().

Referenced by finnish_ISO_8859_1_stem().

r_i_plural()

static int r_i_plural ( struct SN_env *  z )

static

Definition at line 514 of file stem_ISO_8859_1_finnish.c.

                                         {
    {
        int v_1;
        if (z->c < ((SN_local *)z)->i_p1) return 0;
        v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
        z->ket = z->c;
        if (z->c <= z->lb || (z->p[z->c - 1] != 105 && z->p[z->c - 1] != 106)) { z->lb = v_1; return 0; }
        z->c--;
        z->bra = z->c;
        z->lb = v_1;
    }
    {
        int ret = slice_del(z);
        if (ret < 0) return ret;
    }
    return 1;
}

References SN_env::c, SN_local::i_p1, and slice_del().

Referenced by finnish_ISO_8859_1_stem().

r_LONG()

static int r_LONG ( struct SN_env *  z )

static

Definition at line 398 of file stem_ISO_8859_1_finnish.c.

                                     {
    return find_among_b(z, a_5, 7, 0) != 0;
}

References a_5, and find_among_b().

Referenced by af_6(), r_case_ending(), and r_tidy().

r_mark_regions()

static int r_mark_regions ( struct SN_env *  z )

static

Definition at line 262 of file stem_ISO_8859_1_finnish.c.

                                             {
    ((SN_local *)z)->i_p1 = z->l;
    ((SN_local *)z)->i_p2 = z->l;
    {
        int ret = out_grouping(z, g_V1, 97, 246, 1);
        if (ret < 0) return 0;
        z->c += ret;
    }
    {
        int ret = in_grouping(z, g_V1, 97, 246, 1);
        if (ret < 0) return 0;
        z->c += ret;
    }
    ((SN_local *)z)->i_p1 = z->c;
    {
        int ret = out_grouping(z, g_V1, 97, 246, 1);
        if (ret < 0) return 0;
        z->c += ret;
    }
    {
        int ret = in_grouping(z, g_V1, 97, 246, 1);
        if (ret < 0) return 0;
        z->c += ret;
    }
    ((SN_local *)z)->i_p2 = z->c;
    return 1;
}

References SN_env::c, g_V1, in_grouping(), SN_env::l, and out_grouping().

Referenced by finnish_ISO_8859_1_stem().

r_other_endings()

static int r_other_endings ( struct SN_env *  z )

static

Definition at line 484 of file stem_ISO_8859_1_finnish.c.

                                              {
    int among_var;
    {
        int v_1;
        if (z->c < ((SN_local *)z)->i_p2) return 0;
        v_1 = z->lb; z->lb = ((SN_local *)z)->i_p2;
        z->ket = z->c;
        among_var = find_among_b(z, a_7, 14, 0);
        if (!among_var) { z->lb = v_1; return 0; }
        z->bra = z->c;
        z->lb = v_1;
    }
    switch (among_var) {
        case 1:
            {
                int v_2 = z->l - z->c;
                if (!(eq_s_b(z, 2, s_3))) goto lab0;
                return 0;
            lab0:
                z->c = z->l - v_2;
            }
            break;
    }
    {
        int ret = slice_del(z);
        if (ret < 0) return ret;
    }
    return 1;
}

References a_7, SN_env::c, eq_s_b(), find_among_b(), SN_local::i_p2, SN_env::l, s_3, and slice_del().

Referenced by finnish_ISO_8859_1_stem().

r_particle_etc()

static int r_particle_etc ( struct SN_env *  z )

static

Definition at line 294 of file stem_ISO_8859_1_finnish.c.

                                             {
    int among_var;
    {
        int v_1;
        if (z->c < ((SN_local *)z)->i_p1) return 0;
        v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
        z->ket = z->c;
        among_var = find_among_b(z, a_0, 10, 0);
        if (!among_var) { z->lb = v_1; return 0; }
        z->bra = z->c;
        z->lb = v_1;
    }
    switch (among_var) {
        case 1:
            if (in_grouping_b(z, g_particle_end, 97, 246, 0)) return 0;
            break;
        case 2:
            {
                int ret = r_R2(z);
                if (ret <= 0) return ret;
            }
            break;
    }
    {
        int ret = slice_del(z);
        if (ret < 0) return ret;
    }
    return 1;
}

References a_0, SN_env::c, find_among_b(), g_particle_end, SN_local::i_p1, in_grouping_b(), r_R2(), and slice_del().

Referenced by finnish_ISO_8859_1_stem().

r_possessive()

static int r_possessive ( struct SN_env *  z )

static

Definition at line 324 of file stem_ISO_8859_1_finnish.c.

                                           {
    int among_var;
    {
        int v_1;
        if (z->c < ((SN_local *)z)->i_p1) return 0;
        v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
        z->ket = z->c;
        among_var = find_among_b(z, a_4, 9, 0);
        if (!among_var) { z->lb = v_1; return 0; }
        z->bra = z->c;
        z->lb = v_1;
    }
    switch (among_var) {
        case 1:
            {
                int v_2 = z->l - z->c;
                if (z->c <= z->lb || z->p[z->c - 1] != 'k') goto lab0;
                z->c--;
                return 0;
            lab0:
                z->c = z->l - v_2;
            }
            {
                int ret = slice_del(z);
                if (ret < 0) return ret;
            }
            break;
        case 2:
            {
                int ret = slice_del(z);
                if (ret < 0) return ret;
            }
            z->ket = z->c;
            if (!(eq_s_b(z, 3, s_0))) return 0;
            z->bra = z->c;
            {
                int ret = slice_from_s(z, 3, s_1);
                if (ret < 0) return ret;
            }
            break;
        case 3:
            {
                int ret = slice_del(z);
                if (ret < 0) return ret;
            }
            break;
        case 4:
            if (z->c - 1 <= z->lb || z->p[z->c - 1] != 97) return 0;
            if (!find_among_b(z, a_1, 6, 0)) return 0;
            {
                int ret = slice_del(z);
                if (ret < 0) return ret;
            }
            break;
        case 5:
            if (z->c - 1 <= z->lb || z->p[z->c - 1] != 228) return 0;
            if (!find_among_b(z, a_2, 6, 0)) return 0;
            {
                int ret = slice_del(z);
                if (ret < 0) return ret;
            }
            break;
        case 6:
            if (z->c - 2 <= z->lb || z->p[z->c - 1] != 101) return 0;
            if (!find_among_b(z, a_3, 2, 0)) return 0;
            {
                int ret = slice_del(z);
                if (ret < 0) return ret;
            }
            break;
    }
    return 1;
}

References a_1, a_2, a_3, a_4, SN_env::bra, SN_env::c, eq_s_b(), find_among_b(), SN_local::i_p1, SN_env::ket, SN_env::l, SN_env::lb, SN_env::p, s_0, s_1, slice_del(), and slice_from_s().

Referenced by finnish_ISO_8859_1_stem().

r_R2()

static int r_R2 ( struct SN_env *  z )

static

Definition at line 290 of file stem_ISO_8859_1_finnish.c.

                                   {
    return ((SN_local *)z)->i_p2 <= z->c;
}

References SN_env::c.

Referenced by r_particle_etc().

r_t_plural()

static int r_t_plural ( struct SN_env *  z )

static

Definition at line 532 of file stem_ISO_8859_1_finnish.c.

                                         {
    int among_var;
    {
        int v_1;
        if (z->c < ((SN_local *)z)->i_p1) return 0;
        v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
        z->ket = z->c;
        if (z->c <= z->lb || z->p[z->c - 1] != 't') { z->lb = v_1; return 0; }
        z->c--;
        z->bra = z->c;
        {
            int v_2 = z->l - z->c;
            if (in_grouping_b(z, g_V1, 97, 246, 0)) { z->lb = v_1; return 0; }
            z->c = z->l - v_2;
        }
        {
            int ret = slice_del(z);
            if (ret < 0) return ret;
        }
        z->lb = v_1;
    }
    {
        int v_3;
        if (z->c < ((SN_local *)z)->i_p2) return 0;
        v_3 = z->lb; z->lb = ((SN_local *)z)->i_p2;
        z->ket = z->c;
        if (z->c - 2 <= z->lb || z->p[z->c - 1] != 97) { z->lb = v_3; return 0; }
        among_var = find_among_b(z, a_9, 2, 0);
        if (!among_var) { z->lb = v_3; return 0; }
        z->bra = z->c;
        z->lb = v_3;
    }
    switch (among_var) {
        case 1:
            {
                int v_4 = z->l - z->c;
                if (!(eq_s_b(z, 2, s_4))) goto lab0;
                return 0;
            lab0:
                z->c = z->l - v_4;
            }
            break;
    }
    {
        int ret = slice_del(z);
        if (ret < 0) return ret;
    }
    return 1;
}

References a_9, SN_env::c, eq_s_b(), find_among_b(), g_V1, SN_local::i_p1, SN_local::i_p2, in_grouping_b(), SN_env::l, s_4, and slice_del().

Referenced by finnish_ISO_8859_1_stem().

r_tidy()

static int r_tidy ( struct SN_env *  z )

static

Definition at line 582 of file stem_ISO_8859_1_finnish.c.

                                     {
    {
        int v_1;
        if (z->c < ((SN_local *)z)->i_p1) return 0;
        v_1 = z->lb; z->lb = ((SN_local *)z)->i_p1;
        {
            int v_2 = z->l - z->c;
            {
                int v_3 = z->l - z->c;
                {
                    int ret = r_LONG(z);
                    if (ret == 0) goto lab0;
                    if (ret < 0) return ret;
                }
                z->c = z->l - v_3;
                z->ket = z->c;
                if (z->c <= z->lb) goto lab0;
                z->c--;
                z->bra = z->c;
                {
                    int ret = slice_del(z);
                    if (ret < 0) return ret;
                }
            }
        lab0:
            z->c = z->l - v_2;
        }
        {
            int v_4 = z->l - z->c;
            z->ket = z->c;
            if (in_grouping_b(z, g_AEI, 97, 228, 0)) goto lab1;
            z->bra = z->c;
            if (in_grouping_b(z, g_C, 98, 122, 0)) goto lab1;
            {
                int ret = slice_del(z);
                if (ret < 0) return ret;
            }
        lab1:
            z->c = z->l - v_4;
        }
        {
            int v_5 = z->l - z->c;
            z->ket = z->c;
            if (z->c <= z->lb || z->p[z->c - 1] != 'j') goto lab2;
            z->c--;
            z->bra = z->c;
            do {
                int v_6 = z->l - z->c;
                if (z->c <= z->lb || z->p[z->c - 1] != 'o') goto lab3;
                z->c--;
                break;
            lab3:
                z->c = z->l - v_6;
                if (z->c <= z->lb || z->p[z->c - 1] != 'u') goto lab2;
                z->c--;
            } while (0);
            {
                int ret = slice_del(z);
                if (ret < 0) return ret;
            }
        lab2:
            z->c = z->l - v_5;
        }
        {
            int v_7 = z->l - z->c;
            z->ket = z->c;
            if (z->c <= z->lb || z->p[z->c - 1] != 'o') goto lab4;
            z->c--;
            z->bra = z->c;
            if (z->c <= z->lb || z->p[z->c - 1] != 'j') goto lab4;
            z->c--;
            {
                int ret = slice_del(z);
                if (ret < 0) return ret;
            }
        lab4:
            z->c = z->l - v_7;
        }
        z->lb = v_1;
    }
    if (in_grouping_b(z, g_V1, 97, 246, 1) < 0) return 0;
    z->ket = z->c;
    if (in_grouping_b(z, g_C, 98, 122, 0)) return 0;
    z->bra = z->c;
    {
        int ret = slice_to(z, &((SN_local *)z)->s_x);
        if (ret < 0) return ret;
    }
    if (!(eq_v_b(z, ((SN_local *)z)->s_x))) return 0;
    {
        int ret = slice_del(z);
        if (ret < 0) return ret;
    }
    return 1;
}

References SN_env::bra, SN_env::c, eq_v_b(), g_AEI, g_C, g_V1, SN_local::i_p1, in_grouping_b(), SN_env::ket, r_LONG(), slice_del(), and slice_to().

Referenced by finnish_ISO_8859_1_stem().

r_VI()

static int r_VI ( struct SN_env *  z )

static

Definition at line 402 of file stem_ISO_8859_1_finnish.c.

                                   {
    if (z->c <= z->lb || z->p[z->c - 1] != 'i') return 0;
    z->c--;
    return !in_grouping_b(z, g_V2, 97, 246, 0);
}

References SN_env::c, g_V2, in_grouping_b(), SN_env::lb, and SN_env::p.

Referenced by af_6().

Variable Documentation

a_0

const struct among a_0[10]

static

Initial value:

= {
{ 2, s_0_0, 0, 1, 0},
{ 3, s_0_1, 0, 2, 0},
{ 4, s_0_2, 0, 1, 0},
{ 3, s_0_3, 0, 1, 0},
{ 3, s_0_4, 0, 1, 0},
{ 3, s_0_5, 0, 1, 0},
{ 4, s_0_6, 0, 1, 0},
{ 2, s_0_7, 0, 1, 0},
{ 2, s_0_8, 0, 1, 0},
{ 2, s_0_9, 0, 1, 0}
}

Definition at line 55 of file stem_ISO_8859_1_finnish.c.

Referenced by r_particle_etc().

a_1

const struct among a_1[6]

static

Initial value:

= {
{ 3, s_1_0, 0, -1, 0},
{ 2, s_1_1, 0, -1, 0},
{ 3, s_1_2, 0, -1, 0},
{ 2, s_1_3, 0, -1, 0},
{ 3, s_1_4, -1, -1, 0},
{ 3, s_1_5, -2, -1, 0}
}

Definition at line 74 of file stem_ISO_8859_1_finnish.c.

Referenced by r_possessive().

a_2

const struct among a_2[6]

static

Initial value:

= {
{ 3, s_2_0, 0, -1, 0},
{ 2, s_2_1, 0, -1, 0},
{ 3, s_2_2, 0, -1, 0},
{ 2, s_2_3, 0, -1, 0},
{ 3, s_2_4, -1, -1, 0},
{ 3, s_2_5, -2, -1, 0}
}

Definition at line 89 of file stem_ISO_8859_1_finnish.c.

Referenced by r_possessive().

a_3

const struct among a_3[2]

static

Initial value:

= {
{ 3, s_3_0, 0, -1, 0},
{ 3, s_3_1, 0, -1, 0}
}

Definition at line 100 of file stem_ISO_8859_1_finnish.c.

Referenced by r_possessive().

a_4

const struct among a_4[9]

static

Initial value:

= {
{ 3, s_4_0, 0, 3, 0},
{ 3, s_4_1, 0, 3, 0},
{ 3, s_4_2, 0, 3, 0},
{ 2, s_4_3, 0, 2, 0},
{ 2, s_4_4, 0, 1, 0},
{ 2, s_4_5, 0, 4, 0},
{ 2, s_4_6, 0, 6, 0},
{ 2, s_4_7, 0, 5, 0},
{ 3, s_4_8, 0, 3, 0}
}

Definition at line 114 of file stem_ISO_8859_1_finnish.c.

Referenced by r_possessive().

a_5

const struct among a_5[7]

static

Initial value:

= {
{ 2, s_5_0, 0, -1, 0},
{ 2, s_5_1, 0, -1, 0},
{ 2, s_5_2, 0, -1, 0},
{ 2, s_5_3, 0, -1, 0},
{ 2, s_5_4, 0, -1, 0},
{ 2, s_5_5, 0, -1, 0},
{ 2, s_5_6, 0, -1, 0}
}

Definition at line 133 of file stem_ISO_8859_1_finnish.c.

Referenced by r_LONG().

a_6

const struct among a_6[30]

static

Definition at line 173 of file stem_ISO_8859_1_finnish.c.

Referenced by r_case_ending().

a_7

const struct among a_7[14]

static

Initial value:

= {
{ 3, s_7_0, 0, -1, 0},
{ 3, s_7_1, 0, 1, 0},
{ 4, s_7_2, -1, -1, 0},
{ 3, s_7_3, 0, 1, 0},
{ 4, s_7_4, -1, -1, 0},
{ 3, s_7_5, 0, 1, 0},
{ 4, s_7_6, -1, -1, 0},
{ 3, s_7_7, 0, 1, 0},
{ 4, s_7_8, -1, -1, 0},
{ 3, s_7_9, 0, -1, 0},
{ 3, s_7_10, 0, 1, 0},
{ 4, s_7_11, -1, -1, 0},
{ 3, s_7_12, 0, 1, 0},
{ 4, s_7_13, -1, -1, 0}
}

Definition at line 228 of file stem_ISO_8859_1_finnish.c.

Referenced by r_other_endings().

a_9

const struct among a_9[2]

static

Initial value:

= {
{ 3, s_9_0, 0, 1, 0},
{ 4, s_9_1, -1, -1, 0}
}

Definition at line 247 of file stem_ISO_8859_1_finnish.c.

Referenced by r_t_plural().

g_AEI

const unsigned char g_AEI[] = { 17, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8 }

static

Definition at line 252 of file stem_ISO_8859_1_finnish.c.

Referenced by r_tidy().

g_C

const unsigned char g_C[] = { 119, 223, 119, 1 }

static

Definition at line 254 of file stem_ISO_8859_1_finnish.c.

Referenced by r_case_ending(), and r_tidy().

g_particle_end

const unsigned char g_particle_end[] = { 17, 97, 24, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 }

static

Definition at line 260 of file stem_ISO_8859_1_finnish.c.

Referenced by r_particle_etc().

g_V1

const unsigned char g_V1[] = { 17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 }

static

Definition at line 256 of file stem_ISO_8859_1_finnish.c.

Referenced by r_case_ending(), r_mark_regions(), r_t_plural(), and r_tidy().

g_V2

const unsigned char g_V2[] = { 17, 65, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 }

static

Definition at line 258 of file stem_ISO_8859_1_finnish.c.

Referenced by r_VI().

s_0

const symbol s_0[] = { 'k', 's', 'e' }

static

Definition at line 39 of file stem_ISO_8859_1_finnish.c.

Referenced by r_possessive().

s_0_0

const symbol s_0_0[2] = { 'p', 'a' }

static

Definition at line 45 of file stem_ISO_8859_1_finnish.c.

s_0_1

const symbol s_0_1[3] = { 's', 't', 'i' }

static

Definition at line 46 of file stem_ISO_8859_1_finnish.c.

s_0_2

const symbol s_0_2[4] = { 'k', 'a', 'a', 'n' }

static

Definition at line 47 of file stem_ISO_8859_1_finnish.c.

s_0_3

const symbol s_0_3[3] = { 'h', 'a', 'n' }

static

Definition at line 48 of file stem_ISO_8859_1_finnish.c.

s_0_4

const symbol s_0_4[3] = { 'k', 'i', 'n' }

static

Definition at line 49 of file stem_ISO_8859_1_finnish.c.

s_0_5

const symbol s_0_5[3] = { 'h', 0xE4, 'n' }

static

Definition at line 50 of file stem_ISO_8859_1_finnish.c.

s_0_6

const symbol s_0_6[4] = { 'k', 0xE4, 0xE4, 'n' }

static

Definition at line 51 of file stem_ISO_8859_1_finnish.c.

s_0_7

const symbol s_0_7[2] = { 'k', 'o' }

static

Definition at line 52 of file stem_ISO_8859_1_finnish.c.

s_0_8

const symbol s_0_8[2] = { 'p', 0xE4 }

static

Definition at line 53 of file stem_ISO_8859_1_finnish.c.

s_0_9

const symbol s_0_9[2] = { 'k', 0xF6 }

static

Definition at line 54 of file stem_ISO_8859_1_finnish.c.

s_1

const symbol s_1[] = { 'k', 's', 'i' }

static

Definition at line 40 of file stem_ISO_8859_1_finnish.c.

Referenced by r_possessive().

s_1_0

const symbol s_1_0[3] = { 'l', 'l', 'a' }

static

Definition at line 68 of file stem_ISO_8859_1_finnish.c.

s_1_1

const symbol s_1_1[2] = { 'n', 'a' }

static

Definition at line 69 of file stem_ISO_8859_1_finnish.c.

s_1_2

const symbol s_1_2[3] = { 's', 's', 'a' }

static

Definition at line 70 of file stem_ISO_8859_1_finnish.c.

s_1_3

const symbol s_1_3[2] = { 't', 'a' }

static

Definition at line 71 of file stem_ISO_8859_1_finnish.c.

s_1_4

const symbol s_1_4[3] = { 'l', 't', 'a' }

static

Definition at line 72 of file stem_ISO_8859_1_finnish.c.

s_1_5

const symbol s_1_5[3] = { 's', 't', 'a' }

static

Definition at line 73 of file stem_ISO_8859_1_finnish.c.

s_2

const symbol s_2[] = { 'i', 'e' }

static

Definition at line 41 of file stem_ISO_8859_1_finnish.c.

Referenced by r_case_ending().

s_2_0

const symbol s_2_0[3] = { 'l', 'l', 0xE4 }

static

Definition at line 83 of file stem_ISO_8859_1_finnish.c.

s_2_1

const symbol s_2_1[2] = { 'n', 0xE4 }

static

Definition at line 84 of file stem_ISO_8859_1_finnish.c.

s_2_2

const symbol s_2_2[3] = { 's', 's', 0xE4 }

static

Definition at line 85 of file stem_ISO_8859_1_finnish.c.

s_2_3

const symbol s_2_3[2] = { 't', 0xE4 }

static

Definition at line 86 of file stem_ISO_8859_1_finnish.c.

s_2_4

const symbol s_2_4[3] = { 'l', 't', 0xE4 }

static

Definition at line 87 of file stem_ISO_8859_1_finnish.c.

s_2_5

const symbol s_2_5[3] = { 's', 't', 0xE4 }

static

Definition at line 88 of file stem_ISO_8859_1_finnish.c.

s_3

const symbol s_3[] = { 'p', 'o' }

static

Definition at line 42 of file stem_ISO_8859_1_finnish.c.

Referenced by r_other_endings().

s_3_0

const symbol s_3_0[3] = { 'l', 'l', 'e' }

static

Definition at line 98 of file stem_ISO_8859_1_finnish.c.

s_3_1

const symbol s_3_1[3] = { 'i', 'n', 'e' }

static

Definition at line 99 of file stem_ISO_8859_1_finnish.c.

s_4

const symbol s_4[] = { 'p', 'o' }

static

Definition at line 43 of file stem_ISO_8859_1_finnish.c.

Referenced by r_t_plural().

s_4_0

const symbol s_4_0[3] = { 'n', 's', 'a' }

static

Definition at line 105 of file stem_ISO_8859_1_finnish.c.

s_4_1

const symbol s_4_1[3] = { 'm', 'm', 'e' }

static

Definition at line 106 of file stem_ISO_8859_1_finnish.c.

s_4_2

const symbol s_4_2[3] = { 'n', 'n', 'e' }

static

Definition at line 107 of file stem_ISO_8859_1_finnish.c.

s_4_3

const symbol s_4_3[2] = { 'n', 'i' }

static

Definition at line 108 of file stem_ISO_8859_1_finnish.c.

s_4_4

const symbol s_4_4[2] = { 's', 'i' }

static

Definition at line 109 of file stem_ISO_8859_1_finnish.c.

s_4_5

const symbol s_4_5[2] = { 'a', 'n' }

static

Definition at line 110 of file stem_ISO_8859_1_finnish.c.

s_4_6

const symbol s_4_6[2] = { 'e', 'n' }

static

Definition at line 111 of file stem_ISO_8859_1_finnish.c.

s_4_7

const symbol s_4_7[2] = { 0xE4, 'n' }

static

Definition at line 112 of file stem_ISO_8859_1_finnish.c.

s_4_8

const symbol s_4_8[3] = { 'n', 's', 0xE4 }

static

Definition at line 113 of file stem_ISO_8859_1_finnish.c.

s_5_0

const symbol s_5_0[2] = { 'a', 'a' }

static

Definition at line 126 of file stem_ISO_8859_1_finnish.c.

s_5_1

const symbol s_5_1[2] = { 'e', 'e' }

static

Definition at line 127 of file stem_ISO_8859_1_finnish.c.

s_5_2

const symbol s_5_2[2] = { 'i', 'i' }

static

Definition at line 128 of file stem_ISO_8859_1_finnish.c.

s_5_3

const symbol s_5_3[2] = { 'o', 'o' }

static

Definition at line 129 of file stem_ISO_8859_1_finnish.c.

s_5_4

const symbol s_5_4[2] = { 'u', 'u' }

static

Definition at line 130 of file stem_ISO_8859_1_finnish.c.

s_5_5

const symbol s_5_5[2] = { 0xE4, 0xE4 }

static

Definition at line 131 of file stem_ISO_8859_1_finnish.c.

s_5_6

const symbol s_5_6[2] = { 0xF6, 0xF6 }

static

Definition at line 132 of file stem_ISO_8859_1_finnish.c.

s_6_0

const symbol s_6_0[1] = { 'a' }

static

Definition at line 143 of file stem_ISO_8859_1_finnish.c.

s_6_1

const symbol s_6_1[3] = { 'l', 'l', 'a' }

static

Definition at line 144 of file stem_ISO_8859_1_finnish.c.

s_6_10

const symbol s_6_10[3] = { 'k', 's', 'i' }

static

Definition at line 153 of file stem_ISO_8859_1_finnish.c.

s_6_11

const symbol s_6_11[1] = { 'n' }

static

Definition at line 154 of file stem_ISO_8859_1_finnish.c.

s_6_12

const symbol s_6_12[3] = { 'h', 'a', 'n' }

static

Definition at line 155 of file stem_ISO_8859_1_finnish.c.

s_6_13

const symbol s_6_13[3] = { 'd', 'e', 'n' }

static

Definition at line 156 of file stem_ISO_8859_1_finnish.c.

s_6_14

const symbol s_6_14[4] = { 's', 'e', 'e', 'n' }

static

Definition at line 157 of file stem_ISO_8859_1_finnish.c.

s_6_15

const symbol s_6_15[3] = { 'h', 'e', 'n' }

static

Definition at line 158 of file stem_ISO_8859_1_finnish.c.

s_6_16

const symbol s_6_16[4] = { 't', 't', 'e', 'n' }

static

Definition at line 159 of file stem_ISO_8859_1_finnish.c.

s_6_17

const symbol s_6_17[3] = { 'h', 'i', 'n' }

static

Definition at line 160 of file stem_ISO_8859_1_finnish.c.

s_6_18

const symbol s_6_18[4] = { 's', 'i', 'i', 'n' }

static

Definition at line 161 of file stem_ISO_8859_1_finnish.c.

s_6_19

const symbol s_6_19[3] = { 'h', 'o', 'n' }

static

Definition at line 162 of file stem_ISO_8859_1_finnish.c.

s_6_2

const symbol s_6_2[2] = { 'n', 'a' }

static

Definition at line 145 of file stem_ISO_8859_1_finnish.c.

s_6_20

const symbol s_6_20[3] = { 'h', 0xE4, 'n' }

static

Definition at line 163 of file stem_ISO_8859_1_finnish.c.

s_6_21

const symbol s_6_21[3] = { 'h', 0xF6, 'n' }

static

Definition at line 164 of file stem_ISO_8859_1_finnish.c.

s_6_22

const symbol s_6_22[1] = { 0xE4 }

static

Definition at line 165 of file stem_ISO_8859_1_finnish.c.

s_6_23

const symbol s_6_23[3] = { 'l', 'l', 0xE4 }

static

Definition at line 166 of file stem_ISO_8859_1_finnish.c.

s_6_24

const symbol s_6_24[2] = { 'n', 0xE4 }

static

Definition at line 167 of file stem_ISO_8859_1_finnish.c.

s_6_25

const symbol s_6_25[3] = { 's', 's', 0xE4 }

static

Definition at line 168 of file stem_ISO_8859_1_finnish.c.

s_6_26

const symbol s_6_26[2] = { 't', 0xE4 }

static

Definition at line 169 of file stem_ISO_8859_1_finnish.c.

s_6_27

const symbol s_6_27[3] = { 'l', 't', 0xE4 }

static

Definition at line 170 of file stem_ISO_8859_1_finnish.c.

s_6_28

const symbol s_6_28[3] = { 's', 't', 0xE4 }

static

Definition at line 171 of file stem_ISO_8859_1_finnish.c.

s_6_29

const symbol s_6_29[3] = { 't', 't', 0xE4 }

static

Definition at line 172 of file stem_ISO_8859_1_finnish.c.

s_6_3

const symbol s_6_3[3] = { 's', 's', 'a' }

static

Definition at line 146 of file stem_ISO_8859_1_finnish.c.

s_6_4

const symbol s_6_4[2] = { 't', 'a' }

static

Definition at line 147 of file stem_ISO_8859_1_finnish.c.

s_6_5

const symbol s_6_5[3] = { 'l', 't', 'a' }

static

Definition at line 148 of file stem_ISO_8859_1_finnish.c.

s_6_6

const symbol s_6_6[3] = { 's', 't', 'a' }

static

Definition at line 149 of file stem_ISO_8859_1_finnish.c.

s_6_7

const symbol s_6_7[3] = { 't', 't', 'a' }

static

Definition at line 150 of file stem_ISO_8859_1_finnish.c.

s_6_8

const symbol s_6_8[3] = { 'l', 'l', 'e' }

static

Definition at line 151 of file stem_ISO_8859_1_finnish.c.

s_6_9

const symbol s_6_9[3] = { 'i', 'n', 'e' }

static

Definition at line 152 of file stem_ISO_8859_1_finnish.c.

s_7_0

const symbol s_7_0[3] = { 'e', 'j', 'a' }

static

Definition at line 214 of file stem_ISO_8859_1_finnish.c.

s_7_1

const symbol s_7_1[3] = { 'm', 'm', 'a' }

static

Definition at line 215 of file stem_ISO_8859_1_finnish.c.

s_7_10

const symbol s_7_10[3] = { 'm', 'm', 0xE4 }

static

Definition at line 224 of file stem_ISO_8859_1_finnish.c.

s_7_11

const symbol s_7_11[4] = { 'i', 'm', 'm', 0xE4 }

static

Definition at line 225 of file stem_ISO_8859_1_finnish.c.

s_7_12

const symbol s_7_12[3] = { 'm', 'p', 0xE4 }

static

Definition at line 226 of file stem_ISO_8859_1_finnish.c.

s_7_13

const symbol s_7_13[4] = { 'i', 'm', 'p', 0xE4 }

static

Definition at line 227 of file stem_ISO_8859_1_finnish.c.

s_7_2

const symbol s_7_2[4] = { 'i', 'm', 'm', 'a' }

static

Definition at line 216 of file stem_ISO_8859_1_finnish.c.

s_7_3

const symbol s_7_3[3] = { 'm', 'p', 'a' }

static

Definition at line 217 of file stem_ISO_8859_1_finnish.c.

s_7_4

const symbol s_7_4[4] = { 'i', 'm', 'p', 'a' }

static

Definition at line 218 of file stem_ISO_8859_1_finnish.c.

s_7_5

const symbol s_7_5[3] = { 'm', 'm', 'i' }

static

Definition at line 219 of file stem_ISO_8859_1_finnish.c.

s_7_6

const symbol s_7_6[4] = { 'i', 'm', 'm', 'i' }

static

Definition at line 220 of file stem_ISO_8859_1_finnish.c.

s_7_7

const symbol s_7_7[3] = { 'm', 'p', 'i' }

static

Definition at line 221 of file stem_ISO_8859_1_finnish.c.

s_7_8

const symbol s_7_8[4] = { 'i', 'm', 'p', 'i' }

static

Definition at line 222 of file stem_ISO_8859_1_finnish.c.

s_7_9

const symbol s_7_9[3] = { 'e', 'j', 0xE4 }

static

Definition at line 223 of file stem_ISO_8859_1_finnish.c.

s_9_0

const symbol s_9_0[3] = { 'm', 'm', 'a' }

static

Definition at line 245 of file stem_ISO_8859_1_finnish.c.

s_9_1

const symbol s_9_1[4] = { 'i', 'm', 'm', 'a' }

static

Definition at line 246 of file stem_ISO_8859_1_finnish.c.