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

further refactoring in Russian

Browse Source
This commit is contained in:
krasimir
2008-11-27 14:08:50 +00:00
parent 7f81aa43af
commit 4af8cf3617
15 changed files with 512 additions and 574 deletions
Download Patch File Download Diff File Expand all files Collapse all files
next-lib/src/russian/QuestionRus.gf
+5 -11
View File
@@ -29,21 +29,18 @@ concrete QuestionRus of Question = CatRus ** open ResRus, Prelude in {
AdvIP ip adv = {
s = \\c => ip.s ! c ++ adv.s ;
n = ip.n; p=ip.p; g=ip.g; anim=ip.anim; pron=ip.pron
a = ip.a; anim=ip.anim
} ;
IdetCN kakoj okhotnik =
{s = \\pf => case kakoj.c of {
Nom =>
kakoj.s ! AF (extCase pf) okhotnik.anim (gNum okhotnik.g kakoj.n) ++
kakoj.s ! AF (extCase pf) okhotnik.anim (gennum okhotnik.g kakoj.n) ++
okhotnik.s ! NF kakoj.n (extCase pf) ;
_ =>
kakoj.s ! AF (extCase pf) okhotnik.anim (gNum okhotnik.g kakoj.n) ++
kakoj.s ! AF (extCase pf) okhotnik.anim (gennum okhotnik.g kakoj.n) ++
okhotnik.s ! NF kakoj.n kakoj.c };
n = kakoj.n ;
p = P3 ;
pron = False;
g = kakoj.g ;
a = agrP3 kakoj.n kakoj.g ;
anim = okhotnik.anim
} ;
@@ -51,10 +48,7 @@ concrete QuestionRus of Question = CatRus ** open ResRus, Prelude in {
IdetIP kakoj = let anim = Inanimate in
{s = \\pf => kakoj.s ! AF (extCase pf) anim (pgNum kakoj.g kakoj.n) ;
n = kakoj.n ;
p = P3 ;
pron = False;
g = kakoj.g ;
a = agrP3 kakoj.n kakoj.g ;
anim = anim
} ;