forked from GitHub/gf-core
37 lines
1.1 KiB
Plaintext
37 lines
1.1 KiB
Plaintext
concrete TestEng of TestAbs = ResEng ** open Syntax in {
|
|
|
|
flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
|
|
|
|
-- a random sample from the lexicon
|
|
|
|
lin
|
|
Big = mkAdjDegr "big" "bigger" "biggest";
|
|
Small = adjDegrReg "small" ;
|
|
Old = adjDegrReg "old" ;
|
|
Young = adjDegrReg "young" ;
|
|
Man = cnHum (mkNoun "man" "men" "man's" "men's") ;
|
|
Woman = cnHum (mkNoun "woman" "women" "woman's" "women's") ;
|
|
Car = cnNoHum (nounReg "car") ;
|
|
House = cnNoHum (nounReg "house") ;
|
|
Light = cnNoHum (nounReg "light") ;
|
|
Walk = verbNoPart (regVerbP3 "walk") ;
|
|
Run = verbNoPart (regVerbP3 "run") ;
|
|
Say = verbNoPart (regVerbP3 "say") ;
|
|
Prove = verbNoPart (regVerbP3 "prove") ;
|
|
Send = mkTransVerbDir (regVerbP3 "send") ;
|
|
Love = mkTransVerbDir (regVerbP3 "love") ;
|
|
Wait = mkTransVerb (regVerbP3 "wait") "for" ;
|
|
Mother = funOfReg "mother" Hum ;
|
|
Uncle = funOfReg "uncle" Hum ;
|
|
|
|
Always = advPre "always" ;
|
|
Well = advPost "well" ;
|
|
|
|
SwitchOn = mkTransVerbPart (verbP3s "switch") "on" ;
|
|
SwitchOff = mkTransVerbPart (verbP3s "switch") "off" ;
|
|
|
|
John = nameReg "John" ;
|
|
Mary = nameReg "Mary" ;
|
|
|
|
} ;
|