msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Fix can (moch)

Browse Source
This commit is contained in:
Roman Suzi
2020-05-14 21:54:28 +03:00
parent 3633e3f6f5
commit c675de3457
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/russian/MorphoRus.gf
View File

@@ -1228,6 +1228,14 @@ oper presentConj1Moch: Str -> Str -> Str -> PresentVerb = \del, sgP1End, altRoot
PRF GPl P3 => del+ sgP1End + "т" PRF GPl P3 => del+ sgP1End + "т"
}; };
oper pastConjMoch: Str -> PastVerb = \del ->
table {
PSF (GSg Masc) => del ;
PSF (GSg Fem) => del +"ла" ;
PSF (GSg Neut) => del+"ло" ;
PSF GPl => del+ "ли"
};
-- "PastVerb" takes care of the past tense conjugation. -- "PastVerb" takes care of the past tense conjugation.
param PastVF = PSF GenNum ; param PastVF = PSF GenNum ;
@@ -1285,7 +1293,7 @@ oper verbDeclMoch: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> St
let patt = case a of { let patt = case a of {
Perfective => mkVerbPerfective; Perfective => mkVerbPerfective;
Imperfective => mkVerbImperfective } in Imperfective => mkVerbImperfective } in
patt inf imperSgP2 (presentConj1Moch del sgP1End altRoot) (pastConj sgMascPast); patt inf imperSgP2 (presentConj1Moch del sgP1End altRoot) (pastConjMoch sgMascPast);
oper add_sya : Voice -> Str -> Str = \v,x -> oper add_sya : Voice -> Str -> Str = \v,x ->
case v of { case v of {