GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 08:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

comented ExtFoods

Browse Source
This commit is contained in:
aarne
2007-09-06 13:06:22 +00:00
parent cd9dac84c2
commit e4ac4728d2
2 changed files with 17 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
examples/tutorial/resource-foods/ExtFoods.gf
View File

@@ -3,25 +3,26 @@ abstract ExtFoods = Foods ** {
flags startcat=Move ; flags startcat=Move ;
cat cat
Move ; Move ; -- declarative, question, or imperative
Verb ; Verb ; -- transitive verb
Guest ; Guest ; -- guest in restaurant
GuestKind ; GuestKind ; -- type of guest
fun fun
MAssert : Phrase -> Move ; MAssert : Phrase -> Move ; -- This pizza is warm.
MDeny : Phrase -> Move ; MDeny : Phrase -> Move ; -- This pizza isn't warm.
MAsk : Phrase -> Move ; MAsk : Phrase -> Move ; -- Is this pizza warm?
PVerb : Guest -> Verb -> Item -> Phrase ; PVerb : Guest -> Verb -> Item -> Phrase ; -- we eat this pizza
PVerbWant : Guest -> Verb -> Item -> Phrase ; PVerbWant : Guest -> Verb -> Item -> Phrase ; -- we want to eat this pizza
WhichVerb : Kind -> Guest -> Verb -> Move ; WhichVerb : Kind -> Guest -> Verb -> Move ; -- Which pizza do you eat?
WhichVerbWant : Kind -> Guest -> Verb -> Move ; WhichVerbWant : Kind -> Guest -> Verb -> Move ;
WhichIs : Kind -> Quality -> Move ; -- Which pizza do you want to eat?
WhichIs : Kind -> Quality -> Move ; -- Which wine is Italian?
Do : Verb -> Item -> Move ; Do : Verb -> Item -> Move ; -- Pay this wine!
DoPlease : Verb -> Item -> Move ; DoPlease : Verb -> Item -> Move ; -- Pay this wine please!
I, You, We : Guest ; I, You, We : Guest ;

6
examples/tutorial/resource-foods/ExtFoodsI.gf
View File

@@ -6,7 +6,7 @@ incomplete concrete ExtFoodsI of ExtFoods = FoodsI ** open Syntax, LexFoods in {
Move = Text ; Move = Text ;
Verb = V2 ; Verb = V2 ;
Guest = NP ; Guest = NP ;
GuestKind = N ; GuestKind = CN ;
lin lin
MAssert p = mkText (mkS p) ; MAssert p = mkText (mkS p) ;
MDeny p = mkText (mkS negativePol p) ; MDeny p = mkText (mkS negativePol p) ;
@@ -43,7 +43,7 @@ incomplete concrete ExtFoodsI of ExtFoods = FoodsI ** open Syntax, LexFoods in {
Eat = eat_V2 ; Eat = eat_V2 ;
Drink = drink_V2 ; Drink = drink_V2 ;
Pay = pay_V2 ; Pay = pay_V2 ;
Lady = lady_N ; Lady = mkCN lady_N ;
Gentleman = gentleman_N ; Gentleman = mkCN gentleman_N ;
} }