summaryrefslogtreecommitdiff
path: root/old-examples/tutorial/calculator/CalculatorC.gf
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
commite9e80fc389365e24d4300d7d5390c7d833a96c50 (patch)
treef0b58473adaa670bd8fc52ada419d8cad470ee03 /old-examples/tutorial/calculator/CalculatorC.gf
parentb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff)
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'old-examples/tutorial/calculator/CalculatorC.gf')
-rw-r--r--old-examples/tutorial/calculator/CalculatorC.gf24
1 files changed, 24 insertions, 0 deletions
diff --git a/old-examples/tutorial/calculator/CalculatorC.gf b/old-examples/tutorial/calculator/CalculatorC.gf
new file mode 100644
index 000000000..53eade357
--- /dev/null
+++ b/old-examples/tutorial/calculator/CalculatorC.gf
@@ -0,0 +1,24 @@
+--# -path=.:prelude
+
+concrete CalculatorC of Calculator = open Prelude, Formal in {
+
+ flags lexer=codevars ; unlexer=code ;
+
+ lincat
+ Prog, Var = SS ;
+ Exp = TermPrec ;
+
+ lin
+ PEmpty = ss [] ;
+ PInit exp prog = ss ("int" ++ prog.$0 ++ "=" ++ top exp ++ ";" ++ prog.s) ;
+ PAss vr exp prog = ss (vr.s ++ "=" ++ top exp ++ ";" ++ prog.s) ;
+
+ EPlus = infixl 0 "+" ;
+ EMinus = infixl 0 "-" ;
+ ETimes = infixl 1 "*" ;
+ EDiv = infixl 1 "/" ;
+
+ EInt i = constant i.s ;
+ EVar x = constant x.s ;
+
+}