Explorar el Código

[java] added libs output to build file

Caue Waneck hace 13 años
padre
commit
9001aa0979
Se han modificado 2 ficheros con 8 adiciones y 1 borrados
  1. 8 0
      gencommon.ml
  2. 0 1
      genjava.ml

+ 8 - 0
gencommon.ml

@@ -971,6 +971,14 @@ let dump_descriptor gen name path_s =
   ) gen.gcon.resources;
   SourceWriter.write w "end resources";
   SourceWriter.newline w;
+  SourceWriter.write w "begin libs";
+  SourceWriter.newline w;
+  if Common.defined gen.gcon "java" then
+    List.iter (fun (s,_) ->
+      SourceWriter.write w s;
+      SourceWriter.newline w
+    ) gen.gcon.java_libs;
+  SourceWriter.write w "end libs";
   
   let contents = SourceWriter.contents w in
   let f = open_out (gen.gcon.file ^ "/" ^ name) in

+ 0 - 1
genjava.ml

@@ -2012,7 +2012,6 @@ let add_java_lib com file =
         try
           let location = (String.concat "/" (pack @ [name]) ^ ".class") in
           let entry = Zip.find_entry zip location in
-          print_endline location;
           let data = Zip.read_entry zip entry in
           Some (IO.input_string data), file, file ^ "@" ^ location
         with