mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-29 12:48:54 -06:00
moved obsolete files; updated umlaut help
This commit is contained in:
@@ -1,9 +0,0 @@
|
||||
--# -path=.:../abstract:../../prelude
|
||||
|
||||
concrete TestEng of Test =
|
||||
RulesEng,
|
||||
ClauseEng,
|
||||
StructuralEng,
|
||||
MinimalEng
|
||||
** {
|
||||
} ;
|
||||
@@ -1,70 +0,0 @@
|
||||
--# -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") ;
|
||||
|
||||
} ;
|
||||
Reference in New Issue
Block a user