From 05074a8ee576e155596cf0c8bb3c8372a4dfa086 Mon Sep 17 00:00:00 2001 From: filliatr Date: Fri, 3 Sep 1999 09:53:11 +0000 Subject: modules Libobject et Summary (partiel) git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@36 85f007b7-540e-0410-9357-904b9bb8a0f7 --- library/libobject.mli | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 library/libobject.mli (limited to 'library/libobject.mli') 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 -- cgit v1.2.3