Browse Source

removed --no-flash-opt-args , fixed commandline.

Nicolas Cannasse 19 years ago
parent
commit
a503d26ff2
1 changed files with 2 additions and 5 deletions
  1. 2 5
      main.ml

+ 2 - 5
main.ml

@@ -228,7 +228,6 @@ try
 			cmds := cmd :: !cmds
 		),": run the specified command after successful compilation");
 		("--flash-strict", define "flash_strict", ": more type strict flash API");
-		("--no-flash-opt-args", define "no_flash_opt_args" , ": don't allow optional parameters for flash api");
 		("--no-traces", define "no_traces", ": don't compile trace calls in the program");
 		("--flash-use-stage", define "flash_use_stage", ": place objects found on the stage of the SWF lib");
 		("--next", Arg.Unit (fun() -> assert false), ": separate several haxe compilations");
@@ -281,10 +280,7 @@ try
 		Plugin.define "js";
 	);
 	if !classes = [([],"Std")] then begin
-		if !cmds = [] then begin
-			(*Arg.usage args_spec usage;*)
-			prerr_endline (String.concat "#" params);
-		end
+		if !cmds = [] then Arg.usage args_spec usage;
 	end else begin
 		if !Plugin.verbose then print_endline ("Classpath : " ^ (String.concat ";" !Plugin.class_path));
 		let ctx = Typer.context type_error warn in
@@ -322,6 +318,7 @@ with
 	| Parser.Error (m,p) -> report (Parser.error_msg m) p
 	| Typer.Error (m,p) -> report (Typer.error_msg m) p
 	| Failure msg | Arg.Bad msg -> report ("Error : " ^ msg) Ast.null_pos
+	| Arg.Help msg -> print_string msg
 	| Hxml_found -> ()
 	| e -> report (Printexc.to_string e) Ast.null_pos