summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--book/examples/chapter2/foodEng.cf14
-rw-r--r--book/examples/chapter2/foodIta.cf14
-rw-r--r--book/examples/chapter4/ClothesEng.gf2
3 files changed, 29 insertions, 1 deletions
diff --git a/book/examples/chapter2/foodEng.cf b/book/examples/chapter2/foodEng.cf
new file mode 100644
index 000000000..3216f2e30
--- /dev/null
+++ b/book/examples/chapter2/foodEng.cf
@@ -0,0 +1,14 @@
+Pred. Comment ::= Item "is" Quality
+This. Item ::= "this" Kind
+That. Item ::= "that" Kind
+Mod. Kind ::= Quality Kind
+Wine. Kind ::= "wine"
+Cheese. Kind ::= "cheese"
+Fish. Kind ::= "fish"
+Very. Quality ::= "very" Quality
+Fresh. Quality ::= "fresh"
+Warm. Quality ::= "warm"
+Italian. Quality ::= "Italian"
+Expensive. Quality ::= "expensive"
+Delicious. Quality ::= "delicious"
+Boring. Quality ::= "boring"
diff --git a/book/examples/chapter2/foodIta.cf b/book/examples/chapter2/foodIta.cf
new file mode 100644
index 000000000..02b825ed0
--- /dev/null
+++ b/book/examples/chapter2/foodIta.cf
@@ -0,0 +1,14 @@
+Pred. Comment ::= Item "รจ" Quality
+This. Item ::= "questo" Kind
+That. Item ::= "quel" Kind
+Mod. Kind ::= Kind Quality
+Wine. Kind ::= "vino"
+Cheese. Kind ::= "formaggio"
+Fish. Kind ::= "pesce"
+Very. Quality ::= "molto" Quality
+Fresh. Quality ::= "fresco"
+Warm. Quality ::= "caldo"
+Italian. Quality ::= "italiano"
+Expensive. Quality ::= "caro"
+Delicious. Quality ::= "delizioso"
+Boring. Quality ::= "noioso"
diff --git a/book/examples/chapter4/ClothesEng.gf b/book/examples/chapter4/ClothesEng.gf
index d45a8ce30..c6b9a2520 100644
--- a/book/examples/chapter4/ClothesEng.gf
+++ b/book/examples/chapter4/ClothesEng.gf
@@ -6,5 +6,5 @@ concrete ClothesEng of Clothes = CommentsEng **
Shirt = mkCN (mkN "shirt") ;
Jacket = mkCN (mkN "jacket") ;
Comfortable = mkAP (mkA "comfortable") ;
- Elegant = mkAP (mkA "elega") ;
+ Elegant = mkAP (mkA "elegant") ;
}