IComp questions in resource added

lib/resource-1.0/finnish/CatFin.gf

@@ -25,6 +25,7 @@ concrete CatFin of Cat = CommonX ** open ResFin, Prelude in {
     QCl   = {s : Tense => Anteriority => Polarity => Str} ;
     IP    = {s : NPForm => Str ; n : Number} ;
     IAdv  = {s : Str} ;    
+    IComp = {s : Agr => Str} ; 
     IDet  = {s : Case => Str ; n : Number} ;
 
 -- Relative

lib/resource-1.0/finnish/QuestionFin.gf

@@ -28,6 +28,15 @@ concrete QuestionFin of Question = CatFin ** open ResFin, Prelude in {
       s = \\t,a,p => iadv.s ++ cl.s ! t ! a ! p ! SDecl
       } ;
 
+    QuestIComp icomp np = {
+      s = \\t,a,p => 
+        let 
+          vp = predV (verbOlla ** {sc = NPCase Nom}) ;
+          cl = mkClause (subjForm np vp.sc) np.a vp ;
+        in
+        icomp.s ! np.a ++ cl.s ! t ! a ! p ! SDecl
+      } ;
+
     PrepIP p ip = {s = 
       appCompl True Pos p (ip ** {a = agrP3 ip.n ; isPron = False})} ;
 
@@ -54,4 +63,6 @@ concrete QuestionFin of Question = CatFin ** open ResFin, Prelude in {
       n = n
       } ;
 
+    CompIAdv a = {s = \\_ => a.s} ;
+
 }