gf-book/examples/chapter2/Food.gf


1
2
3
4
5
6
7
8
9
10
11
12
13

abstract Food = {
  flags startcat = Comment ;
  cat
    Comment ; Item ; Kind ; Quality ; 
  fun
    Pred : Item -> Quality -> Comment ;
    This, That : Kind -> Item ;
    Mod : Quality -> Kind -> Kind ;
    Wine, Cheese, Fish : Kind ;
    Very : Quality -> Quality ;
    Fresh, Warm, Italian, 
      Expensive, Delicious, Boring : Quality ;
}