1998-04-06 09:32:57 -07:00
|
|
|
(***********************************************************************)
|
|
|
|
(* *)
|
2011-07-27 07:17:02 -07:00
|
|
|
(* OCaml *)
|
1998-04-06 09:32:57 -07:00
|
|
|
(* *)
|
|
|
|
(* Damien Doligez, projet Para, INRIA Rocquencourt *)
|
|
|
|
(* *)
|
|
|
|
(* Copyright 1998 Institut National de Recherche en Informatique et *)
|
1999-11-17 10:59:06 -08:00
|
|
|
(* en Automatique. All rights reserved. This file is distributed *)
|
|
|
|
(* under the terms of the Q Public License version 1.0. *)
|
1998-04-06 09:32:57 -07:00
|
|
|
(* *)
|
|
|
|
(***********************************************************************)
|
|
|
|
|
2010-04-13 03:44:25 -07:00
|
|
|
module type Bytecomp_options =
|
1998-04-06 09:32:57 -07:00
|
|
|
sig
|
2010-04-13 03:44:25 -07:00
|
|
|
val _a : unit -> unit
|
2011-12-20 02:35:43 -08:00
|
|
|
val _absname : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _annot : unit -> unit
|
2012-05-30 07:52:37 -07:00
|
|
|
val _binannot : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _c : unit -> unit
|
|
|
|
val _cc : string -> unit
|
|
|
|
val _cclib : string -> unit
|
|
|
|
val _ccopt : string -> unit
|
|
|
|
val _config : unit -> unit
|
|
|
|
val _custom : unit -> unit
|
|
|
|
val _dllib : string -> unit
|
|
|
|
val _dllpath : string -> unit
|
|
|
|
val _g : unit -> unit
|
|
|
|
val _i : unit -> unit
|
|
|
|
val _I : string -> unit
|
|
|
|
val _impl : string -> unit
|
|
|
|
val _intf : string -> unit
|
|
|
|
val _intf_suffix : string -> unit
|
|
|
|
val _labels : unit -> unit
|
|
|
|
val _linkall : unit -> unit
|
|
|
|
val _make_runtime : unit -> unit
|
|
|
|
val _no_app_funct : unit -> unit
|
|
|
|
val _noassert : unit -> unit
|
|
|
|
val _noautolink : unit -> unit
|
|
|
|
val _nolabels : unit -> unit
|
|
|
|
val _nostdlib : unit -> unit
|
|
|
|
val _o : string -> unit
|
|
|
|
val _output_obj : unit -> unit
|
|
|
|
val _pack : unit -> unit
|
|
|
|
val _pp : string -> unit
|
2012-06-13 01:00:27 -07:00
|
|
|
val _ppx : string -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _principal : unit -> unit
|
|
|
|
val _rectypes : unit -> unit
|
2011-03-17 09:18:05 -07:00
|
|
|
val _runtime_variant : string -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _strict_sequence : unit -> unit
|
|
|
|
val _thread : unit -> unit
|
|
|
|
val _vmthread : unit -> unit
|
|
|
|
val _unsafe : unit -> unit
|
|
|
|
val _use_runtime : string -> unit
|
|
|
|
val _v : unit -> unit
|
|
|
|
val _version : unit -> unit
|
2010-05-20 07:06:29 -07:00
|
|
|
val _vnum : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _verbose : unit -> unit
|
|
|
|
val _w : string -> unit
|
|
|
|
val _warn_error : string -> unit
|
2010-05-08 13:11:27 -07:00
|
|
|
val _warn_help : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _where : unit -> unit
|
|
|
|
|
|
|
|
val _nopervasives : unit -> unit
|
|
|
|
val _use_prims : string -> unit
|
2012-10-17 09:09:38 -07:00
|
|
|
val _dsource : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _dparsetree : unit -> unit
|
2012-12-18 09:19:53 -08:00
|
|
|
val _dtypedtree : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _drawlambda : unit -> unit
|
|
|
|
val _dlambda : unit -> unit
|
|
|
|
val _dinstr : unit -> unit
|
|
|
|
|
|
|
|
val anonymous : string -> unit
|
1998-04-06 09:32:57 -07:00
|
|
|
end
|
2010-04-13 03:44:25 -07:00
|
|
|
;;
|
|
|
|
|
|
|
|
module type Bytetop_options = sig
|
2011-12-20 02:35:43 -08:00
|
|
|
val _absname : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _I : string -> unit
|
|
|
|
val _init : string -> unit
|
|
|
|
val _labels : unit -> unit
|
|
|
|
val _no_app_funct : unit -> unit
|
|
|
|
val _noassert : unit -> unit
|
|
|
|
val _nolabels : unit -> unit
|
|
|
|
val _noprompt : unit -> unit
|
2012-01-27 04:48:15 -08:00
|
|
|
val _nopromptcont : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _nostdlib : unit -> unit
|
2013-01-25 01:12:31 -08:00
|
|
|
val _ppx : string -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _principal : unit -> unit
|
|
|
|
val _rectypes : unit -> unit
|
2011-12-30 08:28:16 -08:00
|
|
|
val _stdin : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _strict_sequence : unit -> unit
|
|
|
|
val _unsafe : unit -> unit
|
|
|
|
val _version : unit -> unit
|
2010-05-20 07:06:29 -07:00
|
|
|
val _vnum : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _w : string -> unit
|
|
|
|
val _warn_error : string -> unit
|
2010-05-08 13:11:27 -07:00
|
|
|
val _warn_help : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
|
2012-10-17 09:09:38 -07:00
|
|
|
val _dsource : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _dparsetree : unit -> unit
|
2012-12-18 09:19:53 -08:00
|
|
|
val _dtypedtree : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _drawlambda : unit -> unit
|
|
|
|
val _dlambda : unit -> unit
|
|
|
|
val _dinstr : unit -> unit
|
|
|
|
|
|
|
|
val anonymous : string -> unit
|
|
|
|
end;;
|
|
|
|
|
|
|
|
module type Optcomp_options = sig
|
|
|
|
val _a : unit -> unit
|
2011-12-20 02:35:43 -08:00
|
|
|
val _absname : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _annot : unit -> unit
|
2012-05-30 07:52:37 -07:00
|
|
|
val _binannot : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _c : unit -> unit
|
|
|
|
val _cc : string -> unit
|
|
|
|
val _cclib : string -> unit
|
|
|
|
val _ccopt : string -> unit
|
|
|
|
val _compact : unit -> unit
|
|
|
|
val _config : unit -> unit
|
|
|
|
val _for_pack : string -> unit
|
|
|
|
val _g : unit -> unit
|
|
|
|
val _i : unit -> unit
|
|
|
|
val _I : string -> unit
|
|
|
|
val _impl : string -> unit
|
|
|
|
val _inline : int -> unit
|
|
|
|
val _intf : string -> unit
|
|
|
|
val _intf_suffix : string -> unit
|
|
|
|
val _labels : unit -> unit
|
|
|
|
val _linkall : unit -> unit
|
|
|
|
val _no_app_funct : unit -> unit
|
|
|
|
val _noassert : unit -> unit
|
|
|
|
val _noautolink : unit -> unit
|
|
|
|
val _nodynlink : unit -> unit
|
|
|
|
val _nolabels : unit -> unit
|
|
|
|
val _nostdlib : unit -> unit
|
|
|
|
val _o : string -> unit
|
|
|
|
val _output_obj : unit -> unit
|
|
|
|
val _p : unit -> unit
|
|
|
|
val _pack : unit -> unit
|
|
|
|
val _pp : string -> unit
|
2012-06-13 01:00:27 -07:00
|
|
|
val _ppx : string -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _principal : unit -> unit
|
|
|
|
val _rectypes : unit -> unit
|
2011-03-17 09:18:05 -07:00
|
|
|
val _runtime_variant : string -> unit
|
2011-07-21 02:45:24 -07:00
|
|
|
val _S : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _strict_sequence : unit -> unit
|
|
|
|
val _shared : unit -> unit
|
|
|
|
val _thread : unit -> unit
|
|
|
|
val _unsafe : unit -> unit
|
|
|
|
val _v : unit -> unit
|
|
|
|
val _version : unit -> unit
|
2010-05-20 07:06:29 -07:00
|
|
|
val _vnum : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _verbose : unit -> unit
|
|
|
|
val _w : string -> unit
|
|
|
|
val _warn_error : string -> unit
|
2010-05-08 13:11:27 -07:00
|
|
|
val _warn_help : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _where : unit -> unit
|
|
|
|
|
|
|
|
val _nopervasives : unit -> unit
|
2012-10-17 09:09:38 -07:00
|
|
|
val _dsource : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _dparsetree : unit -> unit
|
2012-12-18 09:19:53 -08:00
|
|
|
val _dtypedtree : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _drawlambda : unit -> unit
|
|
|
|
val _dlambda : unit -> unit
|
2012-02-21 09:41:02 -08:00
|
|
|
val _dclambda : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _dcmm : unit -> unit
|
|
|
|
val _dsel : unit -> unit
|
|
|
|
val _dcombine : unit -> unit
|
|
|
|
val _dlive : unit -> unit
|
|
|
|
val _dspill : unit -> unit
|
|
|
|
val _dsplit : unit -> unit
|
|
|
|
val _dinterf : unit -> unit
|
|
|
|
val _dprefer : unit -> unit
|
|
|
|
val _dalloc : unit -> unit
|
|
|
|
val _dreload : unit -> unit
|
|
|
|
val _dscheduling : unit -> unit
|
|
|
|
val _dlinear : unit -> unit
|
|
|
|
val _dstartup : unit -> unit
|
|
|
|
|
|
|
|
val anonymous : string -> unit
|
|
|
|
end;;
|
|
|
|
|
|
|
|
module type Opttop_options = sig
|
2011-12-20 02:35:43 -08:00
|
|
|
val _absname : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _compact : unit -> unit
|
|
|
|
val _I : string -> unit
|
|
|
|
val _init : string -> unit
|
|
|
|
val _inline : int -> unit
|
|
|
|
val _labels : unit -> unit
|
|
|
|
val _no_app_funct : unit -> unit
|
|
|
|
val _noassert : unit -> unit
|
|
|
|
val _nolabels : unit -> unit
|
|
|
|
val _noprompt : unit -> unit
|
2012-01-27 04:48:15 -08:00
|
|
|
val _nopromptcont : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _nostdlib : unit -> unit
|
2013-01-25 01:12:31 -08:00
|
|
|
val _ppx : string -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _principal : unit -> unit
|
|
|
|
val _rectypes : unit -> unit
|
|
|
|
val _S : unit -> unit
|
2011-12-30 08:28:16 -08:00
|
|
|
val _stdin : unit -> unit
|
2011-07-21 02:45:24 -07:00
|
|
|
val _strict_sequence : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _unsafe : unit -> unit
|
|
|
|
val _version : unit -> unit
|
2010-05-20 07:06:29 -07:00
|
|
|
val _vnum : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _w : string -> unit
|
|
|
|
val _warn_error : string -> unit
|
2010-05-08 13:11:27 -07:00
|
|
|
val _warn_help : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
|
2012-10-17 09:09:38 -07:00
|
|
|
val _dsource : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _dparsetree : unit -> unit
|
2012-12-18 09:19:53 -08:00
|
|
|
val _dtypedtree : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _drawlambda : unit -> unit
|
|
|
|
val _dlambda : unit -> unit
|
2012-02-21 09:41:02 -08:00
|
|
|
val _dclambda : unit -> unit
|
2010-04-13 03:44:25 -07:00
|
|
|
val _dcmm : unit -> unit
|
|
|
|
val _dsel : unit -> unit
|
|
|
|
val _dcombine : unit -> unit
|
|
|
|
val _dlive : unit -> unit
|
|
|
|
val _dspill : unit -> unit
|
|
|
|
val _dsplit : unit -> unit
|
|
|
|
val _dinterf : unit -> unit
|
|
|
|
val _dprefer : unit -> unit
|
|
|
|
val _dalloc : unit -> unit
|
|
|
|
val _dreload : unit -> unit
|
|
|
|
val _dscheduling : unit -> unit
|
|
|
|
val _dlinear : unit -> unit
|
|
|
|
val _dstartup : unit -> unit
|
|
|
|
|
|
|
|
val anonymous : string -> unit
|
|
|
|
end;;
|
|
|
|
|
|
|
|
module type Arg_list = sig
|
|
|
|
val list : (string * Arg.spec * string) list
|
|
|
|
end;;
|
|
|
|
|
|
|
|
module Make_bytecomp_options (F : Bytecomp_options) : Arg_list;;
|
|
|
|
module Make_bytetop_options (F : Bytetop_options) : Arg_list;;
|
|
|
|
module Make_optcomp_options (F : Optcomp_options) : Arg_list;;
|
|
|
|
module Make_opttop_options (F : Opttop_options) : Arg_list;;
|