Initial revision

[helm.git] / helm / DEVEL / pxp / netstring / netmappings.ml

diff --git a/helm/DEVEL/pxp/netstring/netmappings.ml b/helm/DEVEL/pxp/netstring/netmappings.ml
new file mode 100644 (file)
index 0000000..4821350
--- /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.
+ *
+ * 
+ *)