diff options
Diffstat (limited to 'library/global.mli')
| -rw-r--r-- | library/global.mli | 38 |
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 |