Browse Source

[java] create directories for resources (hxjava fix required)

Dan Korostelev 11 years ago
parent
commit
55d1d0d418
1 changed files with 8 additions and 1 deletions
  1. 8 1
      genjava.ml

+ 8 - 1
genjava.ml

@@ -2132,7 +2132,14 @@ let configure gen =
     let res = ref [] in
     let res = ref [] in
     Hashtbl.iter (fun name v ->
     Hashtbl.iter (fun name v ->
       res := { eexpr = TConst(TString name); etype = gen.gcon.basic.tstring; epos = Ast.null_pos } :: !res;
       res := { eexpr = TConst(TString name); etype = gen.gcon.basic.tstring; epos = Ast.null_pos } :: !res;
-      let f = open_out (gen.gcon.file ^ "/src/" ^ name) in
+
+      let full_path = gen.gcon.file ^ "/src/" ^ name in
+      let parts = Str.split_delim (Str.regexp "[\\/]+") full_path in
+      let dir_list = List.rev (List.tl (List.rev parts)) in
+
+      Common.mkdir_recursive "" dir_list;
+
+      let f = open_out full_path in
       output_string f v;
       output_string f v;
       close_out f
       close_out f
     ) gen.gcon.resources;
     ) gen.gcon.resources;