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

resource using exx revised

Browse Source
This commit is contained in:
aarne
2007-09-02 19:53:55 +00:00
parent 1d8281f3c5
commit 29b5463e7e
12 changed files with 129 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
examples/tutorial/resource-foods/FoodsEng.gf Normal file
View File

@@ -0,0 +1,27 @@
--# -path=.:../foods:present:prelude
concrete FoodsEng of Foods = open SyntaxEng,ParadigmsEng in {
lincat
Phrase = Utt ;
Item = NP ;
Kind = CN ;
Quality = AP ;
lin
Is item quality = mkUtt (mkCl item quality) ;
This kind = mkNP (mkDet this_Quant) kind ;
That kind = mkNP (mkDet that_Quant) kind ;
These kind = mkNP (mkDet (mkQuantPl this_Quant)) kind ;
Those kind = mkNP (mkDet (mkQuantPl that_Quant)) kind ;
QKind quality kind = mkCN quality kind ;
Wine = mkCN (mkN "wine") ;
Pizza = mkCN (mkN "pizza") ;
Cheese = mkCN (mkN "cheese") ;
Fish = mkCN (mkN "fish" "fish") ;
Very quality = mkAP very_AdA quality ;
Fresh = mkAP (mkA "fresh") ;
Warm = mkAP (mkA "warm") ;
Italian = mkAP (mkA "Italian") ;
Expensive = mkAP (mkA "expensive") ;
Delicious = mkAP (mkA "delicious") ;
Boring = mkAP (mkA "boring") ;
}