summaryrefslogtreecommitdiff
path: root/grammars/database/RestaurantEng.gf
diff options
context:
space:
mode:
Diffstat (limited to 'grammars/database/RestaurantEng.gf')
-rw-r--r--grammars/database/RestaurantEng.gf31
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"] ;
-
-}