Added CompCN to ParseEng. Perhaps this should move to NounEng.

2 files changed, 6 insertions, 1 deletions

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 ;