Some fixes/changes, new extend functions

This commit is contained in:
Roman Suzi
2020-08-14 21:00:25 +03:00
parent bf4b4b2d22
commit 98f65975ae
11 changed files with 221 additions and 332 deletions
+6 -5
View File
@@ -553,11 +553,12 @@ oper
shortPastPassPart : VerbForms -> GenNum -> Str
= \vf,gn ->
case gn of {
GSg Masc => vf.pppss ;
GSg Fem => vf.pppss ++ BIND ++ "а" ;
GSg Neut => vf.pppss ++ BIND ++ "о" ;
GPl => vf.pppss ++ BIND ++ "ы"
case <vf.fut,gn> of {
<NormalFuture,GSg Masc> => vf.pppss ;
<NormalFuture,GSg Fem> => vf.pppss ++ BIND ++ "а" ;
<NormalFuture,GSg Neut> => vf.pppss ++ BIND ++ "о" ;
<NormalFuture,GPl> => vf.pppss ++ BIND ++ "ы" ;
_ => vf.pppss
} ;
copula : VerbForms