|
@@ -2132,7 +2132,14 @@ let configure gen =
|
|
|
let res = ref [] in
|
|
|
Hashtbl.iter (fun name v ->
|
|
|
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;
|
|
|
close_out f
|
|
|
) gen.gcon.resources;
|