+++ /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 SwedishStemmer extends SnowballProgram {
-
- private Among a_0[] = {
- new Among ( "a", -1, 1, "", this),
- new Among ( "arna", 0, 1, "", this),
- new Among ( "erna", 0, 1, "", this),
- new Among ( "heterna", 2, 1, "", this),
- new Among ( "orna", 0, 1, "", this),
- new Among ( "ad", -1, 1, "", this),
- new Among ( "e", -1, 1, "", this),
- new Among ( "ade", 6, 1, "", this),
- new Among ( "ande", 6, 1, "", this),
- new Among ( "arne", 6, 1, "", this),
- new Among ( "are", 6, 1, "", this),
- new Among ( "aste", 6, 1, "", this),
- new Among ( "en", -1, 1, "", this),
- new Among ( "anden", 12, 1, "", this),
- new Among ( "aren", 12, 1, "", this),
- new Among ( "heten", 12, 1, "", this),
- new Among ( "ern", -1, 1, "", this),
- new Among ( "ar", -1, 1, "", this),
- new Among ( "er", -1, 1, "", this),
- new Among ( "heter", 18, 1, "", this),
- new Among ( "or", -1, 1, "", this),
- new Among ( "s", -1, 2, "", this),
- new Among ( "as", 21, 1, "", this),
- new Among ( "arnas", 22, 1, "", this),
- new Among ( "ernas", 22, 1, "", this),
- new Among ( "ornas", 22, 1, "", this),
- new Among ( "es", 21, 1, "", this),
- new Among ( "ades", 26, 1, "", this),
- new Among ( "andes", 26, 1, "", this),
- new Among ( "ens", 21, 1, "", this),
- new Among ( "arens", 29, 1, "", this),
- new Among ( "hetens", 29, 1, "", this),
- new Among ( "erns", 21, 1, "", this),
- new Among ( "at", -1, 1, "", this),
- new Among ( "andet", -1, 1, "", this),
- new Among ( "het", -1, 1, "", this),
- new Among ( "ast", -1, 1, "", this)
- };
-
- private Among a_1[] = {
- new Among ( "dd", -1, -1, "", this),
- new Among ( "gd", -1, -1, "", this),
- new Among ( "nn", -1, -1, "", this),
- new Among ( "dt", -1, -1, "", this),
- new Among ( "gt", -1, -1, "", this),
- new Among ( "kt", -1, -1, "", this),
- new Among ( "tt", -1, -1, "", this)
- };
-
- private Among a_2[] = {
- new Among ( "ig", -1, 1, "", this),
- new Among ( "lig", 0, 1, "", this),
- new Among ( "els", -1, 1, "", this),
- new Among ( "fullt", -1, 3, "", this),
- new Among ( "l\u00F6st", -1, 2, "", this)
- };
-
- private static final char g_v[] = {17, 65, 16, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 24, 0, 32 };
-
- private static final char g_s_ending[] = {119, 127, 149 };
-
- private int I_x;
- private int I_p1;
-
- private void copy_from(SwedishStemmer other) {
- I_x = other.I_x;
- I_p1 = other.I_p1;
- super.copy_from(other);
- }
-
- private boolean r_mark_regions() {
- int v_1;
- int v_2;
- // (, line 26
- I_p1 = limit;
- // test, line 29
- v_1 = cursor;
- // (, line 29
- // hop, line 29
- {
- int c = cursor + 3;
- if (0 > c || c > limit)
- {
- return false;
- }
- cursor = c;
- }
- // setmark x, line 29
- I_x = cursor;
- cursor = v_1;
- // goto, line 30
- golab0: while(true)
- {
- v_2 = cursor;
- lab1: do {
- if (!(in_grouping(g_v, 97, 246)))
- {
- break lab1;
- }
- cursor = v_2;
- break golab0;
- } while (false);
- cursor = v_2;
- if (cursor >= limit)
- {
- return false;
- }
- cursor++;
- }
- // gopast, line 30
- golab2: while(true)
- {
- lab3: do {
- if (!(out_grouping(g_v, 97, 246)))
- {
- break lab3;
- }
- break golab2;
- } while (false);
- if (cursor >= limit)
- {
- return false;
- }
- cursor++;
- }
- // setmark p1, line 30
- I_p1 = cursor;
- // try, line 31
- lab4: do {
- // (, line 31
- if (!(I_p1 < I_x))
- {
- break lab4;
- }
- I_p1 = I_x;
- } while (false);
- return true;
- }
-
- private boolean r_main_suffix() {
- int among_var;
- int v_1;
- int v_2;
- // (, line 36
- // setlimit, line 37
- v_1 = limit - cursor;
- // tomark, line 37
- if (cursor < I_p1)
- {
- return false;
- }
- cursor = I_p1;
- v_2 = limit_backward;
- limit_backward = cursor;
- cursor = limit - v_1;
- // (, line 37
- // [, line 37
- ket = cursor;
- // substring, line 37
- among_var = find_among_b(a_0, 37);
- if (among_var == 0)
- {
- limit_backward = v_2;
- return false;
- }
- // ], line 37
- bra = cursor;
- limit_backward = v_2;
- switch(among_var) {
- case 0:
- return false;
- case 1:
- // (, line 44
- // delete, line 44
- slice_del();
- break;
- case 2:
- // (, line 46
- if (!(in_grouping_b(g_s_ending, 98, 121)))
- {
- return false;
- }
- // delete, line 46
- slice_del();
- break;
- }
- return true;
- }
-
- private boolean r_consonant_pair() {
- int v_1;
- int v_2;
- int v_3;
- // setlimit, line 50
- v_1 = limit - cursor;
- // tomark, line 50
- if (cursor < I_p1)
- {
- return false;
- }
- cursor = I_p1;
- v_2 = limit_backward;
- limit_backward = cursor;
- cursor = limit - v_1;
- // (, line 50
- // and, line 52
- v_3 = limit - cursor;
- // among, line 51
- if (find_among_b(a_1, 7) == 0)
- {
- limit_backward = v_2;
- return false;
- }
- cursor = limit - v_3;
- // (, line 52
- // [, line 52
- ket = cursor;
- // next, line 52
- if (cursor <= limit_backward)
- {
- limit_backward = v_2;
- return false;
- }
- cursor--;
- // ], line 52
- bra = cursor;
- // delete, line 52
- slice_del();
- limit_backward = v_2;
- return true;
- }
-
- private boolean r_other_suffix() {
- int among_var;
- int v_1;
- int v_2;
- // 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 56
- ket = cursor;
- // substring, line 56
- among_var = find_among_b(a_2, 5);
- if (among_var == 0)
- {
- limit_backward = v_2;
- return false;
- }
- // ], line 56
- bra = cursor;
- switch(among_var) {
- case 0:
- limit_backward = v_2;
- return false;
- case 1:
- // (, line 57
- // delete, line 57
- slice_del();
- break;
- case 2:
- // (, line 58
- // <-, line 58
- slice_from("l\u00F6s");
- break;
- case 3:
- // (, line 59
- // <-, line 59
- slice_from("full");
- break;
- }
- limit_backward = v_2;
- return true;
- }
-
- public boolean stem() {
- int v_1;
- int v_2;
- int v_3;
- int v_4;
- // (, line 64
- // do, line 66
- v_1 = cursor;
- lab0: do {
- // call mark_regions, line 66
- if (!r_mark_regions())
- {
- break lab0;
- }
- } while (false);
- cursor = v_1;
- // backwards, line 67
- limit_backward = cursor; cursor = limit;
- // (, line 67
- // do, line 68
- v_2 = limit - cursor;
- lab1: do {
- // call main_suffix, line 68
- if (!r_main_suffix())
- {
- break lab1;
- }
- } while (false);
- cursor = limit - v_2;
- // do, line 69
- v_3 = limit - cursor;
- lab2: do {
- // call consonant_pair, line 69
- if (!r_consonant_pair())
- {
- break lab2;
- }
- } while (false);
- cursor = limit - v_3;
- // do, line 70
- v_4 = limit - cursor;
- lab3: do {
- // call other_suffix, line 70
- if (!r_other_suffix())
- {
- break lab3;
- }
- } while (false);
- cursor = limit - v_4;
- cursor = limit_backward; return true;
- }
-
-}
-