forked from GitHub/gf-rgl
remove spurious paradigms
This commit is contained in:
@@ -8046,72 +8046,6 @@ mkV043 base =
|
|||||||
_ => error "Can't apply paradigm mkV043"
|
_ => error "Can't apply paradigm mkV043"
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
mkV044 : Str -> V ;
|
|
||||||
mkV044 base =
|
|
||||||
case base of {
|
|
||||||
"се "+base_1+"и" => lin V
|
|
||||||
{ present = table {
|
|
||||||
Sg => table {
|
|
||||||
P1 => "се "+base_1+"ам" ;
|
|
||||||
P2 => "се "+base_1+"иш" ;
|
|
||||||
P3 => "се "+base_1+"и"
|
|
||||||
} ;
|
|
||||||
Pl => table {
|
|
||||||
P1 => "се "+base_1+"име" ;
|
|
||||||
P2 => "се "+base_1+"ите" ;
|
|
||||||
P3 => "се "+base_1+"ат"
|
|
||||||
}
|
|
||||||
} ;
|
|
||||||
aorist = table {
|
|
||||||
Sg => table {
|
|
||||||
P1 => "се "+base_1+"ив" ;
|
|
||||||
P2 => "се "+base_1+"и" ;
|
|
||||||
P3 => "се "+base_1+"и"
|
|
||||||
} ;
|
|
||||||
Pl => table {
|
|
||||||
P1 => "се "+base_1+"ивме" ;
|
|
||||||
P2 => "се "+base_1+"ивте" ;
|
|
||||||
P3 => "се "+base_1+"ија"
|
|
||||||
}
|
|
||||||
} ;
|
|
||||||
imperfect = table {
|
|
||||||
Sg => table {
|
|
||||||
P1 => "се "+base_1+"ев" ;
|
|
||||||
P2 => "се "+base_1+"еше" ;
|
|
||||||
P3 => "се "+base_1+"еше"
|
|
||||||
} ;
|
|
||||||
Pl => table {
|
|
||||||
P1 => "се "+base_1+"евме" ;
|
|
||||||
P2 => "се "+base_1+"евте" ;
|
|
||||||
P3 => "се "+base_1+"еа"
|
|
||||||
}
|
|
||||||
} ;
|
|
||||||
Imperative = table {
|
|
||||||
Sg => base_1+"и се" ;
|
|
||||||
Pl => base_1+"ете се"
|
|
||||||
} ;
|
|
||||||
participle = { aorist = table {
|
|
||||||
GSg Masc => "се "+base_1+"ил" ;
|
|
||||||
GSg Fem => "се "+base_1+"ила" ;
|
|
||||||
GSg Neuter => "се "+base_1+"ило" ;
|
|
||||||
GPl => "се "+base_1+"иле"
|
|
||||||
} ;
|
|
||||||
imperfect = table {
|
|
||||||
GSg Masc => "се "+base_1+"ел" ;
|
|
||||||
GSg Fem => "се "+base_1+"ела" ;
|
|
||||||
GSg Neuter => "се "+base_1+"ело" ;
|
|
||||||
GPl => "се "+base_1+"еле"
|
|
||||||
} ;
|
|
||||||
perfect = nonExist ; --guessed
|
|
||||||
adjectival = base_1+"ен" ;
|
|
||||||
adverbial = base_1+"ејќи" --guessed
|
|
||||||
} ;
|
|
||||||
noun_from_verb = base_1+"ење" ; --guessed
|
|
||||||
isRefl = False
|
|
||||||
};
|
|
||||||
_ => error "Can't apply paradigm mkV044"
|
|
||||||
} ;
|
|
||||||
|
|
||||||
mkV045 : Str -> V ;
|
mkV045 : Str -> V ;
|
||||||
mkV045 base =
|
mkV045 base =
|
||||||
case base of {
|
case base of {
|
||||||
@@ -8244,72 +8178,6 @@ mkV046 base =
|
|||||||
_ => error "Can't apply paradigm mkV046"
|
_ => error "Can't apply paradigm mkV046"
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
mkV047 : Str -> V ;
|
|
||||||
mkV047 base =
|
|
||||||
case base of {
|
|
||||||
"се "+base_1 => lin V
|
|
||||||
{ present = table {
|
|
||||||
Sg => table {
|
|
||||||
P1 => "се "+base_1+"м" ;
|
|
||||||
P2 => "се "+base_1+"ш" ;
|
|
||||||
P3 => "се "+base_1
|
|
||||||
} ;
|
|
||||||
Pl => table {
|
|
||||||
P1 => "се "+base_1+"ме" ;
|
|
||||||
P2 => "се "+base_1+"те" ;
|
|
||||||
P3 => "се "+base_1+"ат"
|
|
||||||
}
|
|
||||||
} ;
|
|
||||||
aorist = table {
|
|
||||||
Sg => table {
|
|
||||||
P1 => base_1+"ев" ; --guessed
|
|
||||||
P2 => base_1+"е" ; --guessed
|
|
||||||
P3 => base_1+"е" --guessed
|
|
||||||
} ;
|
|
||||||
Pl => table {
|
|
||||||
P1 => base_1+"евме" ; --guessed
|
|
||||||
P2 => base_1+"евте" ; --guessed
|
|
||||||
P3 => base_1+"еа" --guessed
|
|
||||||
}
|
|
||||||
} ;
|
|
||||||
imperfect = table {
|
|
||||||
Sg => table {
|
|
||||||
P1 => "се "+base_1+"в" ;
|
|
||||||
P2 => "се "+base_1+"ше" ;
|
|
||||||
P3 => "се "+base_1+"ше"
|
|
||||||
} ;
|
|
||||||
Pl => table {
|
|
||||||
P1 => "се "+base_1+"вме" ;
|
|
||||||
P2 => "се "+base_1+"вте" ;
|
|
||||||
P3 => "се "+base_1+"а"
|
|
||||||
}
|
|
||||||
} ;
|
|
||||||
Imperative = table {
|
|
||||||
Sg => base_1+"ј се" ;
|
|
||||||
Pl => base_1+"јте се"
|
|
||||||
} ;
|
|
||||||
participle = { aorist = table {
|
|
||||||
GSg Masc => base_1+"л" ; --guessed
|
|
||||||
GSg Fem => base_1+"ла" ; --guessed
|
|
||||||
GSg Neuter => base_1+"ло" ; --guessed
|
|
||||||
GPl => base_1+"ле" --guessed
|
|
||||||
} ;
|
|
||||||
imperfect = table {
|
|
||||||
GSg Masc => "се "+base_1+"л" ;
|
|
||||||
GSg Fem => "се "+base_1+"ла" ;
|
|
||||||
GSg Neuter => "се "+base_1+"ло" ;
|
|
||||||
GPl => "се "+base_1+"ле"
|
|
||||||
} ;
|
|
||||||
perfect = nonExist ; --guessed
|
|
||||||
adjectival = base_1+"ен" ; --guessed
|
|
||||||
adverbial = base_1+"јќи се"
|
|
||||||
} ;
|
|
||||||
noun_from_verb = base_1+"ње" ;
|
|
||||||
isRefl = False
|
|
||||||
};
|
|
||||||
_ => error "Can't apply paradigm mkV047"
|
|
||||||
} ;
|
|
||||||
|
|
||||||
mkV048 : Str -> V ;
|
mkV048 : Str -> V ;
|
||||||
mkV048 base =
|
mkV048 base =
|
||||||
case base of {
|
case base of {
|
||||||
|
|||||||
@@ -1016,9 +1016,7 @@ reg3V : Str -> Str -> Str -> V
|
|||||||
<_ + "и", _ + "оа", _> => mkV002 form1;
|
<_ + "и", _ + "оа", _> => mkV002 form1;
|
||||||
<_ + "и", _ + "еа", _> => mkV004 form1;
|
<_ + "и", _ + "еа", _> => mkV004 form1;
|
||||||
<_ + "и", _ + "аа", _> => mkV030 form1;
|
<_ + "и", _ + "аа", _> => mkV030 form1;
|
||||||
<_ + "а", _, _ + "е"> => mkV047 form1;
|
|
||||||
<_ + "и", _, _ + "и"> => mkV048 form1;
|
<_ + "и", _, _ + "и"> => mkV048 form1;
|
||||||
<_ + "и", _, _ + "е"> => mkV044 form1;
|
|
||||||
<_ + "е", _, _ + "и"> => mkV028 form1;
|
<_ + "е", _, _ + "и"> => mkV028 form1;
|
||||||
<_ + "а", _, _> => mkV001 form1;
|
<_ + "а", _, _> => mkV001 form1;
|
||||||
<_ + "е", _, _> => mkV007 form1;
|
<_ + "е", _, _> => mkV007 form1;
|
||||||
@@ -1145,9 +1143,7 @@ reg4V : Str -> Str -> Str -> Str -> V
|
|||||||
<_ + "и", _ + "аа", _, _> => mkV030 form1;
|
<_ + "и", _ + "аа", _, _> => mkV030 form1;
|
||||||
<_ + "и", _, _ + "и", _ + "в"> => mkV003 form1;
|
<_ + "и", _, _ + "и", _ + "в"> => mkV003 form1;
|
||||||
<_ + "е", _, _ + "и", _ + "в"> => mkV007 form1;
|
<_ + "е", _, _ + "и", _ + "в"> => mkV007 form1;
|
||||||
<_ + "а", _, _ + "е", _> => mkV047 form1;
|
|
||||||
<_ + "и", _, _ + "и", _> => mkV048 form1;
|
<_ + "и", _, _ + "и", _> => mkV048 form1;
|
||||||
<_ + "и", _, _ + "е", _> => mkV044 form1;
|
|
||||||
<_ + "е", _, _ + "и", _> => mkV028 form1;
|
<_ + "е", _, _ + "и", _> => mkV028 form1;
|
||||||
<_ + "а", _, _, _> => mkV001 form1;
|
<_ + "а", _, _, _> => mkV001 form1;
|
||||||
<_ + "е", _, _, _> => mkV007 form1;
|
<_ + "е", _, _, _> => mkV007 form1;
|
||||||
|
|||||||
Reference in New Issue
Block a user