X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/892e136b3be07e45110a5a2db2889470386e954a..1bf033cc925aa31693ef5163ea056fde5b75ff1e:/src/msg/msg_mailbox.cpp diff --git a/src/msg/msg_mailbox.cpp b/src/msg/msg_mailbox.cpp index 06413a6342..12bb63293e 100644 --- a/src/msg/msg_mailbox.cpp +++ b/src/msg/msg_mailbox.cpp @@ -1,46 +1,15 @@ /* Mailboxes in MSG */ -/* Copyright (c) 2008-2015. The SimGrid Team. - * All rights reserved. */ +/* Copyright (c) 2008-2018. The SimGrid Team. All rights reserved. */ /* 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 "simgrid/msg.h" -#include "msg_private.h" +#include "simgrid/s4u/Mailbox.hpp" +#include "src/msg/msg_private.hpp" XBT_LOG_NEW_DEFAULT_SUBCATEGORY(msg_mailbox, msg, "Logging specific to MSG (mailbox)"); -msg_mailbox_t MSG_mailbox_new(const char *alias) -{ - return simcall_mbox_create(alias); -} - -int MSG_mailbox_is_empty(msg_mailbox_t mailbox) -{ - return (nullptr == simcall_mbox_front(mailbox)); -} - -msg_task_t MSG_mailbox_front(msg_mailbox_t mailbox) -{ - simgrid::simix::Comm* comm = static_cast(simcall_mbox_front(mailbox)); - - if (!comm) - return nullptr; - - return (msg_task_t) comm->src_data; -} - -msg_mailbox_t MSG_mailbox_get_by_alias(const char *alias) -{ - msg_mailbox_t mailbox = simcall_mbox_get_by_name(alias); - - if (!mailbox) - mailbox = MSG_mailbox_new(alias); - - return mailbox; -} - /** \ingroup msg_mailbox_management * \brief Set the mailbox to receive in asynchronous mode * @@ -51,86 +20,6 @@ msg_mailbox_t MSG_mailbox_get_by_alias(const char *alias) * \param alias The name of the mailbox */ void MSG_mailbox_set_async(const char *alias){ - msg_mailbox_t mailbox = MSG_mailbox_get_by_alias(alias); - - simcall_mbox_set_receiver(mailbox, SIMIX_process_self()); - XBT_VERB("%s mailbox set to receive eagerly for process %p\n",alias, SIMIX_process_self()); -} - -/** \ingroup msg_mailbox_management - * \brief Get a task from a mailbox on a given host - * - * \param mailbox The mailbox where the task was sent - * \param task a memory location for storing a #msg_task_t. - * \param host a #msg_host_t host from where the task was sent - * \param timeout a timeout - - * \return Returns - * #MSG_OK if the task was successfully received, - * #MSG_HOST_FAILURE, or #MSG_TRANSFER_FAILURE otherwise. - */ -msg_error_t MSG_mailbox_get_task_ext(msg_mailbox_t mailbox, msg_task_t *task, msg_host_t host, double timeout) -{ - return MSG_mailbox_get_task_ext_bounded(mailbox, task, host, timeout, -1.0); -} - -/** \ingroup msg_mailbox_management - * \brief Get a task from a mailbox on a given host at a given rate - * - * \param mailbox The mailbox where the task was sent - * \param task a memory location for storing a #msg_task_t. - * \param host a #msg_host_t host from where the task was sent - * \param timeout a timeout - * \param rate a rate - - * \return Returns - * #MSG_OK if the task was successfully received, - * #MSG_HOST_FAILURE, or #MSG_TRANSFER_FAILURE otherwise. - */ -msg_error_t MSG_mailbox_get_task_ext_bounded(msg_mailbox_t mailbox, msg_task_t * task, msg_host_t host, double timeout, - double rate) -{ - msg_error_t ret = MSG_OK; - /* We no longer support getting a task from a specific host */ - if (host) - THROW_UNIMPLEMENTED; - - TRACE_msg_task_get_start(); - double start_time = MSG_get_clock(); - - /* Sanity check */ - xbt_assert(task, "Null pointer for the task storage"); - - if (*task) - XBT_WARN("Asked to write the received task in a non empty struct -- proceeding."); - - /* Try to receive it by calling SIMIX network layer */ - try { - simcall_comm_recv(MSG_process_self(), mailbox, task, nullptr, nullptr, nullptr, nullptr, timeout, rate); - XBT_DEBUG("Got task %s from %p",(*task)->name,mailbox); - (*task)->simdata->setNotUsed(); - } - catch (xbt_ex& e) { - switch (e.category) { - case cancel_error: - ret = MSG_HOST_FAILURE; - break; - case network_error: - ret = MSG_TRANSFER_FAILURE; - break; - case timeout_error: - ret = MSG_TIMEOUT; - break; - case host_error: - ret = MSG_HOST_FAILURE; - break; - default: - throw; - } - } - - if (ret != MSG_HOST_FAILURE && ret != MSG_TRANSFER_FAILURE && ret != MSG_TIMEOUT) { - TRACE_msg_task_get_end(start_time, *task); - } - MSG_RETURN(ret); + simgrid::s4u::Mailbox::by_name(alias)->set_receiver(simgrid::s4u::Actor::self()); + XBT_VERB("%s mailbox set to receive eagerly for myself\n",alias); }