浏览代码

Add class_path as include path to hxcpp

Hugh 11 年之前
父节点
当前提交
0ab53dcbca
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      gencpp.ml

+ 1 - 0
gencpp.ml

@@ -4603,6 +4603,7 @@ let generate_source common_ctx =
 		let cmd = ref "haxelib run hxcpp Build.xml haxe" in
 		let cmd = ref "haxelib run hxcpp Build.xml haxe" in
 		if (common_ctx.debug) then cmd := !cmd ^ " -Ddebug";
 		if (common_ctx.debug) then cmd := !cmd ^ " -Ddebug";
       cmd := !cmd ^ !cmd_defines;
       cmd := !cmd ^ !cmd_defines;
+      cmd := List.fold_left (fun cmd path -> cmd ^ " -I" ^ (escape_command path) ) !cmd common_ctx.class_path;
       print_endline !cmd;
       print_endline !cmd;
 		if common_ctx.run_command !cmd <> 0 then failwith "Build failed";
 		if common_ctx.run_command !cmd <> 0 then failwith "Build failed";
 		Sys.chdir old_dir;
 		Sys.chdir old_dir;