Extending resource.

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"] ;
+
+} ;