C compiler

examples/gfcc/ImperJVM.gf

@@ -0,0 +1,30 @@
+--# -path=.:../prelude
+
+concrete ImperJVM of Imper = open Prelude, Precedence, ResImper in {
+
+flags lexer=codevars ; unlexer=code ; startcat=Stm ;
+  lincat
+    Stm = SS ;
+    Typ = SS ;
+    Exp = SS ;
+    Var = SS ;
+
+  lin
+    Decl  typ cont = ss [] ; ----
+    Assign t x exp = statement (exp.s ++ t.s ++ "_store" ++ x.s) ;
+    Return t exp   = statement (exp.s ++ t.s ++ "_return") ;
+    While exp loop = statement ("TEST:" ++ exp.s ++ "ifzero_goto" ++
+    "END" ++ ";" ++ loop.s ++ "END") ;
+    Block stm      = stm ;
+    Next stm cont  = ss (stm.s ++ cont.s) ;      
+
+    EVar  t x  = statement (t.s ++ "_load" ++ x.s) ;
+    EInt    n  = statement ("i_push" ++ n.s) ;
+    EFloat a b = statement ("f_push" ++ a.s ++ "." ++ b.s) ;
+    EAddI  x y = statement (x.s ++ y.s ++ "iadd") ;
+    EAddF  x y = statement (x.s ++ y.s ++ "fadd") ;
+
+    TInt       = ss "i" ;
+    TFloat     = ss "f" ;
+
+}