Go to the source code of this file.
◆ russian_KOI8_R_close_env()
void russian_KOI8_R_close_env |
( |
struct SN_env * |
z | ) |
|
◆ russian_KOI8_R_create_env()
struct SN_env* russian_KOI8_R_create_env |
( |
void |
| ) |
|
◆ russian_KOI8_R_stem()
int russian_KOI8_R_stem |
( |
struct SN_env * |
z | ) |
|
Definition at line 604 of file stem_KOI8_R_russian.c.
References SN_env::bra, SN_env::c, eq_s_b(), SN_env::I, SN_env::ket, SN_env::l, SN_env::lb, r_adjectival(), r_derivational(), r_mark_regions(), r_noun(), r_perfective_gerund(), r_reflexive(), r_tidy_up(), r_verb(), s_9, and slice_del().
607 if (ret == 0)
goto lab0;
608 if (ret < 0)
return ret;
613 z->
lb = z->
c; z->
c = z->
l;
616 int m2 = z->
l - z->
c; (void)m2;
617 if (z->
c < z->
I[0])
return 0;
619 mlimit = z->
lb; z->
lb = z->
c;
621 {
int m3 = z->
l - z->
c; (void)m3;
622 {
int m4 = z->
l - z->
c; (void)m4;
624 if (ret == 0)
goto lab3;
625 if (ret < 0)
return ret;
630 {
int m_keep = z->
l - z->
c;
632 if (ret == 0) { z->
c = z->
l - m_keep;
goto lab4; }
633 if (ret < 0)
return ret;
638 {
int m5 = z->
l - z->
c; (void)m5;
640 if (ret == 0)
goto lab6;
641 if (ret < 0)
return ret;
647 if (ret == 0)
goto lab7;
648 if (ret < 0)
return ret;
654 if (ret == 0)
goto lab1;
655 if (ret < 0)
return ret;
665 {
int m_keep = z->
l - z->
c;
667 if (!(
eq_s_b(z, 1,
s_9))) { z->
c = z->
l - m_keep;
goto lab8; }
670 if (ret < 0)
return ret;
675 {
int m6 = z->
l - z->
c; (void)m6;
677 if (ret == 0)
goto lab9;
678 if (ret < 0)
return ret;
683 {
int m7 = z->
l - z->
c; (void)m7;
685 if (ret == 0)
goto lab10;
686 if (ret < 0)
return ret;
int eq_s_b(struct SN_env *z, int s_size, const symbol *s)
int slice_del(struct SN_env *z)
static int r_mark_regions(struct SN_env *z)
static int r_reflexive(struct SN_env *z)
static const symbol s_9[]
static int r_verb(struct SN_env *z)
static int r_adjectival(struct SN_env *z)
static int r_derivational(struct SN_env *z)
static int r_tidy_up(struct SN_env *z)
static int r_noun(struct SN_env *z)
static int r_perfective_gerund(struct SN_env *z)