The stub of Russian Phrasebook is tweaked to start giving sane output

This commit is contained in:
Nick Frolov
2011-07-07 17:10:14 +00:00
parent e84ef142d7
commit 6946d9e07c
7 changed files with 70 additions and 55 deletions

View File

@@ -157,6 +157,9 @@ oper
mkAdv : Str -> Adv ;
--2 Prepositions
mkPrep : Str -> Case -> Prep ; -- as in German
--2 Verbs
--
-- In our lexicon description ("Verbum") there are 62 forms:
@@ -218,6 +221,8 @@ perfective: Aspect ;
mkV2 : V -> Str -> Case -> V2 ; -- "войти в дом"; "в", accusative
mkV3 : V -> Str -> Str -> Case -> Case -> V3 ; -- "сложить письмо в конверт"
mkVS : V -> VS ;
mkVQ : V -> VQ ;
dirV2 : V -> V2 ; -- "видеть", "любить"
tvDirDir : V -> V3 ;
@@ -412,6 +417,9 @@ foreign = Foreign; -- +++ MG_UR: added +++
mkAdv x = ss x ** {lock_Adv = <>} ;
-- Prepositions definitions
mkPrep s c = {s = s ; c = c ; lock_Prep = <>} ;
-- Verb definitions
-- mkVerbum = \asp, sgP1, sgP2, sgP3, plP1, plP2, plP3,
@@ -463,5 +471,9 @@ foreign = Foreign; -- +++ MG_UR: added +++
mkV3 v s1 s2 c1 c2 = v ** {c2 = {s=s1; c=c1}; c3={s=s2; c=c2}; lock_V3 = <>};
mkVS v = v ** {lock_VS = <>} ;
mkVQ v = v ** {lock_VQ = <>} ;
} ;