From 6e29fea1ab04b345ceddb88ed7e5857f94208308 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?C=C3=A9dric=20Pasteur?= <cedric.pasteur@m4x.org>
Date: Fri, 18 Jun 2010 11:01:44 +0200
Subject: [PATCH] Ported Java

It compiles and should work as before but it does
not support any of the newer features (eg arrays)
---
 minils/sequential/java.ml | 27 ++++++---------------------
 1 file changed, 6 insertions(+), 21 deletions(-)

diff --git a/minils/sequential/java.ml b/minils/sequential/java.ml
index 3f6b7ef..a56002c 100644
--- a/minils/sequential/java.ml
+++ b/minils/sequential/java.ml
@@ -8,29 +8,14 @@
 (**************************************************************************)
 (* $Id$ *)
 
-open Global
+open Signature
 open Modules
 open Format
 open Obc
 open Misc
 open Names
 open Ident
-
-let actual_type ty =
-  match ty with
-    | Tid(tn) when (shortname tn) = "float" -> Tfloat
-    | Tid(tn) when (shortname tn) = "int" -> Tint
-    | _ -> ty
-
-(******************************)
-let rec print_list ff print sep l =
-  match l with
-    | [] -> ()
-    | [x] -> print ff x
-    | x :: l ->
-        print ff x;
-        fprintf ff "%s@ " sep;
-        print_list ff print sep l
+open Pp_tools
 
 let jname_of_name name =
   let b = Buffer.create (String.length name) in
@@ -119,17 +104,17 @@ let print_assgt_field ff (name,_) =
 let print_struct_type ff tn fields =
   fprintf ff "@[<v>@[<v 2>public class %s {@ " tn;
   (* fields *)
-  print_list ff print_field "" fields;
+  print_list print_field "" "" "" ff fields;
   (* constructor *)
   let sorted_fields =
     List.sort
       (fun (n1,_) (n2,_) -> String.compare n1 n2)
       fields in
   fprintf ff "@ @[<v 2>public %s(@[<hov>" tn;
-  print_list ff print_const_field "," sorted_fields;
+  print_list print_const_field "" "," "" ff sorted_fields;
   fprintf ff "@]) {@ ";
   (* constructor assignments *)
-  print_list ff print_assgt_field "" fields;
+  print_list print_assgt_field "" "" "" ff fields;
   (* constructor end *)
   fprintf ff "@]@ }";
   (* class end *)
@@ -253,7 +238,7 @@ let rec print_exp ff e p avs ts single =
     | Lhs l -> print_lhs ff l avs single
     | Const c -> print_const ff c ts
     | Op (op, es) -> print_op ff op es p avs ts single
-    | Struct(type_name,fields) ->
+    | Struct_lit(type_name,fields) ->
         let fields =
 	        List.sort
 	          (fun (ln1,_) (ln2,_) -> String.compare (shortname ln1) (shortname ln2))