gf-book/examples/chapter4/FoodsEng.gf


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

--# -path=.:present

concrete FoodsEng of Foods = CommentsEng ** 
    open SyntaxEng, ParadigmsEng in {
  lin
    Wine = mkCN (mkN "wine") ;
    Pizza = mkCN (mkN "pizza") ;
    Cheese = mkCN (mkN "cheese") ;
    Fish = mkCN (mkN "fish" "fish") ;
    Fresh = mkAP (mkA "fresh") ;
    Warm = mkAP (mkA "warm") ;
    Italian = mkAP (mkA "Italian") ;
    Expensive = mkAP (mkA "expensive") ;
    Delicious = mkAP (mkA "delicious") ;
    Boring = mkAP (mkA "boring") ;
}