From 1ca5e5398abd42fe71d4fe541e84318df0351e20 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 19 Nov 2003 17:33:06 +0000
Subject: Extending resource.

---
 grammars/database/DatabaseEng.gf | 43 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 grammars/database/DatabaseEng.gf

(limited to 'grammars/database/DatabaseEng.gf')

diff --git a/grammars/database/DatabaseEng.gf b/grammars/database/DatabaseEng.gf
new file mode 100644
index 000000000..9abc21879
--- /dev/null
+++ b/grammars/database/DatabaseEng.gf
@@ -0,0 +1,43 @@
+--# -path=.:../resource/nabstract:../resource/nenglish:../prelude
+
+concrete DatabaseEng of Database = open Prelude, ResEng 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) (PosA B)) ;
+  IsThere A = QuestPhrase (IsThereCN A) ;
+  AreThere A = QuestPhrase (AreThereCN A) ;
+  WhatIs val = QuestPhrase (IntVP WhatOne (PosNP val)) ;
+  IsIt Q A = QuestPhrase (QuestVP Q (PosA 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 AllDet ;
+  MostN = DetNP MostDet ;
+  EveryN = DetNP EveryDet ;
+  Any = DetNP AnysDet ;
+
+} ;
-- 
cgit v1.2.3