소스 검색

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