Files
gf-core/gf-book/examples/chapter2/FoodEng.gf
2011-01-11 15:46:43 +00:00

20 lines
501 B
Plaintext

concrete FoodEng of Food = {
lincat
Comment, Item, Kind, Quality = Str ;
lin
Pred item quality = item ++ "is" ++ quality ;
This kind = "this" ++ kind ;
That kind = "that" ++ kind ;
Mod quality kind = quality ++ kind ;
Wine = "wine" ;
Cheese = "cheese" ;
Fish = "fish" ;
Very quality = "very" ++ quality ;
Fresh = "fresh" ;
Warm = "warm" ;
Italian = "Italian" ;
Expensive = "expensive" ;
Delicious = "delicious" ;
Boring = "boring" ;
}