From 77270a010a0b453e9a84c3e62db7cfd22e49d55d Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Thu, 14 Aug 2008 07:58:04 +0000
Subject: Remove the grammars directory. It was full of old grammars that don't
 compile these days. See the old source distributions if you want them.

---
 grammars/database/RestaurantEng.gf | 31 -------------------------------
 1 file changed, 31 deletions(-)
 delete mode 100644 grammars/database/RestaurantEng.gf

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

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"] ;
-
-} 
-- 
cgit v1.2.3