+++ /dev/null
-(* $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.
- *
- *
- *)