deployment.cpp

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