(* $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. * * *)