src/gras/Virtu/rl_time.c

   1 /* $Id$ */
   2
   3 /* time - time related syscal wrappers                                      */
   4
   5 /* Copyright (c) 2003, 2004 Martin Quinson. All rights reserved.            */
   6
   7 /* This program is free software; you can redistribute it and/or modify it
   8  * under the terms of the license (GNU LGPL) which comes with this package. */
   9
  10 #include <math.h> /* floor */
  11
  12 #include "portable.h"
  13
  14 #include "xbt/sysdep.h"
  15 #include "xbt/log.h"
  16 #include "gras/virtu.h"
  17 #include "xbt/xbt_portability.h" /* private */
  18
  19 XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(gras_virtu);
  20
  21 double gras_os_time() {
  22   return xbt_os_time();
  23 }
  24
  25 void gras_os_sleep(double sec) {
  26 #ifdef HAVE_USLEEP
  27   DEBUG1("Do sleep %f sec", sec);
  28   sleep(sec);
  29   (void)usleep( (sec - floor(sec)) * 1000000);
  30
  31 #elif _WIN32
  32      DEBUG1("Do sleep %f sec", sec);
  33
  34      Sleep((floor(sec) * 1000) +((sec - floor(sec)) * 1000));
  35
  36
  37 #else /* don't have usleep. Use select to sleep less than one second */
  38   struct timeval timeout;
  39
  40   DEBUG1("Do sleep %f sec", sec);
  41
  42   timeout.tv_sec =  (unsigned long)(sec);
  43   timeout.tv_usec = (sec - floor(sec)) * 1000000;
  44
  45   select(0, NULL, NULL, NULL, &timeout);
  46 #endif
  47 }
  48
  49
  50