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_CATEGORY(virtu);
  20 XBT_LOG_DEFAULT_CATEGORY(virtu);
  21
  22 double gras_os_time() {
  23   return xbt_os_time();
  24 }
  25
  26 void gras_os_sleep(double sec) {
  27 #ifdef HAVE_USLEEP
  28   DEBUG1("Do sleep %f sec", sec);
  29   sleep(sec);
  30   (void)usleep( (sec - floor(sec)) * 1000000);
  31
  32 #else /* don't have usleep. Use select to sleep less than one second */
  33   struct timeval timeout;
  34
  35   DEBUG1("Do sleep %f sec", sec);
  36
  37   timeout.tv_sec =  (unsigned long)(sec);
  38   timeout.tv_usec = (sec - floor(sec)) * 1000000;
  39
  40   select(0, NULL, NULL, NULL, &timeout);
  41 #endif
  42 }
  43