1 files changed, 0 insertions, 33 deletions
diff --git a/grammars/database/RestaurantFre.gf b/grammars/database/RestaurantFre.gf
deleted file mode 100644
index 0400bde29..000000000
--- a/grammars/database/RestaurantFre.gf
+++ /dev/null
@@ -1,33 +0,0 @@
---# -path=.:../newresource/abstract:../newresource/french:../newresource/romance:../prelude
---- path names: resource in release, newresource in cvs
-
-concrete RestaurantFre of Restaurant = 
-  DatabaseFre ** open Prelude, ResourceFre, ParadigmsFre in {
-
-lin 
-  Restaurant = UseN (nReg "restaurant" masculine) ;
-  Bar = UseN (nReg "bar" masculine) ;
-  French = AdjP1 (adj1Anglais "français" postpos) ;
-  Italian = AdjP1 (adj1Italien "italien" postpos) ;
-  Indian = AdjP1 (adj1Italien "indien" postpos) ;
-  Japanese = AdjP1 (adj1Anglais "japonais" postpos) ;
-
-  address = funDe (nReg "adresse" feminine) ;
-  phone   = funCNCase (AdvCN (UseN (nReg "numéro" masculine)) 
-              (PrepNP PossessPrep (MassNP (UseN (nReg "téléphone" masculine))))) genitive ;
-  priceLevel = funCNCase (AdvCN (UseN (nEau "niveau" masculine)) 
-              (PrepNP PossessPrep (MassNP (UseN (nCas "prix" masculine))))) genitive ;
-
-  Cheap = aReg "cher" postpos ; ---- 
-  Expensive = aReg ["pas cher"] postpos ; ----
-
-  WhoRecommend rest = 
-    ss2 ["qui a recommandé"] rest.s ** {lock_Phr = <>} ;
-  WhoHellRecommend rest = 
-    ss2 ["qui enfer a recommandé"] rest.s ** {lock_Phr = <>} ;
-
-  LucasCarton = mkPN ["Lucas Carton"] masculine ;
-  LaCoupole  = mkPN ["La Coupole"] feminine ;
-  BurgerKing =mkPN ["Burger King"] masculine ;
-
-}