From c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
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 insertions(+)
 create mode 100644 deprecated/old-lib/resource/bulgarian/QuestionBul.gf

(limited to 'deprecated/old-lib/resource/bulgarian/QuestionBul.gf')

diff --git a/deprecated/old-lib/resource/bulgarian/QuestionBul.gf b/deprecated/old-lib/resource/bulgarian/QuestionBul.gf
new file mode 100644
index 000000000..1032e6b44
--- /dev/null
+++ b/deprecated/old-lib/resource/bulgarian/QuestionBul.gf
@@ -0,0 +1,63 @@
+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 <idet.n, idet.nonEmpty> of {
+                                 <Pl,True> => 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