(***********************************************************************) (* *) (* Objective Caml *) (* *) (* 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 Q Public License version 1.0. *) (* *) (***********************************************************************) (* $Id$ *) open Config open Clflags let process_interface_file ppf name = Optcompile.interface ppf name let process_implementation_file ppf name = Optcompile.implementation ppf name; objfiles := (Filename.chop_extension name ^ ".cmx") :: !objfiles let process_file ppf name = if Filename.check_suffix name ".ml" || Filename.check_suffix name ".mlt" then begin Optcompile.implementation ppf name; objfiles := (Filename.chop_extension name ^ ".cmx") :: !objfiles end else if Filename.check_suffix name !Config.interface_suffix then Optcompile.interface ppf name else if Filename.check_suffix name ".cmx" || Filename.check_suffix name ".cmxa" then objfiles := name :: !objfiles else if Filename.check_suffix name ext_obj || Filename.check_suffix name ext_lib then ccobjs := name :: !ccobjs else if Filename.check_suffix name ".c" then begin Optcompile.c_file name; ccobjs := (Filename.chop_suffix (Filename.basename name) ".c" ^ ext_obj) :: !ccobjs end else raise(Arg.Bad("don't know what to do with " ^ name)) let print_version_number () = print_string "The Objective Caml native-code compiler, version "; print_string Config.version; print_newline(); print_string "Standard library directory: "; print_string Config.standard_library; print_newline(); exit 0 let print_standard_library () = print_string Config.standard_library; print_newline(); exit 0 let usage = "Usage: ocamlopt \nOptions are:" let main () = native_code := true; c_compiler := Config.native_c_compiler; c_linker := Config.native_c_linker; let ppf = Format.err_formatter in try Arg.parse [ "-a", Arg.Set make_archive, " Build a library"; "-c", Arg.Set compile_only, " Compile only (do not link)"; "-cc", Arg.String(fun s -> c_compiler := s; c_linker := s), " Use as the C compiler and linker"; "-cclib", Arg.String(fun s -> ccobjs := s :: !ccobjs), " Pass option to the C linker"; "-ccopt", Arg.String(fun s -> ccopts := s :: !ccopts), " Pass option to the C compiler and linker"; "-compact", Arg.Clear optimize_for_speed, " Optimize code size rather than speed"; "-dllpath", Arg.String (fun s -> dllpaths := !dllpaths @ [s]), " Add to the run-time search path for shared libraries"; "-i", Arg.Set print_types, " Print the types"; "-I", Arg.String(fun dir -> include_dirs := dir :: !include_dirs), " Add to the list of include directories"; "-impl", Arg.String (process_implementation_file ppf), " Compile as a .ml file"; "-inline", Arg.Int(fun n -> inline_threshold := n * 8), " Set aggressiveness of inlining to "; "-intf", Arg.String (process_interface_file ppf), " Compile as a .mli file"; "-intf-suffix", Arg.String (fun s -> Config.interface_suffix := s), " Suffix for interface files (default: .mli)"; "-intf_suffix", Arg.String (fun s -> Config.interface_suffix := s), " (deprecated) same as -intf-suffix"; "-labels", Arg.Clear classic, " Use commuting label mode"; "-linkall", Arg.Set link_everything, " Link all modules, even unused ones"; "-noassert", Arg.Set noassert, " Don't compile assertion checks"; "-noautolink", Arg.Set no_auto_link, " Don't automatically link C libraries specified in .cma files"; "-nolabels", Arg.Set classic, " Ignore non-optional labels in types"; "-o", Arg.String(fun s -> exec_name := s; archive_name := s; object_name := s), " Set output file name to "; "-output-obj", Arg.Unit(fun () -> output_c_object := true), " Output a C object file instead of an executable"; "-p", Arg.Set gprofile, " Compile and link with profiling support for \"gprof\"\n\ \t(not supported on all platforms)"; "-pp", Arg.String(fun s -> preprocessor := Some s), " Pipe sources through preprocessor "; "-rectypes", Arg.Set recursive_types, " Allow arbitrary recursive types"; "-S", Arg.Set keep_asm_file, " Keep intermediate assembly file"; "-thread", Arg.Set thread_safe, " Use thread-safe standard library"; "-unsafe", Arg.Set fast, " No bounds checking on array and string access"; "-v", Arg.Unit print_version_number, " Print compiler version number"; "-verbose", Arg.Set verbose, " Print calls to external commands"; "-w", Arg.String (Warnings.parse_options false), " Enable or disable warnings according to :\n\ \032 A/a enable/disable all warnings\n\ \032 C/c enable/disable suspicious comment\n\ \032 D/d enable/disable deprecated features\n\ \032 F/f enable/disable partially applied function\n\ \032 L/l enable/disable labels omitted in application\n\ \032 M/m enable/disable overriden methods\n\ \032 P/p enable/disable partial match\n\ \032 S/s enable/disable non-unit statement\n\ \032 U/u enable/disable unused match case\n\ \032 V/v enable/disable hidden instance variables\n\ \032 X/x enable/disable all other warnings\n\ \032 default setting is \"Al\" (all warnings but labels enabled)"; "-warn-error" , Arg.String (Warnings.parse_options true), " Enable or disable fatal warnings according to \n\ \032 (see option -w for the list of flags)\n\ \032 default setting is a (all warnings are non-fatal)"; "-where", Arg.Unit print_standard_library, " Print location of standard library and exit"; "-nopervasives", Arg.Set nopervasives, " (undocumented)"; "-dparsetree", Arg.Set dump_parsetree, " (undocumented)"; "-drawlambda", Arg.Set dump_rawlambda, " (undocumented)"; "-dlambda", Arg.Set dump_lambda, " (undocumented)"; "-dcmm", Arg.Set dump_cmm, " (undocumented)"; "-dsel", Arg.Set dump_selection, " (undocumented)"; "-dcombine", Arg.Set dump_combine, " (undocumented)"; "-dlive", Arg.Unit(fun () -> dump_live := true; Printmach.print_live := true), " (undocumented)"; "-dspill", Arg.Set dump_spill, " (undocumented)"; "-dsplit", Arg.Set dump_split, " (undocumented)"; "-dinterf", Arg.Set dump_interf, " (undocumented)"; "-dprefer", Arg.Set dump_prefer, " (undocumented)"; "-dalloc", Arg.Set dump_regalloc, " (undocumented)"; "-dreload", Arg.Set dump_reload, " (undocumented)"; "-dscheduling", Arg.Set dump_scheduling, " (undocumented)"; "-dlinear", Arg.Set dump_linear, " (undocumented)"; "-dstartup", Arg.Set keep_startup_file, " (undocumented)"; "-", Arg.String (process_file ppf), " Treat as a file name (even if it starts with `-')" ] (process_file ppf) usage; if !make_archive then begin Optcompile.init_path(); Asmlibrarian.create_archive (List.rev !objfiles) !archive_name end else if not !compile_only && !objfiles <> [] then begin Optcompile.init_path(); Asmlink.link ppf (List.rev !objfiles) end; exit 0 with x -> Opterrors.report_error ppf x; exit 2 let _ = Printexc.catch main ()