forked from GitHub/gf-core
28 lines
489 B
Plaintext
28 lines
489 B
Plaintext
--# -path=.:../abstract:../common:prelude
|
|
|
|
concrete GrammarEng of Grammar =
|
|
NounEng,
|
|
VerbEng,
|
|
AdjectiveEng,
|
|
AdverbEng,
|
|
NumeralEng,
|
|
SentenceEng,
|
|
QuestionEng,
|
|
RelativeEng,
|
|
ConjunctionEng,
|
|
PhraseEng,
|
|
TextX - [Pol,PPos,PNeg],
|
|
StructuralEng,
|
|
IdiomEng,
|
|
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
|
|
|
|
|
|
} ;
|