Module Funvar_mem.WpLog


module WpLog: Wp_parameters

include struct ... end
val warning : ?current:bool ->
?source:Log.source ->
?emitwith:(Log.event -> unit) ->
?echo:bool ->
?once:bool ->
?append:(Format.formatter -> unit) ->
('a, Format.formatter, unit) Pervasives.format -> 'a
val resetdemon : (unit -> unit) list Pervasives.ref
val on_reset : (unit -> unit) -> unit
val reset : unit -> unit
val wp_generation : Plugin.group
module WP: Action(sig
val option_name : string
val help : string
val kind : [> `Tuning ]
end)
module Functions: StringSet(sig
val option_name : string
val arg_name : string
val help : string
val kind : [> `Tuning ]
end)
module Behaviors: StringSet(sig
val option_name : string
val arg_name : string
val help : string
val kind : [> `Tuning ]
end)
module Properties: StringSet(sig
val option_name : string
val arg_name : string
val help : string
val kind : [> `Tuning ]
end)

type job =
| WP_None
| WP_All
| WP_Select of string list
val job : unit -> job
val get_behaviors : unit -> Datatype.String.Set.elt list option
val get_properties : unit -> Datatype.String.Set.elt list option
val wp_model : Plugin.group

type model_kind =
| M_Hoare
| M_CaveatU
| M_CaveatG
| M_Store
| M_Runtime
val model_names : string list
val model_of_name : string -> model_kind
module Model: String(sig
val option_name : string
val arg_name : string
val help : string
val default : string
val kind : [> `Tuning ]
end)
val get_model : unit -> model_kind
val get_models : unit -> string list
module LogicVar: True(sig
val option_name : string
val help : string
val kind : [> `Tuning ]
end)
module Assigns: String(sig
val option_name : string
val arg_name : string
val help : string
val default : string
val kind : [> `Tuning ]
end)
val get_assigns_method : unit -> Mcfg.assigns_method
val wp_strategy : Plugin.group
module RTE: False(sig
val option_name : string
val help : string
val kind : [> `Tuning ]
end)
module Simpl: True(sig
val option_name : string
val help : string
val kind : [> `Tuning ]
end)
module Split: False(sig
val option_name : string
val help : string
val kind : [> `Tuning ]
end)
module Norm: String(sig
val option_name : string
val arg_name : string
val help : string
val default : string
val kind : [> `Correctness ]
end)

type norm =
| Let
| Exp
| Eqs
| Cc
val get_norm : unit -> norm
module Huge: Int(sig
val option_name : string
val default : int
val arg_name : string
val help : string
val kind : [> `Tuning ]
end)
module Axioms: False(sig
val option_name : string
val help : string
val kind : [> `Tuning ]
end)
val wp_prover : Plugin.group
module Prover: String(sig
val option_name : string
val default : string
val arg_name : string
val help : string
val kind : [> `Tuning ]
end)
val prover_names : string list
val get_provers : unit -> string list
module Check: String(sig
val option_name : string
val default : string
val arg_name : string
val help : string
val kind : [> `Tuning ]
end)
val check_names : string list
module Arrays: True(sig
val option_name : string
val help : string
val kind : [> `Tuning ]
end)
module Script: String(sig
val option_name : string
val arg_name : string
val default : string
val help : string
val kind : [> `Tuning ]
end)
module Timeout: Int(sig
val option_name : string
val default : int
val arg_name : string
val help : string
val kind : [> `Tuning ]
end)
module Procs: Int(sig
val option_name : string
val arg_name : string
val default : int
val help : string
val kind : [> `Tuning ]
end)
module Trace: False(sig
val option_name : string
val help : string
val kind : [> `Tuning ]
end)
val wp_po : Plugin.group
module Print: False(sig
val option_name : string
val help : string
val kind : [> `Tuning ]
end)
module Dot: False(sig
val option_name : string
val help : string
val kind : [> `Tuning ]
end)
module OutputDir: String(sig
val option_name : string
val arg_name : string
val default : string
val help : string
val kind : [> `Tuning ]
end)
val get_env : ?default:string -> string -> string
val tmp_dir : OutputDir.t option Pervasives.ref
val get_output : unit -> OutputDir.t