making synopsis work for structural words, etc

This commit is contained in:
aarne
2010-12-21 23:23:20 +00:00
parent 4bab82398c
commit 27664de321
3 changed files with 29 additions and 1 deletions

View File

@@ -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"

View File

@@ -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"

View File

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