changed names of resource-1.3; added a note on homepage on release

2026-05-20 08:32:50 -06:00 · 2008-06-25 16:54:35 +00:00
parent 7d721eb16e
commit c5c6d13546
1729 changed files with 113 additions and 32 deletions
--- a/lib/resource-1.3/bulgarian/QuestionBul.gf
+++ b/lib/resource-1.3/bulgarian/QuestionBul.gf
@@ -0,0 +1,49 @@
+concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
+
+  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 = 
+      let cl = mkClause (ip.s ! RSubj) {gn = ip.gn ; p = P3} vp
+      in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! Main} ;
+
+    QuestSlash ip slash = 
+      mkQuestion {s1 = slash.c2.s ++ ip.s ! (RObj slash.c2.c); s2 = slash.c2.s ++ ip.s ! (RObj slash.c2.c)} slash ;
+
+    QuestIAdv iadv cl = mkQuestion iadv cl ;
+
+    QuestIComp icomp np = 
+      mkQuestion icomp (mkClause (np.s ! RSubj) np.a (predV verbBe)) ;
+
+    PrepIP p ip = {s1 = p.s ++ ip.s ! RSubj; s2 = p.s ++ ip.s ! RSubj} ;
+
+    AdvIP ip adv = {
+      s = \\c => ip.s ! c ++ adv.s ;
+      gn = ip.gn
+      } ;
+
+    IDetCN idet num ord cn = {
+      s = \\c => let nf = case <idet.n, num.nonEmpty> of {
+                            <Pl,True> => NFPlCount ;
+                            _         => NF idet.n Indef
+                          }
+                 in idet.s ! gennum cn.g idet.n ++                   
+                    num.s ! dgenderSpecies cn.g Indef RSubj ++
+                    ord.s ! aform (gennum cn.g num.n) Indef RSubj ++
+                    cn.s ! nf ;
+      gn = gennum cn.g idet.n
+      } ;
+
+    CompIAdv a = a ;
+
+}