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

Java main pretty print

Browse Source
master
Léonard Gérard 13 years ago
parent 9714cf0be9
commit 0fc0c3ba5b
3 changed files with 158 additions and 125 deletions
Show Stats Download Patch File Download Diff File

1
compiler/global/signature.ml
Unescape Escape View File

@ -72,3 +72,4 @@ let rec field_assoc f = function
else field_assoc f l else field_assoc f l

23
compiler/obc/java/java_main.ml
Unescape Escape View File

@ -1,7 +1,9 @@
open Misc open Misc
open Signature
open Java open Java
open Java_printer open Java_printer
(** returns the vd and the pat of a fresh ident from [name] *) (** returns the vd and the pat of a fresh ident from [name] *)
let mk_var ty name = let mk_var ty name =
let id = Idents.gen_var "java_main" name in let id = Idents.gen_var "java_main" name in
@ -28,24 +30,31 @@ let program p =
let vd_step, pat_step = mk_var Tint "step" in let vd_step, pat_step = mk_var Tint "step" in
let vd_args, pat_args = mk_var (Tarray (Tclass (Names.pervasives_qn "String"), (Sint 0))) "args" in let vd_args, pat_args = mk_var (Tarray (Tclass (Names.pervasives_qn "String"), (Sint 0))) "args" in
let body = let body =
let vd_main, e_main, q_main = let vd_main, e_main, q_main, ty_main =
let q_main = !Compiler_options.simulation_node |> Modules.qualify_value |> Obc2java.qualname_to_package_classe let q_main = !Compiler_options.simulation_node |> Modules.qualify_value in (*qual*)
in let id = Idents.gen_var "java_main" "main" in let ty_main = (Modules.find_value q_main).node_outputs |> types_of_arg_list |> Types.prod in
mk_var_dec id (Tclass q_main), Eval (Pvar id), q_main let q_main = Obc2java.qualname_to_package_classe q_main in (*java qual*)
let id = Idents.gen_var "java_main" "main" in
mk_var_dec id (Tclass q_main), Eval (Pvar id), q_main, ty_main
in in
let acts = let acts =
let integer = Eval(Pclass(Names.pervasives_qn "Integer")) in let integer = Eval(Pclass(Names.pervasives_qn "Integer")) in
let args1 = Eval(Parray_elem(pat_args, Sint 1)) in let args1 = Eval(Parray_elem(pat_args, Sint 1)) in
let out = Eval(Pclass(Names.qualname_of_string "java.lang.System.out")) in let out = Eval(Pclass(Names.qualname_of_string "java.lang.System.out")) in
let jarrays = Eval(Pclass(Names.qualname_of_string "java.util.Arrays")) in
let ret = Emethod_call(e_main, "step", []) in
let print_ret = match ty_main with
| Types.Tarray (Types.Tarray _, _) -> Emethod_call(jarrays, "deepToString", [ret])
| Types.Tarray _ -> Emethod_call(jarrays, "toString", [ret])
| _ -> Emethod_call(ret, "toString", [])
in
[ Anewvar(vd_main, Enew (Tclass q_main, [])); [ Anewvar(vd_main, Enew (Tclass q_main, []));
Aifelse( Efun(Names.pervasives_qn ">", [Eval (Pfield (pat_args, "length")); Sint 1]) Aifelse( Efun(Names.pervasives_qn ">", [Eval (Pfield (pat_args, "length")); Sint 1])
, mk_block [Aassgn(pat_step, Emethod_call(integer, "parseInt", [args1]))] , mk_block [Aassgn(pat_step, Emethod_call(integer, "parseInt", [args1]))]
, mk_block [Aassgn(pat_step, Eval (Pvar id_step_dnb))]); , mk_block [Aassgn(pat_step, Eval (Pvar id_step_dnb))]);
Obc2java.fresh_for (Eval pat_step) Obc2java.fresh_for (Eval pat_step)
(fun i -> (fun i ->
[ Amethod_call(out, "printf", [ Sstring "%d => %s\\n"; [ Amethod_call(out, "printf", [ Sstring "%d => %s\\n"; Eval (Pvar i); print_ret]) ]
Eval (Pvar i);
Emethod_call(Emethod_call(e_main, "step", []), "toString", [])])]
) )
] ]
in in

259
lib/java/jeptagon/Pervasives.java
Unescape Escape View File

@ -13,124 +13,147 @@ public class Pervasives {
else return i; else return i;
} }
public static final ExecutorService executor_cached = Executors.newCachedThreadPool(); public static final ExecutorService executor_cached = Executors.newCachedThreadPool();
public static class StaticFuture<V> implements Future<V> { public static class StaticFuture<V> implements Future<V> {
V v; V v;
public StaticFuture(V v) { this.v = v; } public StaticFuture(V v) { this.v = v; }
public boolean cancel(boolean mayInterruptIfRunning) { return false; } public boolean cancel(boolean mayInterruptIfRunning) { return false; }
public boolean isCancelled() { return false; } public boolean isCancelled() { return false; }
public boolean isDone() { return true; } public boolean isDone() { return true; }
public V get() { return v; } public V get() { return v; }
public V get(long timeout, TimeUnit unit) { return v; } public V get(long timeout, TimeUnit unit) { return v; }
} }
public static class Tuple1 { public static class Tuple1 {
public final Object c0; public final Object c0;
public Tuple1(Object v) { public Tuple1(Object v) {
c0 = v; c0 = v;
} }
} }
public static class Tuple2 { public static class Tuple2 {
public final Object c0; public final Object c0;
public final Object c1; public final Object c1;
public Tuple2(Object v0, Object v1) { public Tuple2(Object v0, Object v1) {
c0 = v0; c0 = v0;
c1 = v1; c1 = v1;
} }
} public String toString() {
return "(" + c0.toString() + ", " + c1.toString() + ")";
public static class Tuple3 { }
public final Object c0; }
public final Object c1;
public final Object c2; public static class Tuple3 {
public Tuple3(Object v0, Object v1, Object v2) { public final Object c0;
c0 = v0; public final Object c1;
c1 = v1; public final Object c2;
c2 = v2; public Tuple3(Object v0, Object v1, Object v2) {
} c0 = v0;
} c1 = v1;
c2 = v2;
public static class Tuple4 { }
public final Object c0; public String toString() {
public final Object c1; return "(" + c0.toString() + ", " + c1.toString() + ", " + c2.toString() + ")";
public final Object c2; }
public final Object c3; }
public Tuple4(Object v0, Object v1, Object v2, Object v3) {
c0 = v0; public static class Tuple4 {
c1 = v1; public final Object c0;
c2 = v2; public final Object c1;
c3 = v3; public final Object c2;
} public final Object c3;
} public Tuple4(Object v0, Object v1, Object v2, Object v3) {
c0 = v0;
public static class Tuple5 { c1 = v1;
public final Object c0; c2 = v2;
public final Object c1; c3 = v3;
public final Object c2; }
public final Object c3; public String toString() {
public final Object c4; return "(" + c0.toString() + ", " + c1.toString()
public Tuple5(Object v0, Object v1, Object v2, Object v3, Object v4) { + ", " + c2.toString() + ", " + c3.toString() + ")";
c0 = v0; }
c1 = v1; }
c2 = v2;
c3 = v3; public static class Tuple5 {
c4 = v4; public final Object c0;
} public final Object c1;
} public final Object c2;
public final Object c3;
public static class Tuple6 { public final Object c4;
public final Object c0; public Tuple5(Object v0, Object v1, Object v2, Object v3, Object v4) {
public final Object c1; c0 = v0;
public final Object c2; c1 = v1;
public final Object c3; c2 = v2;
public final Object c4; c3 = v3;
public final Object c5; c4 = v4;
public Tuple6(Object v0, Object v1, Object v2, Object v3, Object v4, Object v5) { }
c0 = v0; public String toString() {
c1 = v1; return "(" + c0.toString() + ", " + c1.toString() + ", " + c2.toString()
c2 = v2; + ", " + c3.toString() + ", " + c4.toString() + ")";
c3 = v3; }
c4 = v4; }
c5 = v5;
} public static class Tuple6 {
} public final Object c0;
public final Object c1;
public static class Tuple7 { public final Object c2;
public final Object c0; public final Object c3;
public final Object c1; public final Object c4;
public final Object c2; public final Object c5;
public final Object c3; public Tuple6(Object v0, Object v1, Object v2, Object v3, Object v4, Object v5) {
public final Object c4; c0 = v0;
public final Object c5; c1 = v1;
public final Object c6; c2 = v2;
public Tuple7(Object v0, Object v1, Object v2, Object v3, Object v4, Object v5, Object v6) { c3 = v3;
c0 = v0; c4 = v4;
c1 = v1; c5 = v5;
c2 = v2; }
c3 = v3; public String toString() {
c4 = v4; return "(" + c0.toString() + ", " + c1.toString() + ", " + c2.toString()
c5 = v5; + ", " + c3.toString() + ", " + c4.toString() + ", " + c5.toString() + ")";
c6 = v6; }
} }
}
public static class Tuple7 {
public static int do_stuff(int coeff) { public final Object c0;
int x = 13; public final Object c1;
for (int i = 0; i < coeff; i++) { public final Object c2;
for (int j = 0; j < 1000000; j++) { public final Object c3;
x = (x + j) % (x + j/x) + 13; public final Object c4;
} public final Object c5;
} public final Object c6;
return x; public Tuple7(Object v0, Object v1, Object v2, Object v3, Object v4, Object v5, Object v6) {
} c0 = v0;
c1 = v1;
c2 = v2;
c3 = v3;
c4 = v4;
c5 = v5;
c6 = v6;
}
public String toString() {
return "(" + c0.toString() + ", " + c1.toString() + ", " + c2.toString()
+ ", " + c3.toString() + ", " + c4.toString() + ", " + c5.toString()
+ ", " + c6.toString() + ")";
}
}
public static int do_stuff(int coeff) {
int x = 13;
for (int i = 0; i < coeff; i++) {
for (int j = 0; j < 1000000; j++) {
x = (x + j) % (x + j/x) + 13;
}
}
return x;
}
} }

Write Preview
Loading…
Cancel
Save