1997-02-14 08:30:00 -08:00
|
|
|
(***********************************************************************)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Objective Caml *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Copyright 1997 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. *)
|
1997-02-14 08:30:00 -08:00
|
|
|
(* *)
|
|
|
|
|
(***********************************************************************)
|
|
|
|
|
|
|
|
|
|
(* $Id$ *)
|
|
|
|
|
|
|
|
|
|
(* Loading and installation of user-defined printer functions *)
|
|
|
|
|
|
2000-03-07 10:22:19 -08:00
|
|
|
open Format
|
|
|
|
|
|
|
|
|
|
val loadfile : formatter -> string -> unit
|
|
|
|
|
val install_printer : formatter -> Longident.t -> unit
|
1997-02-14 08:30:00 -08:00
|
|
|
val remove_printer : Longident.t -> unit
|
|
|
|
|
|
|
|
|
|
(* Error report *)
|
|
|
|
|
|
|
|
|
|
type error =
|
2000-03-07 10:22:19 -08:00
|
|
|
| Load_failure of Dynlink.error
|
1997-02-14 08:30:00 -08:00
|
|
|
| Unbound_identifier of Longident.t
|
|
|
|
|
| Unavailable_module of string * Longident.t
|
|
|
|
|
| Wrong_type of Longident.t
|
|
|
|
|
| No_active_printer of Longident.t
|
|
|
|
|
|
|
|
|
|
exception Error of error
|
|
|
|
|
|
2000-03-07 10:22:19 -08:00
|
|
|
val report_error: formatter -> error -> unit
|
