summaryrefslogtreecommitdiff
path: root/doc/tutorial/resource-food
diff options
context:
space:
mode:
Diffstat (limited to 'doc/tutorial/resource-food')
-rw-r--r--doc/tutorial/resource-food/FoodEng.gf9
-rw-r--r--doc/tutorial/resource-food/FoodFre.gf6
2 files changed, 12 insertions, 3 deletions
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") ;