IComp questions in resource added

lib/resource-1.0/german/CatGer.gf

@@ -25,7 +25,8 @@ concrete CatGer of Cat = CommonX ** open ResGer, Prelude in {
 
     QCl = {s : Tense => Anteriority => Polarity => QForm => Str} ;
     IP = {s : Case => Str ; n : Number} ;
-    IAdv = {s : Str} ;    
+    IAdv = {s : Str} ;
+    IComp = {s : Agr => Str} ; 
     IDet = {s : Gender => Case => Str ; n : Number} ;
 
 -- Relative

lib/resource-1.0/german/QuestionGer.gf

@@ -46,6 +46,18 @@ concrete QuestionGer of Question = CatGer ** open ResGer in {
               }
       } ;
 
+    QuestIComp icomp np = {
+      s = \\t,a,p => 
+            let 
+              vp  = predV sein_V ;
+              cls = (mkClause (np.s ! Nom) np.a vp).s ! t ! a ! p ;
+              why = icomp.s ! np.a
+            in table {
+              QDir   => why ++ cls ! Inv ;
+              QIndir => why ++ cls ! Sub
+              }
+      } ;
+
     PrepIP p ip = {
       s = appPrep p ip.s
       } ;
@@ -65,6 +77,7 @@ concrete QuestionGer of Question = CatGer ** open ResGer in {
            cn.s ! Weak ! n ! c ; 
       n = n
       } ;
+    CompIAdv a = {s = \\_ => a.s} ;
 
 }
 

lib/resource-1.0/german/StructuralGer.gf

@@ -112,7 +112,7 @@ concrete StructuralGer of Structural = CatGer **
 
   when_IAdv = ss "wann" ;
   when_Subj = ss "wenn" ;
-  where_IAdv = ss "war" ;
+  where_IAdv = ss "wo" ;
 
   whichPl_IDet = detLikeAdj Pl "welch" ;
   whichSg_IDet = detLikeAdj Sg "welch" ;