diff options
author | ckeller <ckeller@users.noreply.github.com> | 2019-04-12 14:35:29 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2019-04-12 14:35:29 +0200 |
commit | f6ad41ada44b87ef6ffd44c1252ed9acb8e8021d (patch) | |
tree | 1c99cbb3fd39372379ab845464d819c1e9b10a7d /src/versions/standard | |
parent | 02544aa0e9f2693de4b02a87d8e66cc8e72e3c8b (diff) | |
download | smtcoq-f6ad41ada44b87ef6ffd44c1252ed9acb8e8021d.tar.gz smtcoq-f6ad41ada44b87ef6ffd44c1252ed9acb8e8021d.zip |
Properly check veriT exit code and warnings (#48)
* Report veriT warnings
Diffstat (limited to 'src/versions/standard')
-rw-r--r-- | src/versions/standard/structures.ml | 1 | ||||
-rw-r--r-- | src/versions/standard/structures.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/versions/standard/structures.ml b/src/versions/standard/structures.ml index ea35a35..d7e7f96 100644 --- a/src/versions/standard/structures.ml +++ b/src/versions/standard/structures.ml @@ -205,6 +205,7 @@ let set_evars_tac noc = (* Other differences between the two versions of Coq *) type constr_expr = Constrexpr.constr_expr let error s = CErrors.user_err (Pp.str s) +let warning n s = CWarnings.create ~name:n ~category:"SMTCoq plugin" Pp.str s let extern_constr c = Constrextern.extern_constr true Environ.empty_env Evd.empty (EConstr.of_constr c) diff --git a/src/versions/standard/structures.mli b/src/versions/standard/structures.mli index 3aa8b3b..cde4f4f 100644 --- a/src/versions/standard/structures.mli +++ b/src/versions/standard/structures.mli @@ -109,6 +109,7 @@ val set_evars_tac : constr -> tactic (* Other differences between the two versions of Coq *) type constr_expr = Constrexpr.constr_expr val error : string -> 'a +val warning : string -> string -> unit val extern_constr : constr -> constr_expr val destruct_rel_decl : (constr, types) Context.Rel.Declaration.pt -> name * types val interp_constr : Environ.env -> Evd.evar_map -> constr_expr -> constr |