1 /**************************************************************************/ 2 /* */ 3 /* OCaml */ 4 /* */ 5 /* Xavier Leroy, projet Cristal, INRIA Rocquencourt */ 6 /* */ 7 /* Copyright 1996 Institut National de Recherche en Informatique et */ 8 /* en Automatique. */ 9 /* */ 10 /* All rights reserved. This file is distributed under the terms of */ 11 /* the GNU Lesser General Public License version 2.1, with the */ 12 /* special exception on linking described in the file LICENSE. */ 13 /* */ 14 /**************************************************************************/ 15 16 #include <caml/mlvalues.h> 17 #include <caml/signals.h> 18 #include "unixsupport.h" 19 unix_sleep(t)20CAMLprim value unix_sleep(t) 21 value t; 22 { 23 double d = Double_val(t); 24 caml_enter_blocking_section(); 25 Sleep(d * 1e3); 26 caml_leave_blocking_section(); 27 return Val_unit; 28 } 29