From 77270a010a0b453e9a84c3e62db7cfd22e49d55d Mon Sep 17 00:00:00 2001 From: bjorn 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/RestaurantSwe.gf | 33 --------------------------------- 1 file changed, 33 deletions(-) delete mode 100644 grammars/database/RestaurantSwe.gf (limited to 'grammars/database/RestaurantSwe.gf') diff --git a/grammars/database/RestaurantSwe.gf b/grammars/database/RestaurantSwe.gf deleted file mode 100644 index 81e023cf5..000000000 --- a/grammars/database/RestaurantSwe.gf +++ /dev/null @@ -1,33 +0,0 @@ ---# -path=.:../newresource/abstract:../newresource/swedish:../resource/abstract:../resource/swedish:../prelude ---- path names: resource in release, newresource in cvs - -concrete RestaurantSwe of Restaurant = - DatabaseSwe ** open Prelude, ResourceSwe, ParadigmsSwe in { - -lin - Restaurant = UseN (nRisk "restaurang") ; - Bar = UseN (nRisk "bar") ; - French = AdjP1 (adjReg "fransk") ; - Italian = AdjP1 (adjReg "italiensk") ; - Indian = AdjP1 (adjReg "indisk") ; - Japanese = AdjP1 (adjReg "japansk") ; - - address = funAv (nRisk "adress") ; - phone = - funTill (mkN "telefonnummer" "telefonnumret" "telefonnummer" - "telefonnumren" neutrum nonmasculine) ; - priceLevel = funPaa (nRisk "prisnivå") ; - - Cheap = aReg "billig" ; - Expensive = aReg "dyr" ; - - WhoRecommend rest = - ss2 ["vem rekommenderade"] (rest.s ! nominative) ** {lock_Phr = <>} ; - WhoHellRecommend rest = - ss2 ["vem fan rekommenderade"] (rest.s ! nominative) ** {lock_Phr = <>} ; - - LucasCarton = pnReg ["Lucas-Carton"] neutrum nonmasculine ; --- - - LaCoupole = pnReg ["La-Coupole"] neutrum nonmasculine ; - BurgerKing = pnS (variants {["Burger King"] ; "BK"}) neutrum nonmasculine ; - -} -- cgit v1.2.3