src/surf/network_ns3.cpp

   1 /* Copyright (c) 2007-2015. 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 "ns3/core-module.h"
   8 #include "ns3/node.h"
   9
  10 #include "ns3/ns3_interface.h"
  11 #include "ns3/ns3_simulator.h"
  12 #include "src/surf/network_ns3.hpp"
  13
  14 #include "src/surf/HostImpl.hpp"
  15 #include "src/surf/surf_private.h"
  16 #include "simgrid/sg_config.h"
  17 #include "src/instr/instr_private.h" // TRACE_is_enabled(). FIXME: remove by subscribing tracing to the surf signals
  18
  19 #include "simgrid/s4u/As.hpp"
  20
  21 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(ns3, surf, "Logging specific to the SURF network NS3 module");
  22
  23 int NS3_EXTENSION_ID;
  24
  25 xbt_dynar_t IPV4addr = xbt_dynar_new(sizeof(char*),free);
  26 static double time_to_next_flow_completion = -1;
  27
  28 /*****************
  29  * Crude globals *
  30  *****************/
  31
  32 extern xbt_dict_t dict_socket;
  33
  34 static ns3::InternetStackHelper stack;
  35 static ns3::NodeContainer nodes;
  36 static ns3::NodeContainer Cluster_nodes;
  37 static ns3::Ipv4InterfaceContainer interfaces;
  38
  39 static int number_of_nodes = 0;
  40 static int number_of_clusters_nodes = 0;
  41 static int number_of_links = 1;
  42 static int number_of_networks = 1;
  43 static int port_number = 1025; //Port number is limited from 1025 to 65 000
  44
  45 static NS3Sim* ns3_sim = 0;
  46
  47
  48 /*************
  49  * Callbacks *
  50  *************/
  51
  52 static void simgrid_ns3_add_host(simgrid::s4u::Host& host)
  53 {
  54   const char* id = host.name().c_str();
  55   XBT_DEBUG("NS3_ADD_HOST '%s'", id);
  56
  57   ns3_node_t ns3host  = xbt_new0(s_ns3_node_t,1);
  58   ns3::Ptr<ns3::Node> node =  ns3::CreateObject<ns3::Node> (0);
  59   stack.Install(node);
  60   nodes.Add(node);
  61   ns3host->node_num = number_of_nodes;
  62   ns3host->type = NS3_NETWORK_ELEMENT_HOST;
  63   number_of_nodes++;
  64
  65   host.extension_set(NS3_EXTENSION_ID, ns3host);
  66 }
  67
  68 static void parse_ns3_add_link(sg_platf_link_cbarg_t link)
  69 {
  70   XBT_DEBUG("NS3_ADD_LINK '%s'",link->id);
  71
  72   Link *l = surf_network_model->createLink(link->id, link->bandwidth, link->latency, link->policy, link->properties);
  73   if (link->bandwidth_trace)
  74     l->setBandwidthTrace(link->latency_trace);
  75   if (link->latency_trace)
  76     l->setLatencyTrace(link->latency_trace);
  77   if (link->state_trace)
  78     l->setStateTrace(link->state_trace);
  79 }
  80 static void simgrid_ns3_add_router(simgrid::surf::NetCard* router)
  81 {
  82   const char* router_id = router->name();
  83   XBT_DEBUG("NS3_ADD_ROUTER '%s'",router_id);
  84   xbt_lib_set(as_router_lib,
  85               router_id,
  86               NS3_ASR_LEVEL,
  87               ns3_add_router(router_id)
  88     );
  89 }
  90
  91 static void parse_ns3_add_AS(simgrid::s4u::As* as)
  92 {
  93   const char* as_id = as->name();
  94   XBT_DEBUG("NS3_ADD_AS '%s'", as_id);
  95   xbt_lib_set(as_router_lib, as_id, NS3_ASR_LEVEL, ns3_add_AS(as_id) );
  96 }
  97
  98 #include "src/surf/xml/platf.hpp" // FIXME: move that back to the parsing area
  99 static void parse_ns3_add_cluster(sg_platf_cluster_cbarg_t cluster)
 100 {
 101   const char *groups = NULL;
 102
 103   int start, end, i;
 104   unsigned int iter;
 105
 106   xbt_dynar_t radical_elements;
 107   xbt_dynar_t radical_ends;
 108   xbt_dynar_t tab_elements_num = xbt_dynar_new(sizeof(int), NULL);
 109
 110   char *router_id,*host_id;
 111
 112   radical_elements = xbt_str_split(cluster->radical, ",");
 113   xbt_dynar_foreach(radical_elements, iter, groups) {
 114     radical_ends = xbt_str_split(groups, "-");
 115
 116     switch (xbt_dynar_length(radical_ends)) {
 117     case 1:
 118       start = surf_parse_get_int(xbt_dynar_get_as(radical_ends, 0, char *));
 119       xbt_dynar_push_as(tab_elements_num, int, start);
 120       router_id = bprintf("ns3_%s%d%s", cluster->prefix, start, cluster->suffix);
 121       simgrid::s4u::Host::by_name_or_create(router_id)
 122         ->extension_set(NS3_EXTENSION_ID, ns3_add_host_cluster(router_id));
 123       XBT_DEBUG("NS3_ADD_ROUTER '%s'",router_id);
 124       free(router_id);
 125       break;
 126
 127     case 2:
 128       start = surf_parse_get_int(xbt_dynar_get_as(radical_ends, 0, char *));
 129       end = surf_parse_get_int(xbt_dynar_get_as(radical_ends, 1, char *));
 130       for (i = start; i <= end; i++){
 131         xbt_dynar_push_as(tab_elements_num, int, i);
 132         router_id = bprintf("ns3_%s%d%s", cluster->prefix, i, cluster->suffix);
 133         simgrid::s4u::Host::by_name_or_create(router_id)
 134           ->extension_set(NS3_EXTENSION_ID, ns3_add_host_cluster(router_id));
 135         XBT_DEBUG("NS3_ADD_ROUTER '%s'",router_id);
 136         free(router_id);
 137       }
 138       break;
 139
 140     default:
 141       XBT_DEBUG("Malformed radical");
 142     }
 143   }
 144
 145   //Create links
 146   unsigned int cpt;
 147   int elmts;
 148   char * lat = bprintf("%fs", cluster->lat);
 149   char * bw =  bprintf("%fBps", cluster->bw);
 150
 151   xbt_dynar_foreach(tab_elements_num,cpt,elmts)
 152   {
 153     host_id   = bprintf("%s%d%s", cluster->prefix, elmts, cluster->suffix);
 154     router_id = bprintf("ns3_%s%d%s", cluster->prefix, elmts, cluster->suffix);
 155     XBT_DEBUG("Create link from '%s' to '%s'",host_id,router_id);
 156
 157     ns3_node_t host_src = ns3_find_host(host_id);
 158     ns3_node_t host_dst = ns3_find_host(router_id);
 159
 160     if(host_src && host_dst){}
 161     else xbt_die("\tns3_add_link from %d to %d",host_src->node_num,host_dst->node_num);
 162
 163     ns3_add_link(host_src->node_num,host_src->type,
 164                  host_dst->node_num,host_dst->type,
 165                  bw,lat);
 166
 167     free(router_id);
 168     free(host_id);
 169   }
 170   xbt_free(lat);
 171   xbt_free(bw);
 172   xbt_dynar_free(&tab_elements_num);
 173
 174
 175   //Create link backbone
 176   lat = bprintf("%fs", cluster->bb_lat);
 177   bw =  bprintf("%fBps", cluster->bb_bw);
 178   ns3_add_cluster(bw,lat,cluster->id);
 179   xbt_free(lat);
 180   xbt_free(bw);
 181 }
 182
 183 /* Create the ns3 topology based on routing strategy */
 184 static void create_ns3_topology(void)
 185 {
 186   XBT_DEBUG("Starting topology generation");
 187
 188   xbt_dynar_shrink(IPV4addr,0);
 189
 190   //get the onelinks from the parsed platform
 191   xbt_dynar_t onelink_routes = routing_platf->getOneLinkRoutes();
 192   if (!onelink_routes)
 193     xbt_die("There is no routes!");
 194   XBT_DEBUG("Have get_onelink_routes, found %ld routes",onelink_routes->used);
 195   //save them in trace file
 196   simgrid::surf::Onelink *onelink;
 197   unsigned int iter;
 198   xbt_dynar_foreach(onelink_routes, iter, onelink) {
 199     char *src = onelink->src_->name();
 200     char *dst = onelink->dst_->name();
 201     simgrid::surf::LinkNS3 *link =
 202       static_cast<simgrid::surf::LinkNS3 *>(onelink->link_);
 203
 204     if (strcmp(src,dst) && link->m_created){
 205       XBT_DEBUG("Route from '%s' to '%s' with link '%s'", src, dst, link->getName());
 206       char * link_bdw = bprintf("%fBps", link->getBandwidth());
 207       char * link_lat = bprintf("%fs", link->getLatency());
 208       link->m_created = 0;
 209
 210       //   XBT_DEBUG("src (%s), dst (%s), src_id = %d, dst_id = %d",src,dst, src_id, dst_id);
 211       XBT_DEBUG("\tLink (%s) bdw:%s lat:%s", link->getName(), link_bdw, link_lat);
 212
 213       //create link ns3
 214       ns3_node_t host_src = ns3_find_host(src);
 215       if (!host_src)
 216         host_src = static_cast<ns3_node_t>(xbt_lib_get_or_null(as_router_lib,src,NS3_ASR_LEVEL));
 217       ns3_node_t host_dst = ns3_find_host(dst);
 218       if(!host_dst)
 219         host_dst = static_cast<ns3_node_t>(xbt_lib_get_or_null(as_router_lib,dst,NS3_ASR_LEVEL));
 220
 221       if (!host_src || !host_dst)
 222           xbt_die("\tns3_add_link from %d to %d",host_src->node_num,host_dst->node_num);
 223
 224       ns3_add_link(host_src->node_num,host_src->type,host_dst->node_num,host_dst->type,link_bdw,link_lat);
 225
 226       xbt_free(link_bdw);
 227       xbt_free(link_lat);
 228     }
 229   }
 230 }
 231
 232 static void parse_ns3_end_platform(void)
 233 {
 234   ns3_end_platform();
 235 }
 236
 237 static void define_callbacks_ns3(void)
 238 {
 239   simgrid::s4u::Host::onCreation.connect(simgrid_ns3_add_host);
 240   simgrid::surf::netcardCreatedCallbacks.connect(simgrid_ns3_add_router);
 241   simgrid::surf::on_link.connect (parse_ns3_add_link);
 242   simgrid::surf::on_cluster.connect (&parse_ns3_add_cluster);
 243   simgrid::surf::asCreatedCallbacks.connect(parse_ns3_add_AS);
 244   simgrid::surf::on_postparse.connect(&create_ns3_topology); //get_one_link_routes
 245   simgrid::surf::on_postparse.connect(&parse_ns3_end_platform); //InitializeRoutes
 246 }
 247
 248 /*********
 249  * Model *
 250  *********/
 251 static void free_ns3_link(void * elmts)
 252 {
 253   delete static_cast<simgrid::surf::LinkNS3*>(elmts);
 254 }
 255
 256 static void free_ns3_host(void * elmts)
 257 {
 258   ns3_node_t host = static_cast<ns3_node_t>(elmts);
 259   free(host);
 260 }
 261
 262 void surf_network_model_init_NS3()
 263 {
 264   if (surf_network_model)
 265     return;
 266
 267   surf_network_model = new simgrid::surf::NetworkNS3Model();
 268
 269   xbt_dynar_push(all_existing_models, &surf_network_model);
 270 }
 271
 272 namespace simgrid {
 273 namespace surf {
 274
 275 NetworkNS3Model::NetworkNS3Model() : NetworkModel() {
 276   if (ns3_initialize(xbt_cfg_get_string(_sg_cfg_set, "ns3/TcpModel"))) {
 277     xbt_die("Impossible to initialize NS3 interface");
 278   }
 279   routing_model_create(NULL);
 280   define_callbacks_ns3();
 281
 282   NS3_EXTENSION_ID = simgrid::s4u::Host::extension_create(free_ns3_host);
 283   NS3_ASR_LEVEL  = xbt_lib_add_level(as_router_lib, free_ns3_host);
 284 }
 285
 286 NetworkNS3Model::~NetworkNS3Model() {
 287   delete ns3_sim;
 288   xbt_dynar_free_container(&IPV4addr);
 289   xbt_dict_free(&dict_socket);
 290 }
 291
 292 Link* NetworkNS3Model::createLink(const char *name, double bandwidth, double latency, e_surf_link_sharing_policy_t policy,
 293     xbt_dict_t properties){
 294
 295   return new LinkNS3(this, name, properties, bandwidth, latency);
 296 }
 297
 298 Action *NetworkNS3Model::communicate(NetCard *src, NetCard *dst, double size, double rate)
 299 {
 300   XBT_DEBUG("Communicate from %s to %s", src->name(), dst->name());
 301   NetworkNS3Action *action = new NetworkNS3Action(this, size, 0);
 302
 303   ns3_create_flow(src->name(), dst->name(), surf_get_clock(), size, action);
 304
 305   action->m_lastSent = 0;
 306   action->p_srcElm = src;
 307   action->p_dstElm = dst;
 308   networkCommunicateCallbacks(action, src, dst, size, rate);
 309
 310   return (surf_action_t) action;
 311 }
 312
 313 double NetworkNS3Model::next_occuring_event(double now)
 314 {
 315   XBT_DEBUG("ns3_next_occuring_event");
 316
 317   //get the first relevant value from the running_actions list
 318   if (!getRunningActionSet()->size() || now == 0.0)
 319     return -1.0;
 320   else
 321     do {
 322       ns3_simulator(now);
 323       time_to_next_flow_completion = ns3::Simulator::Now().GetSeconds() - surf_get_clock();//FIXME: use now instead ?
 324     } while(double_equals(time_to_next_flow_completion, 0, sg_surf_precision));
 325
 326   XBT_DEBUG("min       : %f", now);
 327   XBT_DEBUG("ns3  time : %f", ns3::Simulator::Now().GetSeconds());
 328   XBT_DEBUG("surf time : %f", surf_get_clock());
 329   XBT_DEBUG("Next completion %f :", time_to_next_flow_completion);
 330
 331   return time_to_next_flow_completion;
 332 }
 333
 334 void NetworkNS3Model::updateActionsState(double now, double delta)
 335 {
 336   xbt_dict_cursor_t cursor = NULL;
 337   char *key;
 338   void *data;
 339
 340   static xbt_dynar_t socket_to_destroy = NULL;
 341   if(!socket_to_destroy) socket_to_destroy = xbt_dynar_new(sizeof(char*),NULL);
 342
 343   /* If there are no running flows, just return */
 344   if (!getRunningActionSet()->size()) {
 345     while(double_positive(now-ns3::Simulator::Now().GetSeconds(), sg_surf_precision)) {
 346       ns3_simulator(now-ns3::Simulator::Now().GetSeconds());
 347     }
 348     return;
 349   }
 350
 351   NetworkNS3Action *action;
 352   xbt_dict_foreach(dict_socket,cursor,key,data){
 353     action = static_cast<NetworkNS3Action*>(ns3_get_socket_action(data));
 354     XBT_DEBUG("Processing socket %p (action %p)",data,action);
 355     action->setRemains(action->getCost() - ns3_get_socket_sent(data));
 356
 357     if (TRACE_is_enabled() &&
 358         action->getState() == Action::State::running){
 359       double data_sent = ns3_get_socket_sent(data);
 360       double data_delta_sent = data_sent - action->m_lastSent;
 361
 362       std::vector<Link*> *route = new std::vector<Link*>();
 363
 364       routing_platf->getRouteAndLatency (action->p_srcElm, action->p_dstElm, route, NULL);
 365       for (auto link : *route)
 366         TRACE_surf_link_set_utilization (link->getName(), action->getCategory(), (data_delta_sent)/delta, now-delta, delta);
 367       delete route;
 368
 369       action->m_lastSent = data_sent;
 370     }
 371
 372     if(ns3_get_socket_is_finished(data) == 1){
 373       xbt_dynar_push(socket_to_destroy,&key);
 374       XBT_DEBUG("Destroy socket %p of action %p", key, action);
 375       action->finish();
 376       action->setState(Action::State::done);
 377     }
 378   }
 379
 380   while (!xbt_dynar_is_empty(socket_to_destroy)){
 381     xbt_dynar_pop(socket_to_destroy,&key);
 382
 383     void *data = xbt_dict_get (dict_socket, key);
 384     action = static_cast<NetworkNS3Action*>(ns3_get_socket_action(data));
 385     XBT_DEBUG ("Removing socket %p of action %p", key, action);
 386     xbt_dict_remove(dict_socket, key);
 387   }
 388   return;
 389 }
 390
 391 /************
 392  * Resource *
 393  ************/
 394
 395 LinkNS3::LinkNS3(NetworkNS3Model *model, const char *name, xbt_dict_t props, double bandwidth, double latency)
 396  : Link(model, name, props)
 397  , m_created(1)
 398 {
 399   m_bandwidth.peak = bandwidth;
 400   m_latency.peak = latency;
 401
 402   Link::onCreation(this);
 403 }
 404
 405 LinkNS3::~LinkNS3()
 406 {
 407 }
 408
 409 void LinkNS3::apply_event(tmgr_trace_iterator_t event, double value)
 410 {
 411   THROW_UNIMPLEMENTED;
 412 }
 413 void LinkNS3::setBandwidthTrace(tmgr_trace_t trace) {
 414   xbt_die("The NS3 network model doesn't support latency state traces");
 415 }
 416 void LinkNS3::setLatencyTrace(tmgr_trace_t trace) {
 417   xbt_die("The NS3 network model doesn't support latency state traces");
 418 }
 419
 420 /**********
 421  * Action *
 422  **********/
 423
 424 NetworkNS3Action::NetworkNS3Action(Model *model, double cost, bool failed)
 425 : NetworkAction(model, cost, failed)
 426 {}
 427
 428 void NetworkNS3Action::suspend()
 429 {
 430   THROW_UNIMPLEMENTED;
 431 }
 432
 433 void NetworkNS3Action::resume()
 434 {
 435   THROW_UNIMPLEMENTED;
 436 }
 437
 438   /* Test whether a flow is suspended */
 439 bool NetworkNS3Action::isSuspended()
 440 {
 441   return 0;
 442 }
 443
 444 int NetworkNS3Action::unref()
 445 {
 446   m_refcount--;
 447   if (!m_refcount) {
 448   if (action_hook.is_linked())
 449     p_stateSet->erase(p_stateSet->iterator_to(*this));
 450     XBT_DEBUG ("Removing action %p", this);
 451   delete this;
 452     return 1;
 453   }
 454   return 0;
 455 }
 456
 457 }
 458 }
 459
 460
 461
 462
 463
 464 void ns3_simulator(double min){
 465   ns3_sim->simulator_start(min);
 466 }
 467
 468 simgrid::surf::NetworkNS3Action* ns3_get_socket_action(void *socket){
 469   return ((MySocket *)socket)->action;
 470 }
 471
 472 double ns3_get_socket_remains(void *socket){
 473   return ((MySocket *)socket)->remaining;
 474 }
 475
 476 double ns3_get_socket_sent(void *socket){
 477   return ((MySocket *)socket)->sentBytes;
 478 }
 479
 480 bool ns3_get_socket_is_finished(void *socket){
 481   return ((MySocket *)socket)->finished;
 482 }
 483
 484 int ns3_create_flow(const char* a,const char *b,double start,u_int32_t TotalBytes,simgrid::surf::NetworkNS3Action * action)
 485 {
 486   ns3_node_t node1 = ns3_find_host(a);
 487   ns3_node_t node2 = ns3_find_host(b);
 488
 489   ns3::Ptr<ns3::Node> src_node = nodes.Get(node1->node_num);
 490   ns3::Ptr<ns3::Node> dst_node = nodes.Get(node2->node_num);
 491
 492   char* addr = (char*)xbt_dynar_get_as(IPV4addr,node2->node_num,char*);
 493
 494   XBT_DEBUG("ns3_create_flow %d Bytes from %d to %d with Interface %s",TotalBytes, node1->node_num, node2->node_num,addr);
 495   ns3_sim->create_flow_NS3(src_node, dst_node, port_number,
 496       start,
 497       addr,
 498       TotalBytes,
 499       action);
 500
 501   port_number++;
 502   if(port_number >= 65001 ) xbt_die("Too many connections! Port number is saturated.");
 503   return 0;
 504 }
 505
 506 // initialize the NS3 interface and environment
 507 int ns3_initialize(const char* TcpProtocol){
 508   xbt_assert(!ns3_sim, "ns3 already initialized");
 509   ns3_sim = new NS3Sim();
 510
 511 //  tcpModel are:
 512 //  "ns3::TcpNewReno"
 513 //  "ns3::TcpReno"
 514 //  "ns3::TcpTahoe"
 515
 516   ns3::Config::SetDefault ("ns3::TcpSocket::SegmentSize", ns3::UintegerValue (1024)); // 1024-byte packet for easier reading
 517   ns3::Config::SetDefault ("ns3::TcpSocket::DelAckCount", ns3::UintegerValue (1));
 518
 519   if(!strcmp(TcpProtocol,"default")){
 520     return 0;
 521   }
 522   if(!strcmp(TcpProtocol,"Reno")){
 523     XBT_INFO("Switching Tcp protocol to '%s'",TcpProtocol);
 524     ns3::Config::SetDefault ("ns3::TcpL4Protocol::SocketType", ns3::StringValue("ns3::TcpReno"));
 525     return 0;
 526   }
 527   if(!strcmp(TcpProtocol,"NewReno")){
 528     XBT_INFO("Switching Tcp protocol to '%s'",TcpProtocol);
 529     ns3::Config::SetDefault ("ns3::TcpL4Protocol::SocketType", ns3::StringValue("ns3::TcpNewReno"));
 530     return 0;
 531   }
 532   if(!strcmp(TcpProtocol,"Tahoe")){
 533     XBT_INFO("Switching Tcp protocol to '%s'",TcpProtocol);
 534     ns3::Config::SetDefault ("ns3::TcpL4Protocol::SocketType", ns3::StringValue("ns3::TcpTahoe"));
 535     return 0;
 536   }
 537
 538   XBT_ERROR("The ns3/TcpModel must be : NewReno or Reno or Tahoe");
 539   return 0;
 540 }
 541
 542 void * ns3_add_host_cluster(const char * id)
 543 {
 544   ns3_node_t host  = xbt_new0(s_ns3_node_t,1);
 545   XBT_DEBUG("Interface ns3 add host[%d] '%s'",number_of_nodes,id);
 546   ns3::Ptr<ns3::Node> node =  ns3::CreateObject<ns3::Node> (0);
 547   stack.Install(node);
 548   Cluster_nodes.Add(node);
 549   nodes.Add(node);
 550   host->node_num = number_of_nodes;
 551   host->type = NS3_NETWORK_ELEMENT_HOST;
 552   number_of_nodes++;
 553   return host;
 554 }
 555
 556 void * ns3_add_router(const char * id)
 557 {
 558   ns3_node_t router  = xbt_new0(s_ns3_node_t,1);
 559   XBT_DEBUG("Interface ns3 add router[%d] '%s'",number_of_nodes,id);
 560   ns3::Ptr<ns3::Node> node =  ns3::CreateObject<ns3::Node> (0);
 561   stack.Install(node);
 562   nodes.Add(node);
 563   router->node_num = number_of_nodes;
 564   router->type = NS3_NETWORK_ELEMENT_ROUTER;
 565   number_of_nodes++;
 566   return router;
 567 }
 568
 569 void ns3_add_cluster(char * bw,char * lat,const char *id)
 570 {
 571
 572   XBT_DEBUG("cluster_id: %s",id);
 573   XBT_DEBUG("bw: %s lat: %s",bw,lat);
 574   XBT_DEBUG("Number of %s nodes: %d",id,Cluster_nodes.GetN() - number_of_clusters_nodes);
 575
 576   ns3::NodeContainer Nodes;
 577
 578   for(unsigned int i = number_of_clusters_nodes; i < Cluster_nodes.GetN() ; i++){
 579     Nodes.Add(Cluster_nodes.Get(i));
 580     XBT_DEBUG("Add node %d to cluster",i);
 581   }
 582   number_of_clusters_nodes = Cluster_nodes.GetN();
 583
 584   XBT_DEBUG("Add router %d to cluster",nodes.GetN()-Nodes.GetN()-1);
 585   Nodes.Add(nodes.Get(nodes.GetN()-Nodes.GetN()-1));
 586
 587   if(Nodes.GetN() > 65000)
 588     xbt_die("Cluster with NS3 is limited to 65000 nodes");
 589   ns3::CsmaHelper csma;
 590   csma.SetChannelAttribute ("DataRate", ns3::StringValue (bw));
 591   csma.SetChannelAttribute ("Delay", ns3::StringValue (lat));
 592   ns3::NetDeviceContainer devices = csma.Install (Nodes);
 593   XBT_DEBUG("Create CSMA");
 594
 595   char * adr = bprintf("%d.%d.0.0",number_of_networks,number_of_links);
 596   XBT_DEBUG("Assign IP Addresses %s to CSMA.",adr);
 597   ns3::Ipv4AddressHelper ipv4;
 598   ipv4.SetBase (adr, "255.255.0.0");
 599   free(adr);
 600   interfaces.Add(ipv4.Assign (devices));
 601
 602   if(number_of_links == 255){
 603     if(number_of_networks == 255)
 604       xbt_die("Number of links and networks exceed 255*255");
 605     number_of_links = 1;
 606     number_of_networks++;
 607   }else{
 608     number_of_links++;
 609   }
 610   XBT_DEBUG("Number of nodes in Cluster_nodes: %d",Cluster_nodes.GetN());
 611 }
 612
 613 void * ns3_add_AS(const char * id)
 614 {
 615   XBT_DEBUG("Interface ns3 add AS '%s'",id);
 616   return NULL;
 617 }
 618
 619 static char* transformIpv4Address (ns3::Ipv4Address from){
 620   std::stringstream sstream;
 621     sstream << from ;
 622     std::string s = sstream.str();
 623     return bprintf("%s",s.c_str());
 624 }
 625
 626 void ns3_add_link(int src, e_ns3_network_element_type_t type_src,
 627           int dst, e_ns3_network_element_type_t type_dst,
 628           char *bw, char *lat)
 629 {
 630   if(number_of_links == 1 ) {
 631     LogComponentEnable("UdpEchoClientApplication", ns3::LOG_LEVEL_INFO);
 632     LogComponentEnable("UdpEchoServerApplication", ns3::LOG_LEVEL_INFO);
 633   }
 634
 635   ns3::MyPointToPointHelper pointToPoint;
 636
 637   ns3::NetDeviceContainer netA;
 638   ns3::Ipv4AddressHelper address;
 639
 640   ns3::Ptr<ns3::Node> a = nodes.Get(src);
 641   ns3::Ptr<ns3::Node> b = nodes.Get(dst);
 642
 643   XBT_DEBUG("\tAdd PTP from %d to %d bw:'%s' lat:'%s'",src,dst,bw,lat);
 644   pointToPoint.SetDeviceAttribute ("DataRate", ns3::StringValue (bw));
 645   pointToPoint.SetChannelAttribute ("Delay", ns3::StringValue (lat));
 646   //pointToPoint.EnablePcapAll("test_ns3_trace"); //DEBUG
 647
 648   netA.Add(pointToPoint.Install (a, type_src, b, type_dst));
 649
 650   char * adr = bprintf("%d.%d.0.0",number_of_networks,number_of_links);
 651   address.SetBase (adr, "255.255.0.0");
 652   XBT_DEBUG("\tInterface stack '%s'",adr);
 653   free(adr);
 654   interfaces.Add(address.Assign (netA));
 655
 656   char *tmp = transformIpv4Address(interfaces.GetAddress(interfaces.GetN()-2));
 657   xbt_dynar_set_as(IPV4addr,src,char*,tmp);
 658   XBT_DEBUG("Have write '%s' for Node '%d'",(char*)xbt_dynar_get_as(IPV4addr,src,char*),src);
 659
 660   tmp = transformIpv4Address(interfaces.GetAddress(interfaces.GetN()-1));
 661   xbt_dynar_set_as(IPV4addr,dst,char*,tmp);
 662   XBT_DEBUG("Have write '%s' for Node '%d'",(char*)xbt_dynar_get_as(IPV4addr,dst,char*),dst);
 663
 664   if(number_of_links == 255){
 665     if(number_of_networks == 255)
 666       xbt_die("Number of links and networks exceed 255*255");
 667     number_of_links = 1;
 668     number_of_networks++;
 669   }else{
 670     number_of_links++;
 671   }
 672 }
 673
 674 void ns3_end_platform(void)
 675 {
 676   XBT_DEBUG("InitializeRoutes");
 677   ns3::GlobalRouteManager::BuildGlobalRoutingDatabase();
 678   ns3::GlobalRouteManager::InitializeRoutes();
 679 }