+++ /dev/null
-// This file was generated automatically by the Snowball to Java compiler
-
-package org.tartarus.snowball.ext;
-import org.tartarus.snowball.SnowballProgram;
-import org.tartarus.snowball.Among;
-
-/**
- * Generated class implementing code defined by a snowball script.
- */
-public class FinnishStemmer extends SnowballProgram {
-
- private Among a_0[] = {
- new Among ( "pa", -1, 1, "", this),
- new Among ( "sti", -1, 2, "", this),
- new Among ( "kaan", -1, 1, "", this),
- new Among ( "han", -1, 1, "", this),
- new Among ( "kin", -1, 1, "", this),
- new Among ( "h\u00E4n", -1, 1, "", this),
- new Among ( "k\u00E4\u00E4n", -1, 1, "", this),
- new Among ( "ko", -1, 1, "", this),
- new Among ( "p\u00E4", -1, 1, "", this),
- new Among ( "k\u00F6", -1, 1, "", this)
- };
-
- private Among a_1[] = {
- new Among ( "lla", -1, -1, "", this),
- new Among ( "na", -1, -1, "", this),
- new Among ( "ssa", -1, -1, "", this),
- new Among ( "ta", -1, -1, "", this),
- new Among ( "lta", 3, -1, "", this),
- new Among ( "sta", 3, -1, "", this)
- };
-
- private Among a_2[] = {
- new Among ( "ll\u00E4", -1, -1, "", this),
- new Among ( "n\u00E4", -1, -1, "", this),
- new Among ( "ss\u00E4", -1, -1, "", this),
- new Among ( "t\u00E4", -1, -1, "", this),
- new Among ( "lt\u00E4", 3, -1, "", this),
- new Among ( "st\u00E4", 3, -1, "", this)
- };
-
- private Among a_3[] = {
- new Among ( "lle", -1, -1, "", this),
- new Among ( "ine", -1, -1, "", this)
- };
-
- private Among a_4[] = {
- new Among ( "nsa", -1, 3, "", this),
- new Among ( "mme", -1, 3, "", this),
- new Among ( "nne", -1, 3, "", this),
- new Among ( "ni", -1, 2, "", this),
- new Among ( "si", -1, 1, "", this),
- new Among ( "an", -1, 4, "", this),
- new Among ( "en", -1, 6, "", this),
- new Among ( "\u00E4n", -1, 5, "", this),
- new Among ( "ns\u00E4", -1, 3, "", this)
- };
-
- private Among a_5[] = {
- new Among ( "aa", -1, -1, "", this),
- new Among ( "ee", -1, -1, "", this),
- new Among ( "ii", -1, -1, "", this),
- new Among ( "oo", -1, -1, "", this),
- new Among ( "uu", -1, -1, "", this),
- new Among ( "\u00E4\u00E4", -1, -1, "", this),
- new Among ( "\u00F6\u00F6", -1, -1, "", this)
- };
-
- private Among a_6[] = {
- new Among ( "a", -1, 8, "", this),
- new Among ( "lla", 0, -1, "", this),
- new Among ( "na", 0, -1, "", this),
- new Among ( "ssa", 0, -1, "", this),
- new Among ( "ta", 0, -1, "", this),
- new Among ( "lta", 4, -1, "", this),
- new Among ( "sta", 4, -1, "", this),
- new Among ( "tta", 4, 9, "", this),
- new Among ( "lle", -1, -1, "", this),
- new Among ( "ine", -1, -1, "", this),
- new Among ( "ksi", -1, -1, "", this),
- new Among ( "n", -1, 7, "", this),
- new Among ( "han", 11, 1, "", this),
- new Among ( "den", 11, -1, "r_VI", this),
- new Among ( "seen", 11, -1, "r_LONG", this),
- new Among ( "hen", 11, 2, "", this),
- new Among ( "tten", 11, -1, "r_VI", this),
- new Among ( "hin", 11, 3, "", this),
- new Among ( "siin", 11, -1, "r_VI", this),
- new Among ( "hon", 11, 4, "", this),
- new Among ( "h\u00E4n", 11, 5, "", this),
- new Among ( "h\u00F6n", 11, 6, "", this),
- new Among ( "\u00E4", -1, 8, "", this),
- new Among ( "ll\u00E4", 22, -1, "", this),
- new Among ( "n\u00E4", 22, -1, "", this),
- new Among ( "ss\u00E4", 22, -1, "", this),
- new Among ( "t\u00E4", 22, -1, "", this),
- new Among ( "lt\u00E4", 26, -1, "", this),
- new Among ( "st\u00E4", 26, -1, "", this),
- new Among ( "tt\u00E4", 26, 9, "", this)
- };
-
- private Among a_7[] = {
- new Among ( "eja", -1, -1, "", this),
- new Among ( "mma", -1, 1, "", this),
- new Among ( "imma", 1, -1, "", this),
- new Among ( "mpa", -1, 1, "", this),
- new Among ( "impa", 3, -1, "", this),
- new Among ( "mmi", -1, 1, "", this),
- new Among ( "immi", 5, -1, "", this),
- new Among ( "mpi", -1, 1, "", this),
- new Among ( "impi", 7, -1, "", this),
- new Among ( "ej\u00E4", -1, -1, "", this),
- new Among ( "mm\u00E4", -1, 1, "", this),
- new Among ( "imm\u00E4", 10, -1, "", this),
- new Among ( "mp\u00E4", -1, 1, "", this),
- new Among ( "imp\u00E4", 12, -1, "", this)
- };
-
- private Among a_8[] = {
- new Among ( "i", -1, -1, "", this),
- new Among ( "j", -1, -1, "", this)
- };
-
- private Among a_9[] = {
- new Among ( "mma", -1, 1, "", this),
- new Among ( "imma", 0, -1, "", this)
- };
-
- private static final char g_AEI[] = {17, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8 };
-
- private static final char g_V1[] = {17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 };
-
- private static final char g_V2[] = {17, 65, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 };
-
- private static final char g_particle_end[] = {17, 97, 24, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 32 };
-
- private boolean B_ending_removed;
- private StringBuilder S_x = new StringBuilder();
- private int I_p2;
- private int I_p1;
-
- private void copy_from(FinnishStemmer other) {
- B_ending_removed = other.B_ending_removed;
- S_x = other.S_x;
- I_p2 = other.I_p2;
- I_p1 = other.I_p1;
- super.copy_from(other);
- }
-
- private boolean r_mark_regions() {
- int v_1;
- int v_3;
- // (, line 41
- I_p1 = limit;
- I_p2 = limit;
- // goto, line 46
- golab0: while(true)
- {
- v_1 = cursor;
- lab1: do {
- if (!(in_grouping(g_V1, 97, 246)))
- {
- break lab1;
- }
- cursor = v_1;
- break golab0;
- } while (false);
- cursor = v_1;
- if (cursor >= limit)
- {
- return false;
- }
- cursor++;
- }
- // gopast, line 46
- golab2: while(true)
- {
- lab3: do {
- if (!(out_grouping(g_V1, 97, 246)))
- {
- break lab3;
- }
- break golab2;
- } while (false);
- if (cursor >= limit)
- {
- return false;
- }
- cursor++;
- }
- // setmark p1, line 46
- I_p1 = cursor;
- // goto, line 47
- golab4: while(true)
- {
- v_3 = cursor;
- lab5: do {
- if (!(in_grouping(g_V1, 97, 246)))
- {
- break lab5;
- }
- cursor = v_3;
- break golab4;
- } while (false);
- cursor = v_3;
- if (cursor >= limit)
- {
- return false;
- }
- cursor++;
- }
- // gopast, line 47
- golab6: while(true)
- {
- lab7: do {
- if (!(out_grouping(g_V1, 97, 246)))
- {
- break lab7;
- }
- break golab6;
- } while (false);
- if (cursor >= limit)
- {
- return false;
- }
- cursor++;
- }
- // setmark p2, line 47
- I_p2 = cursor;
- return true;
- }
-
- private boolean r_R2() {
- if (!(I_p2 <= cursor))
- {
- return false;
- }
- return true;
- }
-
- private boolean r_particle_etc() {
- int among_var;
- int v_1;
- int v_2;
- // (, line 54
- // setlimit, line 55
- v_1 = limit - cursor;
- // tomark, line 55
- if (cursor < I_p1)
- {
- return false;
- }
- cursor = I_p1;
- v_2 = limit_backward;
- limit_backward = cursor;
- cursor = limit - v_1;
- // (, line 55
- // [, line 55
- ket = cursor;
- // substring, line 55
- among_var = find_among_b(a_0, 10);
- if (among_var == 0)
- {
- limit_backward = v_2;
- return false;
- }
- // ], line 55
- bra = cursor;
- limit_backward = v_2;
- switch(among_var) {
- case 0:
- return false;
- case 1:
- // (, line 62
- if (!(in_grouping_b(g_particle_end, 97, 246)))
- {
- return false;
- }
- break;
- case 2:
- // (, line 64
- // call R2, line 64
- if (!r_R2())
- {
- return false;
- }
- break;
- }
- // delete, line 66
- slice_del();
- return true;
- }
-
- private boolean r_possessive() {
- int among_var;
- int v_1;
- int v_2;
- int v_3;
- // (, line 68
- // setlimit, line 69
- v_1 = limit - cursor;
- // tomark, line 69
- if (cursor < I_p1)
- {
- return false;
- }
- cursor = I_p1;
- v_2 = limit_backward;
- limit_backward = cursor;
- cursor = limit - v_1;
- // (, line 69
- // [, line 69
- ket = cursor;
- // substring, line 69
- among_var = find_among_b(a_4, 9);
- if (among_var == 0)
- {
- limit_backward = v_2;
- return false;
- }
- // ], line 69
- bra = cursor;
- limit_backward = v_2;
- switch(among_var) {
- case 0:
- return false;
- case 1:
- // (, line 72
- // not, line 72
- {
- v_3 = limit - cursor;
- lab0: do {
- // literal, line 72
- if (!(eq_s_b(1, "k")))
- {
- break lab0;
- }
- return false;
- } while (false);
- cursor = limit - v_3;
- }
- // delete, line 72
- slice_del();
- break;
- case 2:
- // (, line 74
- // delete, line 74
- slice_del();
- // [, line 74
- ket = cursor;
- // literal, line 74
- if (!(eq_s_b(3, "kse")))
- {
- return false;
- }
- // ], line 74
- bra = cursor;
- // <-, line 74
- slice_from("ksi");
- break;
- case 3:
- // (, line 78
- // delete, line 78
- slice_del();
- break;
- case 4:
- // (, line 81
- // among, line 81
- if (find_among_b(a_1, 6) == 0)
- {
- return false;
- }
- // delete, line 81
- slice_del();
- break;
- case 5:
- // (, line 83
- // among, line 83
- if (find_among_b(a_2, 6) == 0)
- {
- return false;
- }
- // delete, line 84
- slice_del();
- break;
- case 6:
- // (, line 86
- // among, line 86
- if (find_among_b(a_3, 2) == 0)
- {
- return false;
- }
- // delete, line 86
- slice_del();
- break;
- }
- return true;
- }
-
- private boolean r_LONG() {
- // among, line 91
- if (find_among_b(a_5, 7) == 0)
- {
- return false;
- }
- return true;
- }
-
- private boolean r_VI() {
- // (, line 93
- // literal, line 93
- if (!(eq_s_b(1, "i")))
- {
- return false;
- }
- if (!(in_grouping_b(g_V2, 97, 246)))
- {
- return false;
- }
- return true;
- }
-
- private boolean r_case_ending() {
- int among_var;
- int v_1;
- int v_2;
- int v_3;
- int v_4;
- int v_5;
- // (, line 95
- // setlimit, line 96
- v_1 = limit - cursor;
- // tomark, line 96
- if (cursor < I_p1)
- {
- return false;
- }
- cursor = I_p1;
- v_2 = limit_backward;
- limit_backward = cursor;
- cursor = limit - v_1;
- // (, line 96
- // [, line 96
- ket = cursor;
- // substring, line 96
- among_var = find_among_b(a_6, 30);
- if (among_var == 0)
- {
- limit_backward = v_2;
- return false;
- }
- // ], line 96
- bra = cursor;
- limit_backward = v_2;
- switch(among_var) {
- case 0:
- return false;
- case 1:
- // (, line 98
- // literal, line 98
- if (!(eq_s_b(1, "a")))
- {
- return false;
- }
- break;
- case 2:
- // (, line 99
- // literal, line 99
- if (!(eq_s_b(1, "e")))
- {
- return false;
- }
- break;
- case 3:
- // (, line 100
- // literal, line 100
- if (!(eq_s_b(1, "i")))
- {
- return false;
- }
- break;
- case 4:
- // (, line 101
- // literal, line 101
- if (!(eq_s_b(1, "o")))
- {
- return false;
- }
- break;
- case 5:
- // (, line 102
- // literal, line 102
- if (!(eq_s_b(1, "\u00E4")))
- {
- return false;
- }
- break;
- case 6:
- // (, line 103
- // literal, line 103
- if (!(eq_s_b(1, "\u00F6")))
- {
- return false;
- }
- break;
- case 7:
- // (, line 111
- // try, line 111
- v_3 = limit - cursor;
- lab0: do {
- // (, line 111
- // and, line 113
- v_4 = limit - cursor;
- // or, line 112
- lab1: do {
- v_5 = limit - cursor;
- lab2: do {
- // call LONG, line 111
- if (!r_LONG())
- {
- break lab2;
- }
- break lab1;
- } while (false);
- cursor = limit - v_5;
- // literal, line 112
- if (!(eq_s_b(2, "ie")))
- {
- cursor = limit - v_3;
- break lab0;
- }
- } while (false);
- cursor = limit - v_4;
- // next, line 113
- if (cursor <= limit_backward)
- {
- cursor = limit - v_3;
- break lab0;
- }
- cursor--;
- // ], line 113
- bra = cursor;
- } while (false);
- break;
- case 8:
- // (, line 119
- if (!(in_grouping_b(g_V1, 97, 246)))
- {
- return false;
- }
- if (!(out_grouping_b(g_V1, 97, 246)))
- {
- return false;
- }
- break;
- case 9:
- // (, line 121
- // literal, line 121
- if (!(eq_s_b(1, "e")))
- {
- return false;
- }
- break;
- }
- // delete, line 138
- slice_del();
- // set ending_removed, line 139
- B_ending_removed = true;
- return true;
- }
-
- private boolean r_other_endings() {
- int among_var;
- int v_1;
- int v_2;
- int v_3;
- // (, line 141
- // setlimit, line 142
- v_1 = limit - cursor;
- // tomark, line 142
- if (cursor < I_p2)
- {
- return false;
- }
- cursor = I_p2;
- v_2 = limit_backward;
- limit_backward = cursor;
- cursor = limit - v_1;
- // (, line 142
- // [, line 142
- ket = cursor;
- // substring, line 142
- among_var = find_among_b(a_7, 14);
- if (among_var == 0)
- {
- limit_backward = v_2;
- return false;
- }
- // ], line 142
- bra = cursor;
- limit_backward = v_2;
- switch(among_var) {
- case 0:
- return false;
- case 1:
- // (, line 146
- // not, line 146
- {
- v_3 = limit - cursor;
- lab0: do {
- // literal, line 146
- if (!(eq_s_b(2, "po")))
- {
- break lab0;
- }
- return false;
- } while (false);
- cursor = limit - v_3;
- }
- break;
- }
- // delete, line 151
- slice_del();
- return true;
- }
-
- private boolean r_i_plural() {
- int v_1;
- int v_2;
- // (, line 153
- // setlimit, line 154
- v_1 = limit - cursor;
- // tomark, line 154
- if (cursor < I_p1)
- {
- return false;
- }
- cursor = I_p1;
- v_2 = limit_backward;
- limit_backward = cursor;
- cursor = limit - v_1;
- // (, line 154
- // [, line 154
- ket = cursor;
- // substring, line 154
- if (find_among_b(a_8, 2) == 0)
- {
- limit_backward = v_2;
- return false;
- }
- // ], line 154
- bra = cursor;
- limit_backward = v_2;
- // delete, line 158
- slice_del();
- return true;
- }
-
- private boolean r_t_plural() {
- int among_var;
- int v_1;
- int v_2;
- int v_3;
- int v_4;
- int v_5;
- int v_6;
- // (, line 160
- // setlimit, line 161
- v_1 = limit - cursor;
- // tomark, line 161
- if (cursor < I_p1)
- {
- return false;
- }
- cursor = I_p1;
- v_2 = limit_backward;
- limit_backward = cursor;
- cursor = limit - v_1;
- // (, line 161
- // [, line 162
- ket = cursor;
- // literal, line 162
- if (!(eq_s_b(1, "t")))
- {
- limit_backward = v_2;
- return false;
- }
- // ], line 162
- bra = cursor;
- // test, line 162
- v_3 = limit - cursor;
- if (!(in_grouping_b(g_V1, 97, 246)))
- {
- limit_backward = v_2;
- return false;
- }
- cursor = limit - v_3;
- // delete, line 163
- slice_del();
- limit_backward = v_2;
- // setlimit, line 165
- v_4 = limit - cursor;
- // tomark, line 165
- if (cursor < I_p2)
- {
- return false;
- }
- cursor = I_p2;
- v_5 = limit_backward;
- limit_backward = cursor;
- cursor = limit - v_4;
- // (, line 165
- // [, line 165
- ket = cursor;
- // substring, line 165
- among_var = find_among_b(a_9, 2);
- if (among_var == 0)
- {
- limit_backward = v_5;
- return false;
- }
- // ], line 165
- bra = cursor;
- limit_backward = v_5;
- switch(among_var) {
- case 0:
- return false;
- case 1:
- // (, line 167
- // not, line 167
- {
- v_6 = limit - cursor;
- lab0: do {
- // literal, line 167
- if (!(eq_s_b(2, "po")))
- {
- break lab0;
- }
- return false;
- } while (false);
- cursor = limit - v_6;
- }
- break;
- }
- // delete, line 170
- slice_del();
- return true;
- }
-
- private boolean r_tidy() {
- int v_1;
- int v_2;
- int v_3;
- int v_4;
- int v_5;
- int v_6;
- int v_7;
- int v_8;
- int v_9;
- // (, line 172
- // setlimit, line 173
- v_1 = limit - cursor;
- // tomark, line 173
- if (cursor < I_p1)
- {
- return false;
- }
- cursor = I_p1;
- v_2 = limit_backward;
- limit_backward = cursor;
- cursor = limit - v_1;
- // (, line 173
- // do, line 174
- v_3 = limit - cursor;
- lab0: do {
- // (, line 174
- // and, line 174
- v_4 = limit - cursor;
- // call LONG, line 174
- if (!r_LONG())
- {
- break lab0;
- }
- cursor = limit - v_4;
- // (, line 174
- // [, line 174
- ket = cursor;
- // next, line 174
- if (cursor <= limit_backward)
- {
- break lab0;
- }
- cursor--;
- // ], line 174
- bra = cursor;
- // delete, line 174
- slice_del();
- } while (false);
- cursor = limit - v_3;
- // do, line 175
- v_5 = limit - cursor;
- lab1: do {
- // (, line 175
- // [, line 175
- ket = cursor;
- if (!(in_grouping_b(g_AEI, 97, 228)))
- {
- break lab1;
- }
- // ], line 175
- bra = cursor;
- if (!(out_grouping_b(g_V1, 97, 246)))
- {
- break lab1;
- }
- // delete, line 175
- slice_del();
- } while (false);
- cursor = limit - v_5;
- // do, line 176
- v_6 = limit - cursor;
- lab2: do {
- // (, line 176
- // [, line 176
- ket = cursor;
- // literal, line 176
- if (!(eq_s_b(1, "j")))
- {
- break lab2;
- }
- // ], line 176
- bra = cursor;
- // or, line 176
- lab3: do {
- v_7 = limit - cursor;
- lab4: do {
- // literal, line 176
- if (!(eq_s_b(1, "o")))
- {
- break lab4;
- }
- break lab3;
- } while (false);
- cursor = limit - v_7;
- // literal, line 176
- if (!(eq_s_b(1, "u")))
- {
- break lab2;
- }
- } while (false);
- // delete, line 176
- slice_del();
- } while (false);
- cursor = limit - v_6;
- // do, line 177
- v_8 = limit - cursor;
- lab5: do {
- // (, line 177
- // [, line 177
- ket = cursor;
- // literal, line 177
- if (!(eq_s_b(1, "o")))
- {
- break lab5;
- }
- // ], line 177
- bra = cursor;
- // literal, line 177
- if (!(eq_s_b(1, "j")))
- {
- break lab5;
- }
- // delete, line 177
- slice_del();
- } while (false);
- cursor = limit - v_8;
- limit_backward = v_2;
- // goto, line 179
- golab6: while(true)
- {
- v_9 = limit - cursor;
- lab7: do {
- if (!(out_grouping_b(g_V1, 97, 246)))
- {
- break lab7;
- }
- cursor = limit - v_9;
- break golab6;
- } while (false);
- cursor = limit - v_9;
- if (cursor <= limit_backward)
- {
- return false;
- }
- cursor--;
- }
- // [, line 179
- ket = cursor;
- // next, line 179
- if (cursor <= limit_backward)
- {
- return false;
- }
- cursor--;
- // ], line 179
- bra = cursor;
- // -> x, line 179
- S_x = slice_to(S_x);
- // name x, line 179
- if (!(eq_v_b(S_x)))
- {
- return false;
- }
- // delete, line 179
- slice_del();
- return true;
- }
-
- public boolean stem() {
- int v_1;
- int v_2;
- int v_3;
- int v_4;
- int v_5;
- int v_6;
- int v_7;
- int v_8;
- int v_9;
- // (, line 183
- // do, line 185
- v_1 = cursor;
- lab0: do {
- // call mark_regions, line 185
- if (!r_mark_regions())
- {
- break lab0;
- }
- } while (false);
- cursor = v_1;
- // unset ending_removed, line 186
- B_ending_removed = false;
- // backwards, line 187
- limit_backward = cursor; cursor = limit;
- // (, line 187
- // do, line 188
- v_2 = limit - cursor;
- lab1: do {
- // call particle_etc, line 188
- if (!r_particle_etc())
- {
- break lab1;
- }
- } while (false);
- cursor = limit - v_2;
- // do, line 189
- v_3 = limit - cursor;
- lab2: do {
- // call possessive, line 189
- if (!r_possessive())
- {
- break lab2;
- }
- } while (false);
- cursor = limit - v_3;
- // do, line 190
- v_4 = limit - cursor;
- lab3: do {
- // call case_ending, line 190
- if (!r_case_ending())
- {
- break lab3;
- }
- } while (false);
- cursor = limit - v_4;
- // do, line 191
- v_5 = limit - cursor;
- lab4: do {
- // call other_endings, line 191
- if (!r_other_endings())
- {
- break lab4;
- }
- } while (false);
- cursor = limit - v_5;
- // or, line 192
- lab5: do {
- v_6 = limit - cursor;
- lab6: do {
- // (, line 192
- // Boolean test ending_removed, line 192
- if (!(B_ending_removed))
- {
- break lab6;
- }
- // do, line 192
- v_7 = limit - cursor;
- lab7: do {
- // call i_plural, line 192
- if (!r_i_plural())
- {
- break lab7;
- }
- } while (false);
- cursor = limit - v_7;
- break lab5;
- } while (false);
- cursor = limit - v_6;
- // do, line 192
- v_8 = limit - cursor;
- lab8: do {
- // call t_plural, line 192
- if (!r_t_plural())
- {
- break lab8;
- }
- } while (false);
- cursor = limit - v_8;
- } while (false);
- // do, line 193
- v_9 = limit - cursor;
- lab9: do {
- // call tidy, line 193
- if (!r_tidy())
- {
- break lab9;
- }
- } while (false);
- cursor = limit - v_9;
- cursor = limit_backward; return true;
- }
-
-}
-