src/xbt/xbt_sg_time.c

   1 /* $Id$ */
   2
   3 /* time - time related syscal wrappers                                      */
   4
   5 /* Copyright (c) 2003-2007 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 "gras/Virtu/virtu_sg.h"
  11
  12 /*
  13  * Time elapsed since the begining of the simulation.
  14  */
  15 double xbt_time() {
  16   return SIMIX_get_clock();
  17 }
  18
  19 /*
  20  * Freeze the process for the specified amount of time
  21  */
  22 void xbt_sleep(double sec) {
  23   smx_action_t act_sleep;
  24   smx_process_t proc = SIMIX_process_self();
  25   smx_mutex_t mutex;
  26   smx_cond_t cond;
  27   /* create action to sleep */
  28   act_sleep = SIMIX_action_sleep(SIMIX_process_get_host(proc),sec);
  29
  30   mutex = SIMIX_mutex_init();
  31   SIMIX_mutex_lock(mutex);
  32   /* create conditional and register action to it */
  33   cond = SIMIX_cond_init();
  34
  35   SIMIX_register_action_to_condition(act_sleep, cond);
  36   SIMIX_cond_wait(cond,mutex);
  37   SIMIX_mutex_unlock(mutex);
  38
  39   /* remove variables */
  40   SIMIX_cond_destroy(cond);
  41   SIMIX_mutex_destroy(mutex);
  42   SIMIX_action_destroy(act_sleep);
  43
  44 }