PPartNP and AdvNP.

lib/resource-1.0/german/IdiomGer.gf

@@ -4,16 +4,28 @@ concrete IdiomGer of Idiom = CatGer **
   flags optimize=all_subs ;
 
   lin
-    ExistNP np = 
-      let geben = dirV2 (mkV "geben" "gibt" "gib" "gab" "gäbe" "gegeben")
-      in
-      mkClause "es" (agrP3 Sg) 
-        (insertObj (\\_ => appPrep geben.c2 np.s) 
-          (predV geben)) ;
     ImpersCl vp = mkClause "es" (agrP3 Sg) vp ;
     GenericCl vp = mkClause "man" (agrP3 Sg) vp ;
 
+    ExistNP np = 
+      mkClause "es" (agrP3 Sg) 
+        (insertObj (\\_ => appPrep geben.c2 np.s) 
+          (predV geben)) ;
+
+    ExistIP ip = {
+      s = \\t,a,p => 
+            let 
+              cls = (mkClause "es" (agrP3 Sg)  (predV geben)).s ! t ! a ! p ;
+              who = ip.s ! Acc
+            in table {
+              QDir   => who ++ cls ! Inv ;
+              QIndir => who ++ cls ! Sub
+              }
+      } ;
+
     ProgrVP = insertAdv "eben" ; ----
 
+  oper
+    geben = dirV2 (mkV "geben" "gibt" "gib" "gab" "gäbe" "gegeben") ;
 }
 

lib/resource-1.0/german/NounGer.gf

@@ -21,6 +21,16 @@ concrete NounGer of Noun = CatGer ** open ResGer, Prelude in {
       a = np.a
       } ;
 
+    PPartNP np v2 = {
+      s = \\c => np.s ! c ++ v2.s ! VPastPart APred ; --- invar part
+      a = np.a
+      } ;
+
+    AdvNP np adv = {
+      s = \\c => np.s ! c ++ adv.s ;
+      a = np.a
+      } ;
+
     DetSg quant ord = 
       let 
         n = Sg ;