Imported Upstream snapshot 8.3~beta0+13298

1 files changed, 23 insertions, 15 deletions

diff --git a/library/global.mli b/library/global.mli
index cb717cdf..a8d76c4f 100644
--- a/library/global.mli
+++ b/library/global.mli
@@ -6,7 +6,7 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
-(*i $Id: global.mli 10664 2008-03-14 11:27:37Z soubiran $ i*)
+(*i $Id$ i*)
 
 (*i*)
 open Names
@@ -15,6 +15,7 @@ open Term
 open Declarations
 open Entries
 open Indtypes
+open Mod_subst
 open Safe_typing
    (*i*)
 
@@ -44,35 +45,40 @@ val push_named_def   : (identifier * constr * types option) -> Univ.constraints
 (*s Adding constants, inductives, modules and module types.  All these
   functions verify that given names match those generated by kernel *)
 
-val add_constant : 
+val add_constant :
   dir_path -> identifier -> global_declaration -> constant
-val add_mind        : 
-  dir_path -> identifier -> mutual_inductive_entry -> kernel_name
+val add_mind        :
+  dir_path -> identifier -> mutual_inductive_entry -> mutual_inductive
 
-val add_module      : identifier -> module_entry -> module_path
-val add_modtype     : identifier -> module_struct_entry -> module_path
-val add_include : module_struct_entry -> unit
-val add_alias : identifier -> module_path -> module_path
+val add_module      :
+ identifier -> module_entry -> bool -> module_path * delta_resolver
+val add_modtype     :
+ identifier -> module_struct_entry -> bool -> module_path
+val add_include :
+ module_struct_entry -> bool -> bool -> delta_resolver
 
 val add_constraints : constraints -> unit
 
 val set_engagement : engagement -> unit
 
 (*s Interactive modules and module types *)
-(* Both [start_*] functions take the [dir_path] argument to create a 
+(* Both [start_*] functions take the [dir_path] argument to create a
    [mod_self_id]. This should be the name of the compilation unit. *)
 
 (* [start_*] functions return the [module_path] valid for components
    of the started module / module type *)
 
 val start_module : identifier -> module_path
-val end_module : identifier -> module_struct_entry option -> module_path
 
-val add_module_parameter : mod_bound_id -> module_struct_entry -> unit
+val end_module : Summary.frozen ->identifier ->
+  (module_struct_entry * bool) option -> module_path * delta_resolver
 
-val start_modtype : identifier -> module_path
-val end_modtype : identifier -> module_path
+val add_module_parameter :
+ mod_bound_id -> module_struct_entry -> bool -> delta_resolver
 
+val start_modtype : identifier -> module_path
+val end_modtype : Summary.frozen -> identifier -> module_path
+val pack_module : unit -> module_body
 
 
 (* Queries *)
@@ -82,15 +88,17 @@ val lookup_inductive : inductive -> mutual_inductive_body * one_inductive_body
 val lookup_mind      : mutual_inductive -> mutual_inductive_body
 val lookup_module    : module_path -> module_body
 val lookup_modtype   : module_path -> module_type_body
+val constant_of_delta : constant -> constant
+val mind_of_delta : mutual_inductive -> mutual_inductive
 
 (* Compiled modules *)
 val start_library : dir_path -> module_path
-val export : dir_path -> compiled_library
+val export : dir_path -> module_path * compiled_library
 val import : compiled_library -> Digest.t -> module_path
 
 (*s Function to get an environment from the constants part of the global
  * environment and a given context. *)
-  
+
 val type_of_global : Libnames.global_reference -> types
 val env_of_context : Environ.named_context_val -> Environ.env