Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
It works. Isn't that great?
[simgrid.git] / src / gras / Transport / transport_plugin_sg.c
1 /* $Id$ */
2
3 /* file trp (transport) - send/receive a bunch of bytes in SG realm         */
4
5 /* Note that this is only used to debug other parts of GRAS since message   */
6 /*  exchange in SG realm is implemented directly without mimicing real life */
7 /*  This would be terribly unefficient.                                     */
8
9 /* Authors: Martin Quinson                                                  */
10 /* Copyright (C) 2004 Martin Quinson.                                       */
11
12 /* This program is free software; you can redistribute it and/or modify it
13    under the terms of the license (GNU LGPL) which comes with this package. */
14
15 #include <msg.h>
16
17 #include "gras_private.h"
18 #include "transport_private.h"
19 #include "Virtu/virtu_sg.h"
20
21 GRAS_LOG_EXTERNAL_CATEGORY(transport);
22 GRAS_LOG_NEW_DEFAULT_SUBCATEGORY(trp_sg,transport);
23
24 /***
25  *** Prototypes 
26  ***/
27 /* retrieve the port record associated to a numerical port on an host */
28 static gras_error_t find_port(gras_hostdata_t *hd, int port,
29                               gras_sg_portrec_t *hpd);
30
31
32 gras_error_t gras_trp_sg_socket_client(gras_trp_plugin_t *self,
33                                        const char *host,
34                                        unsigned short port,
35                                        /* OUT */ gras_socket_t *sock);
36 gras_error_t gras_trp_sg_socket_server(gras_trp_plugin_t *self,
37                                        unsigned short port,
38                                        /* OUT */ gras_socket_t *sock);
39 void         gras_trp_sg_socket_close(gras_socket_t *sd);
40
41 gras_error_t gras_trp_sg_chunk_send(gras_socket_t *sd,
42                                     char *data,
43                                     size_t size);
44
45 gras_error_t gras_trp_sg_chunk_recv(gras_socket_t *sd,
46                                     char *data,
47                                     size_t size);
48
49 /* FIXME
50   gras_error_t gras_trp_sg_flush(gras_socket_t *sd);
51 */
52
53 /***
54  *** Specific plugin part
55  ***/
56 typedef struct {
57   int placeholder; /* nothing plugin specific so far */
58 } gras_trp_sg_plug_data_t;
59
60
61 /***
62  *** Code
63  ***/
64 static gras_error_t find_port(gras_hostdata_t *hd, int port,
65                               gras_sg_portrec_t *hpd) {
66   int cpt;
67   gras_sg_portrec_t pr;
68
69   gras_assert0(hd,"Please run gras_process_init on each process");
70   
71   gras_dynar_foreach(hd->ports, cpt, pr) {
72     if (pr.port == port) {
73       memcpy(hpd,&pr,sizeof(gras_sg_portrec_t));
74       return no_error;
75     }
76   }
77   return mismatch_error;
78 }
79
80
81 gras_error_t
82 gras_trp_sg_setup(gras_trp_plugin_t *plug) {
83
84   gras_trp_sg_plug_data_t *data=malloc(sizeof(gras_trp_sg_plug_data_t));
85
86   if (!data)
87     RAISE_MALLOC;
88
89   plug->data      = data; 
90
91   plug->socket_client = gras_trp_sg_socket_client;
92   plug->socket_server = gras_trp_sg_socket_server;
93   plug->socket_close  = gras_trp_sg_socket_close;
94
95   plug->chunk_send    = gras_trp_sg_chunk_send;
96   plug->chunk_recv    = gras_trp_sg_chunk_recv;
97
98
99   return no_error;
100 }
101
102 gras_error_t gras_trp_sg_socket_client(gras_trp_plugin_t *self,
103                                        const char *host,
104                                        unsigned short port,
105                                        /* OUT */ gras_socket_t *sock){
106
107   gras_error_t errcode;
108
109   m_host_t peer;
110   gras_hostdata_t *hd;
111   gras_trp_sg_sock_data_t *data;
112   gras_sg_portrec_t pr;
113
114   /* make sure this socket will reach someone */
115   if (!(peer=MSG_get_host_by_name(host))) {
116       fprintf(stderr,"GRAS: can't connect to %s: no such host.\n",host);
117       return mismatch_error;
118   }
119   if (!(hd=(gras_hostdata_t *)MSG_host_get_data(peer))) {
120     RAISE1(mismatch_error,
121            "can't connect to %s: no process on this host",
122            host);
123   }
124   errcode = find_port(hd,port,&pr);
125   if (errcode != no_error && errcode != mismatch_error) 
126     return errcode;
127
128   if (errcode == mismatch_error) {
129     RAISE2(mismatch_error,
130            "can't connect to %s:%d, no process listen on this port",
131            host,port);
132   } 
133
134   if (pr.raw && !sock->raw) {
135     RAISE2(mismatch_error,
136            "can't connect to %s:%d in regular mode, the process listen "
137            "in raw mode on this port",host,port);
138   }
139   if (!pr.raw && sock->raw) {
140     RAISE2(mismatch_error,
141            "can't connect to %s:%d in raw mode, the process listen "
142            "in regular mode on this port",host,port);
143   }
144
145   /* create the socket */
146   if (!(data = malloc(sizeof(gras_trp_sg_sock_data_t))))
147     RAISE_MALLOC;
148   
149   data->from_PID     = MSG_process_self_PID();
150   data->to_PID       = hd->proc[ pr.tochan ];
151   data->to_host      = peer;
152   data->to_chan      = pr.tochan;
153   
154   sock->data = data;
155   sock->incoming = 1;
156
157   DEBUG6("%s (PID %d) connects in %s mode to %s:%d (to_PID=%d)",
158           MSG_process_get_name(MSG_process_self()), MSG_process_self_PID(),
159           sock->raw?"RAW":"regular",host,port,data->to_PID);
160
161   return no_error;
162 }
163
164 gras_error_t gras_trp_sg_socket_server(gras_trp_plugin_t *self,
165                                        unsigned short port,
166                                        gras_socket_t *sock){
167
168   gras_error_t errcode;
169
170   gras_hostdata_t *hd=(gras_hostdata_t *)MSG_host_get_data(MSG_host_self());
171   gras_procdata_t *pd=gras_procdata_get();
172   gras_sg_portrec_t pr;
173   gras_trp_sg_sock_data_t *data;
174   
175   const char *host=MSG_host_get_name(MSG_host_self());
176
177   gras_assert0(hd,"Please run gras_process_init on each process");
178
179   sock->accepting = 0; /* no such nuisance in SG */
180
181   errcode = find_port(hd,port,&pr);
182   switch (errcode) {
183   case no_error: /* Port already used... */
184     RAISE2(mismatch_error,
185            "can't listen on address %s:%d: port already in use\n.",
186            host,port);
187
188   case mismatch_error: /* Port not used so far. Do it */
189     pr.tochan = sock->raw ? pd->rawChan : pd->chan;
190     pr.port   = port;
191     pr.raw    = sock->raw;
192     TRY(gras_dynar_push(hd->ports,&pr));
193     
194   default:
195     return errcode;
196   }
197   
198   /* Create the socket */
199   if (!(data = malloc(sizeof(gras_trp_sg_sock_data_t))))
200     RAISE_MALLOC;
201   
202   data->from_PID     = -1;
203   data->to_PID       = MSG_process_self_PID();
204   data->to_host      = MSG_host_self();
205   data->to_chan      = pd->chan;
206   
207   sock->data = data;
208
209   INFO6("'%s' (%d) ears on %s:%d%s (%p)",
210     MSG_process_get_name(MSG_process_self()), MSG_process_self_PID(),
211     host,port,sock->raw? " (mode RAW)":"",*sock);
212
213   return no_error;
214 }
215
216 void gras_trp_sg_socket_close(gras_socket_t *sock){
217   gras_hostdata_t *hd=(gras_hostdata_t *)MSG_host_get_data(MSG_host_self());
218   int cpt;
219   
220   gras_sg_portrec_t pr;
221
222   if (!sock) return;
223   gras_assert0(hd,"Please run gras_process_init on each process");
224
225   if (sock->data)
226     free(sock->data);
227
228   if (sock->incoming) {
229     /* server mode socket. Un register it from 'OS' tables */
230     gras_dynar_foreach(hd->ports, cpt, pr) {
231       DEBUG2("Check pr %d of %d", cpt, gras_dynar_length(hd->ports));
232       if (pr.port == sock->port) {
233         gras_dynar_cursor_rm(hd->ports, &cpt);
234         return;
235       }
236     }
237     WARN0("socket_close called on an unknown socket");
238   }
239 }
240
241 typedef struct {
242   int size;
243   void *data;
244 } sg_task_data_t;
245
246 gras_error_t gras_trp_sg_chunk_send(gras_socket_t *sock,
247                                     char *data,
248                                     size_t size) {
249   m_task_t task=NULL;
250   static unsigned int count=0;
251   char name[256];
252   gras_trp_sg_sock_data_t *sock_data;
253   sg_task_data_t *task_data;
254   
255   sock_data = (gras_trp_sg_sock_data_t *)sock->data;
256
257   sprintf(name,"Chunk[%d]",count++);
258
259   if (!(task_data=malloc(sizeof(sg_task_data_t)))) 
260     RAISE_MALLOC;
261   if (!(task_data->data=malloc(size)))
262     RAISE_MALLOC;
263   task_data->size = size;
264   memcpy(task_data->data,data,size);
265
266   task=MSG_task_create(name,0,((double)size)/(1024.0*1024.0),task_data);
267
268   DEBUG4("send chunk %s from %s to %s on channel %d",
269          name, MSG_host_get_name(MSG_host_self()),
270          MSG_host_get_name(sock_data->to_host), sock_data->to_chan);
271   if (MSG_task_put(task, sock_data->to_host,sock_data->to_chan) != MSG_OK) {
272     RAISE0(system_error,"Problem during the MSG_task_put");
273   }
274
275   return no_error;
276 }
277
278 gras_error_t gras_trp_sg_chunk_recv(gras_socket_t *sock,
279                                     char *data,
280                                     size_t size){
281   gras_procdata_t *pd=gras_procdata_get();
282
283   m_task_t task=NULL;
284   sg_task_data_t *task_data;
285   gras_trp_sg_sock_data_t *sock_data = sock->data;
286
287   DEBUG3("recv chunk on %s from %s on channel %d",
288          MSG_host_get_name(MSG_host_self()),
289          MSG_host_get_name(sock_data->to_host), sock_data->to_chan);
290   if (MSG_task_get(&task, (sock->raw ? pd->rawChan : pd->chan)) != MSG_OK)
291     RAISE0(unknown_error,"Error in MSG_task_get()");
292
293   task_data = MSG_task_get_data(task);
294   gras_assert2(task_data->size == size,
295                "Got %d bytes when %d where expected",
296                task_data->size, size);
297   memcpy(data,task_data->data,size);
298   free(task_data->data);
299   free(task_data);
300
301   if (MSG_task_destroy(task) != MSG_OK)
302     RAISE0(unknown_error,"Error in MSG_task_destroy()");
303
304   return no_error;
305 }
306
307 /*FIXME
308
309 gras_error_t gras_trp_sg_flush(gras_socket_t *sd){
310   RAISE_UNIMPLEMENTED;
311 }
312 */