-static xbt_dict_t action_funs;
-static xbt_dict_t action_queues;
-
-/* To split the file if a unique one is given (specific variable for the other case live in runner()) */
-static FILE *action_fp = NULL;
-static char *action_line = NULL;
-static size_t action_len = 0;
-
-static xbt_dynar_t action_get_action(char *name);
-
-/** \ingroup msg_actions
- * \brief Registers a function to handle a kind of action
- *
- * Registers a function to handle a kind of action
- * This table is then used by #MSG_action_trace_run
- *
- * The argument of the function is the line describing the action, splitted on spaces with xbt_str_split_quoted()
- *
- * \param name the reference name of the action.
- * \param code the function; prototype given by the type: void...(xbt_dynar_t action)
- */
-void MSG_action_register(const char *action_name, msg_action_fun function)
-{
- xbt_dict_set(action_funs, action_name, function, NULL);
-}
-
-/** \ingroup msg_actions
- * \brief Unregisters a function, which handled a kind of action
- *
- * \param name the reference name of the action.
- */
-void MSG_action_unregister(const char *action_name)
-{
- xbt_dict_remove(action_funs, action_name);
-}
-
-static int MSG_action_runner(int argc, char *argv[])
-{
- xbt_dynar_t evt = NULL;
- char *line = NULL;
- size_t line_len = 0;
- FILE *fp = NULL;
- char *comment = NULL;
- char *evtname = NULL;
- ssize_t read;
- if (action_fp) { // A unique trace file
-
- while ((evt = action_get_action(argv[0]))) {
- msg_action_fun function =
- xbt_dict_get(action_funs, xbt_dynar_get_as(evt, 1, char *));
- (*function) (evt);
- xbt_dynar_free(&evt);
- }
- } else { // Should have got my trace file in argument
- xbt_assert1(argc >= 2,
- "No '%s' agent function provided, no simulation-wide trace file provided to MSG_action_trace_run(), "
- "and no process-wide trace file provided in deployment file. Aborting.",
- argv[0]
- );
-
- fp = fopen(argv[1], "r");
- xbt_assert2(fp != NULL, "Cannot open %s: %s", argv[1],
- strerror(errno));
-
- // Read lines and execute them until I reach the end of file
- while ((read = getline(&line, &line_len, fp)) != -1) {
- // cleanup and split the string I just read
- comment = strchr(line, '#');
- if (comment != NULL)
- *comment = '\0';
- xbt_str_trim(line, NULL);
- if (line[0] == '\0')
- continue;
- evt = xbt_str_split_quoted(line);
-
- evtname = xbt_dynar_get_as(evt, 0, char *);
- if (!strcmp(argv[0], evtname)) {
- msg_action_fun function =
- xbt_dict_get(action_funs, xbt_dynar_get_as(evt, 1, char *));
- (*function) (evt);
- } else {
- WARN1("Ignore trace element not for me: %s",
- xbt_str_join(evt, " "));
- }
- xbt_dynar_free(&evt);
- }
- fclose(fp);
-
- }
- return 0;
-}