diff options
| author |  Stephane Glondu <steph@glondu.net> | 2008-08-08 13:18:42 +0200 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2008-08-08 13:18:42 +0200 |
| commit | 870075f34dd9fa5792bfbf413afd3b96f17e76a0 (patch) | |
| tree | 0c647056de1832cf1dba5ba58758b9121418e4be /library/libobject.mli | |
| parent | a0cfa4f118023d35b767a999d5a2ac4b082857b4 (diff) | |
Imported Upstream version 8.2~beta4+dfsgupstream/8.2.beta4+dfsg
Diffstat (limited to 'library/libobject.mli')
| -rw-r--r-- | library/libobject.mli | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/library/libobject.mli b/library/libobject.mli index 5f6cf13b..4ec5746b 100644 --- a/library/libobject.mli +++ b/library/libobject.mli @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(*i $Id: libobject.mli 10840 2008-04-23 21:29:34Z herbelin $ i*) +(*i $Id: libobject.mli 11282 2008-07-28 11:51:53Z msozeau $ i*) (*i*) open Names @@ -71,8 +71,6 @@ open Mod_subst type 'a substitutivity = Dispose | Substitute of 'a | Keep of 'a | Anticipate of 'a -type discharge_info = (identifier * bool * bool) list - type 'a object_declaration = { object_name : string; cache_function : object_name * 'a -> unit; @@ -81,7 +79,7 @@ type 'a object_declaration = { classify_function : object_name * 'a -> 'a substitutivity; subst_function : object_name * substitution * 'a -> 'a; discharge_function : object_name * 'a -> 'a option; - rebuild_function : discharge_info * 'a -> 'a; + rebuild_function : 'a -> 'a; export_function : 'a -> 'a option } (* The default object is a "Keep" object with empty methods. @@ -116,5 +114,5 @@ val subst_object : object_name * substitution * obj -> obj val classify_object : object_name * obj -> obj substitutivity val export_object : obj -> obj option val discharge_object : object_name * obj -> obj option -val rebuild_object : discharge_info * obj -> obj +val rebuild_object : obj -> obj val relax : bool -> unit |