/usr/lib/ocaml/netsys/netexn.mli is in libocamlnet-ocaml-dev 4.0.4-1build3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | (* $Id: netexn.mli 1266 2009-09-17 13:50:26Z gerd $ *)
(** Exception registry
This module allow the user to register exceptions, and to set a
custom exception printing function. This results in nicer exception
prints when [Netexn.to_string] is called instead of [Printexc.to_string].
Generally, [Printexc.to_string] works well if:
- the exception does not have arguments, or
- all arguments are int's or string's.
In these cases it is not required to register a custom printer. Arguments
that are neither int nor string are printed as "_", however, so defining
a custom printer helps then.
The printers registered here are intended for helping debugging, so
the goal is to print all of the exception in an unambiguous way.
The syntax "Exception(arg1, arg2, ...)" is preferred.
{b Since OCaml 3.11.2 there is a similar feature in [Printexc].}
If Ocamlnet recognizes that [Printexc.register_printer] is available,
all functions registered in this module are also registered at
the central [Printexc] registry. For users it does not make a difference
then whether [Netexn.to_string] or [Printexc.to_string] is called
to print the exception. We recommend, however, to use [Netexn] as
primary registry for all code that uses Ocamlnet because this
mechanism also works for older Ocaml versions, and is slightly more
efficient.
*)
val register_printer : exn -> (exn -> string) -> unit
(** [register e f]: Register that the exception type of the sample
exception [e] is to be printed by [f].
In multi-threaded programs, this function should no longer be called
once threads have been spawned.
*)
val to_string : exn -> string
(** Prints the exception as string, using the registered printer functions,
or [Printexc.to_string] as fallback if there is no better printer
*)
|