コード例 #1
0
extern int swedish_stem(struct SN_env * z) {
    {   int c = z->c; /* do, line 66 */
        if (!r_mark_regions(z)) goto lab0; /* call mark_regions, line 66 */
    lab0:
        z->c = c;
    }
    z->lb = z->c; z->c = z->l; /* backwards, line 67 */

    {   int m = z->l - z->c; /* do, line 68 */
        if (!r_main_suffix(z)) goto lab1; /* call main_suffix, line 68 */
    lab1:
        z->c = z->l - m;
    }
    {   int m = z->l - z->c; /* do, line 69 */
        if (!r_consonant_pair(z)) goto lab2; /* call consonant_pair, line 69 */
    lab2:
        z->c = z->l - m;
    }
    {   int m = z->l - z->c; /* do, line 70 */
        if (!r_other_suffix(z)) goto lab3; /* call other_suffix, line 70 */
    lab3:
        z->c = z->l - m;
    }
    z->c = z->lb;
    return 1;
}
コード例 #2
0
extern int danish_UTF_8_stem(struct SN_env * z) {
    {   int c = z->c; /* do, line 84 */
        {   int ret = r_mark_regions(z);
            if (ret == 0) goto lab0; /* call mark_regions, line 84 */
            if (ret < 0) return ret;
        }
    lab0:
        z->c = c;
    }
    z->lb = z->c; z->c = z->l; /* backwards, line 85 */

    {   int m = z->l - z->c; (void) m; /* do, line 86 */
        {   int ret = r_main_suffix(z);
            if (ret == 0) goto lab1; /* call main_suffix, line 86 */
            if (ret < 0) return ret;
        }
    lab1:
        z->c = z->l - m;
    }
    {   int m = z->l - z->c; (void) m; /* do, line 87 */
        {   int ret = r_consonant_pair(z);
            if (ret == 0) goto lab2; /* call consonant_pair, line 87 */
            if (ret < 0) return ret;
        }
    lab2:
        z->c = z->l - m;
    }
    {   int m = z->l - z->c; (void) m; /* do, line 88 */
        {   int ret = r_other_suffix(z);
            if (ret == 0) goto lab3; /* call other_suffix, line 88 */
            if (ret < 0) return ret;
        }
    lab3:
        z->c = z->l - m;
    }
    {   int m = z->l - z->c; (void) m; /* do, line 89 */
        {   int ret = r_undouble(z);
            if (ret == 0) goto lab4; /* call undouble, line 89 */
            if (ret < 0) return ret;
        }
    lab4:
        z->c = z->l - m;
    }
    z->c = z->lb;
    return 1;
}
コード例 #3
0
extern int swedish_ISO_8859_1_stem(struct SN_env * z) {
    {   int c = z->c; /* do, line 66 */
        {   int ret = r_mark_regions(z);
            if (ret == 0) goto lab0; /* call mark_regions, line 66 */
            if (ret < 0) return ret;
        }
lab0:
        z->c = c;
    }
    z->lb = z->c;
    z->c = z->l; /* backwards, line 67 */

    {   int m = z->l - z->c;
        (void) m; /* do, line 68 */
        {   int ret = r_main_suffix(z);
            if (ret == 0) goto lab1; /* call main_suffix, line 68 */
            if (ret < 0) return ret;
        }
lab1:
        z->c = z->l - m;
    }
    {   int m = z->l - z->c;
        (void) m; /* do, line 69 */
        {   int ret = r_consonant_pair(z);
            if (ret == 0) goto lab2; /* call consonant_pair, line 69 */
            if (ret < 0) return ret;
        }
lab2:
        z->c = z->l - m;
    }
    {   int m = z->l - z->c;
        (void) m; /* do, line 70 */
        {   int ret = r_other_suffix(z);
            if (ret == 0) goto lab3; /* call other_suffix, line 70 */
            if (ret < 0) return ret;
        }
lab3:
        z->c = z->l - m;
    }
    z->c = z->lb;
    return 1;
}
コード例 #4
0
extern int norwegian_UTF_8_stem(struct SN_env * z) {
    {   int c = z->c; /* do, line 74 */
        {   int ret = r_mark_regions(z);
            if (ret == 0) goto lab0; /* call mark_regions, line 74 */
            if (ret < 0) return ret;
        }
    lab0:
        z->c = c;
    }
    z->lb = z->c; z->c = z->l; /* backwards, line 75 */

    {   int m = z->l - z->c; (void) m; /* do, line 76 */
        {   int ret = r_main_suffix(z);
            if (ret == 0) goto lab1; /* call main_suffix, line 76 */
            if (ret < 0) return ret;
        }
    lab1:
        z->c = z->l - m;
    }
    {   int m = z->l - z->c; (void) m; /* do, line 77 */
        {   int ret = r_consonant_pair(z);
            if (ret == 0) goto lab2; /* call consonant_pair, line 77 */
            if (ret < 0) return ret;
        }
    lab2:
        z->c = z->l - m;
    }
    {   int m = z->l - z->c; (void) m; /* do, line 78 */
        {   int ret = r_other_suffix(z);
            if (ret == 0) goto lab3; /* call other_suffix, line 78 */
            if (ret < 0) return ret;
        }
    lab3:
        z->c = z->l - m;
    }
    z->c = z->lb;
    return 1;
}