diff --git a/src/russian/LexiconRus.gf b/src/russian/LexiconRus.gf index 2c682068d..904c80891 100644 --- a/src/russian/LexiconRus.gf +++ b/src/russian/LexiconRus.gf @@ -21,7 +21,7 @@ lin bank_N = mkN "банк" ; bark_N = mkN "кора"; beautiful_A = mkA "красивый"; - become_VA = regV perfective second "станов" "лю" "стал" "стань" "стать" ; + become_VA = regV perfective secondA "станов" "лю" "стал" "стань" "стать" ; beer_N = mkIndeclinableNoun "пиво" neuter inanimate ; beg_V2V = dirV2 (mkV imperfective "прошу" "просишь" "просит" "просим" "просите" "просят" "просил" "проси" "просить" ); belly_N = mkN "живот" ; diff --git a/src/russian/MorphoRus.gf b/src/russian/MorphoRus.gf index c11ac4574..f56c8ed1e 100644 --- a/src/russian/MorphoRus.gf +++ b/src/russian/MorphoRus.gf @@ -1228,6 +1228,14 @@ oper presentConj1Moch: Str -> Str -> Str -> PresentVerb = \del, sgP1End, altRoot 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. param PastVF = PSF GenNum ; @@ -1285,7 +1293,7 @@ oper verbDeclMoch: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> St let patt = case a of { Perfective => mkVerbPerfective; 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 -> case v of {