-void simcall_call(smx_actor_t process)
-{
- if (process != simix_global->maestro_process) {
- XBT_DEBUG("Yield process '%s' on simcall %s (%d)", process->name.c_str(),
- SIMIX_simcall_name(process->simcall.call), (int)process->simcall.call);
- SIMIX_process_yield(process);
- } else {
- SIMIX_simcall_handle(&process->simcall, 0);
- }
-}
-
-// ***** AS simcalls
-
-/**
- * \ingroup simix_host_management
- * \brief Returns a dict of the properties assigned to a router or AS.
- *
- * \param name The name of the router or AS
- * \return The properties
- */
-xbt_dict_t simcall_asr_get_properties(const char *name)
-{
- return simcall_BODY_asr_get_properties(name);
-}
-
-/**
- * \ingroup simix_process_management
- * \brief Creates a synchro that executes some computation of an host.
- *
- * This function creates a SURF action and allocates the data necessary
- * to create the SIMIX synchro. It can raise a host_error exception if the host crashed.
- *
- * \param name Name of the execution synchro to create
- * \param flops_amount amount Computation amount (in flops)
- * \param priority computation priority
- * \param bound
- * \return A new SIMIX execution synchronization
- */
-smx_activity_t simcall_execution_start(const char *name,
- double flops_amount,
- double priority, double bound)
-{
- /* checking for infinite values */
- xbt_assert(std::isfinite(flops_amount), "flops_amount is not finite!");
- xbt_assert(std::isfinite(priority), "priority is not finite!");
-
- return simcall_BODY_execution_start(name, flops_amount, priority, bound);
-}
-
-/**
- * \ingroup simix_process_management
- * \brief Creates a synchro that may involve parallel computation on
- * several hosts and communication between them.
- *
- * \param name Name of the execution synchro to create
- * \param host_nb Number of hosts where the synchro will be executed
- * \param host_list Array (of size host_nb) of hosts where the synchro will be executed
- * \param flops_amount Array (of size host_nb) of computation amount of hosts (in bytes)
- * \param bytes_amount Array (of size host_nb * host_nb) representing the communication
- * amount between each pair of hosts
- * \param amount the SURF action amount
- * \param rate the SURF action rate
- * \param timeout timeout
- * \return A new SIMIX execution synchronization
- */
-smx_activity_t simcall_execution_parallel_start(const char* name, int host_nb, sg_host_t* host_list,
- double* flops_amount, double* bytes_amount, double amount, double rate,
- double timeout)
-{
- int i,j;
- /* checking for infinite values */
- for (i = 0 ; i < host_nb ; ++i) {
- xbt_assert(std::isfinite(flops_amount[i]), "flops_amount[%d] is not finite!", i);
- if (bytes_amount != nullptr) {
- for (j = 0 ; j < host_nb ; ++j) {
- xbt_assert(std::isfinite(bytes_amount[i + host_nb * j]),
- "bytes_amount[%d+%d*%d] is not finite!", i, host_nb, j);
- }
- }
- }
-
- xbt_assert(std::isfinite(amount), "amount is not finite!");
- xbt_assert(std::isfinite(rate), "rate is not finite!");
-
- return simcall_BODY_execution_parallel_start(name, host_nb, host_list, flops_amount, bytes_amount, amount, rate,
- timeout);
-}
-
-/**
- * \ingroup simix_process_management
- * \brief Cancels an execution synchro.
- *
- * This functions stops the execution. It calls a surf function.
- * \param execution The execution synchro to cancel
- */
-void simcall_execution_cancel(smx_activity_t execution)
-{
- simcall_BODY_execution_cancel(execution);
-}
-
-/**
- * \ingroup simix_process_management
- * \brief Changes the priority of an execution synchro.
- *
- * This functions changes the priority only. It calls a surf function.
- * \param execution The execution synchro
- * \param priority The new priority
- */
-void simcall_execution_set_priority(smx_activity_t execution, double priority)
-{
- /* checking for infinite values */
- xbt_assert(std::isfinite(priority), "priority is not finite!");
-
- simcall_BODY_execution_set_priority(execution, priority);
-}
-
-/**
- * \ingroup simix_process_management
- * \brief Changes the capping (the maximum CPU utilization) of an execution synchro.
- *
- * This functions changes the capping only. It calls a surf function.
- * \param execution The execution synchro
- * \param bound The new bound
- */
-void simcall_execution_set_bound(smx_activity_t execution, double bound)
-{
- simcall_BODY_execution_set_bound(execution, bound);
-}
-
-/**
- * \ingroup simix_host_management
- * \brief Waits for the completion of an execution synchro and destroy it.
- *
- * \param execution The execution synchro
- */
-e_smx_state_t simcall_execution_wait(smx_activity_t execution)
-{
- return (e_smx_state_t) simcall_BODY_execution_wait(execution);
-}
-
-/**
- * \ingroup simix_vm_management
- * \brief Create a VM on the given physical host.
- *
- * \param name VM name
- * \param dest Physical host on which to create the VM
- *
- * \return The host object of the VM
- */
-sg_host_t simcall_vm_create(const char* name, sg_host_t dest)
-{
- return simgrid::simix::kernelImmediate([&name, &dest] {
- sg_host_t host = new simgrid::s4u::VirtualMachine(name, dest);
- host->extension_set<simgrid::simix::Host>(new simgrid::simix::Host());
-
- return host;
- });
-}
-
-/**
- * \ingroup simix_vm_management
- * \brief Start the given VM to the given physical host
- *
- * \param vm VM
- */
-void simcall_vm_start(sg_host_t vm)
-{
- simgrid::simix::kernelImmediate(std::bind(SIMIX_vm_start, vm));
-}
-
-/**
- * \ingroup simix_vm_management
- * \brief Get the state of the given VM
- *
- * \param vm VM
- * \return The state of the VM
- */
-int simcall_vm_get_state(sg_host_t vm)
-{
- return simgrid::simix::kernelImmediate(std::bind(SIMIX_vm_get_state, vm));
-}
-
-/**
- * \ingroup simix_vm_management
- * \brief Get the physical host on which the given VM runs.
- *
- * \param vm VM
- * \return The physical host
- */
-void *simcall_vm_get_pm(sg_host_t vm)
-{
- return simgrid::simix::kernelImmediate(
- [vm]() { return static_cast<simgrid::s4u::VirtualMachine*>(vm)->pimpl_vm_->getPm(); });
-}
-