mirror of
https://git.FreeBSD.org/ports.git
synced 2025-01-26 09:46:09 +00:00
c6762e8051
- Fix devel/cil build with 3.11.0 by using proper object file name - Fix devel/deputy build with 3.11.0 by using proper object file name - Fix lang/mtasc. Ocamlp4 syntax has changed and usage of ';' as delimiters is not allowed now. - Fix usage message in lang/mtasc. - Implement a FreeBSD specific code for retriving the executable path in lang/mtasc. - Update devel/omake to 0.9.8.5. - Fix devel/omake compilation with 3.11 by dropping an unused reference from the code. - Fix www/geneweb build with 3.11 by not emitting errors for warnings. - Fix print/advi build. [2] - Update lang/cduce to 0.5.3 (this fixes build with ocaml 3.11.0). PR: ports/130845 [1] [2] (based on) Submitted by: Hirohisa Yamaguchi <umq@ueo.co.jp> [1], Tsurutani Naoki <turutani@scphys.kyoto-u.ac.jp> [2]
25 lines
1.4 KiB
Plaintext
25 lines
1.4 KiB
Plaintext
--- mtasc/main.ml.orig 2008-08-31 15:14:17.000000000 +0400
|
|
+++ mtasc/main.ml 2009-04-11 12:38:50.000000000 +0400
|
|
@@ -112,8 +112,8 @@
|
|
if do_exit then exit 1
|
|
;;
|
|
try
|
|
- let usage = "Motion-Twin ActionScript2 Compiler 1.14 - (c)2004-2008 Motion-Twin\n Usage : mtasc.exe [options] <files...>\n Options :" in
|
|
- let base_path = normalize_path (try Extc.executable_path() with _ -> ".") in
|
|
+ let usage = "Motion-Twin ActionScript2 Compiler 1.14 - (c)2004-2008 Motion-Twin\n Usage : mtasc [options] <files...>\n Options :" in
|
|
+ let base_path = normalize_path (try Extc.executable_path() ^ "/.." with _ -> "..") in
|
|
let files = ref [] in
|
|
let time = Sys.time() in
|
|
Plugin.class_path := [base_path;"";"/"];
|
|
@@ -132,8 +132,8 @@
|
|
),": use precompiled mx package");
|
|
] @ !Plugin.options in
|
|
Arg.parse args_spec (fun file -> files := file :: !files) usage;
|
|
- Plugin.class_path := (base_path ^ "std/") :: !Plugin.class_path;
|
|
- if (match !GenSwf.version with Some x -> x >= 8 | None -> false) then Plugin.class_path := (base_path ^ "std8/") :: !Plugin.class_path;
|
|
+ Plugin.class_path := (base_path ^ "share/mtasc/std/") :: !Plugin.class_path;
|
|
+ if (match !GenSwf.version with Some x -> x >= 8 | None -> false) then Plugin.class_path := (base_path ^ "share/mtasc/std8/") :: !Plugin.class_path;
|
|
Hashtbl.remove Lexer.keywords "add";
|
|
Parser.warning := (fun msg pos -> report ~do_exit:false (msg,pos) "Warning" (fun msg -> msg));
|
|
if !files = [] then begin
|