src/kernel/resource/StandardLinkImpl.cpp

   1 /* Copyright (c) 2013-2023. 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/s4u/Engine.hpp>
   7
   8 #include "src/kernel/resource/StandardLinkImpl.hpp"
   9 #include <numeric>
  10
  11 XBT_LOG_EXTERNAL_DEFAULT_CATEGORY(res_network);
  12
  13 /*********
  14  * Model *
  15  *********/
  16
  17 namespace simgrid::kernel::resource {
  18
  19 StandardLinkImpl::StandardLinkImpl(const std::string& name) : LinkImpl(name), piface_(this)
  20 {
  21   if (name != "__loopback__")
  22     xbt_assert(not s4u::Link::by_name_or_null(name), "Link '%s' declared several times in the platform.", name.c_str());
  23
  24   XBT_DEBUG("Create link '%s'", name.c_str());
  25 }
  26
  27 void StandardLinkImpl::Deleter::operator()(resource::StandardLinkImpl* link) const
  28 {
  29   link->destroy();
  30 }
  31
  32 /** @brief Fire the required callbacks and destroy the object
  33  *
  34  * Don't delete directly a Link, call l->destroy() instead.
  35  */
  36 void StandardLinkImpl::destroy()
  37 {
  38   s4u::Link::on_destruction(piface_);
  39   piface_.on_this_destruction(piface_);
  40   delete this;
  41 }
  42
  43 constexpr kernel::lmm::Constraint::SharingPolicy to_maxmin_policy(s4u::Link::SharingPolicy policy)
  44 {
  45   switch (policy) {
  46     case s4u::Link::SharingPolicy::WIFI:
  47       return kernel::lmm::Constraint::SharingPolicy::WIFI;
  48     case s4u::Link::SharingPolicy::NONLINEAR:
  49       return kernel::lmm::Constraint::SharingPolicy::NONLINEAR;
  50     case s4u::Link::SharingPolicy::FATPIPE:
  51       return kernel::lmm::Constraint::SharingPolicy::FATPIPE;
  52     default:
  53       return kernel::lmm::Constraint::SharingPolicy::SHARED;
  54   }
  55 }
  56
  57 void StandardLinkImpl::set_sharing_policy(s4u::Link::SharingPolicy policy, const s4u::NonLinearResourceCb& cb)
  58 {
  59   get_constraint()->set_sharing_policy(to_maxmin_policy(policy), cb);
  60   sharing_policy_ = policy;
  61 }
  62
  63 void StandardLinkImpl::latency_check(double latency) const
  64 {
  65   static double last_warned_latency = sg_precision_timing;
  66   if (latency != 0.0 && latency < last_warned_latency) {
  67     XBT_WARN("Latency for link %s is smaller than precision/timing (%g < %g)."
  68              " For more accuracy, consider setting \"--cfg=precision/timing:%g\".",
  69              get_cname(), latency, sg_precision_timing, latency);
  70     last_warned_latency = latency;
  71   }
  72 }
  73
  74 StandardLinkImpl* StandardLinkImpl::set_englobing_zone(routing::NetZoneImpl* englobing_zone)
  75 {
  76   englobing_zone_ = englobing_zone;
  77   return this;
  78 }
  79
  80 void StandardLinkImpl::turn_on()
  81 {
  82   if (not is_on()) {
  83     Resource::turn_on();
  84     s4u::Link::on_onoff(piface_);
  85     piface_.on_this_onoff(piface_);
  86   }
  87 }
  88
  89 void StandardLinkImpl::turn_off()
  90 {
  91   if (is_on()) {
  92     Resource::turn_off();
  93     s4u::Link::on_onoff(piface_);
  94     piface_.on_this_onoff(piface_);
  95     cancel_actions();
  96   }
  97 }
  98
  99 void StandardLinkImpl::seal()
 100 {
 101   if (is_sealed())
 102     return;
 103
 104   xbt_assert(this->get_model(), "Cannot seal Link(%s) without setting the Network model first", this->get_cname());
 105   Resource::seal();
 106 }
 107
 108 void StandardLinkImpl::on_bandwidth_change() const
 109 {
 110   s4u::Link::on_bandwidth_change(piface_);
 111   piface_.on_this_bandwidth_change(piface_);
 112 }
 113
 114 void StandardLinkImpl::set_bandwidth_profile(profile::Profile* profile)
 115 {
 116   if (profile) {
 117     xbt_assert(bandwidth_.event == nullptr, "Cannot set a second bandwidth profile to Link %s", get_cname());
 118     bandwidth_.event = profile->schedule(&profile::future_evt_set, this);
 119   }
 120 }
 121
 122 void StandardLinkImpl::set_latency_profile(profile::Profile* profile)
 123 {
 124   if (profile) {
 125     xbt_assert(latency_.event == nullptr, "Cannot set a second latency profile to Link %s", get_cname());
 126     latency_.event = profile->schedule(&profile::future_evt_set, this);
 127   }
 128 }
 129
 130 } // namespace simgrid::kernel::resource