浏览代码

added nekovm command.

Nicolas Cannasse 20 年之前
父节点
当前提交
67bc345a19
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      genneko.ml

+ 2 - 1
genneko.ml

@@ -351,7 +351,8 @@ let generate file types =
 	let neko_file = Filename.chop_extension file ^ ".neko" in
 	let ch = IO.output_channel (open_out neko_file) in
 	Nxml.write ch (Nxml.to_xml e);
-	IO.close_out ch
+	IO.close_out ch;
+	if Sys.command ("nekovm neko " ^ neko_file) = 0 && not (!Plugin.verbose) then Sys.remove neko_file
 
 ;;
 Nast.do_escape := false