From bb423658aa79e5cfdb5a89ec6af2f522a5bdb0cc Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 6 Jul 2007 15:37:32 +0000 Subject: new tutorial almost finished --- doc/tutorial/resource-food/FoodEng.gf | 9 +++++++++ doc/tutorial/resource-food/FoodFre.gf | 6 +++--- 2 files changed, 12 insertions(+), 3 deletions(-) create mode 100644 doc/tutorial/resource-food/FoodEng.gf (limited to 'doc/tutorial/resource-food') diff --git a/doc/tutorial/resource-food/FoodEng.gf b/doc/tutorial/resource-food/FoodEng.gf new file mode 100644 index 000000000..0fdf8235c --- /dev/null +++ b/doc/tutorial/resource-food/FoodEng.gf @@ -0,0 +1,9 @@ +--# -path=.:present:prelude + +concrete FoodEng of Food = FoodI - [Pizza] with + (Syntax = SyntaxEng), + (LexFood = LexFoodEng) ** + open SyntaxEng, ParadigmsEng in { + + lin Pizza = mkCN (mkA "Italian") (mkN "pie") ; +} diff --git a/doc/tutorial/resource-food/FoodFre.gf b/doc/tutorial/resource-food/FoodFre.gf index fe9e22a40..60b8f0dc2 100644 --- a/doc/tutorial/resource-food/FoodFre.gf +++ b/doc/tutorial/resource-food/FoodFre.gf @@ -10,9 +10,9 @@ concrete FoodFre of Food = open SyntaxFre,ParadigmsFre in { lin Is item quality = mkUtt (mkCl item quality) ; - This kind = SyntaxFre.mkNP (mkDet this_Quant) kind ; - That kind = SyntaxFre.mkNP (mkDet that_Quant) kind ; - All kind = SyntaxFre.mkNP all_Predet (SyntaxFre.mkNP defPlDet kind) ; + This kind = mkNP (mkDet this_Quant) kind ; + That kind = mkNP (mkDet that_Quant) kind ; + All kind = mkNP all_Predet (mkNP defPlDet kind) ; QKind quality kind = mkCN quality kind ; Wine = mkCN (mkN "vin") ; Beer = mkCN (mkN "bière") ; -- cgit v1.2.3