head	1.2;
access;
symbols
	RELEASE_8_3_0:1.2
	RELEASE_9_0_0:1.2
	RELEASE_7_4_0:1.2
	RELEASE_8_2_0:1.2
	RELEASE_6_EOL:1.2
	RELEASE_8_1_0:1.2
	RELEASE_7_3_0:1.2
	RELEASE_8_0_0:1.2
	RELEASE_7_2_0:1.2
	RELEASE_7_1_0:1.1
	RELEASE_6_4_0:1.1;
locks; strict;
comment	@# @;


1.2
date	2009.04.11.13.23.04;	author stas;	state Exp;
branches;
next	1.1;

1.1
date	2008.09.06.04.26.26;	author chinsan;	state Exp;
branches;
next	;


desc
@@


1.2
log
@- Update lang/ocaml to 3.11.0. [1]
- 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]
@
text
@--- 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
@


1.1
log
@Add mtasc 1.14, motion-Twin ActionScript 2 Compiler.

PR:		ports/127130
Submitted by:	Marcin Cieslak <saper at SYSTEM.PL>
@
text
@d1 4
a4 3
--- mtasc/main.ml.orig	2008-09-06 03:09:02.176005686 +0200
+++ mtasc/main.ml	2008-09-06 03:11:37.642045225 +0200
@@@@ -113,7 +113,7 @@@@
d7 1
a7 1
 	let usage = "Motion-Twin ActionScript2 Compiler 1.14 - (c)2004-2008 Motion-Twin\n Usage : mtasc.exe [options] <files...>\n Options :" in
d9 1
@

