summaryrefslogtreecommitdiff
path: root/book/examples/chapter8/CalculatorC.gf
diff options
context:
space:
mode:
Diffstat (limited to 'book/examples/chapter8/CalculatorC.gf')
-rw-r--r--book/examples/chapter8/CalculatorC.gf10
1 files changed, 10 insertions, 0 deletions
diff --git a/book/examples/chapter8/CalculatorC.gf b/book/examples/chapter8/CalculatorC.gf
new file mode 100644
index 000000000..99db80530
--- /dev/null
+++ b/book/examples/chapter8/CalculatorC.gf
@@ -0,0 +1,10 @@
+concrete CalculatorC of Calculator = open Formal, Prelude in {
+lincat
+ Exp = TermPrec ;
+lin
+ EPlus = infixl 0 "+" ;
+ EMinus = infixl 0 "-" ;
+ ETimes = infixl 1 "*" ;
+ EDiv = infixl 1 "/" ;
+ EInt i = constant i.s ;
+}