diff options
| author |  Stephane Glondu <steph@glondu.net> | 2008-08-08 13:18:42 +0200 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2008-08-08 13:18:42 +0200 |
| commit | 870075f34dd9fa5792bfbf413afd3b96f17e76a0 (patch) | |
| tree | 0c647056de1832cf1dba5ba58758b9121418e4be /library/library.mli | |
| parent | a0cfa4f118023d35b767a999d5a2ac4b082857b4 (diff) | |
Imported Upstream version 8.2~beta4+dfsgupstream/8.2.beta4+dfsg
Diffstat (limited to 'library/library.mli')
| -rw-r--r-- | library/library.mli | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/library/library.mli b/library/library.mli index 27ace544..a66a77bc 100644 --- a/library/library.mli +++ b/library/library.mli @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id: library.mli 8877 2006-05-30 16:37:04Z notin $ i*) +(*i $Id: library.mli 11209 2008-07-05 10:17:49Z herbelin $ i*) (*i*) open Util @@ -52,6 +52,9 @@ val opened_libraries : unit -> dir_path list (* - Return the full filename of a loaded library. *) val library_full_filename : dir_path -> string + (* - Overwrite the filename of all libraries (used when restoring a state) *) +val overwrite_library_filenames : string -> unit + (*s Hook for the xml exportation of libraries *) val set_xml_require : (dir_path -> unit) -> unit @@ -61,11 +64,10 @@ val set_xml_require : (dir_path -> unit) -> unit val get_load_paths : unit -> System.physical_path list val get_full_load_paths : unit -> (System.physical_path * dir_path) list -val add_load_path : System.physical_path * dir_path -> unit +val add_load_path : bool -> System.physical_path * dir_path -> unit val remove_load_path : System.physical_path -> unit val find_logical_path : System.physical_path -> dir_path val is_in_load_paths : System.physical_path -> bool -val load_paths_of_dir_path : dir_path -> System.physical_path list (*s Locate a library in the load paths *) exception LibUnmappedDir @@ -73,7 +75,7 @@ exception LibNotFound type library_location = LibLoaded | LibInPath val locate_qualified_library : - qualid -> library_location * dir_path * System.physical_path + bool -> qualid -> library_location * dir_path * System.physical_path (*s Statistics: display the memory use of a library. *) val mem : dir_path -> Pp.std_ppcmds |