src/instr/jedule/jedule_events.cpp

   1 /* Copyright (c) 2010-2014. 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 #include "simgrid/jedule/jedule_events.hpp"
   8 #include "simgrid/jedule/jedule.hpp"
   9 #include <stdio.h>
  10 #include <stdlib.h>
  11 #include <string>
  12
  13 #include "xbt/asserts.h"
  14
  15 #if HAVE_JEDULE
  16 namespace simgrid{
  17 namespace jedule{
  18
  19 Event::~Event(){
  20   while (!this->resource_subsets.empty()){
  21     xbt_free(this->resource_subsets.back());
  22     this->resource_subsets.pop_back();
  23   }
  24 }
  25
  26 void Event::addResources(std::vector<sg_host_t> *host_selection) {
  27   xbt_dynar_t resource_subset_list;
  28   jed_res_subset_t res_set;
  29   unsigned int i;
  30
  31   resource_subset_list = xbt_dynar_new(sizeof(jed_res_subset_t), nullptr);
  32
  33   jed_simgrid_get_resource_selection_by_hosts(resource_subset_list, host_selection);
  34   xbt_dynar_foreach(resource_subset_list, i, res_set)  {
  35     this->resource_subsets.push_back(res_set);
  36   }
  37
  38   xbt_dynar_free_container(&resource_subset_list);
  39 }
  40
  41 void Event::addCharacteristic(char *characteristic) {
  42   xbt_assert( characteristic != nullptr );
  43   this->characteristics_list.push_back(characteristic);
  44 }
  45
  46 void Event::addInfo(char* key, char *value) {
  47   xbt_assert((key != nullptr) && value != nullptr);
  48   this->info_map.insert({key, value});
  49 }
  50
  51 void Event::print(FILE *jed_file){
  52   fprintf(jed_file, "    <event>\n");
  53   fprintf(jed_file, "      <prop key=\"name\" value=\"%s\" />\n", this->name.c_str());
  54   fprintf(jed_file, "      <prop key=\"start\" value=\"%g\" />\n", this->start_time);
  55   fprintf(jed_file, "      <prop key=\"end\" value=\"%g\" />\n", this->end_time);
  56   fprintf(jed_file, "      <prop key=\"type\" value=\"%s\" />\n", this->type.c_str());
  57
  58   xbt_assert(!this->resource_subsets.empty());
  59   fprintf(jed_file, "      <res_util>\n");
  60   for (auto subset: this->resource_subsets) {
  61     fprintf(jed_file, "        <select resources=\"");
  62     fprintf(jed_file, "%s", subset->parent->getHierarchyAsString().c_str());
  63     fprintf(jed_file, ".[%d-%d]", subset->start_idx, subset->start_idx + subset->nres - 1);
  64     fprintf(jed_file, "\" />\n");
  65   }
  66   fprintf(jed_file, "      </res_util>\n");
  67
  68   if (!this->characteristics_list.empty()){
  69     fprintf(jed_file, "      <characteristics>\n");
  70     for (auto ch: this->characteristics_list)
  71       fprintf(jed_file, "          <characteristic name=\"%s\" />\n", ch);
  72     fprintf(jed_file, "      </characteristics>\n");
  73   }
  74
  75   if (!this->info_map.empty()){
  76     fprintf(jed_file, "      <info>\n");
  77     for (auto elm: this->info_map)
  78       fprintf(jed_file, "        <prop key=\"%s\" value=\"%s\" />\n",elm.first,elm.second);
  79     fprintf(jed_file, "      </info>\n");
  80   }
  81
  82   fprintf(jed_file, "    </event>\n");
  83 }
  84
  85 }
  86 }
  87 #endif