guessed LexiconBul.know_VS

This commit is contained in:
aarne
2010-08-25 09:08:07 +00:00
parent a10540263b
commit c6f1c529fb

View File

@@ -113,7 +113,6 @@ lin
vtype = VNormal ;
lock_V = <>
} ;
know_VS = mkVS (actionV (mkV188 "çíàì") (mkV162 "çíàÿ")) ;
lake_N = mkN054 "åçåðî" ;
lamp_N = mkN041 "ëàìïà" ;
learn_V2 = dirV2 (actionV (mkV176 "ó÷à") (mkV176 "íàó÷à")) ;
@@ -377,4 +376,15 @@ oper
sP = mkPrep (pre { "ñ" ;
"ñúñ" / strs {"ñ" ; "ç" ; "Ñ" ; "Ç"}
}) Acc ;
oper know_V : V =
{
s = \\_,vform => case vform of {
VPassive aform => (mkA079 "èçâåñòåí").s ! aform ;
_ => mkV162 "çíàÿ" ! vform
} ;
vtype = VNormal ;
lock_V = <>
} ;
} ;