msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

New place for new resource API implementations.

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

6
grammars/database/DatabaseEng.gf
View File

@@ -1,6 +1,6 @@
--# -path=.:../resource/nabstract:../resource/nenglish:../prelude --# -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 ; flags lexer=text ; unlexer=text ;
@@ -17,8 +17,8 @@ lincat
lin lin
WhichAre A B = QuestPhrase (IntVP (NounIPMany A) (PosVG (PredAP B))) ; WhichAre A B = QuestPhrase (IntVP (NounIPMany A) (PosVG (PredAP B))) ;
IsThere A = QuestPhrase (IsThereCN A) ; IsThere A = QuestPhrase (IsThereNP (IndefOneNP A)) ;
AreThere A = QuestPhrase (AreThereCN NoNum A) ; AreThere A = QuestPhrase (IsThereNP (IndefManyNP NoNum A)) ;
WhatIs val = QuestPhrase (IntVP WhatOne (PosVG (PredNP val))) ; WhatIs val = QuestPhrase (IntVP WhatOne (PosVG (PredNP val))) ;
IsIt Q A = QuestPhrase (QuestVP Q (PosVG (PredAP A))) ; IsIt Q A = QuestPhrase (QuestVP Q (PosVG (PredAP A))) ;

2
grammars/database/RestaurantEng.gf
View File

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