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

russian: implement pronMu and pronVu in terms of a common operation

Browse Source
This commit is contained in:
bjorn
2008-06-23 18:28:05 +00:00
parent e668b6d466
commit 2ab39eb0ee
1 changed files with 34 additions and 73 deletions
Download Patch File Download Diff File Expand all files Collapse all files

107
lib/resource-1.4/russian/MorphoRus.gf
View File

@@ -119,83 +119,44 @@ oper pronOno: Pronoun =
g = PGen Neut ; n = Sg ; p = P3 ; pron = True g = PGen Neut ; n = Sg ; p = P3 ; pron = True
} ; } ;
oper pronMu: Pronoun = oper pronMuVu : Str -> Str -> Person -> Pronoun =
\mu,na,pers ->
{ s = table { { s = table {
PF Nom _ NonPoss => "мы" ; PF Nom _ NonPoss => mu ;
PF Gen _ NonPoss => "нас" ; PF Gen _ NonPoss => na + "с" ;
PF Dat _ NonPoss => "нам" ; PF Dat _ NonPoss => na + "м" ;
PF Acc _ NonPoss => "нас" ; PF Acc _ NonPoss => na + "с" ;
PF Inst _ NonPoss => "нами" ; PF Inst _ NonPoss => na + "ми" ;
PF (Prepos _) _ NonPoss => "нас" ; PF (Prepos _) _ NonPoss => na + "с" ;
PF Nom _ ((Poss (ASg Masc))) => "наш" ;
PF Gen _ (Poss (ASg Masc)) => "нашего" ; PF Nom _ (Poss (ASg Masc)) => na + "ш" ;
PF Dat _ ((Poss (ASg Masc))) => "нашему" ; PF Nom _ (Poss (ASg Neut)) => na + "ше" ;
PF Acc _ ((Poss (ASg Masc))) => "нашего" ; PF Gen _ (Poss (ASg (Masc | Neut))) => na + "шего" ;
PF Inst _ (Poss (ASg Masc)) => "нашим" ; PF Dat _ (Poss (ASg (Masc | Neut))) => na + "шему" ;
PF (Prepos _) _ (Poss (ASg Masc)) => "нашем" ; PF Acc _ (Poss (ASg (Masc | Neut))) => na + "шего" ;
PF Nom _ (Poss (ASg Fem)) => "наша" ; PF Inst _ (Poss (ASg (Masc | Neut))) => na + "шим" ;
PF Gen _ (Poss (ASg Fem)) => "нашей" ; PF (Prepos _) _ (Poss (ASg (Masc | Neut))) => na + "шем" ;
PF Dat _ (Poss (ASg Fem)) => "нашей" ;
PF Acc _ (Poss (ASg Fem)) => "нашу" ; PF Nom _ (Poss (ASg Fem)) => na + "ша" ;
PF Inst _ (Poss (ASg Fem)) => "нашею" ; PF Gen _ (Poss (ASg Fem)) => na + "шей" ;
PF (Prepos _) _ (Poss (ASg Fem)) => "нашей" ; PF Dat _ (Poss (ASg Fem)) => na + "шей" ;
PF Nom _ (Poss (ASg Neut)) => "наше" ; PF Acc _ (Poss (ASg Fem)) => na + "шу" ;
PF Gen _ (Poss (ASg Neut)) => "нашего" ; PF Inst _ (Poss (ASg Fem)) => na + "шею" ;
PF Dat _ (Poss (ASg Neut)) => "нашему" ; PF (Prepos _) _ (Poss (ASg Fem)) => na + "шей" ;
PF Acc _ (Poss (ASg Neut)) => "наше" ;
PF Inst _ (Poss (ASg Neut)) => "нашим" ; PF Nom _ (Poss APl) => na + "ши" ;
PF (Prepos _) _ (Poss (ASg Neut)) => "нашем" ; PF Gen _ (Poss APl) => na + "ших" ;
PF Nom _ (Poss APl) => "наши" ; PF Dat _ (Poss APl) => na + "шим" ;
PF Gen _ (Poss APl)=> "наших" ; PF Acc _ (Poss APl) => na + "ших" ;
PF Dat _ (Poss APl) => "нашим" ; PF Inst _ (Poss APl) => na + "шими" ;
PF Acc _ (Poss APl) => "наших" ; PF (Prepos _) _ (Poss APl) => na + "ших"
PF Inst _ (Poss APl) => "нашими" ;
PF (Prepos _) _ (Poss APl) => "наших"
}; };
g = PNoGen ; g = PNoGen ; n = Pl ; p = pers ; pron = True
n = Pl ;
p = P1 ;
pron = True
} ; } ;
oper pronVu: Pronoun = oper pronMu: Pronoun = pronMuVu "мы" "на" P1;
{ s = table {
PF Nom _ NonPoss => "вы" ; oper pronVu: Pronoun = pronMuVu "вы" "ва" P2;
PF Gen _ NonPoss => "вас" ;
PF Dat _ NonPoss => "вам" ;
PF Acc _ NonPoss => "вас" ;
PF Inst _ NonPoss => "вами" ;
PF (Prepos _) _ NonPoss => "вас" ;
PF Nom _ (Poss (ASg Masc)) => "ваш" ;
PF Gen _ (Poss (ASg Masc)) => "вашего" ;
PF Dat _ (Poss (ASg Masc)) => "вашему" ;
PF Acc _ (Poss (ASg Masc)) => "вашего" ;
PF Inst _ (Poss (ASg Masc)) => "вашим" ;
PF (Prepos _) _ (Poss (ASg Masc)) => "вашем" ;
PF Nom _ (Poss (ASg Fem)) => "ваша" ;
PF Gen _ (Poss (ASg Fem)) => "вашей" ;
PF Dat _ (Poss (ASg Fem)) => "вашей" ;
PF Acc _ (Poss (ASg Fem)) => "вашу" ;
PF Inst _ (Poss (ASg Fem)) => "вашею" ;
PF (Prepos _) _ (Poss (ASg Fem)) => "вашей" ;
PF Nom _ (Poss (ASg Neut)) => "ваше" ;
PF Gen _ (Poss (ASg Neut)) => "вашего" ;
PF Dat _ (Poss (ASg Neut)) => "вашему" ;
PF Acc _ (Poss (ASg Neut)) => "ваше" ;
PF Inst _ (Poss (ASg Neut)) => "вашим" ;
PF (Prepos _) _ (Poss (ASg Neut)) => "вашем" ;
PF Nom _ (Poss APl) => "ваши" ;
PF Gen _ (Poss APl)=> "ваших" ;
PF Dat _ (Poss APl) => "вашим" ;
PF Acc _ (Poss APl) => "ваших" ;
PF Inst _ (Poss APl) => "вашими" ;
PF (Prepos _) _ (Poss APl) => "ваших"
};
g = PNoGen ;
n = Pl ;
p = P2 ;
pron = True
} ;
oper pronOni: Pronoun = oper pronOni: Pronoun =
{ s = table { { s = table {