(* $Id$
 * ----------------------------------------------------------------------
 *
 *)

(* Initialize multi-threading mode: *)

let str_mutex = Mutex.create();;
let cgi_mutex = Mutex.create();;
let mappings_mutex = Mutex.create();;

Netstring_str.init_mt
  (fun () -> Mutex.lock str_mutex)
  (fun () -> Mutex.unlock str_mutex);
Cgi.init_mt
  (fun () -> Mutex.lock cgi_mutex)
  (fun () -> Mutex.unlock cgi_mutex);
Netmappings.init_mt
  (fun () -> Mutex.lock mappings_mutex)
  (fun () -> Mutex.unlock mappings_mutex)
;;

(* ======================================================================
 * History:
 * 
 * $Log$
 * Revision 1.1  2000/11/17 09:57:28  lpadovan
 * Initial revision
 *
 * Revision 1.2  2000/08/29 00:45:42  gerd
 * 	Initializing Netmappings, too
 *
 * Revision 1.1  2000/06/25 21:15:27  gerd
 * 	Initial revision
 *
 * 
 *)