From 8f1d5c79ef8523ea8273f6c76d451938fba29a51 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Thu, 20 Nov 2008 10:32:15 +0000
Subject: [PATCH] Added CAdvNP and CAdvSSlash to ParseEng. Maybe they should go
 in Noun.gf instead?

---
 next-lib/src/parse/ParseEng.gf    | 10 ++++++++++
 next-lib/src/parse/ParseEngAbs.gf |  3 +++
 2 files changed, 13 insertions(+)

diff --git a/next-lib/src/parse/ParseEng.gf b/next-lib/src/parse/ParseEng.gf
index f8060533b..88b3ec9a1 100644
--- a/next-lib/src/parse/ParseEng.gf
+++ b/next-lib/src/parse/ParseEng.gf
@@ -115,6 +115,16 @@ lin
       a = agrP3 num.n
       } ;
 
+    CAdvNP ad cn np = {
+      s = \\c => ad.s ++ cn.s ! Sg ! c ++ ad.p ++ np.s ! Nom ; 
+      a = agrP3 Sg
+      } ;
+
+    CAdvSSlash ad cn slash = {
+      s = \\c => ad.s ++ cn.s ! Sg ! c ++ ad.p ++ slash.s ++ slash.c2;
+      a = agrP3 Sg
+      } ;
+
 -- Lexical additions
 
 lin
diff --git a/next-lib/src/parse/ParseEngAbs.gf b/next-lib/src/parse/ParseEngAbs.gf
index b7ea1347c..103263524 100644
--- a/next-lib/src/parse/ParseEngAbs.gf
+++ b/next-lib/src/parse/ParseEngAbs.gf
@@ -23,6 +23,9 @@ fun VerbCN : V -> CN -> CN ; -- running man
 
 fun NumOfNP : Num -> NP -> NP ; -- ten of the dogs
 
+fun CAdvNP  : CAdv -> CN -> NP -> NP ; -- more wine than the professor
+fun CAdvSSlash  : CAdv -> CN -> SSlash -> NP ; -- more wine than the professor drank
+
 -- Lexical additions
 
 fun a8few_Det : Det ;