Go to the source code of this file.
Functions | |
struct SN_env * | turkish_UTF_8_create_env (void) |
void | turkish_UTF_8_close_env (struct SN_env *z) |
int | turkish_UTF_8_stem (struct SN_env *z) |
void turkish_UTF_8_close_env | ( | struct SN_env * | z | ) |
Definition at line 2204 of file stem_UTF_8_turkish.c.
References SN_close_env().
{ SN_close_env(z, 0); }
struct SN_env* turkish_UTF_8_create_env | ( | void | ) | [read] |
Definition at line 2202 of file stem_UTF_8_turkish.c.
References SN_create_env().
{ return SN_create_env(0, 1, 1); }
int turkish_UTF_8_stem | ( | struct SN_env * | z | ) |
Definition at line 2170 of file stem_UTF_8_turkish.c.
References SN_env::B, SN_env::c, SN_env::l, SN_env::lb, r_more_than_one_syllable_word(), r_postlude(), r_stem_nominal_verb_suffixes(), and r_stem_noun_suffixes().
{ { int ret = r_more_than_one_syllable_word(z); if (ret == 0) return 0; /* call more_than_one_syllable_word, line 465 */ if (ret < 0) return ret; } z->lb = z->c; z->c = z->l; /* backwards, line 467 */ { int m1 = z->l - z->c; (void)m1; /* do, line 468 */ { int ret = r_stem_nominal_verb_suffixes(z); if (ret == 0) goto lab0; /* call stem_nominal_verb_suffixes, line 468 */ if (ret < 0) return ret; } lab0: z->c = z->l - m1; } if (!(z->B[0])) return 0; /* Boolean test continue_stemming_noun_suffixes, line 469 */ { int m2 = z->l - z->c; (void)m2; /* do, line 470 */ { int ret = r_stem_noun_suffixes(z); if (ret == 0) goto lab1; /* call stem_noun_suffixes, line 470 */ if (ret < 0) return ret; } lab1: z->c = z->l - m2; } z->c = z->lb; { int ret = r_postlude(z); if (ret == 0) return 0; /* call postlude, line 473 */ if (ret < 0) return ret; } return 1; }