From c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 9 Dec 2009 09:47:16 +0000 Subject: moving a few things to deprecated --- old-lib/resource/bulgarian/QuestionBul.gf | 63 ------------------------------- 1 file changed, 63 deletions(-) delete mode 100644 old-lib/resource/bulgarian/QuestionBul.gf (limited to 'old-lib/resource/bulgarian/QuestionBul.gf') diff --git a/old-lib/resource/bulgarian/QuestionBul.gf b/old-lib/resource/bulgarian/QuestionBul.gf deleted file mode 100644 index 1032e6b44..000000000 --- a/old-lib/resource/bulgarian/QuestionBul.gf +++ /dev/null @@ -1,63 +0,0 @@ -concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in { - flags coding=cp1251 ; - - - flags optimize=all_subs ; - - lin - - QuestCl cl = { - s = \\t,a,p => - let cls = cl.s ! t ! a ! p - in table { - QDir => cls ! Quest ; - QIndir => "ако" ++ cls ! Main - } ---- "whether" in ExtEng - } ; - - QuestVP ip vp = { - s = \\t,a,b,qform => - (mkClause (ip.s ! RSubj ! qform) {gn = ip.gn ; p = P3} vp).s ! t ! a ! b ! Main - } ; - - QuestSlash ip slash = - mkQuestion {s = \\spec => slash.c2.s ++ ip.s ! (RObj slash.c2.c) ! spec} - {s = slash.s ! (agrP3 ip.gn) } ; - - QuestIAdv iadv cl = mkQuestion iadv cl ; - - QuestIComp icomp np = - mkQuestion icomp (mkClause (np.s ! RSubj) np.a (predV verbBe)) ; - - PrepIP p ip = {s = \\spec => p.s ++ ip.s ! RSubj ! spec} ; - - AdvIP ip adv = { - s = \\role,spec => ip.s ! role ! spec ++ adv.s ; - gn = ip.gn - } ; - - CompIAdv a = a ; - - IdetCN idet cn = { - s = \\_,spec => let nf = case of { - => NFPlCount ; - _ => NF idet.n Indef - } - in idet.s ! cn.g ! spec ++ cn.s ! nf ; - gn = gennum cn.g idet.n - } ; - - IdetIP idet = { - s = \\_ => idet.s ! DNeut ; - gn = gennum DNeut idet.n - } ; - - IdetQuant iquant num = { - s = \\g,spec => iquant.s ! gennum g num.n ! spec ++ - num.s ! dgenderSpecies g Indef RSubj ; - n = num.n ; - nonEmpty = num.nonEmpty - } ; - - CompIP ip = {s = ip.s ! RSubj} ; -} -- cgit v1.2.3