From 1ca5e5398abd42fe71d4fe541e84318df0351e20 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 19 Nov 2003 17:33:06 +0000
Subject: Extending resource.

---
 grammars/database/RestaurantEng.gf | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 grammars/database/RestaurantEng.gf

(limited to 'grammars/database/RestaurantEng.gf')

diff --git a/grammars/database/RestaurantEng.gf b/grammars/database/RestaurantEng.gf
new file mode 100644
index 000000000..04e89a5b6
--- /dev/null
+++ b/grammars/database/RestaurantEng.gf
@@ -0,0 +1,30 @@
+--# -path=.:../resource/nabstract:../resource/nenglish:../prelude
+
+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"] ;
+
+} ;
-- 
cgit v1.2.3