PostgreSQL Source Code  git master
stem_ISO_8859_1_finnish.c File Reference
#include "header.h"
Include dependency graph for stem_ISO_8859_1_finnish.c:

Go to the source code of this file.

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)
 
struct SN_envfinnish_ISO_8859_1_create_env (void)
 
void finnish_ISO_8859_1_close_env (struct SN_env *z)
 

Variables

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_8_0 [1] = { 'i' }
 
static const symbol s_8_1 [1] = { 'j' }
 
static const struct among a_8 [2]
 
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_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 }
 
static const symbol s_0 [] = { 'k' }
 
static const symbol s_1 [] = { 'k', 's', 'e' }
 
static const symbol s_2 [] = { 'k', 's', 'i' }
 
static const symbol s_3 [] = { 'i' }
 
static const symbol s_4 [] = { 'a' }
 
static const symbol s_5 [] = { 'e' }
 
static const symbol s_6 [] = { 'i' }
 
static const symbol s_7 [] = { 'o' }
 
static const symbol s_8 [] = { 0xE4 }
 
static const symbol s_9 [] = { 0xF6 }
 
static const symbol s_10 [] = { 'i', 'e' }
 
static const symbol s_11 [] = { 'e' }
 
static const symbol s_12 [] = { 'p', 'o' }
 
static const symbol s_13 [] = { 't' }
 
static const symbol s_14 [] = { 'p', 'o' }
 
static const symbol s_15 [] = { 'j' }
 
static const symbol s_16 [] = { 'o' }
 
static const symbol s_17 [] = { 'u' }
 
static const symbol s_18 [] = { 'o' }
 
static const symbol s_19 [] = { 'j' }
 

Function Documentation

◆ finnish_ISO_8859_1_close_env()

void finnish_ISO_8859_1_close_env ( struct SN_env z)

Definition at line 761 of file stem_ISO_8859_1_finnish.c.

References SN_close_env().

761 { SN_close_env(z, 1); }
void SN_close_env(struct SN_env *z, int S_size)
Definition: api.c:40

◆ finnish_ISO_8859_1_create_env()

struct SN_env * finnish_ISO_8859_1_create_env ( void  )

Definition at line 759 of file stem_ISO_8859_1_finnish.c.

References SN_create_env().

759 { return SN_create_env(1, 2, 1); }
struct SN_env * SN_create_env(int S_size, int I_size, int B_size)
Definition: api.c:3

◆ finnish_ISO_8859_1_stem()

int finnish_ISO_8859_1_stem ( struct SN_env z)

Definition at line 680 of file stem_ISO_8859_1_finnish.c.

References SN_env::B, 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().

680  {
681  { int c1 = z->c; /* do, line 185 */
682  { int ret = r_mark_regions(z);
683  if (ret == 0) goto lab0; /* call mark_regions, line 185 */
684  if (ret < 0) return ret;
685  }
686  lab0:
687  z->c = c1;
688  }
689  z->B[0] = 0; /* unset ending_removed, line 186 */
690  z->lb = z->c; z->c = z->l; /* backwards, line 187 */
691 
692  { int m2 = z->l - z->c; (void)m2; /* do, line 188 */
693  { int ret = r_particle_etc(z);
694  if (ret == 0) goto lab1; /* call particle_etc, line 188 */
695  if (ret < 0) return ret;
696  }
697  lab1:
698  z->c = z->l - m2;
699  }
700  { int m3 = z->l - z->c; (void)m3; /* do, line 189 */
701  { int ret = r_possessive(z);
702  if (ret == 0) goto lab2; /* call possessive, line 189 */
703  if (ret < 0) return ret;
704  }
705  lab2:
706  z->c = z->l - m3;
707  }
708  { int m4 = z->l - z->c; (void)m4; /* do, line 190 */
709  { int ret = r_case_ending(z);
710  if (ret == 0) goto lab3; /* call case_ending, line 190 */
711  if (ret < 0) return ret;
712  }
713  lab3:
714  z->c = z->l - m4;
715  }
716  { int m5 = z->l - z->c; (void)m5; /* do, line 191 */
717  { int ret = r_other_endings(z);
718  if (ret == 0) goto lab4; /* call other_endings, line 191 */
719  if (ret < 0) return ret;
720  }
721  lab4:
722  z->c = z->l - m5;
723  }
724  { int m6 = z->l - z->c; (void)m6; /* or, line 192 */
725  if (!(z->B[0])) goto lab6; /* Boolean test ending_removed, line 192 */
726  { int m7 = z->l - z->c; (void)m7; /* do, line 192 */
727  { int ret = r_i_plural(z);
728  if (ret == 0) goto lab7; /* call i_plural, line 192 */
729  if (ret < 0) return ret;
730  }
731  lab7:
732  z->c = z->l - m7;
733  }
734  goto lab5;
735  lab6:
736  z->c = z->l - m6;
737  { int m8 = z->l - z->c; (void)m8; /* do, line 192 */
738  { int ret = r_t_plural(z);
739  if (ret == 0) goto lab8; /* call t_plural, line 192 */
740  if (ret < 0) return ret;
741  }
742  lab8:
743  z->c = z->l - m8;
744  }
745  }
746 lab5:
747  { int m9 = z->l - z->c; (void)m9; /* do, line 193 */
748  { int ret = r_tidy(z);
749  if (ret == 0) goto lab9; /* call tidy, line 193 */
750  if (ret < 0) return ret;
751  }
752  lab9:
753  z->c = z->l - m9;
754  }
755  z->c = z->lb;
756  return 1;
757 }
static int r_tidy(struct SN_env *z)
static int r_i_plural(struct SN_env *z)
static int r_t_plural(struct SN_env *z)
int c
Definition: api.h:16
int lb
Definition: api.h:16
static int r_case_ending(struct SN_env *z)
static int r_other_endings(struct SN_env *z)
unsigned char * B
Definition: api.h:19
static int r_mark_regions(struct SN_env *z)
int l
Definition: api.h:16
static int r_possessive(struct SN_env *z)
static int r_particle_etc(struct SN_env *z)

◆ r_case_ending()

static int r_case_ending ( struct SN_env z)
static

Definition at line 427 of file stem_ISO_8859_1_finnish.c.

References SN_env::B, SN_env::bra, SN_env::c, eq_s_b(), find_among_b(), g_V1, SN_env::I, in_grouping_b(), SN_env::ket, SN_env::l, SN_env::lb, out_grouping_b(), r_LONG(), s_10, s_11, s_4, s_5, s_6, s_7, s_8, s_9, and slice_del().

Referenced by finnish_ISO_8859_1_stem().

427  {
428  int among_var;
429  { int mlimit; /* setlimit, line 96 */
430  int m1 = z->l - z->c; (void)m1;
431  if (z->c < z->I[0]) return 0;
432  z->c = z->I[0]; /* tomark, line 96 */
433  mlimit = z->lb; z->lb = z->c;
434  z->c = z->l - m1;
435  z->ket = z->c; /* [, line 96 */
436  among_var = find_among_b(z, a_6, 30); /* substring, line 96 */
437  if (!(among_var)) { z->lb = mlimit; return 0; }
438  z->bra = z->c; /* ], line 96 */
439  z->lb = mlimit;
440  }
441  switch(among_var) {
442  case 0: return 0;
443  case 1:
444  if (!(eq_s_b(z, 1, s_4))) return 0;
445  break;
446  case 2:
447  if (!(eq_s_b(z, 1, s_5))) return 0;
448  break;
449  case 3:
450  if (!(eq_s_b(z, 1, s_6))) return 0;
451  break;
452  case 4:
453  if (!(eq_s_b(z, 1, s_7))) return 0;
454  break;
455  case 5:
456  if (!(eq_s_b(z, 1, s_8))) return 0;
457  break;
458  case 6:
459  if (!(eq_s_b(z, 1, s_9))) return 0;
460  break;
461  case 7:
462  { int m_keep = z->l - z->c;/* (void) m_keep;*/ /* try, line 111 */
463  { int m2 = z->l - z->c; (void)m2; /* and, line 113 */
464  { int m3 = z->l - z->c; (void)m3; /* or, line 112 */
465  { int ret = r_LONG(z);
466  if (ret == 0) goto lab2; /* call LONG, line 111 */
467  if (ret < 0) return ret;
468  }
469  goto lab1;
470  lab2:
471  z->c = z->l - m3;
472  if (!(eq_s_b(z, 2, s_10))) { z->c = z->l - m_keep; goto lab0; }
473  }
474  lab1:
475  z->c = z->l - m2;
476  if (z->c <= z->lb) { z->c = z->l - m_keep; goto lab0; }
477  z->c--; /* next, line 113 */
478  }
479  z->bra = z->c; /* ], line 113 */
480  lab0:
481  ;
482  }
483  break;
484  case 8:
485  if (in_grouping_b(z, g_V1, 97, 246, 0)) return 0;
486  if (out_grouping_b(z, g_V1, 97, 246, 0)) return 0;
487  break;
488  case 9:
489  if (!(eq_s_b(z, 1, s_11))) return 0;
490  break;
491  }
492  { int ret = slice_del(z); /* delete, line 138 */
493  if (ret < 0) return ret;
494  }
495  z->B[0] = 1; /* set ending_removed, line 139 */
496  return 1;
497 }
static const symbol s_9[]
static const symbol s_11[]
static const symbol s_4[]
int eq_s_b(struct SN_env *z, int s_size, const symbol *s)
Definition: utilities.c:194
int * I
Definition: api.h:18
int ket
Definition: api.h:16
static const struct among a_6[30]
int slice_del(struct SN_env *z)
Definition: utilities.c:401
int bra
Definition: api.h:16
static const symbol s_6[]
int find_among_b(struct SN_env *z, const struct among *v, int v_size)
Definition: utilities.c:267
int in_grouping_b(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:153
int c
Definition: api.h:16
int lb
Definition: api.h:16
static const symbol s_5[]
int out_grouping_b(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:177
static const unsigned char g_V1[]
static const symbol s_7[]
static int r_LONG(struct SN_env *z)
static const symbol s_8[]
static const symbol s_10[]
unsigned char * B
Definition: api.h:19
int l
Definition: api.h:16

◆ r_i_plural()

static int r_i_plural ( struct SN_env z)
static

Definition at line 530 of file stem_ISO_8859_1_finnish.c.

References SN_env::bra, SN_env::c, find_among_b(), SN_env::I, SN_env::ket, SN_env::l, SN_env::lb, SN_env::p, and slice_del().

Referenced by finnish_ISO_8859_1_stem().

530  {
531  { int mlimit; /* setlimit, line 154 */
532  int m1 = z->l - z->c; (void)m1;
533  if (z->c < z->I[0]) return 0;
534  z->c = z->I[0]; /* tomark, line 154 */
535  mlimit = z->lb; z->lb = z->c;
536  z->c = z->l - m1;
537  z->ket = z->c; /* [, line 154 */
538  if (z->c <= z->lb || (z->p[z->c - 1] != 105 && z->p[z->c - 1] != 106)) { z->lb = mlimit; return 0; }
539  if (!(find_among_b(z, a_8, 2))) { z->lb = mlimit; return 0; } /* substring, line 154 */
540  z->bra = z->c; /* ], line 154 */
541  z->lb = mlimit;
542  }
543  { int ret = slice_del(z); /* delete, line 158 */
544  if (ret < 0) return ret;
545  }
546  return 1;
547 }
symbol * p
Definition: api.h:15
int * I
Definition: api.h:18
int ket
Definition: api.h:16
int slice_del(struct SN_env *z)
Definition: utilities.c:401
int bra
Definition: api.h:16
int find_among_b(struct SN_env *z, const struct among *v, int v_size)
Definition: utilities.c:267
int c
Definition: api.h:16
int lb
Definition: api.h:16
int l
Definition: api.h:16
static const struct among a_8[2]

◆ r_LONG()

static int r_LONG ( struct SN_env z)
static

Definition at line 416 of file stem_ISO_8859_1_finnish.c.

References find_among_b().

Referenced by r_case_ending(), and r_tidy().

416  {
417  if (!(find_among_b(z, a_5, 7))) return 0; /* among, line 91 */
418  return 1;
419 }
static const struct among a_5[7]
int find_among_b(struct SN_env *z, const struct among *v, int v_size)
Definition: utilities.c:267

◆ r_mark_regions()

static int r_mark_regions ( struct SN_env z)
static

Definition at line 291 of file stem_ISO_8859_1_finnish.c.

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

Referenced by finnish_ISO_8859_1_stem().

291  {
292  z->I[0] = z->l;
293  z->I[1] = z->l;
294  if (out_grouping(z, g_V1, 97, 246, 1) < 0) return 0; /* goto */ /* grouping V1, line 46 */
295  { /* gopast */ /* non V1, line 46 */
296  int ret = in_grouping(z, g_V1, 97, 246, 1);
297  if (ret < 0) return 0;
298  z->c += ret;
299  }
300  z->I[0] = z->c; /* setmark p1, line 46 */
301  if (out_grouping(z, g_V1, 97, 246, 1) < 0) return 0; /* goto */ /* grouping V1, line 47 */
302  { /* gopast */ /* non V1, line 47 */
303  int ret = in_grouping(z, g_V1, 97, 246, 1);
304  if (ret < 0) return 0;
305  z->c += ret;
306  }
307  z->I[1] = z->c; /* setmark p2, line 47 */
308  return 1;
309 }
int in_grouping(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:141
int * I
Definition: api.h:18
int c
Definition: api.h:16
static const unsigned char g_V1[]
int out_grouping(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:165
int l
Definition: api.h:16

◆ r_other_endings()

static int r_other_endings ( struct SN_env z)
static

Definition at line 499 of file stem_ISO_8859_1_finnish.c.

References SN_env::bra, SN_env::c, eq_s_b(), find_among_b(), SN_env::I, SN_env::ket, SN_env::l, SN_env::lb, s_12, and slice_del().

Referenced by finnish_ISO_8859_1_stem().

499  {
500  int among_var;
501  { int mlimit; /* setlimit, line 142 */
502  int m1 = z->l - z->c; (void)m1;
503  if (z->c < z->I[1]) return 0;
504  z->c = z->I[1]; /* tomark, line 142 */
505  mlimit = z->lb; z->lb = z->c;
506  z->c = z->l - m1;
507  z->ket = z->c; /* [, line 142 */
508  among_var = find_among_b(z, a_7, 14); /* substring, line 142 */
509  if (!(among_var)) { z->lb = mlimit; return 0; }
510  z->bra = z->c; /* ], line 142 */
511  z->lb = mlimit;
512  }
513  switch(among_var) {
514  case 0: return 0;
515  case 1:
516  { int m2 = z->l - z->c; (void)m2; /* not, line 146 */
517  if (!(eq_s_b(z, 2, s_12))) goto lab0;
518  return 0;
519  lab0:
520  z->c = z->l - m2;
521  }
522  break;
523  }
524  { int ret = slice_del(z); /* delete, line 151 */
525  if (ret < 0) return ret;
526  }
527  return 1;
528 }
int eq_s_b(struct SN_env *z, int s_size, const symbol *s)
Definition: utilities.c:194
int * I
Definition: api.h:18
int ket
Definition: api.h:16
int slice_del(struct SN_env *z)
Definition: utilities.c:401
int bra
Definition: api.h:16
static const symbol s_12[]
int find_among_b(struct SN_env *z, const struct among *v, int v_size)
Definition: utilities.c:267
static const struct among a_7[14]
int c
Definition: api.h:16
int lb
Definition: api.h:16
int l
Definition: api.h:16

◆ r_particle_etc()

static int r_particle_etc ( struct SN_env z)
static

Definition at line 316 of file stem_ISO_8859_1_finnish.c.

References SN_env::bra, SN_env::c, find_among_b(), g_particle_end, SN_env::I, in_grouping_b(), SN_env::ket, SN_env::l, SN_env::lb, r_R2(), and slice_del().

Referenced by finnish_ISO_8859_1_stem().

316  {
317  int among_var;
318  { int mlimit; /* setlimit, line 55 */
319  int m1 = z->l - z->c; (void)m1;
320  if (z->c < z->I[0]) return 0;
321  z->c = z->I[0]; /* tomark, line 55 */
322  mlimit = z->lb; z->lb = z->c;
323  z->c = z->l - m1;
324  z->ket = z->c; /* [, line 55 */
325  among_var = find_among_b(z, a_0, 10); /* substring, line 55 */
326  if (!(among_var)) { z->lb = mlimit; return 0; }
327  z->bra = z->c; /* ], line 55 */
328  z->lb = mlimit;
329  }
330  switch(among_var) {
331  case 0: return 0;
332  case 1:
333  if (in_grouping_b(z, g_particle_end, 97, 246, 0)) return 0;
334  break;
335  case 2:
336  { int ret = r_R2(z);
337  if (ret == 0) return 0; /* call R2, line 64 */
338  if (ret < 0) return ret;
339  }
340  break;
341  }
342  { int ret = slice_del(z); /* delete, line 66 */
343  if (ret < 0) return ret;
344  }
345  return 1;
346 }
int * I
Definition: api.h:18
int ket
Definition: api.h:16
int slice_del(struct SN_env *z)
Definition: utilities.c:401
int bra
Definition: api.h:16
int find_among_b(struct SN_env *z, const struct among *v, int v_size)
Definition: utilities.c:267
int in_grouping_b(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:153
int c
Definition: api.h:16
static const struct among a_0[10]
int lb
Definition: api.h:16
static const unsigned char g_particle_end[]
int l
Definition: api.h:16
static int r_R2(struct SN_env *z)

◆ r_possessive()

static int r_possessive ( struct SN_env z)
static

Definition at line 348 of file stem_ISO_8859_1_finnish.c.

References SN_env::bra, SN_env::c, eq_s_b(), find_among_b(), SN_env::I, SN_env::ket, SN_env::l, SN_env::lb, SN_env::p, s_0, s_1, s_2, slice_del(), and slice_from_s().

Referenced by finnish_ISO_8859_1_stem().

348  {
349  int among_var;
350  { int mlimit; /* setlimit, line 69 */
351  int m1 = z->l - z->c; (void)m1;
352  if (z->c < z->I[0]) return 0;
353  z->c = z->I[0]; /* tomark, line 69 */
354  mlimit = z->lb; z->lb = z->c;
355  z->c = z->l - m1;
356  z->ket = z->c; /* [, line 69 */
357  among_var = find_among_b(z, a_4, 9); /* substring, line 69 */
358  if (!(among_var)) { z->lb = mlimit; return 0; }
359  z->bra = z->c; /* ], line 69 */
360  z->lb = mlimit;
361  }
362  switch(among_var) {
363  case 0: return 0;
364  case 1:
365  { int m2 = z->l - z->c; (void)m2; /* not, line 72 */
366  if (!(eq_s_b(z, 1, s_0))) goto lab0;
367  return 0;
368  lab0:
369  z->c = z->l - m2;
370  }
371  { int ret = slice_del(z); /* delete, line 72 */
372  if (ret < 0) return ret;
373  }
374  break;
375  case 2:
376  { int ret = slice_del(z); /* delete, line 74 */
377  if (ret < 0) return ret;
378  }
379  z->ket = z->c; /* [, line 74 */
380  if (!(eq_s_b(z, 3, s_1))) return 0;
381  z->bra = z->c; /* ], line 74 */
382  { int ret = slice_from_s(z, 3, s_2); /* <-, line 74 */
383  if (ret < 0) return ret;
384  }
385  break;
386  case 3:
387  { int ret = slice_del(z); /* delete, line 78 */
388  if (ret < 0) return ret;
389  }
390  break;
391  case 4:
392  if (z->c - 1 <= z->lb || z->p[z->c - 1] != 97) return 0;
393  if (!(find_among_b(z, a_1, 6))) return 0; /* among, line 81 */
394  { int ret = slice_del(z); /* delete, line 81 */
395  if (ret < 0) return ret;
396  }
397  break;
398  case 5:
399  if (z->c - 1 <= z->lb || z->p[z->c - 1] != 228) return 0;
400  if (!(find_among_b(z, a_2, 6))) return 0; /* among, line 83 */
401  { int ret = slice_del(z); /* delete, line 84 */
402  if (ret < 0) return ret;
403  }
404  break;
405  case 6:
406  if (z->c - 2 <= z->lb || z->p[z->c - 1] != 101) return 0;
407  if (!(find_among_b(z, a_3, 2))) return 0; /* among, line 86 */
408  { int ret = slice_del(z); /* delete, line 86 */
409  if (ret < 0) return ret;
410  }
411  break;
412  }
413  return 1;
414 }
static const symbol s_1[]
symbol * p
Definition: api.h:15
static const symbol s_2[]
int eq_s_b(struct SN_env *z, int s_size, const symbol *s)
Definition: utilities.c:194
int * I
Definition: api.h:18
int ket
Definition: api.h:16
int slice_del(struct SN_env *z)
Definition: utilities.c:401
int bra
Definition: api.h:16
int find_among_b(struct SN_env *z, const struct among *v, int v_size)
Definition: utilities.c:267
int c
Definition: api.h:16
int slice_from_s(struct SN_env *z, int s_size, const symbol *s)
Definition: utilities.c:392
int lb
Definition: api.h:16
static const struct among a_1[6]
static const struct among a_3[2]
static const symbol s_0[]
static const struct among a_4[9]
static const struct among a_2[6]
int l
Definition: api.h:16

◆ r_R2()

static int r_R2 ( struct SN_env z)
static

Definition at line 311 of file stem_ISO_8859_1_finnish.c.

References SN_env::c, and SN_env::I.

Referenced by r_particle_etc().

311  {
312  if (!(z->I[1] <= z->c)) return 0;
313  return 1;
314 }
int * I
Definition: api.h:18
int c
Definition: api.h:16

◆ r_t_plural()

static int r_t_plural ( struct SN_env z)
static

Definition at line 549 of file stem_ISO_8859_1_finnish.c.

References SN_env::bra, SN_env::c, eq_s_b(), find_among_b(), g_V1, SN_env::I, in_grouping_b(), SN_env::ket, SN_env::l, SN_env::lb, SN_env::p, s_13, s_14, and slice_del().

Referenced by finnish_ISO_8859_1_stem().

549  {
550  int among_var;
551  { int mlimit; /* setlimit, line 161 */
552  int m1 = z->l - z->c; (void)m1;
553  if (z->c < z->I[0]) return 0;
554  z->c = z->I[0]; /* tomark, line 161 */
555  mlimit = z->lb; z->lb = z->c;
556  z->c = z->l - m1;
557  z->ket = z->c; /* [, line 162 */
558  if (!(eq_s_b(z, 1, s_13))) { z->lb = mlimit; return 0; }
559  z->bra = z->c; /* ], line 162 */
560  { int m_test = z->l - z->c; /* test, line 162 */
561  if (in_grouping_b(z, g_V1, 97, 246, 0)) { z->lb = mlimit; return 0; }
562  z->c = z->l - m_test;
563  }
564  { int ret = slice_del(z); /* delete, line 163 */
565  if (ret < 0) return ret;
566  }
567  z->lb = mlimit;
568  }
569  { int mlimit; /* setlimit, line 165 */
570  int m2 = z->l - z->c; (void)m2;
571  if (z->c < z->I[1]) return 0;
572  z->c = z->I[1]; /* tomark, line 165 */
573  mlimit = z->lb; z->lb = z->c;
574  z->c = z->l - m2;
575  z->ket = z->c; /* [, line 165 */
576  if (z->c - 2 <= z->lb || z->p[z->c - 1] != 97) { z->lb = mlimit; return 0; }
577  among_var = find_among_b(z, a_9, 2); /* substring, line 165 */
578  if (!(among_var)) { z->lb = mlimit; return 0; }
579  z->bra = z->c; /* ], line 165 */
580  z->lb = mlimit;
581  }
582  switch(among_var) {
583  case 0: return 0;
584  case 1:
585  { int m3 = z->l - z->c; (void)m3; /* not, line 167 */
586  if (!(eq_s_b(z, 2, s_14))) goto lab0;
587  return 0;
588  lab0:
589  z->c = z->l - m3;
590  }
591  break;
592  }
593  { int ret = slice_del(z); /* delete, line 170 */
594  if (ret < 0) return ret;
595  }
596  return 1;
597 }
symbol * p
Definition: api.h:15
static const struct among a_9[2]
int eq_s_b(struct SN_env *z, int s_size, const symbol *s)
Definition: utilities.c:194
static const symbol s_14[]
int * I
Definition: api.h:18
int ket
Definition: api.h:16
int slice_del(struct SN_env *z)
Definition: utilities.c:401
int bra
Definition: api.h:16
int find_among_b(struct SN_env *z, const struct among *v, int v_size)
Definition: utilities.c:267
int in_grouping_b(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:153
int c
Definition: api.h:16
int lb
Definition: api.h:16
static const unsigned char g_V1[]
int l
Definition: api.h:16
static const symbol s_13[]

◆ r_tidy()

static int r_tidy ( struct SN_env z)
static

Definition at line 599 of file stem_ISO_8859_1_finnish.c.

References SN_env::bra, SN_env::c, eq_s_b(), eq_v_b(), g_AEI, g_V1, SN_env::I, in_grouping_b(), SN_env::ket, SN_env::l, SN_env::lb, out_grouping_b(), r_LONG(), SN_env::S, s_15, s_16, s_17, s_18, s_19, slice_del(), and slice_to().

Referenced by finnish_ISO_8859_1_stem().

599  {
600  { int mlimit; /* setlimit, line 173 */
601  int m1 = z->l - z->c; (void)m1;
602  if (z->c < z->I[0]) return 0;
603  z->c = z->I[0]; /* tomark, line 173 */
604  mlimit = z->lb; z->lb = z->c;
605  z->c = z->l - m1;
606  { int m2 = z->l - z->c; (void)m2; /* do, line 174 */
607  { int m3 = z->l - z->c; (void)m3; /* and, line 174 */
608  { int ret = r_LONG(z);
609  if (ret == 0) goto lab0; /* call LONG, line 174 */
610  if (ret < 0) return ret;
611  }
612  z->c = z->l - m3;
613  z->ket = z->c; /* [, line 174 */
614  if (z->c <= z->lb) goto lab0;
615  z->c--; /* next, line 174 */
616  z->bra = z->c; /* ], line 174 */
617  { int ret = slice_del(z); /* delete, line 174 */
618  if (ret < 0) return ret;
619  }
620  }
621  lab0:
622  z->c = z->l - m2;
623  }
624  { int m4 = z->l - z->c; (void)m4; /* do, line 175 */
625  z->ket = z->c; /* [, line 175 */
626  if (in_grouping_b(z, g_AEI, 97, 228, 0)) goto lab1;
627  z->bra = z->c; /* ], line 175 */
628  if (out_grouping_b(z, g_V1, 97, 246, 0)) goto lab1;
629  { int ret = slice_del(z); /* delete, line 175 */
630  if (ret < 0) return ret;
631  }
632  lab1:
633  z->c = z->l - m4;
634  }
635  { int m5 = z->l - z->c; (void)m5; /* do, line 176 */
636  z->ket = z->c; /* [, line 176 */
637  if (!(eq_s_b(z, 1, s_15))) goto lab2;
638  z->bra = z->c; /* ], line 176 */
639  { int m6 = z->l - z->c; (void)m6; /* or, line 176 */
640  if (!(eq_s_b(z, 1, s_16))) goto lab4;
641  goto lab3;
642  lab4:
643  z->c = z->l - m6;
644  if (!(eq_s_b(z, 1, s_17))) goto lab2;
645  }
646  lab3:
647  { int ret = slice_del(z); /* delete, line 176 */
648  if (ret < 0) return ret;
649  }
650  lab2:
651  z->c = z->l - m5;
652  }
653  { int m7 = z->l - z->c; (void)m7; /* do, line 177 */
654  z->ket = z->c; /* [, line 177 */
655  if (!(eq_s_b(z, 1, s_18))) goto lab5;
656  z->bra = z->c; /* ], line 177 */
657  if (!(eq_s_b(z, 1, s_19))) goto lab5;
658  { int ret = slice_del(z); /* delete, line 177 */
659  if (ret < 0) return ret;
660  }
661  lab5:
662  z->c = z->l - m7;
663  }
664  z->lb = mlimit;
665  }
666  if (in_grouping_b(z, g_V1, 97, 246, 1) < 0) return 0; /* goto */ /* non V1, line 179 */
667  z->ket = z->c; /* [, line 179 */
668  if (z->c <= z->lb) return 0;
669  z->c--; /* next, line 179 */
670  z->bra = z->c; /* ], line 179 */
671  z->S[0] = slice_to(z, z->S[0]); /* -> x, line 179 */
672  if (z->S[0] == 0) return -1; /* -> x, line 179 */
673  if (!(eq_v_b(z, z->S[0]))) return 0; /* name x, line 179 */
674  { int ret = slice_del(z); /* delete, line 179 */
675  if (ret < 0) return ret;
676  }
677  return 1;
678 }
static const unsigned char g_AEI[]
int eq_v_b(struct SN_env *z, const symbol *p)
Definition: utilities.c:203
int eq_s_b(struct SN_env *z, int s_size, const symbol *s)
Definition: utilities.c:194
int * I
Definition: api.h:18
int ket
Definition: api.h:16
int slice_del(struct SN_env *z)
Definition: utilities.c:401
int bra
Definition: api.h:16
int in_grouping_b(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:153
static const symbol s_15[]
int c
Definition: api.h:16
symbol * slice_to(struct SN_env *z, symbol *p)
Definition: utilities.c:423
symbol ** S
Definition: api.h:17
int lb
Definition: api.h:16
int out_grouping_b(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:177
static const unsigned char g_V1[]
static const symbol s_16[]
static int r_LONG(struct SN_env *z)
static const symbol s_17[]
static const symbol s_19[]
static const symbol s_18[]
int l
Definition: api.h:16

◆ r_VI()

static int r_VI ( struct SN_env z)
static

Definition at line 421 of file stem_ISO_8859_1_finnish.c.

References eq_s_b(), g_V2, in_grouping_b(), and s_3.

421  {
422  if (!(eq_s_b(z, 1, s_3))) return 0;
423  if (in_grouping_b(z, g_V2, 97, 246, 0)) return 0;
424  return 1;
425 }
int eq_s_b(struct SN_env *z, int s_size, const symbol *s)
Definition: utilities.c:194
int in_grouping_b(struct SN_env *z, const unsigned char *s, int min, int max, int repeat)
Definition: utilities.c:153
static const symbol s_3[]
static const unsigned char g_V2[]

Variable Documentation

◆ a_0

const struct among a_0[10]
static
Initial value:
=
{
{ 2, s_0_0, -1, 1, 0},
{ 3, s_0_1, -1, 2, 0},
{ 4, s_0_2, -1, 1, 0},
{ 3, s_0_3, -1, 1, 0},
{ 3, s_0_4, -1, 1, 0},
{ 3, s_0_5, -1, 1, 0},
{ 4, s_0_6, -1, 1, 0},
{ 2, s_0_7, -1, 1, 0},
{ 2, s_0_8, -1, 1, 0},
{ 2, s_0_9, -1, 1, 0}
}
static const symbol s_0_1[3]
static const symbol s_0_4[3]
static const symbol s_0_3[3]
static const symbol s_0_9[2]
static const symbol s_0_7[2]
static const symbol s_0_0[2]
static const symbol s_0_2[4]
static const symbol s_0_5[3]
static const symbol s_0_8[2]
static const symbol s_0_6[4]

Definition at line 47 of file stem_ISO_8859_1_finnish.c.

◆ a_1

const struct among a_1[6]
static
Initial value:
=
{
{ 3, s_1_0, -1, -1, 0},
{ 2, s_1_1, -1, -1, 0},
{ 3, s_1_2, -1, -1, 0},
{ 2, s_1_3, -1, -1, 0},
{ 3, s_1_4, 3, -1, 0},
{ 3, s_1_5, 3, -1, 0}
}
static const symbol s_1_5[3]
static const symbol s_1_2[3]
static const symbol s_1_3[2]
static const symbol s_1_0[3]
static const symbol s_1_4[3]
static const symbol s_1_1[2]

Definition at line 68 of file stem_ISO_8859_1_finnish.c.

◆ a_2

const struct among a_2[6]
static
Initial value:
=
{
{ 3, s_2_0, -1, -1, 0},
{ 2, s_2_1, -1, -1, 0},
{ 3, s_2_2, -1, -1, 0},
{ 2, s_2_3, -1, -1, 0},
{ 3, s_2_4, 3, -1, 0},
{ 3, s_2_5, 3, -1, 0}
}
static const symbol s_2_2[3]
static const symbol s_2_1[2]
static const symbol s_2_4[3]
static const symbol s_2_5[3]
static const symbol s_2_3[2]
static const symbol s_2_0[3]

Definition at line 85 of file stem_ISO_8859_1_finnish.c.

◆ a_3

const struct among a_3[2]
static
Initial value:
=
{
{ 3, s_3_0, -1, -1, 0},
{ 3, s_3_1, -1, -1, 0}
}
static const symbol s_3_0[3]
static const symbol s_3_1[3]

Definition at line 98 of file stem_ISO_8859_1_finnish.c.

◆ a_4

const struct among a_4[9]
static
Initial value:
=
{
{ 3, s_4_0, -1, 3, 0},
{ 3, s_4_1, -1, 3, 0},
{ 3, s_4_2, -1, 3, 0},
{ 2, s_4_3, -1, 2, 0},
{ 2, s_4_4, -1, 1, 0},
{ 2, s_4_5, -1, 4, 0},
{ 2, s_4_6, -1, 6, 0},
{ 2, s_4_7, -1, 5, 0},
{ 3, s_4_8, -1, 3, 0}
}
static const symbol s_4_4[2]
static const symbol s_4_8[3]
static const symbol s_4_0[3]
static const symbol s_4_3[2]
static const symbol s_4_7[2]
static const symbol s_4_1[3]
static const symbol s_4_5[2]
static const symbol s_4_6[2]
static const symbol s_4_2[3]

Definition at line 114 of file stem_ISO_8859_1_finnish.c.

◆ a_5

const struct among a_5[7]
static
Initial value:
=
{
{ 2, s_5_0, -1, -1, 0},
{ 2, s_5_1, -1, -1, 0},
{ 2, s_5_2, -1, -1, 0},
{ 2, s_5_3, -1, -1, 0},
{ 2, s_5_4, -1, -1, 0},
{ 2, s_5_5, -1, -1, 0},
{ 2, s_5_6, -1, -1, 0}
}
static const symbol s_5_2[2]
static const symbol s_5_3[2]
static const symbol s_5_1[2]
static const symbol s_5_6[2]
static const symbol s_5_4[2]
static const symbol s_5_0[2]
static const symbol s_5_5[2]

Definition at line 135 of file stem_ISO_8859_1_finnish.c.

◆ a_6

const struct among a_6[30]
static

Definition at line 177 of file stem_ISO_8859_1_finnish.c.

◆ a_7

const struct among a_7[14]
static
Initial value:
=
{
{ 3, s_7_0, -1, -1, 0},
{ 3, s_7_1, -1, 1, 0},
{ 4, s_7_2, 1, -1, 0},
{ 3, s_7_3, -1, 1, 0},
{ 4, s_7_4, 3, -1, 0},
{ 3, s_7_5, -1, 1, 0},
{ 4, s_7_6, 5, -1, 0},
{ 3, s_7_7, -1, 1, 0},
{ 4, s_7_8, 7, -1, 0},
{ 3, s_7_9, -1, -1, 0},
{ 3, s_7_10, -1, 1, 0},
{ 4, s_7_11, 10, -1, 0},
{ 3, s_7_12, -1, 1, 0},
{ 4, s_7_13, 12, -1, 0}
}
static const symbol s_7_3[3]
static const symbol s_7_2[4]
static const symbol s_7_9[3]
static const symbol s_7_10[3]
static const symbol s_7_1[3]
static const symbol s_7_0[3]
static const symbol s_7_4[4]
static const symbol s_7_7[3]
static const symbol s_7_13[4]
static const symbol s_7_6[4]
static const symbol s_7_5[3]
static const symbol s_7_8[4]
static const symbol s_7_11[4]
static const symbol s_7_12[3]

Definition at line 226 of file stem_ISO_8859_1_finnish.c.

◆ a_8

const struct among a_8[2]
static
Initial value:
=
{
{ 1, s_8_0, -1, -1, 0},
{ 1, s_8_1, -1, -1, 0}
}
static const symbol s_8_0[1]
static const symbol s_8_1[1]

Definition at line 247 of file stem_ISO_8859_1_finnish.c.

◆ a_9

const struct among a_9[2]
static
Initial value:
=
{
{ 3, s_9_0, -1, 1, 0},
{ 4, s_9_1, 0, -1, 0}
}
static const symbol s_9_0[3]
static const symbol s_9_1[4]

Definition at line 256 of file stem_ISO_8859_1_finnish.c.

◆ 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 262 of file stem_ISO_8859_1_finnish.c.

Referenced by 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 268 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 264 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 266 of file stem_ISO_8859_1_finnish.c.

Referenced by r_VI().

◆ s_0

const symbol s_0[] = { 'k' }
static

Definition at line 270 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 36 of file stem_ISO_8859_1_finnish.c.

◆ s_0_1

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

Definition at line 37 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 38 of file stem_ISO_8859_1_finnish.c.

◆ s_0_3

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

Definition at line 39 of file stem_ISO_8859_1_finnish.c.

◆ s_0_4

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

Definition at line 40 of file stem_ISO_8859_1_finnish.c.

◆ s_0_5

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

Definition at line 41 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 42 of file stem_ISO_8859_1_finnish.c.

◆ s_0_7

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

Definition at line 43 of file stem_ISO_8859_1_finnish.c.

◆ s_0_8

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

Definition at line 44 of file stem_ISO_8859_1_finnish.c.

◆ s_0_9

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

Definition at line 45 of file stem_ISO_8859_1_finnish.c.

◆ s_1

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

Definition at line 271 of file stem_ISO_8859_1_finnish.c.

Referenced by r_possessive().

◆ s_10

const symbol s_10[] = { 'i', 'e' }
static

Definition at line 280 of file stem_ISO_8859_1_finnish.c.

Referenced by r_case_ending().

◆ s_11

const symbol s_11[] = { 'e' }
static

Definition at line 281 of file stem_ISO_8859_1_finnish.c.

Referenced by r_case_ending().

◆ s_12

const symbol s_12[] = { 'p', 'o' }
static

Definition at line 282 of file stem_ISO_8859_1_finnish.c.

Referenced by r_other_endings().

◆ s_13

const symbol s_13[] = { 't' }
static

Definition at line 283 of file stem_ISO_8859_1_finnish.c.

Referenced by r_t_plural().

◆ s_14

const symbol s_14[] = { 'p', 'o' }
static

Definition at line 284 of file stem_ISO_8859_1_finnish.c.

Referenced by r_t_plural().

◆ s_15

const symbol s_15[] = { 'j' }
static

Definition at line 285 of file stem_ISO_8859_1_finnish.c.

Referenced by r_tidy().

◆ s_16

const symbol s_16[] = { 'o' }
static

Definition at line 286 of file stem_ISO_8859_1_finnish.c.

Referenced by r_tidy().

◆ s_17

const symbol s_17[] = { 'u' }
static

Definition at line 287 of file stem_ISO_8859_1_finnish.c.

Referenced by r_tidy().

◆ s_18

const symbol s_18[] = { 'o' }
static

Definition at line 288 of file stem_ISO_8859_1_finnish.c.

Referenced by r_tidy().

◆ s_19

const symbol s_19[] = { 'j' }
static

Definition at line 289 of file stem_ISO_8859_1_finnish.c.

Referenced by r_tidy().

◆ s_1_0

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

Definition at line 61 of file stem_ISO_8859_1_finnish.c.

◆ s_1_1

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

Definition at line 62 of file stem_ISO_8859_1_finnish.c.

◆ s_1_2

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

Definition at line 63 of file stem_ISO_8859_1_finnish.c.

◆ s_1_3

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

Definition at line 64 of file stem_ISO_8859_1_finnish.c.

◆ s_1_4

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

Definition at line 65 of file stem_ISO_8859_1_finnish.c.

◆ s_1_5

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

Definition at line 66 of file stem_ISO_8859_1_finnish.c.

◆ s_2

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

Definition at line 272 of file stem_ISO_8859_1_finnish.c.

Referenced by r_possessive().

◆ s_2_0

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

Definition at line 78 of file stem_ISO_8859_1_finnish.c.

◆ s_2_1

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

Definition at line 79 of file stem_ISO_8859_1_finnish.c.

◆ s_2_2

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

Definition at line 80 of file stem_ISO_8859_1_finnish.c.

◆ s_2_3

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

Definition at line 81 of file stem_ISO_8859_1_finnish.c.

◆ s_2_4

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

Definition at line 82 of file stem_ISO_8859_1_finnish.c.

◆ s_2_5

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

Definition at line 83 of file stem_ISO_8859_1_finnish.c.

◆ s_3

const symbol s_3[] = { 'i' }
static

Definition at line 273 of file stem_ISO_8859_1_finnish.c.

Referenced by r_VI().

◆ s_3_0

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

Definition at line 95 of file stem_ISO_8859_1_finnish.c.

◆ s_3_1

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

Definition at line 96 of file stem_ISO_8859_1_finnish.c.

◆ s_4

const symbol s_4[] = { 'a' }
static

Definition at line 274 of file stem_ISO_8859_1_finnish.c.

Referenced by r_case_ending().

◆ s_4_0

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

Definition at line 104 of file stem_ISO_8859_1_finnish.c.

◆ s_4_1

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

Definition at line 105 of file stem_ISO_8859_1_finnish.c.

◆ s_4_2

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

Definition at line 106 of file stem_ISO_8859_1_finnish.c.

◆ s_4_3

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

Definition at line 107 of file stem_ISO_8859_1_finnish.c.

◆ s_4_4

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

Definition at line 108 of file stem_ISO_8859_1_finnish.c.

◆ s_4_5

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

Definition at line 109 of file stem_ISO_8859_1_finnish.c.

◆ s_4_6

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

Definition at line 110 of file stem_ISO_8859_1_finnish.c.

◆ s_4_7

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

Definition at line 111 of file stem_ISO_8859_1_finnish.c.

◆ s_4_8

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

Definition at line 112 of file stem_ISO_8859_1_finnish.c.

◆ s_5

const symbol s_5[] = { 'e' }
static

Definition at line 275 of file stem_ISO_8859_1_finnish.c.

Referenced by r_case_ending().

◆ s_5_0

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

Definition at line 127 of file stem_ISO_8859_1_finnish.c.

◆ s_5_1

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

Definition at line 128 of file stem_ISO_8859_1_finnish.c.

◆ s_5_2

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

Definition at line 129 of file stem_ISO_8859_1_finnish.c.

◆ s_5_3

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

Definition at line 130 of file stem_ISO_8859_1_finnish.c.

◆ s_5_4

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

Definition at line 131 of file stem_ISO_8859_1_finnish.c.

◆ s_5_5

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

Definition at line 132 of file stem_ISO_8859_1_finnish.c.

◆ s_5_6

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

Definition at line 133 of file stem_ISO_8859_1_finnish.c.

◆ s_6

const symbol s_6[] = { 'i' }
static

Definition at line 276 of file stem_ISO_8859_1_finnish.c.

Referenced by r_case_ending().

◆ s_6_0

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

Definition at line 146 of file stem_ISO_8859_1_finnish.c.

◆ s_6_1

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

Definition at line 147 of file stem_ISO_8859_1_finnish.c.

◆ s_6_10

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

Definition at line 156 of file stem_ISO_8859_1_finnish.c.

◆ s_6_11

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

Definition at line 157 of file stem_ISO_8859_1_finnish.c.

◆ s_6_12

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

Definition at line 158 of file stem_ISO_8859_1_finnish.c.

◆ s_6_13

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

Definition at line 159 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 160 of file stem_ISO_8859_1_finnish.c.

◆ s_6_15

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

Definition at line 161 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 162 of file stem_ISO_8859_1_finnish.c.

◆ s_6_17

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

Definition at line 163 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 164 of file stem_ISO_8859_1_finnish.c.

◆ s_6_19

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

Definition at line 165 of file stem_ISO_8859_1_finnish.c.

◆ s_6_2

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

Definition at line 148 of file stem_ISO_8859_1_finnish.c.

◆ s_6_20

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

Definition at line 166 of file stem_ISO_8859_1_finnish.c.

◆ s_6_21

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

Definition at line 167 of file stem_ISO_8859_1_finnish.c.

◆ s_6_22

const symbol s_6_22[1] = { 0xE4 }
static

Definition at line 168 of file stem_ISO_8859_1_finnish.c.

◆ s_6_23

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

Definition at line 169 of file stem_ISO_8859_1_finnish.c.

◆ s_6_24

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

Definition at line 170 of file stem_ISO_8859_1_finnish.c.

◆ s_6_25

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

Definition at line 171 of file stem_ISO_8859_1_finnish.c.

◆ s_6_26

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

Definition at line 172 of file stem_ISO_8859_1_finnish.c.

◆ s_6_27

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

Definition at line 173 of file stem_ISO_8859_1_finnish.c.

◆ s_6_28

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

Definition at line 174 of file stem_ISO_8859_1_finnish.c.

◆ s_6_29

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

Definition at line 175 of file stem_ISO_8859_1_finnish.c.

◆ s_6_3

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

Definition at line 149 of file stem_ISO_8859_1_finnish.c.

◆ s_6_4

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

Definition at line 150 of file stem_ISO_8859_1_finnish.c.

◆ s_6_5

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

Definition at line 151 of file stem_ISO_8859_1_finnish.c.

◆ s_6_6

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

Definition at line 152 of file stem_ISO_8859_1_finnish.c.

◆ s_6_7

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

Definition at line 153 of file stem_ISO_8859_1_finnish.c.

◆ s_6_8

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

Definition at line 154 of file stem_ISO_8859_1_finnish.c.

◆ s_6_9

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

Definition at line 155 of file stem_ISO_8859_1_finnish.c.

◆ s_7

const symbol s_7[] = { 'o' }
static

Definition at line 277 of file stem_ISO_8859_1_finnish.c.

Referenced by r_case_ending().

◆ s_7_0

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

Definition at line 211 of file stem_ISO_8859_1_finnish.c.

◆ s_7_1

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

Definition at line 212 of file stem_ISO_8859_1_finnish.c.

◆ s_7_10

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

Definition at line 221 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 222 of file stem_ISO_8859_1_finnish.c.

◆ s_7_12

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

Definition at line 223 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 224 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 213 of file stem_ISO_8859_1_finnish.c.

◆ s_7_3

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

Definition at line 214 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 215 of file stem_ISO_8859_1_finnish.c.

◆ s_7_5

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

Definition at line 216 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 217 of file stem_ISO_8859_1_finnish.c.

◆ s_7_7

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

Definition at line 218 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 219 of file stem_ISO_8859_1_finnish.c.

◆ s_7_9

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

Definition at line 220 of file stem_ISO_8859_1_finnish.c.

◆ s_8

const symbol s_8[] = { 0xE4 }
static

Definition at line 278 of file stem_ISO_8859_1_finnish.c.

Referenced by r_case_ending().

◆ s_8_0

const symbol s_8_0[1] = { 'i' }
static

Definition at line 244 of file stem_ISO_8859_1_finnish.c.

◆ s_8_1

const symbol s_8_1[1] = { 'j' }
static

Definition at line 245 of file stem_ISO_8859_1_finnish.c.

◆ s_9

const symbol s_9[] = { 0xF6 }
static

Definition at line 279 of file stem_ISO_8859_1_finnish.c.

Referenced by r_case_ending().

◆ s_9_0

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

Definition at line 253 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 254 of file stem_ISO_8859_1_finnish.c.