gf-book/examples/chapter4/ClothesEng.gf


1
2
3
4
5
6
7
8
9
10

--# -path=.:present

concrete ClothesEng of Clothes = CommentsEng ** 
    open SyntaxEng, ParadigmsEng in {
  lin
    Shirt = mkCN (mkN "shirt") ;
    Jacket = mkCN (mkN "jacket") ;
    Comfortable = mkAP (mkA "comfortable") ;
    Elegant = mkAP (mkA "elegant") ;
}