diff options
| author | herbelin | 2000-11-20 08:40:42 +0000 |
|---|---|---|
| committer | herbelin | 2000-11-20 08:40:42 +0000 |
| commit | 07d8a4440e6ce46d7d6aaf2d1a045e1c4d972c8a (patch) | |
| tree | f30d51b1fb31b771ba5c432a7e97381a9bc60dd1 /library/lib.mli | |
| parent | da732b39843cddcd9b3881b62ab9a351d65b98e4 (diff) | |
Ajout d'une Nametab et d'un flag export aux ClosedSection; on applique export_objet aussi aux sections
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@861 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/lib.mli')
| -rw-r--r-- | library/lib.mli | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/library/lib.mli b/library/lib.mli index c6a0ba6803..96b1941ce2 100644 --- a/library/lib.mli +++ b/library/lib.mli @@ -15,7 +15,7 @@ type node = | Leaf of obj | Module of string | OpenedSection of string - | ClosedSection of string * library_segment + | ClosedSection of bool * string * library_segment * Nametab.module_contents | FrozenState of Summary.frozen and library_entry = section_path * node @@ -40,7 +40,9 @@ val contents_after : section_path option -> library_segment (*s Opening and closing a section. *) val open_section : string -> section_path -val close_section : string -> section_path * library_segment +val close_section : export:bool -> + (section_path -> library_segment -> Nametab.module_contents) -> string + -> unit val make_path : identifier -> path_kind -> section_path val cwd : unit -> dir_path |