← Back to branch summary

~ubuntu-branches/ubuntu/lucid/mtasc/lucid

« back to all changes in this revision

Viewing changes to ocaml/mtasc/main.ml

  • Committer: Bazaar Package Importer
  • Author(s): Paul Wise
  • Date: 2007-05-23 19:17:16 UTC
  • mfrom: (1.1.1 upstream)
  • mto: This revision was merged to the branch mainline in revision 3.
  • Revision ID: james.westby@ubuntu.com-20070523191716-4lrirvywkykkzsp2
Tags: 1.13-1
http://bugs.debian.org/425530
* New upstream release (Closes: #425530)
  - drop changes to install.ml - use new Makefile instead
  - drop HelloWorld.as, mtasc.1 - included upstream
  - remove new copy of zlib when generating the tarball
* Generate a ChangeLog when creating the tarball and install it
* The Windows compiled version is updated more, watch it
* Change my email address now that I'm a Debian Developer
* Bump Standards-Version (no changes)
* Bump debhelper compatibility level
* Split all changes into quilt patches
* Place packaging in the public domain
* Install CHANGES.txt as a NEWS file and also install Future.txt
* Test-build HelloWorld.as

Show diffs side-by-side

added added

removed removed

Lines of Context:
ocaml/mtasc/main.ml
112
112
        if do_exit then exit 1
113
113
;;
114
114
try     
115
 
        let usage = "Motion-Twin ActionScript2 Compiler 1.12 - (c)2004-2005 Motion-Twin\n Usage : mtasc [options] <files...>\n Options :" in
116
 
        let base_path = "/usr/share/mtasc/" in
 
115
        let usage = "Motion-Twin ActionScript2 Compiler 1.13 - (c)2004-2007 Motion-Twin\n Usage : mtasc.exe [options] <files...>\n Options :" in
 
116
        let base_path = normalize_path (try Extc.executable_path() with _ -> ".") in
117
117
        let files = ref [] in
118
118
        let time = Sys.time() in
119
119
        Plugin.class_path := [base_path;"";"/"];
133
133
        ] @ !Plugin.options in
134
134
        Arg.parse args_spec (fun file -> files := file :: !files) usage;
135
135
        Plugin.class_path := (base_path ^ "std/") :: !Plugin.class_path;
136
 
        if !GenSwf.version = Some 8 then begin
137
 
                Plugin.class_path := (base_path ^ "std8/") :: !Plugin.class_path;
138
 
                Hashtbl.remove Lexer.keywords "add";
139
 
        end;
 
136
        if !GenSwf.version = Some 8 then Plugin.class_path := (base_path ^ "std8/") :: !Plugin.class_path;
 
137
        Hashtbl.remove Lexer.keywords "add";
140
138
        Parser.warning := (fun msg pos -> report ~do_exit:false (msg,pos) "Warning" (fun msg -> msg));
141
139
        if !files = [] then begin
142
140
                Arg.usage args_spec usage