summaryrefslogtreecommitdiff
path: root/grammars/database/RestaurantFre.gf
diff options
context:
space:
mode:
authorbjorn <bjorn@bringert.net>2008-08-14 07:58:04 +0000
committerbjorn <bjorn@bringert.net>2008-08-14 07:58:04 +0000
commit77270a010a0b453e9a84c3e62db7cfd22e49d55d (patch)
treed17682a545d6ac1e68ff49b8c20964182794baf7 /grammars/database/RestaurantFre.gf
parent0bbb906141711767678f82b15a7b43e65e0b5bd6 (diff)
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.
Diffstat (limited to 'grammars/database/RestaurantFre.gf')
-rw-r--r--grammars/database/RestaurantFre.gf33
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 ;
-
-}