10 files changed, 0 insertions, 216 deletions

diff --git a/grammars/database/Database.gf b/grammars/database/Database.gf
deleted file mode 100644
index eb0c08d9f..000000000
--- a/grammars/database/Database.gf
+++ /dev/null
@@ -1,33 +0,0 @@
-abstract Database = {
-
-flags startcat=Query ;
-
-cat 
-  Query ; 
-  Category ; Subject ; Value ; Property ; Relation ; Comparison ; Name ;
-  Feature ;
-
-fun 
-  WhichAre  : Category -> Property -> Query ;
-  IsThere   : Category             -> Query ;
-  AreThere  : Category             -> Query ;
-  IsIt      : Subject -> Property  -> Query ; 
-  WhatIs    : Value                -> Query ;
-
-  MoreThan   : Comparison -> Subject  -> Property ;
-  TheMost    : Comparison -> Category -> Value ;
-  Relatively : Comparison -> Category -> Property ;
-
-  RelatedTo  : Relation -> Subject -> Property ;
-
-  Individual : Name -> Subject ;
-  AllN       : Category -> Subject ;
-  Any        : Category -> Subject ;
-  MostN      : Category -> Subject ;
-  EveryN     : Category -> Subject ;
-
-  FeatureOf  : Feature -> Subject -> Subject ;
-  ValueOf    : Feature -> Name -> Value ;
-
-  WithProperty : Category -> Property -> Category ;
-} ;
diff --git a/grammars/database/DatabaseEng.gf b/grammars/database/DatabaseEng.gf
deleted file mode 100644
index 20cf408eb..000000000
--- a/grammars/database/DatabaseEng.gf
+++ /dev/null
@@ -1,3 +0,0 @@
---# -path=.:../newresource/abstract:../newresource/english:../prelude
-
-concrete DatabaseEng of Database = DatabaseI with (Resource=ResourceEng) ;
diff --git a/grammars/database/DatabaseFre.gf b/grammars/database/DatabaseFre.gf
deleted file mode 100644
index 1fdf4a802..000000000
--- a/grammars/database/DatabaseFre.gf
+++ /dev/null
@@ -1,3 +0,0 @@
---# -path=.:../newresource/abstract:../newresource/french:../prelude:../newresource/romance
-
-concrete DatabaseFre of Database = DatabaseI with (Resource=ResourceFre) ;
diff --git a/grammars/database/DatabaseI.gf b/grammars/database/DatabaseI.gf
deleted file mode 100644
index 4040de0c1..000000000
--- a/grammars/database/DatabaseI.gf
+++ /dev/null
@@ -1,43 +0,0 @@
---# -path=.:../newresource/abstract:../prelude
-
-incomplete concrete DatabaseI of Database = open Prelude, Resource in {
-
-flags lexer=text ; unlexer=text ; startcat=Query ;
-
-lincat 
-  Query      = Phr ;
-  Subject    = NP ;
-  Category   = CN ;  
-  Property   = AP ;
-  Comparison = AdjDeg ;
-  Relation   = Adj2 ;
-  Feature    = Fun ;
-  Value      = NP ;
-  Name       = PN ;
-
-lin
-  WhichAre A B = QuestPhrase (IntVP (NounIPMany A) (PosVG (PredAP B))) ;
-  IsThere A = QuestPhrase (IsThereNP (IndefOneNP A)) ;
-  AreThere A = QuestPhrase (IsThereNP (IndefNumNP NoNum A)) ;
-  WhatIs val = QuestPhrase (IntVP WhatOne (PosVG (PredNP val))) ;
-  IsIt Q A = QuestPhrase (QuestVP Q (PosVG (PredAP A))) ;
-
-  MoreThan   = ComparAdjP ;
-  TheMost    = SuperlNP ;
-  Relatively C _ = PositAdjP C ; 
-
-  RelatedTo  = ComplAdj ;
-
-  FeatureOf f x = DefOneNP (AppFun f x) ;
-  ValueOf f x = DefOneNP (AppFun f (UsePN x)) ;
-
-  WithProperty A B = ModAdj B A ;
-
-  Individual = UsePN ;
-
-  AllN = DetNP (AllNumDet NoNum) ;
-  MostN = DetNP MostsDet ;
-  EveryN = DetNP EveryDet ;
-  Any = DetNP (AnyNumDet NoNum) ;
-
-} ;
diff --git a/grammars/database/DatabaseSwe.gf b/grammars/database/DatabaseSwe.gf
deleted file mode 100644
index 618b9022b..000000000
--- a/grammars/database/DatabaseSwe.gf
+++ /dev/null
@@ -1,3 +0,0 @@
---# -path=.:../newresource/abstract:../newresource/swedish:../prelude
-
-concrete DatabaseSwe of Database = DatabaseI with (Resource=ResourceSwe) ;
diff --git a/grammars/database/README b/grammars/database/README
deleted file mode 100644
index 1c289731e..000000000
--- a/grammars/database/README
+++ /dev/null
@@ -1,18 +0,0 @@
-Project starting to redo the old-gf database query grammars, this time 
-using resource grammars.
-
-The base grammars DatabaseX are built as instantiations of the
-parametrized module DatabaseI. They are therefore easy to add
-for any language supporting the resource interface Resource,
-following the model of DatabaseEng and DatabaseSwe.
-
-The restaurant vocabulary is so far only available for
-English and Swedish. The rest should be easy to modify from
-corresponging grammars in the GF 1 grammar package. This time,
-however, only the ParadigmsX modules should be used to define the
-lexical entries.
-
-Copyright (c) 2004 Aarne Ranta
-under GNU General Public License (GPL).
-
-Document last updated August 3, 2004.
diff --git a/grammars/database/Restaurant.gf b/grammars/database/Restaurant.gf
deleted file mode 100644
index 16ebcf53b..000000000
--- a/grammars/database/Restaurant.gf
+++ /dev/null
@@ -1,16 +0,0 @@
-abstract Restaurant = Database ** {
-
-fun 
-  Restaurant, Bar : Category ;
-  French, Italian, Indian, Japanese : Property ;
-  address, phone, priceLevel : Feature ;
-  Cheap, Expensive : Comparison ;
-
-  WhoRecommend : Name -> Query ;
-  WhoHellRecommend : Name -> Query ;
-
--- examples of restaurant names
-  LucasCarton : Name ;
-  LaCoupole : Name ;
-  BurgerKing : Name ;
-} ;
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"] ;
-
-} 
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 ;
-
-}
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 ;
-
-}