From 27664de321e4bc2679e156e9f6e9e30b442e05bd Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 21 Dec 2010 23:23:20 +0000
Subject: [PATCH] making synopsis work for structural words, etc

---
 book/examples/chapter2/foodEng.cf    | 14 ++++++++++++++
 book/examples/chapter2/foodIta.cf    | 14 ++++++++++++++
 book/examples/chapter4/ClothesEng.gf |  2 +-
 3 files changed, 29 insertions(+), 1 deletion(-)
 create mode 100644 book/examples/chapter2/foodEng.cf
 create mode 100644 book/examples/chapter2/foodIta.cf

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") ;
 }