Improvements of Russian Phrasebook that do not rely on Participles and Numerals

This commit is contained in:
Nick Frolov
2011-10-18 15:16:58 +00:00
parent 08bcc07325
commit bdd52b0560
10 changed files with 137 additions and 117 deletions

View File

@@ -34,7 +34,7 @@ oper pronTu : Pronoun =
Prepos _ => "тебе" } }
in pronYaTu nonPoss "тво" P2 ;
-- Pronouns ya, tu, svoj
-- Pronouns ya, ty, svoj
oper pronYaTu : { s : Case => Str } -> Str -> Person -> Pronoun =
\nonPoss, mo, pers ->
{ s = table {
@@ -1313,4 +1313,15 @@ oper ProperName : Type = {s : Case => Str ; g : Gender ; anim : Animacy} ;
(Prepos _) => masha + "е" };
g = Fem ; anim = anim };
-- Люберцы, Нидерланды
mkProperNamePl : Str -> Animacy -> ProperName = \lubercy, anim ->
let a : Str = case lubercy of {_+("ч"|"щ"|"ш"|"ж") => "а"; _ => "о" } in
{ s = table { Nom => lubercy + "ы";
Gen => lubercy + a + "в";
Dat => lubercy + "ам";
Acc => lubercy + "ы";
Inst => lubercy + "ей";
(Prepos _) => lubercy + "ах" };
g = Neut ; anim = anim };
};