blob: 4040de0c1c1a177d7e5317c9cbbfb0ab385ffdac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
--# -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) ;
} ;
|
