Fixed past passive participles full forms by adding its own stem to the verb

This commit is contained in:
Roman Suzi
2020-09-12 10:47:54 +03:00
parent eb08304c10
commit f072f56f3f
9 changed files with 40 additions and 10 deletions
+2 -2
View File
@@ -306,8 +306,8 @@ oper
= \v,voice,t ->
let refl = case v.refl of {Reflexive => "ся" ; _ => ""} in
case <voice,t> of {
<Pass,Past|Cond> => lin A ( --# notpresent TODO: very rough. Cover more cases
guessAdjectiveForms (v.pppss + "ный") ** { --# notpresent
<Pass,Past|Cond> => lin A ( --# notpresent TODO: check
guessAdjectiveForms (v.ppps + "ый") ** { --# notpresent
sm=v.pppss ; --# notpresent
sf=v.pppss + "а"; --# notpresent
sn=v.pppss + "о"; --# notpresent