mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 11:42:49 -06:00
26 lines
723 B
Plaintext
26 lines
723 B
Plaintext
concrete RestaurantEng of Restaurant =
|
|
DatabaseEng ** open Prelude,Paradigms,DatabaseRes in {
|
|
|
|
lin
|
|
Restaurant = cnNonhuman "restaurant" ;
|
|
Bar = cnNonhuman "bar" ;
|
|
French = apReg "French" ;
|
|
Italian = apReg "Italian" ;
|
|
Indian = apReg "Indian" ;
|
|
Japanese = apReg "Japanese" ;
|
|
|
|
address = funNonhuman "address" ;
|
|
phone = funNonhuman ["number"] ; --- phone
|
|
priceLevel = funNonhuman ["level"] ; --- price
|
|
|
|
Cheap = aReg "cheap" ;
|
|
Expensive = aRidiculous "expensive" ;
|
|
|
|
WhoRecommend rest = mkSentSame (ss (["who recommended"] ++ rest.s ! nominative)) ;
|
|
WhoHellRecommend rest =
|
|
mkSentSame (ss (["who the hell recommended"] ++ rest.s ! nominative)) ;
|
|
|
|
LucasCarton = pnReg ["Lucas Carton"] ;
|
|
|
|
} ;
|