X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Fpxp%2Fnetstring%2Fnetmappings.ml;fp=helm%2FDEVEL%2Fpxp%2Fnetstring%2Fnetmappings.ml;h=0000000000000000000000000000000000000000;hb=3ef089a4c58fbe429dd539af6215991ecbe11ee2;hp=4821350ae1fab1d7c642dbf332e4b9cf88febf25;hpb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;p=helm.git

diff --git a/helm/DEVEL/pxp/netstring/netmappings.ml b/helm/DEVEL/pxp/netstring/netmappings.ml
deleted file mode 100644
index 4821350ae..000000000
--- a/helm/DEVEL/pxp/netstring/netmappings.ml
+++ /dev/null
@@ -1,38 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-type from_uni_list =
-    U_nil
-  | U_single of (int*int)
-  | U_list of (int*int) list
-;;
-
-let to_unicode = Hashtbl.create 50;;
-
-let from_unicode = Hashtbl.create 50;;
-
-let f_lock = ref (fun () -> ());;
-let f_unlock = ref (fun () -> ());;
-
-let lock () = !f_lock();;
-let unlock () = !f_unlock();;
-
-let init_mt new_f_lock new_f_unlock =
-  f_lock := new_f_lock;
-  f_unlock := new_f_unlock
-;;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/08/28 23:17:54  gerd
- * 	Initial revision.
- *
- * 
- *)