diff options
Diffstat (limited to 'grammars/database/RestaurantEng.gf')
| -rw-r--r-- | grammars/database/RestaurantEng.gf | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/grammars/database/RestaurantEng.gf b/grammars/database/RestaurantEng.gf deleted file mode 100644 index af19b0aee..000000000 --- a/grammars/database/RestaurantEng.gf +++ /dev/null @@ -1,31 +0,0 @@ ---# -path=.:../resource/abstract:../resource/english:../newresource/abstract:../newresource/english:../prelude ---- path names: resource in release, newresource in cvs - -concrete RestaurantEng of Restaurant = - DatabaseEng ** open Prelude, ParadigmsEng 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 = - ss (["who recommended"] ++ rest.s ! nominative) ** {lock_Phr = <>} ; - WhoHellRecommend rest = - ss (["who the hell recommended"] ++ rest.s ! nominative) ** {lock_Phr = <>} ; - - LucasCarton = pnReg ["Lucas Carton"] ; - LaCoupole = pnReg ["La Coupole"] ; - BurgerKing = pnReg ["Burger King"] ; - -} |
