Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
workaround a possible race condition
[simgrid.git] / src / s4u / s4u_actor.cpp
1 /* Copyright (c) 2006-2014. 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 "xbt/log.h"
8 #include "msg/msg_private.h"
9 #include "msg/msg_mailbox.h"
10
11 #include "simgrid/s4u/actor.hpp"
12 #include "simgrid/s4u/comm.hpp"
13 #include "simgrid/s4u/host.hpp"
14 #include "simgrid/s4u/mailbox.hpp"
15
16 XBT_LOG_NEW_DEFAULT_CATEGORY(s4u_actor,"S4U actors");
17
18 /* C main function of a actor, running this->main */
19 static int s4u_actor_runner(int argc, char **argv) {
20
21         smx_process_t smx_proc = SIMIX_process_self();
22         simgrid::s4u::Actor *actor = (simgrid::s4u::Actor*) SIMIX_process_self_get_data(smx_proc);
23         int res = actor->main(argc,argv);
24         return res;
25 }
26
27
28
29 using namespace simgrid;
30
31 s4u::Actor::Actor(smx_process_t smx_proc) {
32         p_smx_process = smx_proc;
33 }
34 s4u::Actor::Actor(const char *name, s4u::Host *host, int argc, char **argv)
35     : s4u::Actor::Actor(name,host, argc,argv, -1) {
36 }
37 s4u::Actor::Actor(const char *name, s4u::Host *host, int argc, char **argv, double killTime) {
38         p_smx_process = simcall_process_create(name, s4u_actor_runner, this, host->getName(), killTime, argc, argv, NULL/*properties*/,0);
39
40         xbt_assert(p_smx_process,"Cannot create the actor");
41 //      TRACE_msg_process_create(procname, simcall_process_get_PID(p_smx_process), host->getInferior());
42 //      simcall_process_on_exit(p_smx_process,(int_f_pvoid_pvoid_t)TRACE_msg_process_kill,p_smx_process);
43 }
44
45 s4u::Actor *s4u::Actor::current() {
46         smx_process_t smx_proc = SIMIX_process_self();
47         simgrid::s4u::Actor* res = (simgrid::s4u::Actor*) SIMIX_process_self_get_data(smx_proc);
48         if (res == NULL) // The smx_process was not created by S4U (but by deployment?). Embed it in a S4U object
49                 res = new Actor(smx_proc);
50         return res;
51 }
52 s4u::Actor *s4u::Actor::byPid(int pid) {
53         return (simgrid::s4u::Actor*) SIMIX_process_self_get_data(SIMIX_process_from_PID(pid));
54 }
55
56 void s4u::Actor::setAutoRestart(bool autorestart) {
57         simcall_process_auto_restart_set(p_smx_process,autorestart);
58 }
59
60 s4u::Host *s4u::Actor::getHost() {
61         return s4u::Host::byName(sg_host_name(simcall_process_get_host(p_smx_process)));
62 }
63 const char* s4u::Actor::getName() {
64         return simcall_process_get_name(p_smx_process);
65 }
66 int s4u::Actor::getPid(){
67         return simcall_process_get_PID(p_smx_process);
68 }
69
70 void s4u::Actor::setKillTime(double time) {
71         simcall_process_set_kill_time(p_smx_process,time);
72 }
73 double s4u::Actor::getKillTime() {
74         return simcall_process_get_kill_time(p_smx_process);
75 }
76 void s4u::Actor::killAll() {
77         simcall_process_killall(1);
78 }
79 void s4u::Actor::kill() {
80         simcall_process_kill(p_smx_process);
81 }
82
83 void s4u::Actor::sleep(double duration) {
84         simcall_process_sleep(duration);
85 }
86
87 e_smx_state_t s4u::Actor::execute(double flops) {
88         smx_synchro_t s = simcall_process_execute(NULL,flops,1.0/*priority*/,0./*bound*/, 0L/*affinity*/);
89     return simcall_process_execution_wait(s);
90 }
91
92 void *s4u::Actor::recv(Mailbox &chan) {
93         void *res=NULL;
94
95         Comm c = Comm::recv_init(this, chan);
96         c.setDstData(&res,sizeof(res));
97         c.wait();
98
99     return res;
100 }
101 void s4u::Actor::send(Mailbox &chan, void *payload, size_t simulatedSize) {
102         Comm c = Comm::send_init(this,chan);
103         c.setRemains(simulatedSize);
104         c.setSrcData(payload);
105         // c.start() is optional.
106         c.wait();
107 }