diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-09-02 19:53:55 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-09-02 19:53:55 +0000 |
| commit | 2ad038e20448198dce182e58ed999a6e35293ba7 (patch) | |
| tree | d946c69ea5360c693dd56b089bb62f2914770fac /examples/tutorial/resource-foods/FoodsEng.gf | |
| parent | 545bcc10ac46bd9e760b005c688f8c5199237424 (diff) | |
resource using exx revised
Diffstat (limited to 'examples/tutorial/resource-foods/FoodsEng.gf')
| -rw-r--r-- | examples/tutorial/resource-foods/FoodsEng.gf | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/examples/tutorial/resource-foods/FoodsEng.gf b/examples/tutorial/resource-foods/FoodsEng.gf new file mode 100644 index 000000000..3756b8189 --- /dev/null +++ b/examples/tutorial/resource-foods/FoodsEng.gf @@ -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") ; +} |