From a77786e9ed0ea0f4c858aff458e2f3ad893ca839 Mon Sep 17 00:00:00 2001 From: mquinson Date: Thu, 23 Jun 2005 15:21:32 +0000 Subject: [PATCH 1/1] dead code git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@1399 48e7efb5-ca39-0410-a469-dd3cf9ba447f --- src/amok/bandwidth.c | 697 ------------------------------------------- 1 file changed, 697 deletions(-) delete mode 100644 src/amok/bandwidth.c diff --git a/src/amok/bandwidth.c b/src/amok/bandwidth.c deleted file mode 100644 index 8e4afc3c10..0000000000 --- a/src/amok/bandwidth.c +++ /dev/null @@ -1,697 +0,0 @@ -/* $Id$ */ - -/* amok_bandwidth - Bandwidth tests facilities */ - -/* Copyright (c) 2003, 2004 Martin Quinson. All rights reserved. */ - -/* This program is free software; you can redistribute it and/or modify it - * under the terms of the license (GNU LGPL) which comes with this package. */ - -#include -#include -#include - -#include "gras/messages.h" -#include "amok/bandwidth.h" - -/** - * bw_request_t: - * - * Request for a BW experiment. - * If host==NULL, it should be between the sender and the receiver. - * If not, it should be between between the receiver and @host (3-tiers). - */ -typedef struct { - xbt_host_t host; /* host+raw socket to use */ - unsigned int buf_size; - unsigned int exp_size; - unsigned int msg_size; -} bw_request_t; - -/** - * bw_res_t: - * - * Result of a BW experiment (payload when answering). - * if err.msg != NULL, it wasn't sucessful. Check err.msg and err.code to see why. - * else - */ -typedef struct { - amok_remoterr_t err; - unsigned int timestamp; - double seconds; - double bw; -} bw_res_t; - - -/** - * sat_request_t: - * - * Description of a saturation experiment (payload asking some host to collaborate for that) - */ -typedef struct { - xbt_host_t host; /* host+raw socket to use */ - unsigned int msg_size; - unsigned int timeout; -} sat_request_t; - -/* Prototypes of local callbacks */ -int amok_bw_cb_bw_handshake(gras_socket_t *expeditor, - void *payload); -int amok_bw_cb_bw_request(gras_socket_t *expeditor, - void *payload); - -int amok_bw_cb_sat_start(gras_socket_t *expeditor, - void *payload); -int amok_bw_cb_sat_begin(gras_socket_t *expeditor, - void *payload); - -/**** code ****/ -void amok_bw_init(void) { - xbt_error_t errcode; - gras_datadesc_type_t *bw_request_desc, *bw_res_desc, *sat_request_desc; - - amok_base_init(); - - /* Build the datatype descriptions */ - bw_request_desc = gras_datadesc_struct("bw_request_t"); - gras_datadesc_struct_append(bw_request_desc,"host",gras_datadesc_by_name("xbt_host_t*")); - gras_datadesc_struct_append(bw_request_desc,"buf_size",gras_datadesc_by_name("unsigned int")); - gras_datadesc_struct_append(bw_request_desc,"exp_size",gras_datadesc_by_name("unsigned int")); - gras_datadesc_struct_append(bw_request_desc,"msg_size",gras_datadesc_by_name("unsigned int")); - gras_datadesc_struct_close(bw_request_desc); - bw_request_desc = gras_datadesc_ref("bw_request_t*",bw_request_desc); - - bw_res_desc = gras_datadesc_struct("bw_res_t"); - gras_datadesc_struct_append(bw_res_desc,"err",gras_datadesc_by_name("amok_remoterr_t")); - gras_datadesc_struct_append(bw_res_desc,"timestamp",gras_datadesc_by_name("unsigned int")); - gras_datadesc_struct_append(bw_res_desc,"seconds",gras_datadesc_by_name("double")); - gras_datadesc_struct_append(bw_res_desc,"bw",gras_datadesc_by_name("double")); - gras_datadesc_struct_close(bw_res_desc); - bw_res_desc = gras_datadesc_ref("bw_res_t*",bw_res_desc); - - sat_request_desc = gras_datadesc_struct("sat_request_desc"); - gras_datadesc_struct_append(sat_request_desc,"host",gras_datadesc_by_name("xbt_host_t")); - gras_datadesc_struct_append(sat_request_desc,"msg_size",gras_datadesc_by_name("unsigned int")); - gras_datadesc_struct_append(sat_request_desc,"timeout",gras_datadesc_by_name("unsigned int")); - gras_datadesc_struct_close(sat_request_desc); - sat_request_desc = gras_datadesc_ref("sat_request_t*",sat_request_desc); - - /* Register the bandwidth messages */ - gras_msgtype_declare("BW request", bw_request_desc); - gras_msgtype_declare("BW result", bw_res_desc); - gras_msgtype_declare("BW handshake", bw_request_desc); - gras_msgtype_declare("BW handshake ACK", bw_request_desc); - - /* Register the saturation messages */ - gras_msgtype_declare("SAT start", sat_request_desc); - gras_msgtype_declare("SAT started", gras_datadesc_by_name("amok_remoterr_t")); - gras_msgtype_declare("SAT begin", sat_request_desc); - gras_msgtype_declare("SAT begun", gras_datadesc_by_name("amok_remoterr_t")); - gras_msgtype_declare("SAT end", NULL); - gras_msgtype_declare("SAT ended", gras_datadesc_by_name("amok_remoterr_t")); - gras_msgtype_declare("SAT stop", NULL); - gras_msgtype_declare("SAT stopped", gras_datadesc_by_name("amok_remoterr_t")); - - /* Register the callbacks */ - gras_cb_register(gras_msgtype_by_name("BW request"), - &amok_bw_cb_bw_request); - gras_cb_register(gras_msgtype_by_name("BW handshake"), - &amok_bw_cb_bw_handshake); - - gras_cb_register(gras_msgtype_by_name("SAT start"), - &amok_bw_cb_sat_start); - gras_cb_register(gras_msgtype_by_name("SAT begin"), - &amok_bw_cb_sat_begin); -} - -/* *************************************************************************** - * Bandwidth tests - * ***************************************************************************/ -/* Function to do a test from local to given host */ -/** - * amok_bw_test: - * - * Conduct a test between the local host and @peer, and - * report the result in last args - */ -xbt_error_t amok_bw_test(gras_socket_t *peer, - unsigned int bufSize,unsigned int expSize,unsigned int msgSize, - /*OUT*/ double *sec, double *bw) { - gras_socket_t *rawIn,*rawOut; - int port; - xbt_error_t errcode; - bw_request_t *request; - gras_msg_t *answer; - - for (port = 5000, errcode = system_error; - errcode == system_error; - errcode = gras_socket_server_ext(++port,bufSize,1,&rawIn)); - if (errcode != no_error) { - ERROR1("Error %s encountered while opening a raw socket\n", - xbt_error_name(errcode)); - return errcode; - } - - request=xbt_new(bw_request_t); - request->bufSize=bufSize; - request->expSize=expSize; - request->msgSize=msgSize; - request->host.name = NULL; - request->host.port = gras_socket_peer_port(rawIn); - - if ((errcode=gras_send(peer,gras_msgtype_by_name("BW handshake"),request))) { - ERROR1("Error %s encountered while sending the request.", xbt_error_name(errcode)); - gras_sock_close(sock); - return errcode; - } - if ((errcode=gras_msg_wait(60,GRASMSG_BW_HANDSHAKED,&answer))) { - fprintf(stderr,"grasbw_test(): Error %s encountered while waiting for the answer.\n", - xbt_error_name(errcode)); - gras_sock_close(sock); - return errcode; - } - if((errcode=gras_rawsock_client_open(to_name,gras_msg_ctn(answer,0,0,BwExp_t).port, - bufSize,&rawOut))) { - fprintf(stderr,"grasbw_test(): Error %s encountered while opening the raw socket to %s:%d\n", - xbt_error_name(errcode),to_name,gras_msg_ctn(answer,0,0,BwExp_t).port); - return errcode; - } - - *sec=gras_time(); - if ((errcode=gras_rawsock_send(rawOut,expSize,msgSize)) || - (errcode=gras_rawsock_recv(rawIn,1,1,120))) { - fprintf(stderr,"grasbw_test(): Error %s encountered while sending the experiment.\n", - xbt_error_name(errcode)); - gras_rawsock_close(rawOut); - gras_rawsock_close(rawIn); - return errcode; - } - *sec = gras_time() - *sec; - *bw = ((double)expSize /* 8.0*/) / *sec / (1024.0 *1024.0); - - gras_rawsock_close(rawIn); - gras_rawsock_close(rawOut); - gras_sock_close(sock); - gras_msg_free(answer); - return no_error; -} - -#if 0 - - -/* Callback to the GRASMSG_BW_HANDSHAKE message: - opens a server raw socket, - indicate its port in an answer GRASMSG_BW_HANDSHAKED message, - receive the corresponding data on the raw socket, - close the raw socket -*/ -int grasbw_cbBWHandshake(gras_msg_t *msg) { - gras_rawsock_t *rawIn,*rawOut; - BwExp_t *ans; - xbt_error_t errcode; - - if ((errcode=gras_rawsock_server_open(6666,8000,gras_msg_ctn(msg,0,0,BwExp_t).bufSize,&rawIn))) { - fprintf(stderr,"grasbw_cbHandshake(): Error %s encountered while opening a raw socket\n", - xbt_error_name(errcode)); - return 1; - } - if ((errcode=gras_rawsock_client_open(gras_sock_get_peer_name(msg->sock),gras_msg_ctn(msg,0,0,BwExp_t).port, - gras_msg_ctn(msg,0,0,BwExp_t).bufSize,&rawOut))) { - fprintf(stderr,"grasbw_cbHandshake(): Error %s encountered while opening a raw socket\n", - xbt_error_name(errcode)); - return 1; - } - if (!(ans=(BwExp_t *)malloc(sizeof(BwExp_t)))) { - fprintf(stderr,"grasbw_cbHandshake(): Malloc error.\n"); - gras_rawsock_close(rawIn); - gras_rawsock_close(rawOut); - return 1; - } - ans->bufSize=gras_msg_ctn(msg,0,0,BwExp_t).bufSize; - ans->expSize=gras_msg_ctn(msg,0,0,BwExp_t).expSize; - ans->msgSize=gras_msg_ctn(msg,0,0,BwExp_t).msgSize; - ans->port=gras_rawsock_get_peer_port(rawIn); - /* fprintf(stderr,"grasbw_cbHandshake. bufSize=%d expSize=%d msgSize=%d port=%d\n", - ans->bufSize,ans->expSize,ans->msgSize,ans->port);*/ - - if ((errcode=gras_msg_new_and_send(msg->sock,GRASMSG_BW_HANDSHAKED, 1, - ans, 1))) { - fprintf(stderr,"grasbw_cbHandshake(): Error %s encountered while sending the answer.\n", - xbt_error_name(errcode)); - gras_rawsock_close(rawIn); - gras_rawsock_close(rawOut); - return 1; - } - - if ((errcode=gras_rawsock_recv(rawIn, - gras_msg_ctn(msg,0,0,BwExp_t).expSize, - gras_msg_ctn(msg,0,0,BwExp_t).msgSize, - 120)) || - (errcode=gras_rawsock_send(rawOut,1,1))) { - fprintf(stderr,"grasbw_cbHandshake(): Error %s encountered while receiving the experiment.\n", - xbt_error_name(errcode)); - gras_rawsock_close(rawIn); - gras_rawsock_close(rawOut); - return 1; - } - gras_msg_free(msg); - gras_rawsock_close(rawIn); - gras_rawsock_close(rawOut); - return 1; -} - -/* function to request a BW test between to external hosts */ -xbt_error_t grasbw_request(const char* from_name,unsigned int from_port, - const char* to_name,unsigned int to_port, - unsigned int bufSize,unsigned int expSize,unsigned int msgSize, - /*OUT*/ double *sec, double*bw) { - - gras_sock_t *sock; - gras_msg_t *answer; - xbt_error_t errcode; - /* The request */ - BwExp_t *request; - msgHost_t *target; - - if((errcode=gras_sock_client_open(from_name,from_port,&sock))) { - fprintf(stderr,"grasbw_request(): Error %s encountered while contacting the actuator\n", - xbt_error_name(errcode)); - return errcode; - } - if (!(request=(BwExp_t *)malloc(sizeof(BwExp_t))) || - !(target=(msgHost_t*)malloc(sizeof(msgHost_t)))) { - fprintf(stderr,"grasbw_test(): Malloc error\n"); - gras_sock_close(sock); - return malloc_error; - } - - request->bufSize=bufSize; - request->expSize=expSize; - request->msgSize=msgSize; - strcpy(target->host,to_name); - target->port=to_port; - - if ((errcode=gras_msg_new_and_send(sock,GRASMSG_BW_REQUEST, 2, - target,1, - request,1))) { - fprintf(stderr,"grasbw_request(): Error %s encountered while sending the request.\n", - xbt_error_name(errcode)); - gras_sock_close(sock); - return errcode; - } - if ((errcode=gras_msg_wait(240,GRASMSG_BW_RESULT,&answer))) { - fprintf(stderr,"grasbw_request(): Error %s encountered while waiting for the answer.\n", - xbt_error_name(errcode)); - gras_sock_close(sock); - return errcode; - } - - if((errcode=gras_msg_ctn(answer,0,0,msgError_t).errcode)) { - fprintf(stderr,"grasbw_request(): Peer reported error %s (%s).\n", - xbt_error_name(errcode),gras_msg_ctn(answer,0,0,msgError_t).errmsg); - gras_msg_free(answer); - gras_sock_close(sock); - return errcode; - } - - /* fprintf(stderr,"sec=%p",gras_msg_ctn(answer,1,0,msgResult_t)); */ - *sec=gras_msg_ctn(answer,1,0,msgResult_t).value; - *bw=gras_msg_ctn(answer,1,1,msgResult_t).value; - - gras_msg_free(answer); - gras_sock_close(sock); - return no_error; -} - -int grasbw_cbBWRequest(gras_msg_t *msg) { - /* specification of the test to run */ - char* to_name=gras_msg_ctn(msg,0,0,msgHost_t).host; - unsigned int to_port=gras_msg_ctn(msg,0,0,msgHost_t).port; - - unsigned int bufSize=gras_msg_ctn(msg,1,0,BwExp_t).bufSize; - unsigned int expSize=gras_msg_ctn(msg,1,0,BwExp_t).expSize; - unsigned int msgSize=gras_msg_ctn(msg,1,0,BwExp_t).msgSize; - /* our answer */ - msgError_t *error; - msgResult_t *res; - - if (!(error=(msgError_t *)malloc(sizeof(msgError_t))) || - !(res=(msgResult_t *)malloc(sizeof(msgResult_t) * 2))) { - fprintf(stderr,"%s:%d:grasbw_cbRequest: Malloc error\n",__FILE__,__LINE__); - return malloc_error; - } - - if ((error->errcode=grasbw_test(to_name,to_port,bufSize,expSize,msgSize, - &(res[0].value),&(res[1].value) ))) { - fprintf(stderr, - "%s:%d:grasbw_cbRequest: Error %s encountered while doing the test\n", - __FILE__,__LINE__,xbt_error_name(error->errcode)); - strncpy(error->errmsg,"Error within grasbw_test",ERRMSG_LEN); - gras_msg_new_and_send(msg->sock,GRASMSG_BW_RESULT,2, - error,1, - res,2); - return 1; - } - res[0].timestamp = (unsigned int) gras_time(); - res[1].timestamp = (unsigned int) gras_time(); - gras_msg_new_and_send(msg->sock,GRASMSG_BW_RESULT,2, - error,1, - res,2); - gras_msg_free(msg); - return 1; -} - -/* *************************************************************************** - * Link saturation - * ***************************************************************************/ - -xbt_error_t grasbw_saturate_start(const char* from_name,unsigned int from_port, - const char* to_name,unsigned int to_port, - unsigned int msgSize, unsigned int timeout) { - gras_sock_t *sock; - xbt_error_t errcode; - /* The request */ - SatExp_t *request; - msgHost_t *target; - /* answer */ - gras_msg_t *answer; - - if((errcode=gras_sock_client_open(from_name,from_port,&sock))) { - fprintf(stderr,"%s:%d:saturate_start(): Error %s encountered while contacting peer\n", - __FILE__,__LINE__,xbt_error_name(errcode)); - return errcode; - } - if (!(request=(SatExp_t *)malloc(sizeof(SatExp_t))) || - !(target=(msgHost_t*)malloc(sizeof(msgHost_t)))) { - fprintf(stderr,"%s:%d:saturate_start(): Malloc error\n",__FILE__,__LINE__); - gras_sock_close(sock); - return malloc_error; - } - - request->timeout=timeout; - request->msgSize=msgSize; - - strcpy(target->host,to_name); - target->port=to_port; - - if ((errcode=gras_msg_new_and_send(sock,GRASMSG_SAT_START, 2, - target,1, - request,1))) { - fprintf(stderr,"%s:%d:saturate_start(): Error %s encountered while sending the request.\n", - __FILE__,__LINE__,xbt_error_name(errcode)); - gras_sock_close(sock); - return errcode; - } - if ((errcode=gras_msg_wait(120,GRASMSG_SAT_STARTED,&answer))) { - fprintf(stderr,"%s:%d:saturate_start(): Error %s encountered while waiting for the ACK.\n", - __FILE__,__LINE__,xbt_error_name(errcode)); - gras_sock_close(sock); - return errcode; - } - - if((errcode=gras_msg_ctn(answer,0,0,msgError_t).errcode)) { - fprintf(stderr,"%s:%d:saturate_start(): Peer reported error %s (%s).\n", - __FILE__,__LINE__,xbt_error_name(errcode),gras_msg_ctn(answer,0,0,msgError_t).errmsg); - gras_msg_free(answer); - gras_sock_close(sock); - return errcode; - } - - gras_msg_free(answer); - gras_sock_close(sock); - return no_error; -} - -int grasbw_cbSatStart(gras_msg_t *msg) { - gras_rawsock_t *raw; - gras_sock_t *sock; - xbt_error_t errcode; - double start; /* time to timeout */ - - /* specification of the test to run */ - char* to_name=gras_msg_ctn(msg,0,0,msgHost_t).host; - unsigned int to_port=gras_msg_ctn(msg,0,0,msgHost_t).port; - - unsigned int msgSize=gras_msg_ctn(msg,1,0,SatExp_t).msgSize; - unsigned int timeout=gras_msg_ctn(msg,1,0,SatExp_t).timeout; - unsigned int raw_port; - - /* The request */ - SatExp_t *request; - /* answer */ - gras_msg_t *answer; - - /* - fprintf(stderr,"grasbw_cbSatStart(sd=%p)\n",msg->sock); - fprintf(stderr,"(server=%d,raw=%d,fromPID=%d,toPID=%d,toHost=%p,toPort=%d,toChan=%d)\n", - msg->sock->server_sock,msg->sock->raw_sock,msg->sock->from_PID, - msg->sock->to_PID,msg->sock->to_host,msg->sock->to_port,msg->sock->to_chan); - */ - - /* Negociate the saturation with the peer */ - if((errcode=gras_sock_client_open(to_name,to_port,&sock))) { - fprintf(stderr,"cbSatStart(): Error %s encountered while contacting peer\n", - xbt_error_name(errcode)); - grasRepportError(msg->sock,GRASMSG_SAT_STARTED,1, - "cbSatStart: Severe error: Cannot send error status to requester!!\n", - errcode,"Cannot contact peer.\n"); - return 1; - } - if (!(request=(SatExp_t *)malloc(sizeof(SatExp_t)))) { - fprintf(stderr,"cbSatStart(): Malloc error\n"); - gras_sock_close(sock); - grasRepportError(msg->sock,GRASMSG_SAT_STARTED,1, - "cbSatStart: Severe error: Cannot send error status to requester!!\n", - malloc_error,"Cannot build request.\n"); - return 1; - } - - request->timeout=gras_msg_ctn(msg,1,0,SatExp_t).timeout; - request->msgSize=gras_msg_ctn(msg,1,0,SatExp_t).msgSize; - - if ((errcode=gras_msg_new_and_send(sock,GRASMSG_SAT_BEGIN, 1, - request,1))) { - fprintf(stderr,"cbSatStart(): Error %s encountered while sending the request.\n", - xbt_error_name(errcode)); - grasRepportError(msg->sock,GRASMSG_SAT_STARTED,1, - "cbSatStart: Severe error: Cannot send error status to requester!!\n", - errcode,"Cannot send request.\n"); - gras_sock_close(sock); - return 1; - } - - if ((errcode=gras_msg_wait(120,GRASMSG_SAT_BEGUN,&answer))) { - fprintf(stderr,"cbSatStart(): Error %s encountered while waiting for the ACK.\n", - xbt_error_name(errcode)); - gras_sock_close(sock); - - grasRepportError(msg->sock,GRASMSG_SAT_STARTED,1, - "cbSatStart: Severe error: Cannot send error status to requester!!\n", - errcode, - "Cannot receive the ACK.\n"); - return 1; - } - - if((errcode=gras_msg_ctn(answer,0,0,msgError_t).errcode)) { - fprintf(stderr,"cbSatStart(): Peer reported error %s (%s).\n", - xbt_error_name(errcode),gras_msg_ctn(answer,0,0,msgError_t).errmsg); - - grasRepportError(msg->sock,GRASMSG_SAT_STARTED,1, - "cbSatStart: Severe error: Cannot send error status to requester!!\n", - errcode, - "Peer repported '%s'.\n",gras_msg_ctn(answer,0,0,msgError_t).errmsg); - gras_msg_free(answer); - gras_sock_close(sock); - return 1; - } - - raw_port=gras_msg_ctn(answer,1,0,SatExp_t).port; - - if ((errcode=gras_rawsock_client_open(to_name,raw_port,msgSize,&raw))) { - fprintf(stderr,"cbSatStart(): Error %s while opening raw socket to %s:%d.\n", - xbt_error_name(errcode),to_name,gras_msg_ctn(answer,1,0,SatExp_t).port); - - grasRepportError(msg->sock,GRASMSG_SAT_STARTED,1, - "cbSatStart: Severe error: Cannot send error status to requester!!\n", - errcode,"Cannot open raw socket.\n"); - gras_sock_close(sock); - return 1; - } - - /* send a train of data before repporting that XP is started */ - if ((errcode=gras_rawsock_send(raw,msgSize,msgSize))) { - fprintf(stderr,"cbSatStart: Failure %s during raw send\n",xbt_error_name(errcode)); - grasRepportError(msg->sock,GRASMSG_SAT_STARTED,1, - "cbSatStart: Severe error: Cannot send error status to requester!!\n", - errcode,"Cannot raw send.\n"); - gras_sock_close(sock); - gras_rawsock_close(raw); - return 1; - } - - grasRepportError(msg->sock,GRASMSG_SAT_STARTED,1, - "cbSatStart: Severe error: Cannot send error status to requester!!\n", - no_error,"Saturation started"); - gras_msg_free(answer); - gras_msg_free(msg); - - /* Do the saturation until we get a SAT_STOP message or until we timeout the whole XP*/ - start=gras_time(); - while (gras_msg_wait(0,GRASMSG_SAT_STOP,&msg)==timeout_error && - gras_time()-start < timeout) { - if ((errcode=gras_rawsock_send(raw,msgSize,msgSize))) { - fprintf(stderr,"cbSatStart: Failure %s during raw send\n",xbt_error_name(errcode)); - /* our error message do not interess anyone. SAT_STOP will do nothing. */ - gras_sock_close(sock); - gras_rawsock_close(raw); - return 1; - } - } - if (gras_time()-start > timeout) { - fprintf(stderr,"The saturation experiment did timeout. Stop it NOW\n"); - gras_sock_close(sock); - gras_rawsock_close(raw); - return 1; - } - - /* Handle the SAT_STOP which broke the previous while */ - - if ((errcode=gras_msg_new_and_send(sock, GRASMSG_SAT_END,0))) { - fprintf(stderr,"cbSatStart(): Cannot tell peer to stop saturation\n"); - - grasRepportError(msg->sock,GRASMSG_SAT_STOPPED,1, - "cbSatStart: Severe error: Cannot send error status to requester!!\n", - errcode,"Sending SAT_END to peer failed.\n"); - gras_sock_close(sock); - gras_rawsock_close(raw); - return 1; - } - - if ((errcode=gras_msg_wait(60,GRASMSG_SAT_ENDED,&answer))) { - fprintf(stderr,"cbSatStart(): Peer didn't ACK the end\n"); - - grasRepportError(msg->sock,GRASMSG_SAT_STOPPED,1, - "cbSatStart: Severe error: Cannot send error status to requester!!\n", - errcode,"Receiving SAT_ENDED from peer failed.\n"); - gras_sock_close(sock); - gras_rawsock_close(raw); - return 1; - } - grasRepportError(msg->sock,GRASMSG_SAT_STOPPED,1, - "cbSatStart: Severe error: Cannot send error status to requester!!\n", - no_error,""); - - gras_sock_close(sock); - gras_rawsock_close(raw); - gras_msg_free(answer); - gras_msg_free(msg); - - return 1; -} - -int grasbw_cbSatBegin(gras_msg_t *msg) { - gras_rawsock_t *raw; - xbt_error_t errcode; - double start; /* timer */ - /* request */ - unsigned int msgSize=gras_msg_ctn(msg,0,0,SatExp_t).msgSize; - unsigned int timeout=gras_msg_ctn(msg,0,0,SatExp_t).timeout; - /* answer */ - SatExp_t *request; - msgError_t *error; - - if (!(request=(SatExp_t*)malloc(sizeof(SatExp_t))) || - !(error=(msgError_t *)malloc(sizeof(msgError_t)))) { - fprintf(stderr,"cbSatBegin(): Malloc error\n"); - grasRepportError(msg->sock,GRASMSG_SAT_BEGUN,2, - "cbSatBegin: Severe error: Cannot send error status to requester!!\n", - malloc_error,"Malloc error"); - return 1; - } - - if ((errcode=gras_rawsock_server_open(6666,8000,msgSize,&raw))) { - fprintf(stderr,"cbSatBegin(): Error %s encountered while opening a raw socket\n", - xbt_error_name(errcode)); - grasRepportError(msg->sock,GRASMSG_SAT_BEGUN,2, - "cbSatBegin: Severe error: Cannot send error status to requester!!\n", - errcode,"Cannot open raw socket"); - return 1; - } - request->port=gras_rawsock_get_peer_port(raw); - request->msgSize=msgSize; - error->errcode=no_error; - error->errmsg[0]='\0'; - if ((errcode=gras_msg_new_and_send(msg->sock,GRASMSG_SAT_BEGUN,2, - error,1, - request,1))) { - fprintf(stderr,"cbSatBegin(): Error %s encountered while send ACK to peer\n", - xbt_error_name(errcode)); - return 1; - } - gras_msg_free(msg); - - start=gras_time(); - while (gras_msg_wait(0,GRASMSG_SAT_END,&msg)==timeout_error && - gras_time() - start < timeout) { - errcode=gras_rawsock_recv(raw,msgSize,msgSize,1); - if (errcode != timeout_error && errcode != no_error) { - fprintf(stderr,"cbSatBegin: Failure %s during raw receive\n",xbt_error_name(errcode)); - /* our error message do not interess anyone. SAT_END will do nothing. */ - /* (if timeout'ed, it may be because the sender stopped emission. so survive it) */ - return 1; - } - } - if (gras_time()-start > timeout) { - fprintf(stderr,"The saturation experiment did timeout. Stop it NOW.\n"); - gras_rawsock_close(raw); - return 1; - } - - grasRepportError(msg->sock,GRASMSG_SAT_ENDED,1, - "cbSatBegin: Cannot send SAT_ENDED.\n", - no_error,""); - gras_rawsock_close(raw); - gras_msg_free(msg); - return 1; -} - -xbt_error_t grasbw_saturate_stop(const char* from_name,unsigned int from_port, - const char* to_name,unsigned int to_port) { - xbt_error_t errcode; - gras_sock_t *sock; - gras_msg_t *answer; - - if((errcode=gras_sock_client_open(from_name,from_port,&sock))) { - fprintf(stderr,"saturate_stop(): Error %s encountered while contacting peer\n", - xbt_error_name(errcode)); - return errcode; - } - - if ((errcode=gras_msg_new_and_send(sock,GRASMSG_SAT_STOP,0))) { - fprintf(stderr,"saturate_stop(): Error %s encountered while sending request\n", - xbt_error_name(errcode)); - gras_sock_close(sock); - return errcode; - } - - if ((errcode=gras_msg_wait(120,GRASMSG_SAT_STOPPED,&answer))) { - fprintf(stderr,"saturate_stop(): Error %s encountered while receiving ACK\n", - xbt_error_name(errcode)); - gras_sock_close(sock); - return errcode; - } - - if((errcode=gras_msg_ctn(answer,0,0,msgError_t).errcode)) { - fprintf(stderr,"saturate_stop(): Peer reported error %s (%s).\n", - xbt_error_name(errcode),gras_msg_ctn(answer,0,0,msgError_t).errmsg); - gras_msg_free(answer); - gras_sock_close(sock); - return errcode; - } - - gras_msg_free(answer); - gras_sock_close(sock); - - return no_error; -} -#endif -- 2.20.1