src/instr/jedule/jedule_sd_binding.cpp

   1 /* Copyright (c) 2010-2019. The SimGrid Team. All rights reserved.          */
   2
   3 /* This program is free software; you can redistribute it and/or modify it
   4  * under the terms of the license (GNU LGPL) which comes with this package. */
   5
   6 #include "simgrid/jedule/jedule.hpp"
   7 #include "src/simdag/simdag_private.hpp"
   8
   9 #include "simgrid/s4u/Engine.hpp"
  10 #include "simgrid/s4u/NetZone.hpp"
  11
  12 #if SIMGRID_HAVE_JEDULE
  13
  14 XBT_LOG_NEW_CATEGORY(jedule, "Logging specific to Jedule");
  15 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(jed_sd, jedule, "Logging specific to Jedule SD binding");
  16
  17 jedule_t my_jedule;
  18
  19 void jedule_log_sd_event(SD_task_t task)
  20 {
  21   xbt_assert(task != nullptr);
  22
  23   simgrid::jedule::Event event(std::string(SD_task_get_name(task)), SD_task_get_start_time(task),
  24                                SD_task_get_finish_time(task), "SD");
  25   event.add_resources(*task->allocation);
  26   my_jedule->event_set_.emplace_back(std::move(event));
  27 }
  28
  29 void jedule_sd_init()
  30 {
  31   sg_netzone_t root_comp = simgrid::s4u::Engine::get_instance()->get_netzone_root();
  32   XBT_DEBUG("root name %s\n", root_comp->get_cname());
  33
  34   my_jedule = new simgrid::jedule::Jedule(root_comp->get_name());
  35   my_jedule->root_container_.create_hierarchy(root_comp);
  36 }
  37
  38 void jedule_sd_exit()
  39 {
  40   delete my_jedule;
  41 }
  42
  43 void jedule_sd_dump(const char * filename)
  44 {
  45   if (my_jedule) {
  46     char *fname;
  47     if (not filename) {
  48       fname = bprintf("%s.jed", xbt_binary_name);
  49     } else {
  50       fname = xbt_strdup(filename);
  51     }
  52
  53     FILE *fh = fopen(fname, "w");
  54
  55     my_jedule->write_output(fh);
  56
  57     fclose(fh);
  58     xbt_free(fname);
  59   }
  60 }
  61 #endif