Working on with new resource API.

This commit is contained in:
aarne
2003-11-21 15:28:25 +00:00
parent 6d99debdff
commit 9cd2c273a2
12 changed files with 726 additions and 220 deletions

View File

@@ -16,11 +16,11 @@ lincat
Name = PN ;
lin
WhichAre A B = QuestPhrase (IntVP (NounIPMany A) (PosA B)) ;
WhichAre A B = QuestPhrase (IntVP (NounIPMany A) (PosVG (PredAP 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)) ;
AreThere A = QuestPhrase (AreThereCN NoNum A) ;
WhatIs val = QuestPhrase (IntVP WhatOne (PosVG (PredNP val))) ;
IsIt Q A = QuestPhrase (QuestVP Q (PosVG (PredAP A))) ;
MoreThan = ComparAdjP ;
TheMost = SuperlNP ;