IComp questions in resource added

2006-04-20 15:32:48 +00:00
parent fe0d2f4896
commit 34a8f1b12f
15 changed files with 142 additions and 64 deletions
--- a/lib/resource-1.0/romance/QuestionRomance.gf
+++ b/lib/resource-1.0/romance/QuestionRomance.gf
@@ -41,6 +41,15 @@ incomplete concrete QuestionRomance of Question =
            in why ++ cls
      } ;

+    QuestIComp icomp np = {
+      s = \\t,a,p,_ => 
+            let 
+              vp  = predV copula ;
+              cls = (mkClause (np.s ! Aton Nom) np.a vp).s ! t ! a ! p ! Indic ;
+              why = icomp.s ! {g = np.a.g ; n = np.a.n}
+            in why ++ cls
+      } ;
+
    PrepIP p ip = {
      s = p.s ++ ip.s ! accusative
      } ;
@@ -60,4 +69,6 @@ incomplete concrete QuestionRomance of Question =
      a = a
      } ;

+    CompIAdv a = {s = \\_  => a.s} ;
+
 }