(************************************************************************) (* v * The Coq Proof Assistant / The Coq Development Team *) (* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2010 *) (* \VV/ **************************************************************) (* // * This file is distributed under the terms of the *) (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) (*i $Id: cerrors.mli 13431 2010-09-18 08:15:29Z herbelin $ i*) (*i*) open Pp open Util (*i*) (* Error report. *) val print_loc : loc -> std_ppcmds val explain_exn : exn -> std_ppcmds (** Precompute errors raised during vernac interpretation *) val explain_exn_no_anomaly : exn -> std_ppcmds (** Pre-explain a vernac interpretation error *) val process_vernac_interp_error : exn -> exn (** For debugging purpose (?), the explain function can be twicked *) val explain_exn_function : (exn -> std_ppcmds) ref val explain_exn_default : exn -> std_ppcmds val raise_if_debug : exn -> unit