From b047a99a84c1b21f60b44eb12d7a11e9f3d056ea Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Fri, 21 Nov 2008 12:33:56 +0000
Subject: [PATCH] Added CompCN to ParseEng. Perhaps this should move to
 NounEng.

---
 next-lib/src/parse/ParseEng.gf    | 5 ++++-
 next-lib/src/parse/ParseEngAbs.gf | 2 ++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/next-lib/src/parse/ParseEng.gf b/next-lib/src/parse/ParseEng.gf
index 88b3ec9a1..80fd6da0f 100644
--- a/next-lib/src/parse/ParseEng.gf
+++ b/next-lib/src/parse/ParseEng.gf
@@ -30,7 +30,7 @@ concrete ParseEng of ParseEngAbs =
 	      VA, become_VA],
   BigLexEng
 
-  ** open ParadigmsEng, ResEng, MorphoEng, ParamX, Prelude in {
+  ** open ParadigmsEng, ResEng, MorphoEng, NounEng, ParamX, Prelude in {
 
 flags startcat = Phr ; unlexer = text ; lexer = text ;
 
@@ -125,6 +125,9 @@ lin
       a = agrP3 Sg
       } ;
 
+    CompCN cn = { s = \\a => let n = (fromAgr a).n
+		              in IndefArt.s ! False ! n ++ cn.s ! n ! Acc} ;
+
 -- Lexical additions
 
 lin
diff --git a/next-lib/src/parse/ParseEngAbs.gf b/next-lib/src/parse/ParseEngAbs.gf
index 103263524..1e04348b2 100644
--- a/next-lib/src/parse/ParseEngAbs.gf
+++ b/next-lib/src/parse/ParseEngAbs.gf
@@ -26,6 +26,8 @@ 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
 
+fun CompCN : CN -> Comp ; -- "(every man is) a dog", "(all men are) dogs"
+
 -- Lexical additions
 
 fun a8few_Det : Det ;