testing ParadigmsFre

2 files changed, 36 insertions, 0 deletions

diff --git a/grammars/database/DatabaseFre.gf b/grammars/database/DatabaseFre.gf
new file mode 100644
index 000000000..1fdf4a802
--- /dev/null
+++ b/grammars/database/DatabaseFre.gf
@@ -0,0 +1,3 @@
+--# -path=.:../newresource/abstract:../newresource/french:../prelude:../newresource/romance
+
+concrete DatabaseFre of Database = DatabaseI with (Resource=ResourceFre) ;
diff --git a/grammars/database/RestaurantFre.gf b/grammars/database/RestaurantFre.gf
new file mode 100644
index 000000000..0400bde29
--- /dev/null
+++ b/grammars/database/RestaurantFre.gf
@@ -0,0 +1,33 @@
+--# -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 ;
+
+}