X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/0bac7d0f735ac8ba47a46e1db4f6d7a7164fe0f2..8f4c00936fdabbd005cbf15ca132ceb248f72dcd:/src/s4u/s4u_host.cpp diff --git a/src/s4u/s4u_host.cpp b/src/s4u/s4u_host.cpp index 6f35dfb5a4..dcfa890cd1 100644 --- a/src/s4u/s4u_host.cpp +++ b/src/s4u/s4u_host.cpp @@ -4,82 +4,265 @@ /* This program is free software; you can redistribute it and/or modify it * under the terms of the license (GNU LGPL) which comes with this package. */ -#include "xbt/log.h" -#include "src/msg/msg_private.h" -#include "src/simix/smx_process_private.h" +#include +#include +#include +#include + +#include "simgrid/s4u/engine.hpp" #include "simgrid/s4u/host.hpp" #include "simgrid/s4u/storage.hpp" +#include "simgrid/simix.hpp" +#include "src/kernel/routing/NetPoint.hpp" +#include "src/msg/msg_private.h" +#include "src/simix/ActorImpl.hpp" +#include "src/simix/smx_private.h" +#include "src/surf/HostImpl.hpp" +#include "src/surf/cpu_interface.hpp" +#include "xbt/log.h" + +XBT_LOG_EXTERNAL_CATEGORY(surf_route); + +std::map host_list; // FIXME: move it to Engine + +int USER_HOST_LEVEL = -1; namespace simgrid { + +namespace xbt { +template class Extendable; +} + namespace s4u { -boost::unordered_map *Host::hosts - = new boost::unordered_map(); +simgrid::xbt::signal Host::onCreation; +simgrid::xbt::signal Host::onDestruction; +simgrid::xbt::signal Host::onStateChange; +simgrid::xbt::signal Host::onSpeedChange; -Host::Host(const char*name) +Host::Host(const char* name) + : name_(name) { - p_inferior = sg_host_by_name(name); - if (p_inferior==NULL) - xbt_die("No such host: %s",name); //FIXME: raise an exception -} -Host::~Host() { - if (mounts != NULL) - delete mounts; + xbt_assert(Host::by_name_or_null(name) == nullptr, "Refusing to create a second host named '%s'.", name); + host_list[name_] = this; + new simgrid::surf::HostImpl(this); } -Host *Host::byName(std::string name) { - Host * res = NULL; - try { - res = hosts->at(name); - } catch (std::out_of_range& e) {} +Host::~Host() +{ + xbt_assert(currentlyDestroying_, "Please call h->destroy() instead of manually deleting it."); - if (res==NULL) { - res = new Host(name.c_str()); - hosts->insert({name,res}); - } - return res; + delete pimpl_; + if (pimpl_netpoint != nullptr) // not removed yet by a children class + simgrid::s4u::Engine::instance()->netpointUnregister(pimpl_netpoint); + delete pimpl_cpu; + delete mounts; +} + +/** @brief Fire the required callbacks and destroy the object + * + * Don't delete directly an Host, call h->destroy() instead. + * + * This is cumbersome but this is the simplest solution to ensure that the + * onDestruction() callback receives a valid object (because of the destructor + * order in a class hierarchy). + */ +void Host::destroy() +{ + if (!currentlyDestroying_) { + currentlyDestroying_ = true; + onDestruction(*this); + host_list.erase(name_); + delete this; + } } -Host *Host::current(){ - smx_process_t smx_proc = SIMIX_process_self(); - if (smx_proc == NULL) - xbt_die("Cannot call Host::current() from the maestro context"); - return Host::byName(sg_host_get_name(SIMIX_process_get_host(smx_proc))); +Host* Host::by_name(std::string name) +{ + return host_list.at(name); // Will raise a std::out_of_range if the host does not exist +} +Host* Host::by_name_or_null(const char* name) +{ + return by_name_or_null(std::string(name)); +} +Host* Host::by_name_or_null(std::string name) +{ + if (host_list.find(name) == host_list.end()) + return nullptr; + return host_list.at(name); } -const char* Host::name() { - return sg_host_get_name(p_inferior); +Host *Host::current(){ + smx_actor_t smx_proc = SIMIX_process_self(); + if (smx_proc == nullptr) + xbt_die("Cannot call Host::current() from the maestro context"); + return smx_proc->host; } void Host::turnOn() { - simcall_host_on(p_inferior); + if (isOff()) { + simgrid::simix::kernelImmediate([this] { + this->extension()->turnOn(); + this->pimpl_cpu->turnOn(); + onStateChange(*this); + }); + } } + void Host::turnOff() { - simcall_host_off(p_inferior); + if (isOn()) { + smx_actor_t self = SIMIX_process_self(); + simgrid::simix::kernelImmediate([this, self] { + SIMIX_host_off(this, self); + onStateChange(*this); + }); + } } + bool Host::isOn() { - return sg_host_get_state(p_inferior); + return this->pimpl_cpu->isOn(); } -boost::unordered_map &Host::mountedStorages() { - if (mounts == NULL) { - mounts = new boost::unordered_map (); +int Host::pstatesCount() const { + return this->pimpl_cpu->getNbPStates(); +} - xbt_dict_t dict = simcall_host_get_mounted_storage_list(p_inferior); +/** + * \brief Find a route toward another host + * + * \param dest [IN] where to + * \param links [OUT] where to store the list of links (must exist, cannot be nullptr). + * \param latency [OUT] where to store the latency experienced on the path (or nullptr if not interested) + * It is the caller responsibility to initialize latency to 0 (we add to provided route) + * \pre links!=nullptr + * + * walk through the routing components tree and find a route between hosts + * by calling each "get_route" function in each routing component. + */ +void Host::routeTo(Host* dest, std::vector* links, double* latency) +{ + std::vector linkImpls; + this->routeTo(dest, &linkImpls, latency); + for (surf::LinkImpl* l : linkImpls) + links->push_back(&l->piface_); +} +/** @brief Just like Host::routeTo, but filling an array of link implementations */ +void Host::routeTo(Host* dest, std::vector* links, double* latency) +{ + simgrid::kernel::routing::NetZoneImpl::getGlobalRoute(pimpl_netpoint, dest->pimpl_netpoint, links, latency); + if (XBT_LOG_ISENABLED(surf_route, xbt_log_priority_debug)) { + XBT_CDEBUG(surf_route, "Route from '%s' to '%s' (latency: %f):", cname(), dest->cname(), + (latency == nullptr ? -1 : *latency)); + for (auto link : *links) + XBT_CDEBUG(surf_route, "Link %s", link->cname()); + } +} - xbt_dict_cursor_t cursor; - char *mountname; - char *storagename; - xbt_dict_foreach(dict, cursor, mountname, storagename) { - mounts->insert({mountname, Storage::byName(storagename)}); - } - xbt_dict_free(&dict); - } +boost::unordered_map const& Host::mountedStorages() { + if (mounts == nullptr) { + mounts = new boost::unordered_map (); - return *mounts; + xbt_dict_t dict = this->mountedStoragesAsDict(); + + xbt_dict_cursor_t cursor; + char *mountname; + char *storagename; + xbt_dict_foreach(dict, cursor, mountname, storagename) { + mounts->insert({mountname, &Storage::byName(storagename)}); + } + xbt_dict_free(&dict); + } + + return *mounts; +} + +/** Get the properties assigned to a host */ +xbt_dict_t Host::properties() { + return simgrid::simix::kernelImmediate([this] { + return this->pimpl_->getProperties(); + }); } +/** Retrieve the property value (or nullptr if not set) */ +const char*Host::property(const char*key) { + return this->pimpl_->getProperty(key); +} +void Host::setProperty(const char*key, const char *value){ + simgrid::simix::kernelImmediate([this, key, value] { + this->pimpl_->setProperty(key, value); + }); +} + +/** Get the processes attached to the host */ +xbt_swag_t Host::processes() +{ + return simgrid::simix::kernelImmediate([this] { + return this->extension()->process_list; + }); +} + +/** Get the peak power of a host */ +double Host::getPstateSpeedCurrent() +{ + return simgrid::simix::kernelImmediate([this] { + return this->pimpl_cpu->getPstateSpeedCurrent(); + }); +} + +/** Get one power peak (in flops/s) of a host at a given pstate */ +double Host::getPstateSpeed(int pstate_index) +{ + return simgrid::simix::kernelImmediate([this, pstate_index] { + return this->pimpl_cpu->getPstateSpeed(pstate_index); + }); +} + +/** @brief Get the speed of the cpu associated to a host */ +double Host::speed() { + return pimpl_cpu->getSpeed(1.0); +} +/** @brief Returns the number of core of the processor. */ +int Host::coreCount() { + return pimpl_cpu->coreCount(); +} + +/** @brief Set the pstate at which the host should run */ +void Host::setPstate(int pstate_index) +{ + simgrid::simix::kernelImmediate([this, pstate_index] { + this->pimpl_cpu->setPState(pstate_index); + }); +} +/** @brief Retrieve the pstate at which the host is currently running */ +int Host::pstate() +{ + return this->pimpl_cpu->getPState(); +} + +/** + * \ingroup simix_storage_management + * \brief Returns the list of storages mounted on an host. + * \return a dict containing all storages mounted on the host + */ +xbt_dict_t Host::mountedStoragesAsDict() +{ + return simgrid::simix::kernelImmediate([this] { + return this->pimpl_->getMountedStorageList(); + }); +} + +/** + * \ingroup simix_storage_management + * \brief Returns the list of storages attached to an host. + * \return a dict containing all storages attached to the host + */ +std::vector Host::attachedStorages() +{ + return simgrid::simix::kernelImmediate([this] { + return this->pimpl_->getAttachedStorageList(); + }); +} } // namespace simgrid } // namespace s4u