src_marte/fosa_time.c

   1 //----------------------------------------------------------------------
   2 //  Copyright (C) 2006 - 2007 by the FRESCOR consortium:
   3 //
   4 //    Universidad de Cantabria,              SPAIN
   5 //    University of York,                    UK
   6 //    Scuola Superiore Sant'Anna,            ITALY
   7 //    Kaiserslautern University,             GERMANY
   8 //    Univ. Politecnica  Valencia,           SPAIN
   9 //    Czech Technical University in Prague,  CZECH REPUBLIC
  10 //    ENEA                                   SWEDEN
  11 //    Thales Communication S.A.              FRANCE
  12 //    Visual Tools S.A.                      SPAIN
  13 //    Rapita Systems Ltd                     UK
  14 //    Evidence                               ITALY
  15 //
  16 //    See http://www.frescor.org
  17 //
  18 //        The FRESCOR project (FP6/2005/IST/5-034026) is funded
  19 //        in part by the European Union Sixth Framework Programme
  20 //        The European Union is not liable of any use that may be
  21 //        made of this code.
  22 //
  23 //
  24 //  based on previous work (FSF) done in the FIRST project
  25 //
  26 //   Copyright (C) 2005  Mälardalen University, SWEDEN
  27 //                       Scuola Superiore S.Anna, ITALY
  28 //                       Universidad de Cantabria, SPAIN
  29 //                       University of York, UK
  30 //
  31 // This file is part of FOSA (Frsh Operating System Abstraction)
  32 //
  33 // FOSA is free software; you can redistribute it and/or modify it
  34 // under terms of the GNU General Public License as published by the
  35 // Free Software Foundation; either version 2, or (at your option) any
  36 // later version.  FOSA is distributed in the hope that it will be
  37 // useful, but WITHOUT ANY WARRANTY; without even the implied warranty
  38 // of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  39 // General Public License for more details. You should have received a
  40 // copy of the GNU General Public License along with FOSA; see file
  41 // COPYING. If not, write to the Free Software Foundation, 675 Mass Ave,
  42 // Cambridge, MA 02139, USA.
  43 //
  44 // As a special exception, including FOSA header files in a file,
  45 // instantiating FOSA generics or templates, or linking other files
  46 // with FOSA objects to produce an executable application, does not
  47 // by itself cause the resulting executable application to be covered
  48 // by the GNU General Public License. This exception does not
  49 // however invalidate any other reasons why the executable file might be
  50 // covered by the GNU Public License.
  51 // -----------------------------------------------------------------------
  52 // fosa_time.c
  53 //==============================================
  54 //  ********  ******    ********  **********
  55 //  **///// /**    **  **//////  /**     /**
  56 //  **      /**    ** /**        /**     /**
  57 //  ******* /**    ** /********* /**********
  58 //  **////  /**    ** ////////** /**//////**
  59 //  **      /**    **        /** /**     /**
  60 //  **      /**    **  ********  /**     /**
  61 //  //       /******/  ////////   //      //
  62 //
  63 // FOSA(Frescor Operating System Adaptation layer)
  64 //================================================
  65
  66 #include "fosa.h"
  67 #include <pthread.h>
  68 #include <stdio.h>
  69 #include <time.h>
  70
  71 #include <timespec_operations.h> /* for incr_timespec */
  72
  73 #include <misc/error_checks.h>
  74
  75
  76 /**
  77  * fosa_eat()
  78  *
  79  * Eat some time using system clock facilities
  80  **/
  81 #ifdef VIRTUAL_TIME
  82     #include <fosa_vt.h>
  83 #endif
  84
  85 void inline fosa_eat(const struct timespec *cpu_time)
  86 {
  87 #ifdef VIRTUAL_TIME
  88     vt_time_t vt_clock;
  89     timespec_2_vtime(cpu_time, vt_clock);
  90     vt_use_time((unsigned long long)vt_clock);
  91 #else
  92     int err;
  93     clockid_t clock_id;
  94     struct timespec current_time, time_to_go;
  95
  96     // NOTE: there should be a constant for the cpu_clock_id of the caller
  97     // to avoid calling 'fosa_thread_get_cputime_clock'
  98     err = pthread_getcpuclockid(pthread_self(), &clock_id);
  99
 100     err = clock_gettime(clock_id, &current_time);
 101     add_timespec(&time_to_go, &current_time, cpu_time);
 102
 103     while (smaller_timespec(&current_time, &time_to_go)) {
 104         err = clock_gettime(clock_id, &current_time);
 105     }
 106 #endif
 107 }
 108
 109
 110