1 // -----------------------------------------------------------------------
2 // Copyright (C) 2006 - 2007 FRESCOR consortium partners:
4 // Universidad de Cantabria, SPAIN
5 // University of York, UK
6 // Scuola Superiore Sant'Anna, ITALY
7 // Kaiserslautern University, GERMANY
8 // Univ. Politécnica Valencia, SPAIN
9 // Czech Technical University in Prague, CZECH REPUBLIC
11 // Thales Communication S.A. FRANCE
12 // Visual Tools S.A. SPAIN
13 // Rapita Systems Ltd UK
16 // See http://www.frescor.org for a link to partners' websites
18 // 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
24 // based on previous work (FSF) done in the FIRST project
26 // Copyright (C) 2005 Mälardalen University, SWEDEN
27 // Scuola Superiore S.Anna, ITALY
28 // Universidad de Cantabria, SPAIN
29 // University of York, UK
31 // FSF API web pages: http://marte.unican.es/fsf/docs
32 // http://shark.sssup.it/contrib/first/docs/
34 // This file is part of FRSH Implementation
36 // FRSH API is free software; you can redistribute it and/or modify
37 // it under the terms of the GNU General Public License as published by
38 // the Free Software Foundation; either version 2, or (at your option)
41 // FRSH API is distributed in the hope that it will be useful, but
42 // WITHOUT ANY WARRANTY; without even the implied warranty of
43 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
44 // General Public License for more details.
46 // You should have received a copy of the GNU General Public License
47 // distributed with FRSH API; see file COPYING. If not, write to the
48 // Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
51 // As a special exception, if you include this header file into source
52 // files to be compiled, this header file does not by itself cause
53 // the resulting executable to be covered by the GNU General Public
54 // License. This exception does not however invalidate any other
55 // reasons why the executable file might be covered by the GNU General
57 // -----------------------------------------------------------------------
58 //==============================================
59 // ******** ******* ******** ** **
60 // **///// /**////** **////// /** /**
61 // ** /** /** /** /** /**
62 // ******* /******* /********* /**********
63 // **//// /**///** ////////** /**//////**
64 // ** /** //** /** /** /**
65 // ** /** //** ******** /** /**
66 // // // // //////// // //
68 // FRSH(FRescor ScHeduler), pronounced "fresh"
69 //==============================================
71 // 23-Jul-2007 SANGORRIN: create this file for debugging functions
72 // 31-Jul-2007 TELLERIA: Change "debug" for "trace"
73 // -----------------------------------------------------------------------
77 #include <stdio.h> // for vprintf
78 #include <stdbool.h> // for bool
79 #include <stdarg.h> // for va_list, va_start and va_end
80 #include "timespec_operations.h"
81 #include "fosa_configuration_parameters.h" /* FOSA_CLOCK_REALTIME */
82 #include "fosa_clocks_and_timers.h"
84 // Tune the following FLAGS to select the debugging messages to be generated
85 #define FRSH_TRACE_CALLBACKS false
86 #define FRSH_TRACE_SERVICE_TH false
87 #define FRSH_TRACE_WATCHDOG false
88 #define FRSH_TRACE_SPORADIC_SERVER false
89 #define FRSH_TRACE_ROUND_ROBIN false
90 #define FRSH_TRACE_BOUNDED_JOB false
92 #define FRSH_TRACE_ADMISSION_TEST false
93 #define FRSH_TRACE_ADMISSION_RESULT false
95 #define FRSH_TRACE_THREAD_INDEX false
96 #define FRSH_TRACE_VRES_INDEX false
98 #define FRSH_TRACE_DISTRIBUTED false
100 #define FRSH_TRACE_TS_MSECS
102 /* These variables live defined in frsh_error.c */
103 /************************************************/
104 extern struct timespec frsh_trace_init_timespec;
105 extern long frsh_trace_init_timemsec;
107 extern int global_error_condition; /* Used to propagate error
108 * conditions in debugging */
110 static inline long int FRSH_GET_TIMESTAMP_MSECS()
113 struct timespec current_time = {-1, -1};
114 long int current_time_msec = -1;
115 long int result = -1;
117 PRW( fosa_clock_get_time(FOSA_CLOCK_REALTIME, ¤t_time) );
118 current_time_msec = timespec2msec(¤t_time);
120 result = current_time_msec - frsh_trace_init_timemsec;
125 static inline long int FRSH_TIMESPEC_TO_RELATIVE_MSECS(const struct timespec *tspec)
127 long int time_msecs = -1;
129 time_msecs = timespec2msec(tspec);
131 return time_msecs - frsh_trace_init_timemsec;
134 static void inline FRSH_TRACE(bool is_active, const char *format, ...)
138 #ifdef FRSH_TRACE_TS_MSECS
139 const int TS_LENGTH_MSECS = 10; /* Room for LONG_MAX 2147483648 */
144 va_start(args, format);
146 #ifdef FRSH_TRACE_TS_MSECS
147 printf("%*ld: ", TS_LENGTH_MSECS, FRSH_GET_TIMESTAMP_MSECS());
149 vprintf(format, args);