X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Flablgtk%2Flablgtk_20000829-0.1.0%2Fgpointer.ml;fp=helm%2FDEVEL%2Flablgtk%2Flablgtk_20000829-0.1.0%2Fgpointer.ml;h=0000000000000000000000000000000000000000;hb=fa11ed6dc134f8ad3421c37a97271018e075bbed;hp=7d28a1f9d8a00ebf8a30d39fa8786809633db0c6;hpb=c03d2c1fdab8d228cb88aaba5ca0f556318bebc5;p=helm.git

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gpointer.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gpointer.ml
deleted file mode 100644
index 7d28a1f9d..000000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gpointer.ml
+++ /dev/null
@@ -1,41 +0,0 @@
-(* $Id$ *)
-
-(* marked pointers *)
-type 'a optaddr
-
-let optaddr : 'a option -> 'a optaddr =
-  function
-      None -> Obj.magic 0
-    | Some x -> Obj.magic x
-
-(* naked pointers *)
-type optstring
-
-external get_null : unit -> optstring = "ml_get_null"
-let raw_null = get_null ()
-
-let optstring : string option -> optstring =
-  function
-      None -> raw_null
-    | Some x -> Obj.magic x
-
-(* boxed pointers *)
-type boxed
-let boxed_null : boxed = Obj.magic (0, raw_null)
-
-type 'a optboxed
-
-let optboxed : 'a option -> 'a optboxed =
-  function
-      None -> Obj.magic boxed_null
-    | Some obj -> Obj.magic obj
-
-let may_box ~f obj : 'a optboxed =
-  match obj with
-    None -> Obj.magic boxed_null
-  | Some obj -> Obj.magic (f obj : 'a)
-
-(* Exceptions *)
-
-exception Null
-let _ =  Callback.register_exception "null_pointer" Null