diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-11-28 18:05:44 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-11-28 18:10:41 +0100 |
| commit | 0168f040e29c3bbaeb666f0b793f41627f154e12 (patch) | |
| tree | 49f2ace81164d5b9a4baaca649a55d9f041d165b /checker | |
| parent | f303ed9fb26797b9ec7d172fe583e7ee607ae441 (diff) | |
Adding an interface file for checker/check.ml.
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/check.ml | 6 | ||||
| -rw-r--r-- | checker/check.mli | 26 |
2 files changed, 26 insertions, 6 deletions
diff --git a/checker/check.ml b/checker/check.ml index 180ca1ece..525c84c2f 100644 --- a/checker/check.ml +++ b/checker/check.ml @@ -412,9 +412,3 @@ let recheck_library ~norec ~admit ~check = (fun (dir,_) -> pr_dirpath dir ++ fnl()) needed)); List.iter (check_one_lib nochk) needed; Flags.if_verbose Feedback.msg_notice (str"Modules were successfully checked") - -open Printf - -let mem s = - let m = try_find_library s in - h 0 (str (sprintf "%dk" (CObj.size_kb m))) diff --git a/checker/check.mli b/checker/check.mli new file mode 100644 index 000000000..ef87e3efa --- /dev/null +++ b/checker/check.mli @@ -0,0 +1,26 @@ +(************************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2017 *) +(* \VV/ **************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(************************************************************************) + +open CUnix +open Names + +type section_path = { + dirpath : string list; + basename : string; +} + +type logical_path = DirPath.t + +val default_root_prefix : DirPath.t + +val add_load_path : physical_path * logical_path -> unit + +val recheck_library : + norec:section_path list -> + admit:section_path list -> + check:section_path list -> unit |