factored English uncontracted negation to one constant, ExtraEng.UncNeg : Pol

2011-06-02 08:05:31 +00:00
parent 5782bea01d
commit 20966efd85
6 changed files with 63 additions and 37 deletions
--- a/lib/src/english/GrammarEng.gf
+++ b/lib/src/english/GrammarEng.gf
@@ -11,12 +11,17 @@ concrete GrammarEng of Grammar =
  RelativeEng,
  ConjunctionEng,
  PhraseEng,
-  TextX,
+  TextX - [Pol,PPos,PNeg],
  StructuralEng,
  IdiomEng,
-  TenseX
-  ** {
+  TenseX - [Pol,PPos,PNeg]
+  ** open ResEng, Prelude in {

 flags startcat = Phr ; unlexer = text ; lexer = text ;

+lin
+  PPos = {s = [] ; p = CPos} ;
+  PNeg = {s = [] ; p = CNeg True} ; -- contracted: don't
+
+
 } ;