Added *_info functions, allowing us to get an accurate picture

[ocaml-ancient.git] / ancient.ml

diff --git a/ancient.ml b/ancient.ml
index f8b7088..640e0d4 100644 (file)
--- a/ancient.ml
+++ b/ancient.ml
@@ -1,10 +1,16 @@
 (* Mark objects as 'ancient' so they are taken out of the OCaml heap.
- * $Id: ancient.ml,v 1.5 2006-10-09 12:18:05 rich Exp $
+ * $Id: ancient.ml,v 1.6 2006-10-09 14:43:00 rich Exp $
  *)
 
 type 'a ancient
 
-external mark : 'a -> 'a ancient = "ancient_mark"
+type info = {
+  i_size : int;
+}
+
+external mark_info : 'a -> 'a ancient * info = "ancient_mark_info"
+
+let mark obj = fst (mark_info obj)
 
 external follow : 'a ancient -> 'a = "ancient_follow"
 
@@ -18,7 +24,10 @@ external attach : Unix.file_descr -> nativeint -> md = "ancient_attach"
 
 external detach : md -> unit = "ancient_detach"
 
-external share : md -> int -> 'a -> 'a ancient = "ancient_share"
+external share_info : md -> int -> 'a -> 'a ancient * info
+  = "ancient_share_info"
+
+let share md key obj = fst (share_info md key obj)
 
 external get : md -> int -> 'a ancient = "ancient_get"