2 * ----------------------------------------------------------------------
6 (* Initialize multi-threading mode: *)
8 let str_mutex = Mutex.create();;
9 let cgi_mutex = Mutex.create();;
10 let mappings_mutex = Mutex.create();;
13 (fun () -> Mutex.lock str_mutex)
14 (fun () -> Mutex.unlock str_mutex);
16 (fun () -> Mutex.lock cgi_mutex)
17 (fun () -> Mutex.unlock cgi_mutex);
19 (fun () -> Mutex.lock mappings_mutex)
20 (fun () -> Mutex.unlock mappings_mutex)
23 (* ======================================================================
27 * Revision 1.1 2000/11/17 09:57:28 lpadovan
30 * Revision 1.2 2000/08/29 00:45:42 gerd
31 * Initializing Netmappings, too
33 * Revision 1.1 2000/06/25 21:15:27 gerd