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=4821350ae1fab1d7c642dbf332e4b9cf88febf25;hb=c03d2c1fdab8d228cb88aaba5ca0f556318bebc5;hp=0000000000000000000000000000000000000000;hpb=758057e85325f94cd88583feb1fdf6b038e35055;p=helm.git

diff --git a/helm/DEVEL/pxp/netstring/netmappings.ml b/helm/DEVEL/pxp/netstring/netmappings.ml
new file mode 100644
index 000000000..4821350ae
--- /dev/null
+++ b/helm/DEVEL/pxp/netstring/netmappings.ml
@@ -0,0 +1,38 @@
+(* $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.
+ *
+ * 
+ *)