diff options
| author | aarne <aarne@chalmers.se> | 2011-01-11 15:46:43 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-01-11 15:46:43 +0000 |
| commit | e7439d65b0e153434d3acc07df6e2a0972ee79ca (patch) | |
| tree | 36716eec18256eeb600b4a552d9cc80f8ad7f16f /book/examples/chapter8/CalculatorJ.gf | |
| parent | 276327f7f264e770478a6d8c6e683266505b0a55 (diff) | |
gf-book web page index and toc
Diffstat (limited to 'book/examples/chapter8/CalculatorJ.gf')
| -rw-r--r-- | book/examples/chapter8/CalculatorJ.gf | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/book/examples/chapter8/CalculatorJ.gf b/book/examples/chapter8/CalculatorJ.gf deleted file mode 100644 index c5f40c8d3..000000000 --- a/book/examples/chapter8/CalculatorJ.gf +++ /dev/null @@ -1,13 +0,0 @@ -concrete CalculatorJ of Calculator = open Prelude in { -lincat - Exp = SS ; -lin - EPlus = postfix "iadd" ; - EMinus = postfix "isub" ; - ETimes = postfix "imul" ; - EDiv = postfix "idiv" ; - EInt i = ss ("ldc" ++ i.s) ; -oper - postfix : Str -> SS -> SS -> SS = \op,x,y -> - ss (x.s ++ ";" ++ y.s ++ ";" ++ op) ; -} |