GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

Fixes case for perfective/imperfective

Browse Source
This commit is contained in:
Roman Suzi
2020-05-09 00:14:48 +03:00
parent 61b74dc829
commit ac39c90460
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/russian/MorphoRus.gf
View File

@@ -1274,7 +1274,7 @@ oper verbDecl: Aspect -> Conjugation -> Str -> Str -> Str -> Str -> Str -> Verbu
Dolzhen => <presentConjDolzhen,pastConjDolzhen> ; Dolzhen => <presentConjDolzhen,pastConjDolzhen> ;
Foreign => <presentConjForeign,pastConj> } in Foreign => <presentConjForeign,pastConj> } in
let patt = case a of { let patt = case a of {
Perfective => mkVerbImperfective; Perfective => mkVerbPerfective;
Imperfective => mkVerbImperfective } in Imperfective => mkVerbImperfective } in
patt inf imperSgP2 (conj.p1 del sgP1End) (conj.p2 sgMascPast) ; patt inf imperSgP2 (conj.p1 del sgP1End) (conj.p2 sgMascPast) ;
@@ -1283,7 +1283,7 @@ oper verbDecl: Aspect -> Conjugation -> Str -> Str -> Str -> Str -> Str -> Verbu
oper verbDeclMoch: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> Str -> Verbum = oper verbDeclMoch: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> Str -> Verbum =
\a, c, del, sgP1End, sgMascPast, imperSgP2, inf, altRoot -> \a, c, del, sgP1End, sgMascPast, imperSgP2, inf, altRoot ->
let patt = case a of { let patt = case a of {
Perfective => mkVerbImperfective; Perfective => mkVerbPerfective;
Imperfective => mkVerbImperfective } in Imperfective => mkVerbImperfective } in
patt inf imperSgP2 (presentConj1Moch del sgP1End altRoot) (pastConj sgMascPast); patt inf imperSgP2 (presentConj1Moch del sgP1End altRoot) (pastConj sgMascPast);