jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Iostream for Java

Browse source 
Added support of Iostream.printf (not fprintf)
for Java code gen.
This commit is contained in:
Gwenal Delaval 2012-09-28 15:26:01 +02:00
parent eddeb1f4de
commit 6a21e5d701
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
compiler/obc/java/obc2java.ml
View file

@ -298,10 +298,20 @@ let obj_ref param_env o = match o with
let idx_l = List.map (fun p -> pattern_to_exp param_env p) p_l in
Earray_elem (Evar id, idx_l)
let jop_of_op param_env op_name e_l =
match op_name with
| { qual = Module "Iostream"; name = "printf" } ->
Emethod_call (Eclass(Names.qualname_of_string "java.lang.System.out"),
"print",
(exp_list param_env e_l))
| _ ->
Efun (op_name, exp_list param_env e_l)
let rec act_list param_env act_l acts =
let _act act acts = match act with
| Obc.Aassgn (p,e) -> (Aassgn (pattern param_env p, exp param_env e))::acts
| Obc.Aop (op,e_l) -> Aexp (Efun (op, exp_list param_env e_l)) :: acts
| Obc.Aop (op,e_l) -> Aexp (jop_of_op param_env op e_l) :: acts
| Obc.Acall ([], obj, Mstep, e_l) ->
let acall = Emethod_call (obj_ref param_env obj, "step", exp_list param_env e_l) in
Aexp acall::acts