diff options
Diffstat (limited to 'next-lib/src/russian/QuestionRus.gf')
| -rw-r--r-- | next-lib/src/russian/QuestionRus.gf | 72 |
1 files changed, 0 insertions, 72 deletions
diff --git a/next-lib/src/russian/QuestionRus.gf b/next-lib/src/russian/QuestionRus.gf deleted file mode 100644 index e3506aef6..000000000 --- a/next-lib/src/russian/QuestionRus.gf +++ /dev/null @@ -1,72 +0,0 @@ ---# -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) ; - _ => - 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 ; - 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 ! caseAF af ! genAF af ; - n = pyat.n ; - g = kakoj.g ; - c = kakoj.c - } ; - - CompIAdv a = a ; - CompIP ip = {s = ip.s ! PF Nom No NonPoss} ; -} |
