28 lines
1.5 KiB
OCaml
28 lines
1.5 KiB
OCaml
(***********************************************************************)
|
|
(* *)
|
|
(* Caml Special Light *)
|
|
(* *)
|
|
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
|
|
(* *)
|
|
(* Copyright 1995 Institut National de Recherche en Informatique et *)
|
|
(* Automatique. Distributed only by permission. *)
|
|
(* *)
|
|
(***********************************************************************)
|
|
|
|
(* $Id$ *)
|
|
|
|
(* Module [Printexc]: a catch-all exception handler *)
|
|
|
|
val catch: ('a -> 'b) -> 'a -> 'b
|
|
(* [Printexc.catch fn x] applies [fn] to [x] and returns the result.
|
|
If the evaluation of [fn x] raises any exception, the
|
|
name of the exception is printed on standard error output,
|
|
and the programs aborts with exit code 2.
|
|
Typical use is [Printexc.catch main ()], where [main], with type
|
|
[unit->unit], is the entry point of a standalone program.
|
|
This catches and reports any exception that escapes the program. *)
|
|
|
|
val print: ('a -> 'b) -> 'a -> 'b
|
|
(* Same as [catch], but re-raise the stray exception after
|
|
printing it, instead of aborting the program. *)
|