2006-06-29 01:12:46 -07:00
|
|
|
(****************************************************************************)
|
|
|
|
(* *)
|
2011-07-27 07:17:02 -07:00
|
|
|
(* OCaml *)
|
2006-06-29 01:12:46 -07:00
|
|
|
(* *)
|
|
|
|
(* INRIA Rocquencourt *)
|
|
|
|
(* *)
|
|
|
|
(* Copyright 2006 Institut National de Recherche en Informatique et *)
|
|
|
|
(* en Automatique. All rights reserved. This file is distributed under *)
|
|
|
|
(* the terms of the GNU Library General Public License, with the special *)
|
2011-07-27 07:17:02 -07:00
|
|
|
(* exception on linking described in LICENSE at the top of the OCaml *)
|
|
|
|
(* source tree. *)
|
2006-06-29 01:12:46 -07:00
|
|
|
(* *)
|
|
|
|
(****************************************************************************)
|
|
|
|
|
|
|
|
(* Authors:
|
|
|
|
* - Nicolas Pouillard: initial version
|
|
|
|
*)
|
|
|
|
value print : Format.formatter -> exn -> unit;
|
|
|
|
|
|
|
|
value try_print : Format.formatter -> exn -> unit;
|
|
|
|
|
|
|
|
value to_string : exn -> string;
|
|
|
|
|
|
|
|
value try_to_string : exn -> string;
|
|
|
|
|
|
|
|
value register : (Format.formatter -> exn -> unit) -> unit;
|
|
|
|
|
2007-02-07 02:09:29 -08:00
|
|
|
module Register (Error : Sig.Error) : sig end;
|
2006-06-29 01:12:46 -07:00
|
|
|
|
|
|
|
module ObjTools : sig
|
|
|
|
value print : Format.formatter -> Obj.t -> unit;
|
|
|
|
value print_desc : Format.formatter -> Obj.t -> unit;
|
|
|
|
(*Imported from the extlib*)
|
|
|
|
value to_string : Obj.t -> string;
|
|
|
|
value desc : Obj.t -> string;
|
|
|
|
end;
|