diff options
author | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-09-03 09:53:11 +0000 |
---|---|---|
committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-09-03 09:53:11 +0000 |
commit | 05074a8ee576e155596cf0c8bb3c8372a4dfa086 (patch) | |
tree | 0a63aa5ab3f6c50dcb9b76a8611dc517320628f8 /library/libobject.mli | |
parent | 010a1652d7f0072b057235507c0efd5b7284574f (diff) |
modules Libobject et Summary (partiel)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@36 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/libobject.mli')
-rw-r--r-- | library/libobject.mli | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/library/libobject.mli b/library/libobject.mli new file mode 100644 index 000000000..967e4c410 --- /dev/null +++ b/library/libobject.mli @@ -0,0 +1,37 @@ + +(* $Id$ *) + +(*i*) +open Names +(*i*) + +(* [Libobject] declares persistent objects given with three methods: + - a loading function, specifying what to do when the object is loaded + from the disk; + - a caching function specifying how to import the object in the current + scope of theory modules; + - a specification function, to extract its specification when writing + the specification of a module to the disk (.vi) *) + +type 'a object_declaration = { + load_function : 'a -> unit; + cache_function : section_path * 'a -> unit; + specification_function : 'a -> 'a } + +(*s given the object-name, the "loading" function, the "caching" function, + and the "specification" function, the function [declare_object] + will hand back two functions, the "injection" and "projection" + functions for dynamically typed library-objects. *) + +type obj + +val declare_object : + (string * 'a object_declaration) -> ('a -> obj) * (obj -> 'a) + +val object_tag : obj -> string + +val load_object : obj -> unit + +val cache_object : (section_path * obj) -> unit + +val extract_object_specification : obj -> obj |