117 lines
4.2 KiB
OCaml
117 lines
4.2 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* OCaml *)
|
|
(* *)
|
|
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
|
(* *)
|
|
(* Copyright 1996 Institut National de Recherche en Informatique et *)
|
|
(* en Automatique. *)
|
|
(* *)
|
|
(* All rights reserved. This file is distributed under the terms of *)
|
|
(* the GNU Lesser General Public License version 2.1, with the *)
|
|
(* special exception on linking described in the file LICENSE. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
open Clflags
|
|
open Compenv
|
|
|
|
let usage = "Usage: ocamlc <options> <files>\nOptions are:"
|
|
|
|
(* Error messages to standard error formatter *)
|
|
let ppf = Format.err_formatter
|
|
|
|
module Options = Main_args.Make_bytecomp_options (Main_args.Default.Main)
|
|
|
|
let main () =
|
|
Clflags.add_arguments __LOC__ Options.list;
|
|
Clflags.add_arguments __LOC__
|
|
["-depend", Arg.Unit Makedepend.main_from_option,
|
|
"<options> Compute dependencies (use 'ocamlc -depend -help' for details)"];
|
|
try
|
|
readenv ppf Before_args;
|
|
Clflags.parse_arguments anonymous usage;
|
|
Compmisc.read_clflags_from_env ();
|
|
if !Clflags.plugin then
|
|
fatal "-plugin is only supported up to OCaml 4.08.0";
|
|
begin try
|
|
Compenv.process_deferred_actions
|
|
(ppf,
|
|
Compile.implementation,
|
|
Compile.interface,
|
|
".cmo",
|
|
".cma");
|
|
with Arg.Bad msg ->
|
|
begin
|
|
prerr_endline msg;
|
|
Clflags.print_arguments usage;
|
|
exit 2
|
|
end
|
|
end;
|
|
readenv ppf Before_link;
|
|
if
|
|
List.length
|
|
(List.filter (fun x -> !x)
|
|
[make_archive;make_package;stop_early;output_c_object])
|
|
> 1
|
|
then begin
|
|
let module P = Clflags.Compiler_pass in
|
|
match !stop_after with
|
|
| None ->
|
|
fatal "Please specify at most one of -pack, -a, -c, -output-obj";
|
|
| Some ((P.Parsing | P.Typing) as p) ->
|
|
assert (P.is_compilation_pass p);
|
|
Printf.ksprintf fatal
|
|
"Options -i and -stop-after (%s) \
|
|
are incompatible with -pack, -a, -output-obj"
|
|
(String.concat "|"
|
|
(Clflags.Compiler_pass.available_pass_names ~native:false))
|
|
| Some P.Scheduling -> assert false (* native only *)
|
|
end;
|
|
if !make_archive then begin
|
|
Compmisc.init_path ();
|
|
|
|
Bytelibrarian.create_archive
|
|
(Compenv.get_objfiles ~with_ocamlparam:false)
|
|
(extract_output !output_name);
|
|
Warnings.check_fatal ();
|
|
end
|
|
else if !make_package then begin
|
|
Compmisc.init_path ();
|
|
let extracted_output = extract_output !output_name in
|
|
let revd = get_objfiles ~with_ocamlparam:false in
|
|
Compmisc.with_ppf_dump ~file_prefix:extracted_output (fun ppf_dump ->
|
|
Bytepackager.package_files ~ppf_dump (Compmisc.initial_env ())
|
|
revd (extracted_output));
|
|
Warnings.check_fatal ();
|
|
end
|
|
else if not !stop_early && !objfiles <> [] then begin
|
|
let target =
|
|
if !output_c_object && not !output_complete_executable then
|
|
let s = extract_output !output_name in
|
|
if (Filename.check_suffix s Config.ext_obj
|
|
|| Filename.check_suffix s Config.ext_dll
|
|
|| Filename.check_suffix s ".c")
|
|
then s
|
|
else
|
|
fatal
|
|
(Printf.sprintf
|
|
"The extension of the output file must be .c, %s or %s"
|
|
Config.ext_obj Config.ext_dll
|
|
)
|
|
else
|
|
default_output !output_name
|
|
in
|
|
Compmisc.init_path ();
|
|
Bytelink.link (get_objfiles ~with_ocamlparam:true) target;
|
|
Warnings.check_fatal ();
|
|
end;
|
|
with x ->
|
|
Location.report_exception ppf x;
|
|
exit 2
|
|
|
|
let () =
|
|
main ();
|
|
Profile.print Format.std_formatter !Clflags.profile_columns;
|
|
exit 0
|