diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-09-03 13:54:44 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-09-03 13:54:44 +0000 |
| commit | ee9416d5232c86c7fa084f1a384d7424ca2d8fee (patch) | |
| tree | 0311bb0a71be471ec26dd1e93ca114fb4a063b56 /examples | |
| parent | 8118cc46edc4f59fbf18bb8a05bdb27e26a1c07e (diff) | |
these,those in Constructors
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/tutorial/resource-foods/FoodsEng.gf | 8 | ||||
| -rw-r--r-- | examples/tutorial/resource-foods/FoodsI.gf | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/examples/tutorial/resource-foods/FoodsEng.gf b/examples/tutorial/resource-foods/FoodsEng.gf index 3756b8189..5f3a978c3 100644 --- a/examples/tutorial/resource-foods/FoodsEng.gf +++ b/examples/tutorial/resource-foods/FoodsEng.gf @@ -8,10 +8,10 @@ concrete FoodsEng of Foods = open SyntaxEng,ParadigmsEng in { 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 ; + This kind = mkNP this_QuantSg kind ; + That kind = mkNP that_QuantSg kind ; + These kind = mkNP these_QuantPl kind ; + Those kind = mkNP those_QuantPl kind ; QKind quality kind = mkCN quality kind ; Wine = mkCN (mkN "wine") ; Pizza = mkCN (mkN "pizza") ; diff --git a/examples/tutorial/resource-foods/FoodsI.gf b/examples/tutorial/resource-foods/FoodsI.gf index da6cb9366..2ec35f5f9 100644 --- a/examples/tutorial/resource-foods/FoodsI.gf +++ b/examples/tutorial/resource-foods/FoodsI.gf @@ -8,10 +8,10 @@ incomplete concrete FoodsI of Foods = open Syntax, LexFoods in { 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 ; + This kind = mkNP this_QuantSg kind ; + That kind = mkNP that_QuantSg kind ; + These kind = mkNP these_QuantPl kind ; + Those kind = mkNP those_QuantPl kind ; QKind quality kind = mkCN quality kind ; Very quality = mkAP very_AdA quality ; |