1 /* Thread in charge of listening the network and queuing incoming messages */
3 /* Copyright (c) 2007, 2008, 2009, 2010. The SimGrid Team.
4 * All rights reserved. */
6 /* This program is free software; you can redistribute it and/or modify it
7 * under the terms of the license (GNU LGPL) which comes with this package. */
9 #include "gras/Msg/msg_private.h"
10 #include "gras/Transport/transport_private.h"
11 XBT_LOG_NEW_DEFAULT_SUBCATEGORY(gras_msg_read, gras_msg,
12 "Message reader thread");
15 #include "xbt/queue.h"
16 #include "xbt/synchro.h"
18 #include "gras/Transport/transport_interface.h" /* gras_select */
20 typedef struct s_gras_msg_listener_ {
21 xbt_queue_t incomming_messages; /* messages received from the wire and still to be used by master */
22 xbt_queue_t socks_to_close; /* let the listener close the sockets, since it may be selecting on them. Darwin don't like this trick */
23 gras_socket_t wakeup_sock_listener_side;
24 gras_socket_t wakeup_sock_master_side;
25 xbt_mutex_t init_mutex; /* both this mutex and condition are used at initialization to make sure that */
26 xbt_cond_t init_cond; /* the main thread speaks to the listener only once it is started (FIXME: It would be easier using a semaphore, if only semaphores were in xbt_synchro) */
27 xbt_thread_t listener;
28 } s_gras_msg_listener_t;
30 static void listener_function(void *p)
32 gras_msg_listener_t me = (gras_msg_listener_t) p;
35 gras_msgtype_t msg_wakeup_listener_t =
36 gras_msgtype_by_name("_wakeup_listener");
37 DEBUG0("I'm the listener");
39 /* get a free socket for the receiving part of the listener */
40 me->wakeup_sock_listener_side =
41 gras_socket_server_range(5000, 6000, -1, 0);
43 /* wake up the launcher */
44 xbt_mutex_acquire(me->init_mutex);
45 xbt_cond_signal(me->init_cond);
46 xbt_mutex_release(me->init_mutex);
50 msg = gras_msg_recv_any();
51 if (msg->type != msg_wakeup_listener_t) {
52 VERB1("Got a '%s' message. Queue it for handling by main thread",
53 gras_msgtype_get_name(msg->type));
54 xbt_queue_push(me->incomming_messages, msg);
56 char got = *(char *) msg->payl;
58 VERB0("Asked to get awake");
62 VERB0("Asked to die");
63 //gras_socket_close(me->wakeup_sock_listener_side);
69 /* empty the list of sockets to trash */
73 xbt_queue_shift_timed(me->socks_to_close, &sock, 0);
74 if (tcp_close(sock) < 0) {
76 WARN2("error while closing tcp socket %d: %d\n", sock,
79 WARN3("error while closing tcp socket %d: %d (%s)\n",
80 sock, sock_errno, sock_errstr(sock_errno));
86 if (e.category != timeout_error)
93 gras_msg_listener_t gras_msg_listener_launch(xbt_queue_t msg_received)
95 gras_msg_listener_t arg = xbt_new0(s_gras_msg_listener_t, 1);
97 VERB0("Launch listener");
98 arg->incomming_messages = msg_received;
99 arg->socks_to_close = xbt_queue_new(0, sizeof(int));
100 arg->init_mutex = xbt_mutex_init();
101 arg->init_cond = xbt_cond_init();
103 /* declare the message used to awake the listener from the master */
104 gras_msgtype_declare("_wakeup_listener", gras_datadesc_by_name("char"));
106 /* actually start the thread, and */
107 /* wait for the listener to initialize before we connect to its socket */
108 xbt_mutex_acquire(arg->init_mutex);
110 xbt_thread_create("listener", listener_function, arg,
112 xbt_cond_wait(arg->init_cond, arg->init_mutex);
113 xbt_mutex_release(arg->init_mutex);
114 xbt_cond_destroy(arg->init_cond);
115 xbt_mutex_destroy(arg->init_mutex);
117 /* Connect the other part of the socket */
118 arg->wakeup_sock_master_side =
119 gras_socket_client(gras_os_myname(),
121 (arg->wakeup_sock_listener_side));
125 #include "gras/Virtu/virtu_private.h" /* procdata_t content */
126 void gras_msg_listener_shutdown()
128 gras_procdata_t *pd = gras_procdata_get();
130 DEBUG0("Listener quit");
133 gras_msg_send(pd->listener->wakeup_sock_master_side,
134 "_wakeup_listener", &kill);
136 xbt_thread_join(pd->listener->listener);
138 // gras_socket_close(pd->listener->wakeup_sock_master_side); FIXME: uncommenting this leads to deadlock at terminaison
139 xbt_queue_free(&pd->listener->incomming_messages);
140 xbt_queue_free(&pd->listener->socks_to_close);
141 xbt_free(pd->listener);
144 void gras_msg_listener_awake()
149 DEBUG0("Awaking the listener");
150 pd = gras_procdata_get();
152 gras_msg_send(pd->listener->wakeup_sock_master_side,
153 "_wakeup_listener", &c);
157 void gras_msg_listener_close_socket(int sd)
159 gras_procdata_t *pd = gras_procdata_get();
161 xbt_queue_push(pd->listener->socks_to_close, &sd);
162 gras_msg_listener_awake();