diff options
| -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 180ca1ece1..525c84c2f3 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 0000000000..ef87e3efa2 --- /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 |