Added Swe databaseCVS: ----------------------------------------------------------------------

1 files changed, 46 insertions, 0 deletions

diff --git a/grammars/database/DatabaseSwe.gf b/grammars/database/DatabaseSwe.gf
new file mode 100644
index 000000000..d872d14dd
--- /dev/null
+++ b/grammars/database/DatabaseSwe.gf
@@ -0,0 +1,46 @@
+--# -path=.:../newresource/abstract:../newresource/swedish:../prelude
+
+--- This is actually the same set of definitions as in DatabaseEng. So
+--- we could use an interface instead of ResourceSwe.
+
+concrete DatabaseSwe of Database = open Prelude, ResourceSwe in {
+
+flags lexer=text ; unlexer=text ;
+
+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 (IndefManyNP 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 (AllsDet NoNum) ;
+  MostN = DetNP MostsDet ;
+  EveryN = DetNP EveryDet ;
+  Any = DetNP (AnysDet NoNum) ;
+
+} ;