1998-04-06 09:32:57 -07:00
|
|
|
(***********************************************************************)
|
|
|
|
(* *)
|
|
|
|
(* Objective Caml *)
|
|
|
|
(* *)
|
|
|
|
(* 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
|
|
|
(* *)
|
|
|
|
(***********************************************************************)
|
|
|
|
|
|
|
|
(* $Id$ *)
|
|
|
|
|
|
|
|
module Make_options (F :
|
|
|
|
sig
|
|
|
|
val _a : unit -> unit
|
|
|
|
val _c : unit -> unit
|
1998-11-06 07:39:43 -08:00
|
|
|
val _cc : string -> unit
|
1998-04-06 09:32:57 -07:00
|
|
|
val _cclib : string -> unit
|
|
|
|
val _ccopt : string -> unit
|
2005-05-09 06:39:17 -07:00
|
|
|
val _config : unit -> unit
|
1998-04-06 09:32:57 -07:00
|
|
|
val _custom : unit -> unit
|
2001-10-30 01:32:32 -08:00
|
|
|
val _dllib : string -> unit
|
2001-08-28 07:47:48 -07:00
|
|
|
val _dllpath : string -> unit
|
2003-04-03 05:59:38 -08:00
|
|
|
val _dtypes : unit -> unit
|
1998-04-06 09:32:57 -07:00
|
|
|
val _g : unit -> unit
|
|
|
|
val _i : unit -> unit
|
|
|
|
val _I : string -> unit
|
|
|
|
val _impl : string -> unit
|
|
|
|
val _intf : string -> unit
|
1998-05-27 07:10:14 -07:00
|
|
|
val _intf_suffix : string -> unit
|
2000-03-24 11:31:25 -08:00
|
|
|
val _labels : unit -> unit
|
1998-04-06 09:32:57 -07:00
|
|
|
val _linkall : unit -> unit
|
1998-04-14 07:48:34 -07:00
|
|
|
val _make_runtime : unit -> unit
|
1998-04-06 09:32:57 -07:00
|
|
|
val _noassert : unit -> unit
|
2000-03-09 01:12:28 -08:00
|
|
|
val _noautolink : unit -> unit
|
2001-09-06 01:52:32 -07:00
|
|
|
val _nolabels : unit -> unit
|
2002-02-14 07:17:11 -08:00
|
|
|
val _nostdlib : unit -> unit
|
1998-04-06 09:32:57 -07:00
|
|
|
val _o : string -> unit
|
|
|
|
val _output_obj : unit -> unit
|
2002-02-08 08:55:44 -08:00
|
|
|
val _pack : unit -> unit
|
1998-04-06 09:32:57 -07:00
|
|
|
val _pp : string -> unit
|
2002-04-18 00:27:47 -07:00
|
|
|
val _principal : unit -> unit
|
1999-11-08 15:45:01 -08:00
|
|
|
val _rectypes : unit -> unit
|
1998-04-06 09:32:57 -07:00
|
|
|
val _thread : unit -> unit
|
2003-07-17 01:38:28 -07:00
|
|
|
val _vmthread : unit -> unit
|
1998-04-06 09:32:57 -07:00
|
|
|
val _unsafe : unit -> unit
|
1998-10-02 05:40:44 -07:00
|
|
|
val _use_prims : string -> unit
|
1998-04-14 07:48:34 -07:00
|
|
|
val _use_runtime : string -> unit
|
1998-04-06 09:32:57 -07:00
|
|
|
val _v : unit -> unit
|
2002-08-01 08:18:03 -07:00
|
|
|
val _version : unit -> unit
|
1998-04-06 09:32:57 -07:00
|
|
|
val _verbose : unit -> unit
|
1998-11-05 00:01:50 -08:00
|
|
|
val _w : string -> unit
|
2000-08-23 10:13:17 -07:00
|
|
|
val _warn_error : string -> unit
|
2000-11-07 06:41:12 -08:00
|
|
|
val _where : unit -> unit
|
2000-08-23 10:13:17 -07:00
|
|
|
|
1998-04-06 09:32:57 -07:00
|
|
|
val _nopervasives : unit -> unit
|
1999-09-08 10:42:13 -07:00
|
|
|
val _dparsetree : unit -> unit
|
1998-04-06 09:32:57 -07:00
|
|
|
val _drawlambda : unit -> unit
|
|
|
|
val _dlambda : unit -> unit
|
|
|
|
val _dinstr : unit -> unit
|
|
|
|
val anonymous : string -> unit
|
|
|
|
end) :
|
|
|
|
sig
|
|
|
|
val list : (string * Arg.spec * string) list
|
|
|
|
end
|