swh:1:snp:7a00303c98f65d2a9221cf55c3a23ffca44b6300
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
ecCommands.mli
(* --------------------------------------------------------------------
* 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
* -------------------------------------------------------------------- *)
(* -------------------------------------------------------------------- *)
open EcLocation
(* -------------------------------------------------------------------- *)
exception Restart
(* -------------------------------------------------------------------- *)
val addidir : ?system:bool -> ?recursive:bool -> string -> unit
val loadpath : unit -> (bool * string) list
(* -------------------------------------------------------------------- *)
type notifier = EcGState.loglevel -> string Lazy.t -> unit
type checkmode = {
cm_checkall : bool;
cm_timeout : int;
cm_cpufactor: int;
cm_nprovers : int;
cm_provers : string list option;
cm_profile : bool;
cm_iterate : bool;
}
val initialize :
restart:bool
-> undo:bool
-> boot:bool
-> checkmode:checkmode
-> unit
val current : unit -> EcScope.scope
val addnotifier : notifier -> unit
(* -------------------------------------------------------------------- *)
val process : ?timed:bool -> EcParsetree.global_action located -> float option
val undo : int -> unit
val reset : unit -> unit
val uuid : unit -> int
val mode : unit -> string
(* -------------------------------------------------------------------- *)
val pp_current_goal : ?all:bool -> Format.formatter -> unit
val pp_maybe_current_goal : Format.formatter -> unit
(* -------------------------------------------------------------------- *)
val pragma_verbose : bool -> unit
val pragma_g_prall : bool -> unit
val pragma_check : EcScope.Ax.mode -> unit
exception InvalidPragma of string
val apply_pragma : string -> unit