From 6b7f1d2c6c05335b2b4fab1ae8b664cd49e84f6a Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Thu, 27 Sep 2012 11:44:25 +0000
Subject: [PATCH] added AdvVPSlash and AdVVPSlash to VerbGer and an extended
 version of PPartNP which uses VPSlash in ParseEngGer. I guess the definitions
 so they might not be quite correct

---
 lib/src/german/ParseEngGer.gf | 7 +++++++
 lib/src/german/VerbGer.gf     | 3 +++
 2 files changed, 10 insertions(+)

diff --git a/lib/src/german/ParseEngGer.gf b/lib/src/german/ParseEngGer.gf
index adc8e62b9..3ff892d58 100644
--- a/lib/src/german/ParseEngGer.gf
+++ b/lib/src/german/ParseEngGer.gf
@@ -34,6 +34,13 @@ lin
             insertObj vpi.p1 (
               predVGen v.isAux v)))) ;
 
+    PPartNP np sl = heavyNP {   -- guessed by KA, some fields in sl are ignored!!
+      s = \\c => np.s ! c ++ 
+                 sl.s.s ! VPastPart APred ++ 
+                 (sl.nn ! np.a).p1 ++ (sl.nn ! np.a).p2 ++ sl.a2;
+      a = np.a
+      } ;
+
 {-
 lin
   myself_NP = mkNP (mkPronoun "itse" "itsen" "itseä" "itsenä" "itseen" Sg P1) ;
diff --git a/lib/src/german/VerbGer.gf b/lib/src/german/VerbGer.gf
index fc316b944..1e5ac05ed 100644
--- a/lib/src/german/VerbGer.gf
+++ b/lib/src/german/VerbGer.gf
@@ -80,6 +80,9 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer, Coordination in {
     AdvVP vp adv = insertAdv adv.s vp ;
     AdVVP adv vp = insertAdv adv.s vp ; -- not AdV 27/5/2012: nicht immer
 
+    AdvVPSlash vp adv = insertAdv adv.s vp ** {c2 = vp.c2} ;
+    AdVVPSlash adv vp = insertAdv adv.s vp ** {c2 = vp.c2} ;
+
     ReflVP vp = insertObj (\\a => appPrep vp.c2 
       (\\k => usePrepC k (\c -> reflPron ! a ! c))) vp ;