2 * ----------------------------------------------------------------------
8 | U_single of (int*int)
9 | U_list of (int*int) list
12 let to_unicode = Hashtbl.create 50;;
14 let from_unicode = Hashtbl.create 50;;
16 let f_lock = ref (fun () -> ());;
17 let f_unlock = ref (fun () -> ());;
19 let lock () = !f_lock();;
20 let unlock () = !f_unlock();;
22 let init_mt new_f_lock new_f_unlock =
24 f_unlock := new_f_unlock
27 (* ======================================================================
31 * Revision 1.1 2000/11/17 09:57:28 lpadovan
34 * Revision 1.1 2000/08/28 23:17:54 gerd