russin: implement -to pronouns in terms of the base ones.

This commit is contained in:
bjorn
2008-06-23 17:30:23 +00:00
parent a50c7e3a7c
commit fac2e5cf13

View File

@@ -270,36 +270,6 @@ oper pronKto: Pronoun =
pron = False
} ;
oper pronKtoTo: Pronoun =
{ s = table {
PF Nom _ _ => "кто-то" ;
PF Gen _ _ => "кого-то" ;
PF Dat _ _ => "кому-то" ;
PF Acc _ _ => "кого-то" ;
PF Inst _ _ => "кем-то" ;
PF (Prepos _) _ _ => "ком-то"
} ;
g = PGen Masc;
n = Sg ;
p = P3 ;
pron = False
} ;
oper pronChtoTo: Pronoun =
{ s = table {
PF Nom _ _ => "что-то" ;
PF Gen _ _ => "чего-то" ;
PF Dat _ _ => "чему-то" ;
PF Acc _ _ => "что-то" ;
PF Inst _ _ => "чем-то" ;
PF (Prepos _) _ _ => "чём-то"
} ;
g = PGen Masc;
n = Sg ;
p = P3 ;
pron = False
} ;
oper pronChto: Pronoun =
{ s = table {
PF Nom _ _ => "что" ;
@@ -315,6 +285,18 @@ oper pronChto: Pronoun =
pron = False
} ;
oper pron_add_to : Pronoun -> Pronoun = \p ->
{ s = \\pf => (p.s!pf) + "-то" ;
g = p.g ;
n = p.n ;
p = p.p ;
pron = p.pron
} ;
oper pronKtoTo : Pronoun = pron_add_to pronKto ;
oper pronChtoTo: Pronoun = pron_add_to pronChto ;
oper pronEti: Pronoun =
{ s = table {
PF Nom _ _ => "эти" ;