forked from GitHub/gf-core
23f8ebe76e
The support for variation of the noun depending on what cardinal it is
used with seems to be complete by now ("one child - two children -
five children" - Russian has different plural forms for "a child" when
counting). The case agreement in noun phrases that have additional
determiners besides numerals ("three little blind mice") is fixed too.
75 lines
1.9 KiB
Plaintext
75 lines
1.9 KiB
Plaintext
--# -path=.:../abstract:../common:../../prelude
|
|
|
|
concrete QuestionRus of Question = CatRus ** open ResRus, Prelude in {
|
|
|
|
flags optimize=all_subs ; coding=utf8 ;
|
|
|
|
lin
|
|
|
|
QuestCl cl = {s = \\b,cf,_ => cl.s ! b ! cf } ;
|
|
|
|
QuestVP kto spit =
|
|
{s = \\b,clf,qf => (predVerbPhrase kto spit).s!b!clf } ;
|
|
|
|
QuestSlash Kto yaGovoruO =
|
|
let { kom = Kto.s ! (mkPronForm yaGovoruO.c No NonPoss) ; o = yaGovoruO.s2 } in
|
|
{s = \\b,clf,_ => o ++ kom ++ yaGovoruO.s ! b ! clf
|
|
} ;
|
|
|
|
QuestIAdv kak tuPozhivaesh =
|
|
{s = \\b,clf,q => kak.s ++ tuPozhivaesh.s!b!clf } ;
|
|
|
|
QuestIComp kak tuPozhivaesh =
|
|
{s = \\b,clf,q => let ne = case b of {Neg => ""; Pos => []}
|
|
in
|
|
kak.s ++ ne ++tuPozhivaesh.s! PF Nom No NonPoss } ;
|
|
|
|
|
|
PrepIP p ip = {s = p.s ++ ip.s ! PF Nom No NonPoss} ;
|
|
|
|
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
|
|
} ;
|
|
|
|
IdetCN kakoj okhotnik =
|
|
{s = \\pf => case kakoj.c of {
|
|
Nom =>
|
|
kakoj.s ! AF (extCase pf) okhotnik.anim (gennum okhotnik.g kakoj.n) ++
|
|
okhotnik.s ! NF kakoj.n (extCase pf) nom ;
|
|
_ =>
|
|
kakoj.s ! AF (extCase pf) okhotnik.anim (gennum okhotnik.g kakoj.n) ++
|
|
okhotnik.s ! NF kakoj.n kakoj.c plg };
|
|
n = kakoj.n ;
|
|
p = P3 ;
|
|
pron = False;
|
|
g = kakoj.g ;
|
|
anim = okhotnik.anim
|
|
} ;
|
|
|
|
-- 1.4 additions 17/6/2008 by AR
|
|
|
|
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 ;
|
|
anim = anim
|
|
} ;
|
|
|
|
IdetQuant kakoj pyat = -- okhotnik =
|
|
{s = \\af =>
|
|
kakoj.s ! pyat.n ! af ++
|
|
pyat.s ! genAF af ! animAF af ! caseAF af ;
|
|
n = pyat.n ;
|
|
g = kakoj.g ;
|
|
c = kakoj.c
|
|
} ;
|
|
|
|
AdvIAdv i a = {s = i.s ++ a.s} ;
|
|
|
|
CompIAdv a = a ;
|
|
CompIP ip = {s = ip.s ! PF Nom No NonPoss} ;
|
|
}
|