mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-13 23:09:31 -06:00
71 lines
2.6 KiB
Plaintext
71 lines
2.6 KiB
Plaintext
--# -path=.:../abstract:../../prelude
|
|
|
|
concrete TestResourceEng of TestResource = RulesEng, ClauseEng, StructuralEng **
|
|
open Prelude, SyntaxEng, OldParadigmsEng in {
|
|
|
|
flags startcat=Phr ; lexer=textlit ; parser=chart ; unlexer=text ;
|
|
|
|
-- a random sample from the lexicon
|
|
|
|
lin
|
|
Big = adjDegrIrreg "big" "bigger" "biggest";
|
|
Happy = adjDegrReg "happy" ;
|
|
Small = adjDegrReg "small" ;
|
|
Old = adjDegrReg "old" ;
|
|
Young = adjDegrReg "young" ;
|
|
American = regAdjective "American" ;
|
|
Finnish = regAdjective "Finnish" ;
|
|
Married = regAdjective "married" ** {s2 = "to"} ;
|
|
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") ;
|
|
Bar = cnNoHum (nounReg "bar") ;
|
|
Bottle = cnNoHum (nounReg "bottle") ;
|
|
Wine = cnNoHum (nounReg "wine") ;
|
|
Walk = verbNoPart (regVerbP3 "walk") ;
|
|
Run = verbNoPart (mkVerb "run" "ran" "run") ;
|
|
Say = verbNoPart (mkVerb "say" "said" "said") ;
|
|
Prove = verbNoPart (verbP3e "prove") ;
|
|
Send = mkTransVerbDir (verbNoPart (mkVerb "send" "sent" "sent")) ;
|
|
Love = mkTransVerbDir (verbNoPart (verbP3e "love")) ;
|
|
Wait = mkTransVerb (verbNoPart (regVerbP3 "wait")) "for" ;
|
|
Drink = mkTransVerbDir (verbNoPart (mkVerb "drink" "drank" "drunk")) ;
|
|
Give = mkDitransVerb (verbNoPart (mkVerb "give" "gave" "given")) [] [] ;
|
|
Prefer = mkDitransVerb
|
|
(verbNoPart (mkVerb "prefer" "preferred" "preferred")) [] "to" ;
|
|
Mother = funOfReg "mother" human ;
|
|
Uncle = funOfReg "uncle" human ;
|
|
Connection = cnNoHum (nounReg "connection") ** {s2 = "from" ; s3 = "to"} ;
|
|
|
|
Always = ss "always" ;
|
|
Well = ss "well" ;
|
|
|
|
SwitchOn = mkTransVerbPart (verbP3s "switch") "on" ;
|
|
SwitchOff = mkTransVerbPart (verbP3s "switch") "off" ;
|
|
|
|
John = nameReg "John" Masc ;
|
|
Mary = nameReg "Mary" Fem ;
|
|
|
|
--- next
|
|
AlreadyAdv = ss "already" ;
|
|
NowAdv = ss "now" ;
|
|
|
|
Paint = mkTransVerbDir (verbNoPart (regVerbP3 "paint")) ;
|
|
Green = adjDegrReg "green" ;
|
|
Beg = mkTransVerbDir (verbNoPart (regVerbP3 "ask")) ** {s4 = "to"} ;
|
|
Promise = mkTransVerbDir (verbNoPart (verbP3e "promise")) ** {s4 = "to"} ;
|
|
Wonder = verbNoPart (regVerbP3 "wonder") ;
|
|
Ask = mkTransVerbDir (verbNoPart (regVerbP3 "ask")) ;
|
|
Tell = mkTransVerbDir (verbNoPart (mkVerb "tell" "told" "told")) ;
|
|
Look = verbNoPart (regVerbP3 "look") ;
|
|
|
|
Try = mkTransVerbDir (verbNoPart (verbP3y "tr")) ** {isAux = False} ;
|
|
Important = regAdjective "important" ** {s2 = "for"} ;
|
|
Probable = regAdjective "probable" ; ---- reg
|
|
Easy = regAdjective "easy" ** {s2 = "for"} ;
|
|
Rain = verbNoPart (regVerbP3 "rain") ;
|
|
|
|
} ;
|