forked from GitHub/gf-core
17 lines
447 B
Plaintext
17 lines
447 B
Plaintext
-- (c) 2009 Aarne Ranta under LGPL
|
|
|
|
abstract Foods = {
|
|
flags startcat = Comment ;
|
|
cat
|
|
Comment ; Item ; Kind ; Quality ;
|
|
fun
|
|
-- Pred : Item -> Quality -> Comment ;
|
|
-- This, That, These, Those : Kind -> Item ;
|
|
-- Mod : Quality -> Kind -> Kind ;
|
|
-- Wine, Cheese, Fish, Pizza : Kind ;
|
|
-- Very : Quality -> Quality ;
|
|
-- Fresh, Warm, Italian,
|
|
-- Expensive, Delicious, Boring : Quality ;
|
|
Expensive: Quality;
|
|
}
|