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

2008-11-21 12:33:56 +00:00
parent 289618b81f
commit b047a99a84
2 changed files with 6 additions and 1 deletions
--- 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