msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

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

Browse Source
This commit is contained in:
Nick Frolov
2011-07-07 17:10:14 +00:00
parent 861a49c3c4
commit cbc14a01ab
3 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/russian/LexiconRus.gf
View File

@@ -163,6 +163,8 @@ lin
king_N = mkN "король" "короля" "королю" "короля" "королем" "короле" "короле" "короли" "королей" "королям" "королей" "королями" "королях" masculine animate ; king_N = mkN "король" "короля" "королю" "короля" "королем" "короле" "короле" "короли" "королей" "королям" "королей" "королями" "королях" masculine animate ;
knee_N = mkN "колено" "колена" "колену" "колена" "коленом" "колене" "колене" "колени" "колен" "коленам" "колен" "коленями" "коленях" neuter inanimate ; knee_N = mkN "колено" "колена" "колену" "колена" "коленом" "колене" "колене" "колени" "колен" "коленам" "колен" "коленями" "коленях" neuter inanimate ;
know_V2= dirV2 (regV imperfective first "зна" "ю" "знал" "знай" "знать" ); know_V2= dirV2 (regV imperfective first "зна" "ю" "знал" "знай" "знать" );
know_VS= mkVQ (regV imperfective first "зна" "ю" "знал" "знай" "знать" );
know_VQ= mkVQ (regV imperfective first "зна" "ю" "знал" "знай" "знать" );
lake_N = mkN "озеро" ; -- gen pl "озёр" lake_N = mkN "озеро" ; -- gen pl "озёр"
lamp_N = mkN "лампа" ; lamp_N = mkN "лампа" ;
language_N = mkN "язык" ; language_N = mkN "язык" ;

12
src/russian/ParadigmsRus.gf
View File

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

1
src/russian/StructuralRus.gf
View File

@@ -39,6 +39,7 @@ lin
everywhere_Adv = ss "везде" ; everywhere_Adv = ss "везде" ;
few_Det = nemnogoSgDet **{lock_Det= <>; n= Sg; g = PNoGen; c = Nom}; few_Det = nemnogoSgDet **{lock_Det= <>; n= Sg; g = PNoGen; c = Nom};
--- DEPREC first_Ord = (uy_j_EndDecl "перв" ) ** {lock_A = <>}; --AStaruyj --- DEPREC first_Ord = (uy_j_EndDecl "перв" ) ** {lock_A = <>}; --AStaruyj
for_Prep = { s = "для" ; c = Gen };
from_Prep = { s = "от" ; c = Gen }; from_Prep = { s = "от" ; c = Gen };
he_Pron = pronOn ; he_Pron = pronOn ;
here_Adv = ss "здесь" ; here_Adv = ss "здесь" ;