Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Merge pull request #17 from mpoquet/master
[simgrid.git] / teshsuite / msg / host_on_off / host_on_off_recv.c
1 /* Copyright (c) 2010-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 <stdio.h>
8 #include "simgrid/msg.h"            /* Yeah! If you want to use msg, you need to include simgrid/msg.h */
9 #include "xbt/sysdep.h"         /* calloc, printf */
10 #include "xbt/ex.h"
11
12 /* Create a log channel to have nice outputs. */
13 #include "xbt/log.h"
14 #include "xbt/asserts.h"
15 XBT_LOG_NEW_DEFAULT_CATEGORY(msg_test,
16                              "Messages specific for this msg example");
17
18 int master(int argc, char *argv[]);
19 int slave(int argc, char *argv[]);
20
21 static const char* mailbox = "comm";
22
23 /** Emitter function  */
24 int master(int argc, char *argv[])
25 {
26   xbt_ex_t e;
27   TRY {
28     msg_host_t jupiter = MSG_get_host_by_name("Jupiter");
29     
30     XBT_INFO("Master starting");
31     MSG_process_sleep(0.5);
32
33     msg_comm_t comm = NULL;
34     if (1) {
35       msg_task_t task = MSG_task_create("COMM", 0, 100000000, NULL);
36       comm = MSG_task_isend(task, mailbox);
37     }
38
39     if(MSG_process_sleep(0.5)) {
40       XBT_ERROR("Unexpected error while sleeping");
41       return 1;
42     }
43     XBT_INFO("Turning off the slave host");
44     MSG_host_off(jupiter);
45
46     if (comm) {
47       MSG_comm_wait(comm, -1);
48     }
49     XBT_INFO("Master has finished");
50   }
51   CATCH(e) {
52     xbt_die("Exception caught in the master");
53     return 1;
54   }
55   return 0;
56 }
57
58 /** Receiver function  */
59 int slave(int argc, char *argv[])
60 {
61   xbt_ex_t e;
62   TRY {
63     XBT_INFO("Slave receiving");
64     msg_task_t task = NULL;
65     msg_error_t error = MSG_task_receive(&(task), mailbox);
66     if (error) {
67       XBT_ERROR("Error while receiving message");
68       return 1;
69     }
70
71     XBT_ERROR("Slave should be off already.");
72     return 1;
73   }
74   CATCH(e) {
75     XBT_ERROR("Exception caught in the slave");
76     return 1;
77   }
78   return 0;
79 }
80
81 /** Main function */
82 int main(int argc, char *argv[])
83 {
84   msg_error_t res;
85   const char *platform_file;
86   const char *application_file;
87
88   MSG_init(&argc, argv);
89   if (argc != 3) {
90     printf("Usage: %s platform_file deployment_file\n", argv[0]);
91     printf("example: %s msg_platform.xml msg_deployment.xml\n", argv[0]);
92     exit(1);
93   }
94   platform_file = argv[1];
95   application_file = argv[2];
96
97   {                             /*  Simulation setting */
98     MSG_create_environment(platform_file);
99   }
100   {                             /*   Application deployment */
101     MSG_function_register("master", master);
102     MSG_function_register("slave", slave);
103
104     MSG_launch_application(application_file);
105   }
106   res = MSG_main();
107
108   XBT_INFO("Simulation time %g", MSG_get_clock());
109
110   if (res == MSG_OK)
111     return 0;
112   else
113     return 1;
114 }                               /* end_of_main */