Added CAdvNP and CAdvSSlash to ParseEng. Maybe they should go in Noun.gf instead?

2 files changed, 13 insertions, 0 deletions

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 ;