src/simix/smx_smurf_private.h

   1 /* Copyright (c) 2007-2010, 2012-2013. The SimGrid Team.
   2  * All rights reserved.                                                     */
   3
   4 /* This program is free software; you can redistribute it and/or modify it
   5  * under the terms of the license (GNU LGPL) which comes with this package. */
   6
   7 #ifndef _SIMIX_SMURF_PRIVATE_H
   8 #define _SIMIX_SMURF_PRIVATE_H
   9
  10 SG_BEGIN_DECL()
  11
  12 /********************************* Simcalls *********************************/
  13
  14 /* we want to build the e_smx_simcall_t enumeration, the table of the
  15  * corresponding simcalls string names, and the simcall handlers table
  16  * automatically, using macros.
  17  * To add a new simcall follow the following syntax:
  18  *
  19  * SIMCALL_ENUM_ELEMENT(<simcall_enumeration_id>, <simcall_handler_function>)
  20  *
  21  * */
  22
  23 /****************************
  24  * SIMCALL GENERATING MACRO *
  25  ****************************
  26  *
  27  * action(ENUM_NAME, func_name, result_type, params…)
  28  *
  29  **/
  30
  31 /*
  32  * Some macro machinery to get a MAP over the arguments of a variadic macro.
  33  * It uses a FOLD to apply a macro to every argument, and because there is
  34  * no recursion in the C preprocessor we must create a new macro for every
  35  * depth of FOLD's recursion.
  36  */
  37
  38 /* FOLD macro */
  39 #define FE_0(WHAT, X, ...)
  40 #define FE_1(I, WHAT, X) WHAT(I, X)
  41 #define FE_2(I, WHAT, X, ...) WHAT(I, X), FE_1(I+1, WHAT, __VA_ARGS__)
  42 #define FE_3(I, WHAT, X, ...) WHAT(I, X), FE_2(I+1, WHAT, __VA_ARGS__)
  43 #define FE_4(I, WHAT, X, ...) WHAT(I, X), FE_3(I+1, WHAT, __VA_ARGS__)
  44 #define FE_5(I, WHAT, X, ...) WHAT(I, X), FE_4(I+1, WHAT, __VA_ARGS__)
  45 #define FE_6(I, WHAT, X, ...) WHAT(I, X), FE_5(I+1, WHAT, __VA_ARGS__)
  46 #define FE_7(I, WHAT, X, ...) WHAT(I, X), FE_6(I+1, WHAT, __VA_ARGS__)
  47 #define FE_8(I, WHAT, X, ...) WHAT(I, X), FE_7(I+1, WHAT, __VA_ARGS__)
  48 #define FE_9(I, WHAT, X, ...) WHAT(I, X), FE_8(I+1, WHAT, __VA_ARGS__)
  49 #define FE_10(I, WHAT, X, ...) WHAT(I, X), FE_9(I+1, WHAT, __VA_ARGS__)
  50
  51 /* NOTE: add as many FE_n as needed (maximum number of simcall arguments )*/
  52
  53 /* Make a MAP macro usgin FOLD (will apply 'action' to the arguments.
  54  * GET_MACRO is a smart hack that counts the number of arguments passed to
  55  * the variadic macro, and it is used to invoke the right FOLD depth.
  56  */
  57 #define GET_MACRO(_0,_1,_2,_3,_4,_5,_6,_7,_8,_9,_10,NAME,...) NAME
  58 #define MAP(action, ...) \
  59   GET_MACRO(, ##__VA_ARGS__, FE_10,FE_9,FE_8,FE_7,FE_6,FE_5,FE_4,FE_3,FE_2,FE_1, FE_0) (0, action, __VA_ARGS__)
  60
  61 /* MAP with default arguments */
  62 #define APPLY_MAP(WHAT, I, X, ...) WHAT(I, __VA_ARGS__, X)
  63 #define FE_DA_0(I, WHAT, args, X, ...)
  64 #define FE_DA_1(I, WHAT, args, X, ...) APPLY_MAP(WHAT, I, X, args)
  65 #define FE_DA_2(I, WHAT, args, X, ...) APPLY_MAP(WHAT, I, X, args) FE_DA_1(I+1, WHAT, args, __VA_ARGS__)
  66 #define FE_DA_3(I, WHAT, args, X, ...) APPLY_MAP(WHAT, I, X, args) FE_DA_2(I+1, WHAT, args, __VA_ARGS__)
  67 #define FE_DA_4(I, WHAT, args, X, ...) APPLY_MAP(WHAT, I, X, args) FE_DA_3(I+1, WHAT, args, __VA_ARGS__)
  68 #define FE_DA_5(I, WHAT, args, X, ...) APPLY_MAP(WHAT, I, X, args) FE_DA_4(I+1, WHAT, args, __VA_ARGS__)
  69 #define FE_DA_6(I, WHAT, args, X, ...) APPLY_MAP(WHAT, I, X, args) FE_DA_5(I+1, WHAT, args, __VA_ARGS__)
  70 #define FE_DA_7(I, WHAT, args, X, ...) APPLY_MAP(WHAT, I, X, args) FE_DA_6(I+1, WHAT, args, __VA_ARGS__)
  71 #define FE_DA_8(I, WHAT, args, X, ...) APPLY_MAP(WHAT, I, X, args) FE_DA_7(I+1, WHAT, args, __VA_ARGS__)
  72 #define FE_DA_9(I, WHAT, args, X, ...) APPLY_MAP(WHAT, I, X, args) FE_DA_8(I+1, WHAT, args, __VA_ARGS__)
  73 #define FE_DA_10(I, WHAT, args, X, ...) APPLY_MAP(WHAT, I, X, args) FE_DA_9(I+1, WHAT, args, __VA_ARGS__)
  74
  75 #define MAP_WITH_DEFAULT_ARGS(action, args, ...) \
  76   GET_MACRO(, ##__VA_ARGS__, FE_DA_10,FE_DA_9,FE_DA_8,FE_DA_7,FE_DA_6,FE_DA_5,FE_DA_4,FE_DA_3,FE_DA_2,FE_DA_1, FE_DA_0) (0, action, args, __VA_ARGS__)
  77
  78 /*
  79  * Define scalar type wrappers to ease the use of simcalls.
  80  * These are used to wrap the arguments in SIMIX_simcall macro.
  81  */
  82 #define TCHAR(n) (n, char, c)
  83 #define TSTRING(n) (n, const char*, cc)
  84 #define TSHORT(n) (n, short, s)
  85 #define TINT(n) (n, int, i)
  86 #define TLONG(n) (n, long, l)
  87 #define TUCHAR(n) (n, unsigned char, uc)
  88 #define TUSHORT(n) (n, unsigned short, us)
  89 #define TUINT(n) (n, unsigned int, ui)
  90 #define TULONG(n) (n, unsigned long, ul)
  91 #define TFLOAT(n) (n, float, f)
  92 #define TDOUBLE(n) (n, double, d)
  93 #define TDPTR(n) (n, void*, dp, void*)
  94 #define TFPTR(n) (n, FPtr, fp, FPtr)
  95 #define TCPTR(n) (n, const void*, cp)
  96 #define TSIZE(n) (n, size_t, sz)
  97 #define TSGSIZE(n) (n, sg_size_t, sgsz)
  98 #define TVOID(n) (n, void)
  99 #define TDSPEC(n,t) (n, t, dp, void*)
 100 #define TFSPEC(n,t) (n, t, fp, FPtr)
 101
 102 /* use comma or nothing to separate elements*/
 103 #define SIMCALL_SEP_COMMA ,
 104 #define SIMCALL_SEP_NOTHING
 105
 106 /* get the name of the parameter */
 107 #define SIMCALL_NAME_(name, type, field, ...) name
 108 #define SIMCALL_NAME(i, v) SIMCALL_NAME_ v
 109
 110 /* get the cast of the parameter */
 111 #define SIMCALL_CASTTYPE_(name, type, field, cast) (cast)
 112 #define SIMCALL_NOCASTTYPE_(name, type, field)
 113 #define SIMCALL_CASTTYPE(...) MAYBE5(,##__VA_ARGS__, SIMCALL_CASTTYPE_, SIMCALL_NOCASTTYPE_) (__VA_ARGS__)
 114
 115 /* get the uncast of the parameter */
 116 #define SIMCALL_UNCASTTYPE_(name, type, field, cast) (type)
 117 #define SIMCALL_NOUNCASTTYPE_(name, type, field)
 118 #define SIMCALL_UNCASTTYPE(...) MAYBE5(,##__VA_ARGS__, SIMCALL_UNCASTTYPE_, SIMCALL_NOUNCASTTYPE_) (__VA_ARGS__)
 119
 120 /* get the %s format code of the parameter */
 121 #define SIMCALL_FORMAT_(name, type, field, ...) %field
 122 #define SIMCALL_FORMAT(i, v) SIMCALL_FORMAT_ v
 123
 124 /* get the field of the parameter */
 125 #define SIMCALL_FIELD_(name, type, field, ...) field
 126 #define SIMCALL_FIELD(i, v) SIMCALL_FIELD_ v
 127
 128 /* get the parameter declaration */
 129 #define SIMCALL_ARG_(name, type, field, ...) type name
 130 #define SIMCALL_ARG(i, v) SIMCALL_ARG_ v
 131
 132 /* get the parameter initialisation field */
 133 #define SIMCALL_INIT_FIELD_(name, type, field, ...) .field = SIMCALL_CASTTYPE(name, type, field,##__VA_ARGS__) name
 134 #define SIMCALL_INIT_FIELD(i, d, v) self->simcall.args[i]SIMCALL_INIT_FIELD_ v;
 135
 136 /* get the case of the parameter */
 137 #define SIMCALL_CASE_PARAM_(name, type, field, ...) field
 138 #define SIMCALL_CASE_PARAM(i, v) SIMCALL_UNCASTTYPE v simcall->args[i].SIMCALL_CASE_PARAM_ v
 139
 140 /* generate some code for SIMCALL_CASE if the simcall has an answer */
 141 #define MAYBE5(_0, _1, _2, _3, _4, func, ...) func
 142 #define MAYBE3(_0, _1, _2, func, ...) func
 143 #define MAYBE2(_0, _1, func, ...) func
 144
 145 #define SIMCALL_WITH_RESULT_BEGIN(name, type, field, ...) simcall->result.field =
 146 #define SIMCALL_WITHOUT_RESULT_BEGIN(name, type, field)
 147 #define SIMCALL_RESULT_BEGIN_(name, type, ...)\
 148         MAYBE3(,##__VA_ARGS__, SIMCALL_WITH_RESULT_BEGIN, SIMCALL_WITH_RESULT_BEGIN, SIMCALL_WITHOUT_RESULT_BEGIN)\
 149         (name, type, __VA_ARGS__)
 150 #define SIMCALL_RESULT_BEGIN(answer, res) answer(SIMCALL_RESULT_BEGIN_ res)
 151
 152 #define SIMCALL_RESULT_END_(name, type, ...)\
 153         SIMIX_simcall_answer(simcall);
 154 #define SIMCALL_RESULT_END(answer, res) answer(SIMCALL_RESULT_END_ res)
 155
 156 /* generate some code for BODY function */
 157 #define SIMCALL_FUNC_RETURN_TYPE_(name, type, ...) type
 158 #define SIMCALL_FUNC_RETURN_TYPE(res) SIMCALL_FUNC_RETURN_TYPE_ res
 159
 160 #define SIMCALL_WITH_FUNC_SIMCALL(name, type, field) smx_simcall_t simcall =
 161 #define SIMCALL_WITHOUT_FUNC_SIMCALL(name, type, field)
 162 #define SIMCALL_FUNC_SIMCALL_(name, type, ...)\
 163         MAYBE3(,##__VA_ARGS__, SIMCALL_WITH_FUNC_SIMCALL, SIMCALL_WITH_FUNC_SIMCALL, SIMCALL_WITHOUT_FUNC_SIMCALL)\
 164         (name, type, __VA_ARGS__)
 165 #define SIMCALL_FUNC_SIMCALL(res) SIMCALL_FUNC_SIMCALL_ res
 166
 167 #define SIMCALL_WITH_FUNC_RETURN(name, type, field, ...) return self->simcall.result.field;
 168 #define SIMCALL_WITHOUT_FUNC_RETURN(name, type, field)
 169 #define SIMCALL_FUNC_RETURN_(name, type, ...)\
 170         MAYBE3(,##__VA_ARGS__, SIMCALL_WITH_FUNC_RETURN, SIMCALL_WITH_FUNC_RETURN, SIMCALL_WITHOUT_FUNC_RETURN)\
 171         (name, type, __VA_ARGS__)
 172 #define SIMCALL_FUNC_RETURN(res) SIMCALL_FUNC_RETURN_ res
 173
 174
 175 /* generate the simcall enumeration */
 176 #define SIMCALL_ENUM(type, ...)\
 177         type
 178
 179 /* generate the strings name from the enumeration values */
 180 #define SIMCALL_STRING_TYPE(type, name, answer, res, ...)\
 181         [type] = STRINGIFY(type)
 182
 183 /* generate strings from the enumeration values */
 184 #define SIMCALL_TYPE(type, name, answer, res, ...)\
 185         [type] = STRINGIFY(MAP(SIMCALL_FORMAT, __VA_ARGS__))
 186
 187 /* generate the simcalls BODY functions */
 188 #define SIMCALL_FUNC(TYPE, NAME, ANSWER, RES, ...)\
 189   inline static SIMCALL_FUNC_RETURN_TYPE(RES) simcall_BODY_##NAME(MAP(SIMCALL_ARG, ##__VA_ARGS__)) { \
 190     smx_process_t self = SIMIX_process_self(); \
 191     self->simcall.call = TYPE; \
 192     memset(&self->simcall.result, 0, sizeof(self->simcall.result)); \
 193     memset(self->simcall.args, 0, sizeof(self->simcall.args)); \
 194     MAP_WITH_DEFAULT_ARGS(SIMCALL_INIT_FIELD, (), ##__VA_ARGS__) \
 195     if (self != simix_global->maestro_process) { \
 196       XBT_DEBUG("Yield process '%s' on simcall %s (%d)", self->name, \
 197                 SIMIX_simcall_name(self->simcall.call), (int)self->simcall.call); \
 198       SIMIX_process_yield(self); \
 199     } else { \
 200       SIMIX_simcall_pre(&self->simcall, 0); \
 201     } \
 202     SIMCALL_FUNC_RETURN(RES) \
 203   }
 204
 205 /* generate a comma if there is an argument*/
 206 #define WITHOUT_COMMA
 207 #define WITH_COMMA ,
 208 #define GET_CLEAN(_0,_1,_2,_3,_4,_5,_6,_7,_8,_9,_10, NAME,...) NAME
 209 #define MAYBE_COMMA(...) GET_CLEAN(,##__VA_ARGS__,WITH_COMMA,WITH_COMMA,WITH_COMMA,WITH_COMMA,WITH_COMMA,WITH_COMMA,WITH_COMMA,WITH_COMMA,WITH_COMMA,WITH_COMMA,WITHOUT_COMMA)
 210
 211 /* generate the simcalls cases for the SIMIX_simcall_pre function */
 212 #define WITH_ANSWER(...) __VA_ARGS__
 213 #define WITHOUT_ANSWER(...)
 214 #define SIMCALL_CASE(type, name, answer, res, ...)\
 215     case type:\
 216       SIMCALL_RESULT_BEGIN(answer, res) SIMIX_pre_ ## name(simcall MAYBE_COMMA(__VA_ARGS__) MAP(SIMCALL_CASE_PARAM, ##__VA_ARGS__));\
 217       SIMCALL_RESULT_END(answer, res)\
 218       break;
 219
 220
 221 /*
 222  * Generate simcall args and result getter/setter
 223  */
 224 #define SIMCALL_GS_SC_NAME_(n) n
 225 #define SIMCALL_GS_SC_NAME(n) SIMCALL_GS_SC_NAME_ n
 226 #define SIMCALL_GS_ARG_NAME(n) SIMCALL_NAME_ n
 227 #define JOIN2(_0, _1) _0 ##__## _1
 228 #define JOIN3(_0, _1, _2) JOIN2(_0 ##__## _1, _2)
 229 #define JOIN4(_0, _1, _2, _3) JOIN3(_0 ##_## _1, _2, _3)
 230 #define SIMCALL_GS_FUNC(scname, setget, vname) \
 231    JOIN4(simcall, scname, setget, vname)
 232
 233 /* generate the simcalls args getter/setter */
 234 #define SIMCALL_ARG_GETSET_(i, name, v) \
 235   static inline SIMCALL_FUNC_RETURN_TYPE(v) SIMCALL_GS_FUNC(SIMCALL_GS_SC_NAME(name), get, SIMCALL_GS_ARG_NAME(v))(smx_simcall_t simcall){\
 236     return (SIMCALL_FUNC_RETURN_TYPE(v)) simcall->args[i].SIMCALL_FIELD_ v ;\
 237   }\
 238   static inline void SIMCALL_GS_FUNC(SIMCALL_GS_SC_NAME(name), set, SIMCALL_GS_ARG_NAME(v))(smx_simcall_t simcall, SIMCALL_ARG_ v){\
 239     simcall->args[i].SIMCALL_FIELD_ v = SIMCALL_CASTTYPE v SIMCALL_NAME_ v ;\
 240   }
 241
 242 #define SIMCALL_ARG_GETSET(type, name, answer, res, ...)\
 243     MAP_WITH_DEFAULT_ARGS(SIMCALL_ARG_GETSET_, (name), ##__VA_ARGS__)
 244
 245 /* generate the simcalls result getter/setter */
 246 #define SIMCALL_WITH_RES_GETSET(name, v) \
 247   static inline SIMCALL_FUNC_RETURN_TYPE(v) SIMCALL_GS_FUNC(SIMCALL_GS_SC_NAME((name)), get, SIMCALL_GS_ARG_NAME(v))(smx_simcall_t simcall){\
 248     return (SIMCALL_FUNC_RETURN_TYPE(v)) simcall->result.SIMCALL_FIELD_ v ;\
 249   }\
 250   static inline void SIMCALL_GS_FUNC(SIMCALL_GS_SC_NAME((name)), set, SIMCALL_GS_ARG_NAME(v))(smx_simcall_t simcall, SIMCALL_ARG_ v){\
 251     simcall->result.SIMCALL_FIELD_ v = SIMCALL_NAME_ v ;\
 252   }
 253 #define SIMCALL_WITHOUT_RES_GETSET(name, v)
 254 #define SIMCALL_RES_GETSET__(name, type, ...)\
 255         MAYBE3(,##__VA_ARGS__, SIMCALL_WITH_RES_GETSET, SIMCALL_WITH_RES_GETSET, SIMCALL_WITHOUT_RES_GETSET)
 256 #define SIMCALL_RES_GETSET_(scname, v)\
 257         SIMCALL_RES_GETSET__ v (scname, v)
 258 #define SIMCALL_RES_GETSET(type, name, answer, res, ...)\
 259   SIMCALL_RES_GETSET_(name, res)
 260
 261 /* generate the simcalls result getter/setter protos*/
 262 #define SIMCALL_WITH_RES_GETSET_PROTO(name, v) \
 263   inline SIMCALL_FUNC_RETURN_TYPE(v) SIMCALL_GS_FUNC(SIMCALL_GS_SC_NAME((name)), get, SIMCALL_GS_ARG_NAME(v))(smx_simcall_t simcall);\
 264   inline void SIMCALL_GS_FUNC(SIMCALL_GS_SC_NAME((name)), set, SIMCALL_GS_ARG_NAME(v))(smx_simcall_t simcall, SIMCALL_ARG_ v);
 265 #define SIMCALL_WITHOUT_RES_GETSET_PROTO(name, v)
 266 #define SIMCALL_RES_GETSET_PROTO__(name, type, ...)\
 267         MAYBE3(,##__VA_ARGS__, SIMCALL_WITH_RES_GETSET_PROTO, SIMCALL_WITHOUT_RES_GETSET_PROTO, SIMCALL_WITHOUT_RES_GETSET_PROTO)
 268 #define SIMCALL_RES_GETSET_PROTO_(scname, v)\
 269         SIMCALL_RES_GETSET_PROTO__ v (scname, v)
 270 #define SIMCALL_RES_GETSET_PROTO(type, name, answer, res, ...)\
 271   SIMCALL_RES_GETSET_PROTO_(name, res)
 272
 273 /* stringify arguments */
 274 #define STRINGIFY_(...) #__VA_ARGS__
 275 #define STRINGIFY(...) STRINGIFY_(__VA_ARGS__)
 276
 277 /* the list of simcalls definitions */
 278 #define SIMCALL_LIST1(ACTION, sep) \
 279 ACTION(SIMCALL_HOST_GET_BY_NAME, host_get_by_name, WITH_ANSWER, TDSPEC(result, smx_host_t), TSTRING(name)) sep \
 280 ACTION(SIMCALL_HOST_GET_NAME, host_get_name, WITH_ANSWER, TSTRING(result), TDSPEC(host, smx_host_t)) sep \
 281 ACTION(SIMCALL_HOST_ON, host_on, WITH_ANSWER, TVOID(result), TDSPEC(host, smx_host_t)) sep \
 282 ACTION(SIMCALL_HOST_OFF, host_off, WITH_ANSWER, TVOID(result), TDSPEC(host, smx_host_t)) sep \
 283 ACTION(SIMCALL_HOST_GET_PROPERTIES, host_get_properties, WITH_ANSWER, TDSPEC(result, xbt_dict_t), TDSPEC(host, smx_host_t)) sep \
 284 ACTION(SIMCALL_HOST_GET_CORE, host_get_core, WITH_ANSWER, TINT(result), TDSPEC(host, smx_host_t)) sep \
 285 ACTION(SIMCALL_HOST_GET_PROCESS_LIST, host_get_process_list, WITH_ANSWER, TDSPEC(result, xbt_swag_t), TDSPEC(host, smx_host_t)) sep \
 286 ACTION(SIMCALL_HOST_GET_SPEED, host_get_speed, WITH_ANSWER, TDOUBLE(result), TDSPEC(host, smx_host_t)) sep \
 287 ACTION(SIMCALL_HOST_GET_AVAILABLE_SPEED, host_get_available_speed, WITH_ANSWER, TDOUBLE(result), TDSPEC(host, smx_host_t)) sep \
 288 ACTION(SIMCALL_HOST_GET_STATE, host_get_state, WITH_ANSWER, TINT(result), TDSPEC(host, smx_host_t)) sep \
 289 ACTION(SIMCALL_HOST_GET_DATA, host_get_data, WITH_ANSWER, TDPTR(result), TDSPEC(host, smx_host_t)) sep \
 290 ACTION(SIMCALL_HOST_SET_DATA, host_set_data, WITH_ANSWER, TVOID(result), TDSPEC(host, smx_host_t), TDPTR(data)) sep \
 291 ACTION(SIMCALL_HOST_GET_CURRENT_POWER_PEAK, host_get_current_power_peak, WITH_ANSWER, TDOUBLE(result), TDSPEC(host, smx_host_t)) sep \
 292 ACTION(SIMCALL_HOST_GET_POWER_PEAK_AT, host_get_power_peak_at, WITH_ANSWER, TDOUBLE(result), TDSPEC(host, smx_host_t), TINT(pstate_index)) sep \
 293 ACTION(SIMCALL_HOST_GET_NB_PSTATES, host_get_nb_pstates, WITH_ANSWER, TINT(result), TDSPEC(host, smx_host_t)) sep \
 294 ACTION(SIMCALL_HOST_SET_POWER_PEAK_AT, host_set_power_peak_at, WITH_ANSWER, TVOID(result), TDSPEC(host, smx_host_t), TINT(pstate_index)) sep \
 295 ACTION(SIMCALL_HOST_GET_CONSUMED_ENERGY, host_get_consumed_energy, WITH_ANSWER, TDOUBLE(result), TDSPEC(host, smx_host_t)) sep \
 296 ACTION(SIMCALL_HOST_EXECUTE, host_execute, WITH_ANSWER, TDSPEC(result, smx_action_t), TSTRING(name), TDSPEC(host, smx_host_t), TDOUBLE(computation_amount), TDOUBLE(priority), TDOUBLE(bound), TULONG(affinity_mask)) sep \
 297 ACTION(SIMCALL_HOST_PARALLEL_EXECUTE, host_parallel_execute, WITH_ANSWER, TDSPEC(result, smx_action_t), TSTRING(name), TINT(host_nb), TDSPEC(host_list, smx_host_t*), TDSPEC(computation_amount, double*), TDSPEC(communication_amount, double*), TDOUBLE(amount), TDOUBLE(rate)) sep \
 298 ACTION(SIMCALL_HOST_EXECUTION_DESTROY, host_execution_destroy, WITH_ANSWER, TVOID(result), TDSPEC(execution, smx_action_t)) sep \
 299 ACTION(SIMCALL_HOST_EXECUTION_CANCEL, host_execution_cancel, WITH_ANSWER, TVOID(result), TDSPEC(execution, smx_action_t)) sep \
 300 ACTION(SIMCALL_HOST_EXECUTION_GET_REMAINS, host_execution_get_remains, WITH_ANSWER, TDOUBLE(result), TDSPEC(execution, smx_action_t)) sep \
 301 ACTION(SIMCALL_HOST_EXECUTION_GET_STATE, host_execution_get_state, WITH_ANSWER, TINT(result), TDSPEC(execution, smx_action_t)) sep \
 302 ACTION(SIMCALL_HOST_EXECUTION_SET_PRIORITY, host_execution_set_priority, WITH_ANSWER, TVOID(result), TDSPEC(execution, smx_action_t), TDOUBLE(priority)) sep \
 303 ACTION(SIMCALL_HOST_EXECUTION_SET_BOUND, host_execution_set_bound, WITH_ANSWER, TVOID(result), TDSPEC(execution, smx_action_t), TDOUBLE(bound)) sep \
 304 ACTION(SIMCALL_HOST_EXECUTION_SET_AFFINITY, host_execution_set_affinity, WITH_ANSWER, TVOID(result), TDSPEC(execution, smx_action_t), TDSPEC(ws, smx_host_t), TULONG(mask)) sep \
 305 ACTION(SIMCALL_HOST_EXECUTION_WAIT, host_execution_wait, WITHOUT_ANSWER, TINT(result), TDSPEC(execution, smx_action_t)) sep \
 306 ACTION(SIMCALL_HOST_GET_STORAGE_LIST, host_get_storage_list, WITH_ANSWER, TDSPEC(result, xbt_dict_t), TDSPEC(host, smx_host_t)) sep \
 307 ACTION(SIMCALL_HOST_GET_PARAMS, host_get_params, WITH_ANSWER, TVOID(result), TDSPEC(ind_vm, smx_host_t), TDSPEC(params, ws_params_t)) sep \
 308 ACTION(SIMCALL_HOST_SET_PARAMS, host_set_params, WITH_ANSWER, TVOID(result), TDSPEC(ind_vm, smx_host_t), TDSPEC(params, ws_params_t)) sep \
 309 ACTION(SIMCALL_VM_CREATE, vm_create, WITH_ANSWER, TDPTR(result), TSTRING(name), TDSPEC(ind_pm, smx_host_t)) sep \
 310 ACTION(SIMCALL_VM_START, vm_start, WITH_ANSWER, TVOID(result), TDSPEC(ind_vm, smx_host_t)) sep \
 311 ACTION(SIMCALL_VM_SET_STATE, vm_set_state, WITH_ANSWER, TVOID(result), TDSPEC(ind_vm, smx_host_t), TINT(state)) sep \
 312 ACTION(SIMCALL_VM_GET_STATE, vm_get_state, WITH_ANSWER, TINT(result), TDSPEC(ind_vm, smx_host_t)) sep \
 313 ACTION(SIMCALL_VM_MIGRATE, vm_migrate, WITH_ANSWER, TVOID(result), TDSPEC(ind_vm, smx_host_t), TDSPEC(ind_dst_pm, smx_host_t)) sep \
 314 ACTION(SIMCALL_VM_GET_PM, vm_get_pm, WITH_ANSWER,    TDPTR(result),  TDSPEC(ind_vm, smx_host_t)) sep \
 315 ACTION(SIMCALL_VM_SET_BOUND,    vm_set_bound,    WITH_ANSWER, TVOID(result), TDSPEC(ind_vm, smx_host_t), TDOUBLE(bound)) sep \
 316 ACTION(SIMCALL_VM_SET_AFFINITY, vm_set_affinity, WITH_ANSWER, TVOID(result), TDSPEC(ind_vm, smx_host_t), TDSPEC(ind_pm, smx_host_t), TULONG(mask)) sep \
 317 ACTION(SIMCALL_VM_DESTROY,   vm_destroy,   WITH_ANSWER, TVOID(result), TDSPEC(ind_vm, smx_host_t)) sep \
 318 ACTION(SIMCALL_VM_SUSPEND,   vm_suspend,   WITH_ANSWER, TVOID(result), TDSPEC(ind_vm, smx_host_t)) sep \
 319 ACTION(SIMCALL_VM_RESUME,    vm_resume,    WITH_ANSWER, TVOID(result), TDSPEC(ind_vm, smx_host_t)) sep \
 320 ACTION(SIMCALL_VM_SHUTDOWN,  vm_shutdown,  WITH_ANSWER, TVOID(result), TDSPEC(ind_vm, smx_host_t)) sep \
 321 ACTION(SIMCALL_VM_SAVE,      vm_save,      WITH_ANSWER, TVOID(result), TDSPEC(ind_vm, smx_host_t)) sep \
 322 ACTION(SIMCALL_VM_RESTORE,   vm_restore,   WITH_ANSWER, TVOID(result), TDSPEC(ind_vm, smx_host_t)) sep \
 323 ACTION(SIMCALL_PROCESS_CREATE, process_create, WITH_ANSWER, TVOID(result), TDSPEC(process, smx_process_t*), TSTRING(name), TFSPEC(code, xbt_main_func_t), TDPTR(data), TSTRING(hostname), TDOUBLE(kill_time), TINT(argc), TDSPEC(argv, char**), TDSPEC(properties, xbt_dict_t), TINT(auto_restart)) sep \
 324 ACTION(SIMCALL_PROCESS_KILL, process_kill, WITH_ANSWER, TVOID(result), TDSPEC(process, smx_process_t)) sep \
 325 ACTION(SIMCALL_PROCESS_KILLALL, process_killall, WITH_ANSWER, TVOID(result), TINT(reset_pid)) sep \
 326 ACTION(SIMCALL_PROCESS_CLEANUP, process_cleanup, WITH_ANSWER, TVOID(result), TDSPEC(process, smx_process_t)) sep \
 327 ACTION(SIMCALL_PROCESS_CHANGE_HOST, process_change_host, WITH_ANSWER, TVOID(result), TDSPEC(process, smx_process_t), TDSPEC(dest, smx_host_t)) sep \
 328 ACTION(SIMCALL_PROCESS_SUSPEND, process_suspend, WITHOUT_ANSWER, TVOID(result), TDSPEC(process, smx_process_t)) sep \
 329 ACTION(SIMCALL_PROCESS_RESUME, process_resume, WITH_ANSWER, TVOID(result), TDSPEC(process, smx_process_t)) sep \
 330 ACTION(SIMCALL_PROCESS_COUNT, process_count, WITH_ANSWER, TINT(result)) sep \
 331 ACTION(SIMCALL_PROCESS_GET_PID, process_get_PID, WITH_ANSWER, TINT(result), TDSPEC(process, smx_process_t)) sep  \
 332 ACTION(SIMCALL_PROCESS_GET_PPID, process_get_PPID, WITH_ANSWER, TINT(result), TDSPEC(process, smx_process_t)) sep  \
 333 ACTION(SIMCALL_PROCESS_GET_DATA, process_get_data, WITH_ANSWER, TDPTR(result), TDSPEC(process, smx_process_t)) sep \
 334 ACTION(SIMCALL_PROCESS_SET_DATA, process_set_data, WITH_ANSWER, TVOID(result), TDSPEC(process, smx_process_t), TDPTR(data)) sep \
 335 ACTION(SIMCALL_PROCESS_GET_HOST, process_get_host, WITH_ANSWER, TDSPEC(result, smx_host_t), TDSPEC(process, smx_process_t)) sep \
 336 ACTION(SIMCALL_PROCESS_GET_NAME, process_get_name, WITH_ANSWER, TSTRING(result), TDSPEC(process, smx_process_t)) sep \
 337 ACTION(SIMCALL_PROCESS_IS_SUSPENDED, process_is_suspended, WITH_ANSWER, TINT(result), TDSPEC(process, smx_process_t)) sep \
 338 ACTION(SIMCALL_PROCESS_GET_PROPERTIES, process_get_properties, WITH_ANSWER, TDSPEC(result, xbt_dict_t), TDSPEC(process, smx_process_t)) sep \
 339 ACTION(SIMCALL_PROCESS_SLEEP, process_sleep, WITHOUT_ANSWER, TINT(result), TDOUBLE(duration)) sep \
 340 ACTION(SIMCALL_PROCESS_ON_EXIT, process_on_exit, WITH_ANSWER, TVOID(result), TDSPEC(process, smx_process_t), TFSPEC(fun, int_f_pvoid_t), TDPTR(data)) sep \
 341 ACTION(SIMCALL_PROCESS_AUTO_RESTART_SET, process_auto_restart_set, WITH_ANSWER, TVOID(result), TDSPEC(process, smx_process_t), TINT(auto_restart)) sep \
 342 ACTION(SIMCALL_PROCESS_RESTART, process_restart, WITH_ANSWER, TDSPEC(result, smx_process_t), TDSPEC(process, smx_process_t)) sep \
 343 ACTION(SIMCALL_RDV_CREATE, rdv_create, WITH_ANSWER, TDSPEC(result, smx_rdv_t), TSTRING(name)) sep \
 344 ACTION(SIMCALL_RDV_DESTROY, rdv_destroy, WITH_ANSWER, TVOID(result), TDSPEC(rdv, smx_rdv_t)) sep \
 345 ACTION(SIMCALL_RDV_GET_BY_NAME, rdv_get_by_name, WITH_ANSWER, TDSPEC(result, smx_host_t), TSTRING(name)) sep \
 346 ACTION(SIMCALL_RDV_COMM_COUNT_BY_HOST, rdv_comm_count_by_host, WITH_ANSWER, TUINT(result), TDSPEC(rdv, smx_rdv_t), TDSPEC(host, smx_host_t)) sep \
 347 ACTION(SIMCALL_RDV_GET_HEAD, rdv_get_head, WITH_ANSWER, TDSPEC(result, smx_action_t), TDSPEC(rdv, smx_rdv_t)) sep \
 348 ACTION(SIMCALL_RDV_SET_RECV, rdv_set_receiver, WITH_ANSWER, TVOID(result), TDSPEC(rdv, smx_rdv_t), TDSPEC(receiver, smx_process_t)) sep \
 349 ACTION(SIMCALL_RDV_GET_RECV, rdv_get_receiver, WITH_ANSWER, TDSPEC(result, smx_process_t), TDSPEC(rdv, smx_rdv_t)) sep \
 350 ACTION(SIMCALL_COMM_IPROBE, comm_iprobe, WITH_ANSWER, TDSPEC(result, smx_action_t), TDSPEC(rdv, smx_rdv_t), TINT(src), TINT(tag), TFSPEC(match_fun, simix_match_func_t), TDPTR(data)) sep \
 351 ACTION(SIMCALL_COMM_SEND, comm_send, WITHOUT_ANSWER, TVOID(result), TDSPEC(rdv, smx_rdv_t), TDOUBLE(task_size), TDOUBLE(rate), TDPTR(src_buff), TSIZE(src_buff_size), TFSPEC(match_fun, simix_match_func_t), TDPTR(data), TDOUBLE(timeout)) sep \
 352 ACTION(SIMCALL_COMM_ISEND, comm_isend, WITH_ANSWER, TDSPEC(result, smx_action_t), TDSPEC(rdv, smx_rdv_t), TDOUBLE(task_size), TDOUBLE(rate), TDPTR(src_buff), TSIZE(src_buff_size), TFSPEC(match_fun, simix_match_func_t), TFSPEC(clean_fun, simix_clean_func_t), TDPTR(data), TINT(detached)) sep \
 353 ACTION(SIMCALL_COMM_RECV, comm_recv, WITHOUT_ANSWER, TVOID(result), TDSPEC(rdv, smx_rdv_t), TDPTR(dst_buff), TDSPEC(dst_buff_size, size_t*), TFSPEC(match_fun, simix_match_func_t), TDPTR(data), TDOUBLE(timeout)) sep \
 354 ACTION(SIMCALL_COMM_IRECV, comm_irecv, WITH_ANSWER, TDSPEC(result, smx_action_t), TDSPEC(rdv, smx_rdv_t), TDPTR(dst_buff), TDSPEC(dst_buff_size, size_t*), TFSPEC(match_fun, simix_match_func_t), TDPTR(data)) sep \
 355 ACTION(SIMCALL_COMM_RECV_BOUNDED, comm_recv_bounded, WITHOUT_ANSWER, TVOID(result), TDSPEC(rdv, smx_rdv_t), TDPTR(dst_buff), TDSPEC(dst_buff_size, size_t*), TFSPEC(match_fun, simix_match_func_t), TDPTR(data), TDOUBLE(timeout), TDOUBLE(rate)) sep \
 356 ACTION(SIMCALL_COMM_IRECV_BOUNDED, comm_irecv_bounded, WITH_ANSWER, TDSPEC(result, smx_action_t), TDSPEC(rdv, smx_rdv_t), TDPTR(dst_buff), TDSPEC(dst_buff_size, size_t*), TFSPEC(match_fun, simix_match_func_t), TDPTR(data), TDOUBLE(rate)) sep \
 357 ACTION(SIMCALL_COMM_DESTROY, comm_destroy, WITH_ANSWER, TVOID(result), TDSPEC(comm, smx_action_t)) sep \
 358 ACTION(SIMCALL_COMM_CANCEL, comm_cancel, WITH_ANSWER, TVOID(result), TDSPEC(comm, smx_action_t)) sep \
 359 ACTION(SIMCALL_COMM_WAITANY, comm_waitany, WITHOUT_ANSWER, TINT(result), TDSPEC(comms, xbt_dynar_t)) sep \
 360 ACTION(SIMCALL_COMM_WAIT, comm_wait, WITHOUT_ANSWER, TVOID(result), TDSPEC(comm, smx_action_t), TDOUBLE(timeout)) sep \
 361 ACTION(SIMCALL_COMM_TEST, comm_test, WITHOUT_ANSWER, TINT(result), TDSPEC(comm, smx_action_t)) sep \
 362 ACTION(SIMCALL_COMM_TESTANY, comm_testany, WITHOUT_ANSWER, TINT(result), TDSPEC(comms, xbt_dynar_t)) sep \
 363 ACTION(SIMCALL_COMM_GET_REMAINS, comm_get_remains, WITH_ANSWER, TDOUBLE(result), TDSPEC(comm, smx_action_t)) sep \
 364 ACTION(SIMCALL_COMM_GET_STATE, comm_get_state, WITH_ANSWER, TINT(result), TDSPEC(comm, smx_action_t)) sep \
 365 ACTION(SIMCALL_COMM_GET_SRC_DATA, comm_get_src_data, WITH_ANSWER, TDPTR(result), TDSPEC(comm, smx_action_t)) sep \
 366 ACTION(SIMCALL_COMM_GET_DST_DATA, comm_get_dst_data, WITH_ANSWER, TDPTR(result), TDSPEC(comm, smx_action_t)) sep \
 367 ACTION(SIMCALL_COMM_GET_SRC_PROC, comm_get_src_proc, WITH_ANSWER, TDSPEC(result, smx_process_t), TDSPEC(comm, smx_action_t)) sep \
 368 ACTION(SIMCALL_COMM_GET_DST_PROC, comm_get_dst_proc, WITH_ANSWER, TDSPEC(result, smx_process_t), TDSPEC(comm, smx_action_t)) sep \
 369 ACTION(SIMCALL_MUTEX_INIT, mutex_init, WITH_ANSWER, TDSPEC(result, smx_mutex_t)) sep \
 370 ACTION(SIMCALL_MUTEX_DESTROY, mutex_destroy, WITH_ANSWER, TVOID(result), TDSPEC(mutex, smx_mutex_t)) sep \
 371 ACTION(SIMCALL_MUTEX_LOCK, mutex_lock, WITHOUT_ANSWER, TVOID(result), TDSPEC(mutex, smx_mutex_t)) sep \
 372 ACTION(SIMCALL_MUTEX_TRYLOCK, mutex_trylock, WITH_ANSWER, TINT(result), TDSPEC(mutex, smx_mutex_t)) sep \
 373 ACTION(SIMCALL_MUTEX_UNLOCK, mutex_unlock, WITH_ANSWER, TVOID(result), TDSPEC(mutex, smx_mutex_t)) sep \
 374 ACTION(SIMCALL_COND_INIT, cond_init, WITH_ANSWER, TDSPEC(result, smx_cond_t)) sep \
 375 ACTION(SIMCALL_COND_DESTROY, cond_destroy, WITH_ANSWER, TVOID(result), TDSPEC(cond, smx_cond_t)) sep \
 376 ACTION(SIMCALL_COND_SIGNAL, cond_signal, WITH_ANSWER, TVOID(result), TDSPEC(cond, smx_cond_t)) sep \
 377 ACTION(SIMCALL_COND_WAIT, cond_wait, WITHOUT_ANSWER, TVOID(result), TDSPEC(cond, smx_cond_t), TDSPEC(mutex, smx_mutex_t)) sep \
 378 ACTION(SIMCALL_COND_WAIT_TIMEOUT, cond_wait_timeout, WITHOUT_ANSWER, TVOID(result), TDSPEC(cond, smx_cond_t), TDSPEC(mutex, smx_mutex_t), TDOUBLE(timeout)) sep \
 379 ACTION(SIMCALL_COND_BROADCAST, cond_broadcast, WITH_ANSWER, TVOID(result), TDSPEC(cond, smx_cond_t)) sep \
 380 ACTION(SIMCALL_SEM_INIT, sem_init, WITH_ANSWER, TDSPEC(result, smx_sem_t), TINT(capacity)) sep \
 381 ACTION(SIMCALL_SEM_DESTROY, sem_destroy, WITH_ANSWER, TVOID(result), TDSPEC(sem, smx_sem_t)) sep \
 382 ACTION(SIMCALL_SEM_RELEASE, sem_release, WITH_ANSWER, TVOID(result), TDSPEC(sem, smx_sem_t)) sep \
 383 ACTION(SIMCALL_SEM_WOULD_BLOCK, sem_would_block, WITH_ANSWER, TINT(result), TDSPEC(sem, smx_sem_t)) sep \
 384 ACTION(SIMCALL_SEM_ACQUIRE, sem_acquire, WITHOUT_ANSWER, TVOID(result), TDSPEC(sem, smx_sem_t)) sep \
 385 ACTION(SIMCALL_SEM_ACQUIRE_TIMEOUT, sem_acquire_timeout, WITHOUT_ANSWER, TVOID(result), TDSPEC(sem, smx_sem_t), TDOUBLE(timeout)) sep \
 386 ACTION(SIMCALL_SEM_GET_CAPACITY, sem_get_capacity, WITH_ANSWER, TINT(result), TDSPEC(sem, smx_sem_t)) sep \
 387 ACTION(SIMCALL_FILE_GET_DATA, file_get_data, WITH_ANSWER, TDPTR(result), TDSPEC(fd, smx_file_t)) sep \
 388 ACTION(SIMCALL_FILE_SET_DATA, file_set_data, WITH_ANSWER, TVOID(result), TDSPEC(fd, smx_file_t), TDPTR(data)) sep \
 389 ACTION(SIMCALL_FILE_READ, file_read, WITHOUT_ANSWER, TSGSIZE(result), TDSPEC(fd, smx_file_t),  TSGSIZE(size)) sep \
 390 ACTION(SIMCALL_FILE_WRITE, file_write, WITHOUT_ANSWER, TSGSIZE(result), TDSPEC(fd, smx_file_t), TSGSIZE(size)) sep \
 391 ACTION(SIMCALL_FILE_OPEN, file_open, WITHOUT_ANSWER, TDSPEC(result, smx_file_t), TSTRING(mount), TSTRING(path)) sep \
 392 ACTION(SIMCALL_FILE_CLOSE, file_close, WITHOUT_ANSWER, TINT(result), TDSPEC(fd, smx_file_t)) sep \
 393 ACTION(SIMCALL_FILE_UNLINK, file_unlink, WITH_ANSWER, TINT(result), TDSPEC(fd, smx_file_t)) sep \
 394 ACTION(SIMCALL_FILE_LS, file_ls, WITHOUT_ANSWER, TDSPEC(result, xbt_dict_t), TSTRING(mount), TSTRING(path)) sep \
 395 ACTION(SIMCALL_FILE_GET_SIZE, file_get_size, WITH_ANSWER, TSGSIZE(result), TDSPEC(fd, smx_file_t)) sep \
 396 ACTION(SIMCALL_FILE_TELL, file_tell, WITH_ANSWER, TSGSIZE(result), TDSPEC(fd, smx_file_t)) sep \
 397 ACTION(SIMCALL_FILE_SEEK, file_seek, WITH_ANSWER, TINT(result), TDSPEC(fd, smx_file_t), TSGSIZE(offset), TINT(origin)) sep \
 398 ACTION(SIMCALL_FILE_GET_INFO, file_get_info, WITH_ANSWER, TDSPEC(result, xbt_dynar_t), TDSPEC(fd, smx_file_t)) sep \
 399 ACTION(SIMCALL_STORAGE_FILE_RENAME, storage_file_rename, WITH_ANSWER, TVOID(result), TDSPEC(storage, smx_storage_t), TSTRING(src), TSTRING(dest)) sep \
 400 ACTION(SIMCALL_STORAGE_GET_FREE_SIZE, storage_get_free_size, WITH_ANSWER, TSGSIZE(result), TSTRING(name)) sep \
 401 ACTION(SIMCALL_STORAGE_GET_USED_SIZE, storage_get_used_size, WITH_ANSWER, TSGSIZE(result), TSTRING(name)) sep \
 402 ACTION(SIMCALL_STORAGE_GET_PROPERTIES, storage_get_properties, WITH_ANSWER, TDSPEC(result, xbt_dict_t), TDSPEC(storage, smx_storage_t)) sep \
 403 ACTION(SIMCALL_STORAGE_GET_CONTENT, storage_get_content, WITH_ANSWER, TDSPEC(result, xbt_dict_t), TDSPEC(storage, smx_storage_t)) sep \
 404 ACTION(SIMCALL_ASR_GET_PROPERTIES, asr_get_properties, WITH_ANSWER, TDSPEC(result, xbt_dict_t), TSTRING(name)) sep
 405
 406 /* SIMCALL_COMM_IS_LATENCY_BOUNDED and SIMCALL_SET_CATEGORY make things complicated
 407  * because they are not always present */
 408 #ifdef HAVE_LATENCY_BOUND_TRACKING
 409 #define SIMCALL_LIST2(ACTION, sep) \
 410 ACTION(SIMCALL_COMM_IS_LATENCY_BOUNDED, comm_is_latency_bounded, WITH_ANSWER, TINT(result), TDSPEC(comm, smx_action_t)) sep
 411 #else
 412 #define SIMCALL_LIST2(ACTION, sep)
 413 #endif
 414
 415 #ifdef HAVE_TRACING
 416 #define SIMCALL_LIST3(ACTION, sep) \
 417 ACTION(SIMCALL_SET_CATEGORY, set_category, WITH_ANSWER, TVOID(result), TDSPEC(action, smx_action_t), TSTRING(category)) sep
 418 #else
 419 #define SIMCALL_LIST3(ACTION, sep)
 420 #endif
 421
 422 #ifdef HAVE_MC
 423 #define SIMCALL_LIST4(ACTION, sep) \
 424 ACTION(SIMCALL_MC_SNAPSHOT, mc_snapshot, WITH_ANSWER, TDPTR(result)) sep \
 425 ACTION(SIMCALL_MC_COMPARE_SNAPSHOTS, mc_compare_snapshots, WITH_ANSWER, TINT(result), TDPTR(s1), TDPTR(s2)) sep \
 426 ACTION(SIMCALL_MC_RANDOM, mc_random, WITH_ANSWER, TINT(result), TINT(min), TINT(max)) sep
 427 #else
 428 #define SIMCALL_LIST4(ACTION, sep)
 429 #endif
 430
 431 /* SIMCALL_LIST is the final macro to use */
 432 #define SIMCALL_LIST(ACTION, ...) \
 433   SIMCALL_LIST1(ACTION, ##__VA_ARGS__)\
 434   SIMCALL_LIST2(ACTION, ##__VA_ARGS__)\
 435   SIMCALL_LIST3(ACTION, ##__VA_ARGS__)\
 436   SIMCALL_LIST4(ACTION, ##__VA_ARGS__)
 437
 438
 439 /* you can redefine the following macro differently to generate something else
 440  * with the list of enumeration values (e.g. a table of strings or a table of function pointers) */
 441 #define SIMCALL_ENUM_ELEMENT(x, y) x
 442
 443 /**
 444  * \brief All possible simcalls.
 445  */
 446 typedef enum {
 447 SIMCALL_NONE,
 448 SIMCALL_LIST(SIMCALL_ENUM, SIMCALL_SEP_COMMA)
 449 SIMCALL_NEW_API_INIT,
 450 NUM_SIMCALLS
 451 } e_smx_simcall_t;
 452
 453 typedef int (*simix_match_func_t)(void *, void *, smx_action_t);
 454 typedef void (*simix_clean_func_t)(void *);
 455 typedef void (*FPtr)(void); // Hide the ugliness
 456
 457 /* Pack all possible scalar types in an union */
 458 union u_smx_scalar {
 459   char            c;
 460   const char*     cc;
 461   short           s;
 462   int             i;
 463   long            l;
 464   unsigned char   uc;
 465   unsigned short  us;
 466   unsigned int    ui;
 467   unsigned long   ul;
 468   float           f;
 469   double          d;
 470   size_t          sz;
 471   sg_size_t       sgsz;
 472   void*           dp;
 473   FPtr            fp;
 474   const void*     cp;
 475 };
 476
 477 /**
 478  * \brief Represents a simcall to the kernel.
 479  */
 480 typedef struct s_smx_simcall {
 481   e_smx_simcall_t call;
 482   smx_process_t issuer;
 483   int mc_value;
 484   union u_smx_scalar args[10];
 485   union u_smx_scalar result;
 486   //FIXME: union u_smx_scalar retval;
 487   union {
 488     struct {
 489       const char* param1;
 490       double param2;
 491       int result;
 492     } new_api;
 493
 494   };
 495 } s_smx_simcall_t, *smx_simcall_t;
 496
 497 SIMCALL_LIST(SIMCALL_RES_GETSET, SIMCALL_SEP_NOTHING)
 498 SIMCALL_LIST(SIMCALL_ARG_GETSET, SIMCALL_SEP_NOTHING)
 499
 500 /******************************** General *************************************/
 501
 502 void SIMIX_simcall_push(smx_process_t self);
 503 void SIMIX_simcall_answer(smx_simcall_t);
 504 void SIMIX_simcall_pre(smx_simcall_t, int);
 505 void SIMIX_simcall_post(smx_action_t);
 506 smx_simcall_t SIMIX_simcall_mine(void);
 507 const char *SIMIX_simcall_name(e_smx_simcall_t kind);
 508 //TOFIX put it in a better place
 509 xbt_dict_t SIMIX_pre_asr_get_properties(smx_simcall_t simcall, const char *name);
 510
 511 /*************************** New simcall interface ****************************/
 512
 513 typedef smx_action_t (*simcall_handler_t)(u_smx_scalar_t *);
 514
 515 extern const char *simcall_types[];
 516 extern simcall_handler_t simcall_table[];
 517
 518 SG_END_DECL()
 519
 520 #endif
 521