gf-book/examples/chapter4/ComputersEng.gf


1
2
3
4
5
6
7
8
9
10

--# -path=.:present

concrete ComputersEng of Computers = CommentsEng ** 
    open SyntaxEng, ParadigmsEng in {
  lin
    Computer = mkCN (mkN "computer") ;
    HardDisk = mkCN (mkA "hard") (mkN "disk") ;
    Efficient = mkAP (mkA "efficient") ;
    Slow = mkAP (mkA "slow") ;
}