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 | |
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')
-rw-r--r-- | src/versions/native/structures.ml | 1 | ||||
-rw-r--r-- | src/versions/native/structures.mli | 1 | ||||
-rw-r--r-- | src/versions/standard/structures.ml | 1 | ||||
-rw-r--r-- | src/versions/standard/structures.mli | 1 |
4 files changed, 4 insertions, 0 deletions
diff --git a/src/versions/native/structures.ml b/src/versions/native/structures.ml index ee4bf96..94d68c1 100644 --- a/src/versions/native/structures.ml +++ b/src/versions/native/structures.ml @@ -168,6 +168,7 @@ let set_evars_tac _ = Tacticals.tclIDTAC (* Other differences between the two versions of Coq *) type constr_expr = Topconstr.constr_expr let error = Errors.error +let warning _ s = Pp.warning s let extern_constr = Constrextern.extern_constr true Environ.empty_env let destruct_rel_decl (n, _, t) = n, t let interp_constr env sigma = Constrintern.interp_constr sigma env diff --git a/src/versions/native/structures.mli b/src/versions/native/structures.mli index 939ffc7..775f7be 100644 --- a/src/versions/native/structures.mli +++ b/src/versions/native/structures.mli @@ -106,6 +106,7 @@ val set_evars_tac : 'a -> Proof_type.tactic (* Other differences between the two versions of Coq *) type constr_expr = Topconstr.constr_expr val error : string -> 'a +val warning : string -> string -> unit val extern_constr : constr -> Topconstr.constr_expr val destruct_rel_decl : Term.rel_declaration -> name * types val interp_constr : Environ.env -> Evd.evar_map -> Topconstr.constr_expr -> constr 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 |