deployment.cpp

   1 #include "deployment.h"
   2
   3 #include <iomanip>
   4 #include <sstream>
   5 #include <msg/msg.h>
   6 #include <xbt/dynar.h>
   7 #include <xbt/log.h>
   8 #include "hostdata.h"
   9 #include "options.h"
  10
  11 XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(depl);
  12
  13 void MY_launch_application()
  14 {
  15     deployment_generator* gen;
  16     gen = opt::topologies.new_instance(opt::auto_depl::topology);
  17     gen->generate();
  18     gen->deploy();
  19     delete gen;
  20 }
  21
  22 deployment_generator::deployment_generator()
  23     : hosts(opt::auto_depl::nhosts)
  24 {
  25     set_load(0, opt::auto_depl::load);
  26 }
  27
  28 void deployment_generator::set_load(int host, double load)
  29 {
  30     hosts[host].load = load;
  31 }
  32
  33 void deployment_generator::set_neighbor(int host, int neighbor)
  34 {
  35     hosts[host].neighbors.push_back(neighbor);
  36 }
  37
  38 void deployment_generator::set_link(int host1, int host2)
  39 {
  40     set_neighbor(host1, host2);
  41     set_neighbor(host2, host1);
  42 }
  43
  44 void deployment_generator::deploy()
  45 {
  46     const char* func = "simulation_main";
  47     xbt_dynar_t args = xbt_dynar_new(sizeof(const char*), NULL);
  48     for (unsigned i = 0 ; i < hosts.size() ; ++i) {
  49         const char* hostname = hostdata::at(i).get_name();
  50         std::ostringstream oss;
  51         oss << std::setprecision(12) << hosts[i].load;
  52         std::string strload = oss.str();
  53         DEBUG2("%s/load -> \"%s\"", hostname, strload.c_str());
  54         xbt_dynar_push_as(args, const char*, strload.c_str());
  55         for (unsigned j = 0 ; j < hosts[i].neighbors.size() ; ++j) {
  56             int neighbor = hosts[i].neighbors[j];
  57             const char* neighbor_name = hostdata::at(neighbor).get_name();
  58             DEBUG2("%s/neighbor -> \"%s\"", hostname, neighbor_name);
  59             xbt_dynar_push_as(args, const char*, neighbor_name);
  60         }
  61         MSG_set_function(hostname, func, args);
  62         xbt_dynar_reset(args);
  63     }
  64     xbt_dynar_free(&args);
  65 }
  66
  67 void deployment_btree::generate()
  68 {
  69     for (unsigned i = 0 ; i < size() / 2 ; ++i) {
  70         unsigned left_child = 2 * i + 1;
  71         unsigned right_child = 2 * i + 2;
  72         if (left_child < size()) {
  73             set_link(i, left_child);
  74             if (right_child < size())
  75                 set_link(i, right_child);
  76         }
  77     }
  78 }
  79
  80 void deployment_clique::generate()
  81 {
  82     for (unsigned i = 0 ; i < size() ; ++i)
  83         for (unsigned j = 0 ; j < i ; ++j)
  84             set_link(i, j);
  85 }
  86
  87 void deployment_hcube::generate()
  88 {
  89     for (unsigned i = 0 ; i < size() ; ++i)
  90         for (unsigned j = 0 ; j < i ; ++j) {
  91             // Adapted from rom http://en.wikipedia.org/wiki/Hamming_distance
  92             unsigned dist = 0;
  93             unsigned val = i ^ j;
  94
  95             // Count the number of set bits
  96             while (val && dist < 2) {
  97                 ++dist;
  98                 val &= val - 1;
  99             }
 100             if (dist == 1)
 101                 set_link(i, j);
 102         }
 103 }
 104
 105 void deployment_line::generate()
 106 {
 107     for (unsigned i = 0 ; i < size() - 1 ; ++i)
 108         set_link(i, i + 1);
 109 }
 110
 111 void deployment_ring::generate()
 112 {
 113     set_neighbor(0, size() - 1);
 114     for (unsigned i = 0 ; i < size() - 1 ; ++i)
 115         set_link(i, i + 1);
 116     set_neighbor(size() - 1, 0);
 117 }
 118
 119 void deployment_star::generate()
 120 {
 121     for (unsigned i = 1 ; i < size() ; ++i)
 122         set_link(0, i);
 123 }
 124
 125 void deployment_torus::generate()
 126 {
 127     unsigned a = 0;
 128     unsigned b = size();
 129     while (a + 1 < b) {
 130         unsigned c = (a + b) / 2;
 131         if (c * c < size())
 132             a = c;
 133         else
 134             b = c;
 135     }
 136     unsigned width = b;
 137
 138     unsigned first_on_last_line = (size() - 1) - (size() - 1) % width;
 139     DEBUG4("torus size = %u ; width = %u ; height = %u ; foll = %u",
 140            (unsigned )size(), width,
 141            (unsigned )(size() / width + !!(size() % width)),
 142            first_on_last_line);
 143     for (unsigned i = 0; i < size(); i++) {
 144         unsigned next_line;
 145         unsigned prev_line;
 146         unsigned next_column;
 147         unsigned prev_column;
 148
 149         next_line = i + width;
 150         if (next_line >= size())
 151             next_line %= width; // rewind
 152
 153         if (i >= width) {
 154             prev_line = i - width;
 155         } else {
 156             prev_line = first_on_last_line + i; // rewind
 157             if (prev_line >= size())
 158                 prev_line -= width; // need to go at last but one line
 159         }
 160
 161         if (i != size() - 1) {
 162             next_column = i + 1;
 163             if (next_column % width == 0)
 164                 next_column -= width; // rewind
 165         } else {
 166             next_column = first_on_last_line; // special case for last cell
 167         }
 168
 169         if (i % width != 0) {
 170             prev_column = i - 1;
 171         } else if (i < first_on_last_line) {
 172             prev_column = i + width - 1; // rewind
 173         } else {
 174             prev_column = size() - 1; // special case for 1st cell of last line
 175         }
 176         if (next_line != i) {
 177             set_neighbor(i, next_line);
 178             if (prev_line != next_line)
 179                 set_neighbor(i, prev_line);
 180         }
 181         if (next_column != i) {
 182             set_neighbor(i, next_column);
 183             if (prev_column != next_column)
 184                 set_neighbor(i, prev_column);
 185         }
 186     }
 187 }