mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-14 15:29:31 -06:00
49 lines
1.5 KiB
Plaintext
49 lines
1.5 KiB
Plaintext
-- (c) 2009 Aarne Ranta under LGPL
|
|
|
|
concrete WordsEng of Words = SentencesEng **
|
|
open SyntaxEng, ParadigmsEng, IrregEng in {
|
|
lin
|
|
Wine = mkCN (mkN "wine") ;
|
|
Beer = mkCN (mkN "beer") ;
|
|
Water = mkCN (mkN "water") ;
|
|
Coffee = mkCN (mkN "coffee") ;
|
|
Tea = mkCN (mkN "tea") ;
|
|
|
|
Pizza = mkCN (mkN "pizza") ;
|
|
Cheese = mkCN (mkN "cheese") ;
|
|
Fish = mkCN (mkN "fish" "fish") ;
|
|
Fresh = mkAP (mkA "fresh") ;
|
|
Warm = mkAP (mkA "warm") ;
|
|
Italian = mkAP (mkA "Italian") ;
|
|
Expensive = mkAP (mkA "expensive") ;
|
|
Delicious = mkAP (mkA "delicious") ;
|
|
Boring = mkAP (mkA "boring") ;
|
|
|
|
Restaurant = mkCN (mkN "restaurant") ;
|
|
Bar = mkCN (mkN "bar") ;
|
|
Toilet = mkCN (mkN "toilet") ;
|
|
|
|
Euro = mkCN (mkN "euro" "euros") ; -- to prevent euroes
|
|
Dollar = mkCN (mkN "dollar") ;
|
|
Lei = mkCN (mkN "leu" "lei") ;
|
|
|
|
English = mkNP (mkPN "English") ;
|
|
Finnish = mkNP (mkPN "Finnish") ;
|
|
French = mkNP (mkPN "French") ;
|
|
Romanian = mkNP (mkPN "Romanian") ;
|
|
Swedish = mkNP (mkPN "Swedish") ;
|
|
|
|
AWant p obj = mkCl p (mkV2 (mkV "want")) obj ;
|
|
ALike p item = mkCl p (mkV2 (mkV "like")) item ;
|
|
AHave p kind = mkCl p have_V2 (mkNP kind) ;
|
|
ASpeak p lang = mkCl p (mkV2 IrregEng.speak_V) lang ;
|
|
ALove p q = mkCl p (mkV2 (mkV "love")) q ;
|
|
|
|
AHungry p = mkCl p (mkA "hungry") ;
|
|
AThirsty p = mkCl p (mkA "thirsty") ;
|
|
ATired p = mkCl p (mkA "tired") ;
|
|
AScared p = mkCl p (mkA "scared") ;
|
|
AUnderstand p = mkCl p IrregEng.understand_V ;
|
|
|
|
}
|