diff options
| author | bjorn <bjorn@bringert.net> | 2008-08-14 07:58:04 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-08-14 07:58:04 +0000 |
| commit | 77270a010a0b453e9a84c3e62db7cfd22e49d55d (patch) | |
| tree | d17682a545d6ac1e68ff49b8c20964182794baf7 /grammars/database/RestaurantEng.gf | |
| parent | 0bbb906141711767678f82b15a7b43e65e0b5bd6 (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/RestaurantEng.gf')
| -rw-r--r-- | grammars/database/RestaurantEng.gf | 31 |
1 files changed, 0 insertions, 31 deletions
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"] ; - -} |
