Răsfoiți Sursa

define haxe_(version)

Nicolas Cannasse 19 ani în urmă
părinte
comite
f7b1886b2d
1 a modificat fișierele cu 4 adăugiri și 1 ștergeri
  1. 4 1
      main.ml

+ 4 - 1
main.ml

@@ -120,7 +120,9 @@ let rec process_params acc = function
 
 and init params =
 try	
-	let usage = "Haxe Compiler 1.08 - (c)2005-2006 Motion-Twin\n Usage : haxe.exe [options] <class names...>\n Options :" in
+	let version = 109 in
+	let version_str = Printf.sprintf "%d.%.2d" (version / 100) (version mod 100) in
+	let usage = "Haxe Compiler " ^ version_str ^ " - (c)2005-2006 Motion-Twin\n Usage : haxe.exe [options] <class names...>\n Options :" in
 	let classes = ref [([],"Std")] in
 	let target = ref No in
 	let swf_in = ref None in
@@ -134,6 +136,7 @@ try
 	let libs = ref [] in	
 	let gen_hx = ref false in
 	Plugin.defines := base_defines;
+	Plugin.define ("haxe_" ^ string_of_int version);
 	Typer.check_override := false;
 	Typer.forbidden_packages := ["js"; "neko"; "flash"];
 	Parser.display_error := parse_error;