New place for new resource API implementations.

This commit is contained in:
aarne
2003-11-25 15:11:59 +00:00
parent 3c94482769
commit 1574e20786
2 changed files with 4 additions and 4 deletions

View File

@@ -1,6 +1,6 @@
--# -path=.:../resource/nabstract:../resource/nenglish:../prelude
concrete DatabaseEng of Database = open Prelude, ResEng in {
concrete DatabaseEng of Database = open Prelude, ResourceEng in {
flags lexer=text ; unlexer=text ;
@@ -17,8 +17,8 @@ lincat
lin
WhichAre A B = QuestPhrase (IntVP (NounIPMany A) (PosVG (PredAP B))) ;
IsThere A = QuestPhrase (IsThereCN A) ;
AreThere A = QuestPhrase (AreThereCN NoNum A) ;
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))) ;

View File

@@ -1,7 +1,7 @@
--# -path=.:../resource/nabstract:../resource/nenglish:../prelude
concrete RestaurantEng of Restaurant =
DatabaseEng ** open Prelude,ParadigmsEng in {
DatabaseEng ** open Prelude, ParadigmsEng in {
lin
Restaurant = cnNonhuman "restaurant" ;