mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
New place for new resource API implementations.
This commit is contained in:
@@ -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))) ;
|
||||
|
||||
|
||||
@@ -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" ;
|
||||
|
||||
Reference in New Issue
Block a user