From dcfeca5f828bc2648b567616e3dfabd03e13d9ab Mon Sep 17 00:00:00 2001 From: filliatr Date: Wed, 22 Nov 2000 15:09:17 +0000 Subject: deplacement poly_args; iterateurs sur les segments git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@917 85f007b7-540e-0410-9357-904b9bb8a0f7 --- library/library.mli | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'library/library.mli') diff --git a/library/library.mli b/library/library.mli index 6d4bb1ed5..4ff27b4cd 100644 --- a/library/library.mli +++ b/library/library.mli @@ -1,6 +1,11 @@ (* $Id$ *) +(*i*) +open Names +open Libobject +(*i*) + (*s This module is the heart of the library. It provides low level functions to load, open and save modules. Modules are saved onto the disk with checksums (obtained with the [Digest] module), which are checked at loading time to @@ -41,6 +46,15 @@ val save_module_to : (Lib.library_segment -> Nametab.module_contents) -> val module_segment : string option -> Lib.library_segment val module_filename : string -> System.load_path_entry * string +(*s [fold_all_segments] and [iter_all_segments] iterate over all + segments, the modules' segments first and then the current + segment. Modules are presented in an arbitrary order. The given + function is applied to all leaves (together with their section + path). The boolean indicates if we must enter closed sections. *) + +val fold_all_segments : bool -> ('a -> section_path -> obj -> 'a) -> 'a -> 'a +val iter_all_segments : bool -> (section_path -> obj -> unit) -> unit + (*s Global load path *) val get_load_path : unit -> System.load_path val add_load_path_entry : System.load_path_entry -> unit -- cgit v1.2.3