PPartNP and AdvNP.

2006-05-16 22:13:12 +00:00
parent 39f6049f2d
commit ddfd57fe7d
7 changed files with 79 additions and 7 deletions
--- a/lib/resource-1.0/german/NounGer.gf
+++ b/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 ;