https://github.com/EasyCrypt/easycrypt
Tip revision: 846710a2a656834065e745d19416ebdc83158f55 authored by Benjamin Gregoire on 14 July 2019, 06:50:07 UTC
Start restructuration of the code to be able to avant mutual dependency between type and mpath
Start restructuration of the code to be able to avant mutual dependency between type and mpath
Tip revision: 846710a
ecPException.ml
(* --------------------------------------------------------------------
* Copyright (c) - 2012--2016 - IMDEA Software Institute
* Copyright (c) - 2012--2018 - Inria
* Copyright (c) - 2012--2018 - Ecole Polytechnique
*
* Distributed under the terms of the CeCILL-C-V1 license
* -------------------------------------------------------------------- *)
(* -------------------------------------------------------------------- *)
type exn_printer = Format.formatter -> exn -> unit
(* -------------------------------------------------------------------- *)
let exn_printers = (Stack.create () : exn_printer Stack.t)
(* -------------------------------------------------------------------- *)
let core_printer fmt exn =
Format.fprintf fmt "anomaly: %s, please report to: @\n@." (Printexc.to_string exn);
Format.fprintf fmt "anomaly: \t%s@\n@." EcVersion.url
(* -------------------------------------------------------------------- *)
let () = Stack.push core_printer exn_printers
(* -------------------------------------------------------------------- *)
let register ppexn = Stack.push ppexn exn_printers
let () = register Why3.Exn_printer.exn_printer
(* -------------------------------------------------------------------- *)
exception Exit_loop
let exn_printer fmt exn =
let do1 (f : exn_printer) =
try
Format.fprintf fmt "@[%a@]@." f exn;
raise Exit_loop
with e when e <> Exit_loop -> ()
in
try Stack.iter do1 exn_printers
with Exit_loop -> ()
(* -------------------------------------------------------------------- *)
let tostring (e : exn) =
let buf = Buffer.create 128 in
let fmt = Format.formatter_of_buffer buf in
exn_printer fmt e; Buffer.contents buf