Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
Fix token_ring execution.
[simgrid.git] / examples / msg / token_ring / ring_call.c
1 /* Copyright (c) 2008, 2009, 2010. 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 <stdlib.h>
9 #include "msg/msg.h"
10 #include "surf/surf_private.h"
11
12 int host(int argc, char *argv[]);
13 unsigned int task_comp_size = 50000000;
14 unsigned int task_comm_size = 1000000;
15
16 int nb_hosts; /* All declared hosts */
17
18 XBT_LOG_NEW_DEFAULT_CATEGORY(ring,
19                              "Messages specific for this msg example");
20
21 int host(int argc, char *argv[])
22 {
23   int host_number = atoi(MSG_process_get_name(MSG_process_self()));
24   char mailbox[256];
25   m_task_t task = NULL;
26   _XBT_GNUC_UNUSED int res;
27   if (host_number == 0){ //master  send then receive
28     sprintf(mailbox, "%d", host_number+1);
29     task = MSG_task_create("Token", task_comp_size, task_comm_size, NULL);
30     XBT_INFO("Host \"%d\" send '%s' to Host \"%s\"",host_number,task->name,mailbox);
31     MSG_task_send(task, mailbox);
32     task = NULL;
33     res = MSG_task_receive(&(task), MSG_process_get_name(MSG_process_self()));
34     xbt_assert(res == MSG_OK, "MSG_task_get failed");
35     XBT_INFO("Host \"%d\" received \"%s\"",host_number, MSG_task_get_name(task));
36     MSG_task_destroy(task);
37   }
38   else{ //slave receive then send
39     res = MSG_task_receive(&(task), MSG_process_get_name(MSG_process_self()));
40     xbt_assert(res == MSG_OK, "MSG_task_get failed");
41     XBT_INFO("Host \"%d\" received \"%s\"",host_number, MSG_task_get_name(task));
42
43     if(host_number+1 == nb_hosts)
44       sprintf(mailbox, "0");
45     else
46       sprintf(mailbox, "%d", host_number+1);
47     XBT_INFO("Host \"%d\" send '%s' to Host \"%s\"",host_number,task->name,mailbox);
48     MSG_task_send(task, mailbox);
49   }
50   return 0;
51 }
52
53 int main(int argc, char **argv)
54 {
55   int i,res;
56   MSG_global_init(&argc, argv);
57   MSG_create_environment(argv[1]);
58   xbt_dynar_t hosts = MSG_hosts_as_dynar();
59   nb_hosts =  xbt_dynar_length(hosts);
60   MSG_function_register("host", host);
61
62   XBT_INFO("Number of host '%d'",nb_hosts);
63   for(i = 0 ; i<nb_hosts; i++)
64   {
65     char* name_host = bprintf("%d",i);
66     MSG_process_create( name_host, host, NULL, xbt_dynar_get_as(hosts,i,m_host_t) );
67     free(name_host);
68   }
69   xbt_dynar_free(&hosts);
70
71   res = MSG_main();
72   XBT_INFO("Simulation time %g", MSG_get_clock());
73   MSG_clean();
74   if (res == MSG_OK)
75     return 0;
76   else
77     return 1;
78
79 }