doc/tutorial/applications/FoodCommentsEng.gf


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

--# -path=.:../resource:prelude


concrete FoodCommentsEng of FoodComments = CommentsEng ** open LexEng in {

  lin
    Wine = regN "wine" ;
    Cheese = regN "cheese" ;
    Fish = mkN "fish" "fish" ;
    Pizza = regN "pizza" ;
    Fresh = mkA "fresh" ;
    Warm = mkA "warm" ;
    Italian = mkA "Italian" ;
    Expensive = mkA "expensive" ;
    Delicious = mkA "delicious" ;
    Boring = mkA "boring" ;

}