Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
code cleanup
authormquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Mon, 7 Feb 2005 23:18:12 +0000 (23:18 +0000)
committermquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Mon, 7 Feb 2005 23:18:12 +0000 (23:18 +0000)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@903 48e7efb5-ca39-0410-a469-dd3cf9ba447f

examples/gras/ping/ping.c

index 460e304..dc2e81b 100644 (file)
@@ -2,15 +2,11 @@
 
 /* ping - ping/pong demo of GRAS features                                   */
 
 
 /* ping - ping/pong demo of GRAS features                                   */
 
-/* Copyright (c) 2003, 2004 Martin Quinson. All rights reserved.            */
+/* Copyright (c) 2003, 2004, 2005 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. */
 
 
 /* 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 <stdio.h>
-#include <stdlib.h>
-#include <signal.h>
-
 #include "gras.h"
 
 XBT_LOG_NEW_DEFAULT_CATEGORY(Ping,"Messages specific to this example");
 #include "gras.h"
 
 XBT_LOG_NEW_DEFAULT_CATEGORY(Ping,"Messages specific to this example");
@@ -19,16 +15,7 @@ XBT_LOG_NEW_DEFAULT_CATEGORY(Ping,"Messages specific to this example");
  * Comon code
  * **********************************************************************/
 
  * Comon code
  * **********************************************************************/
 
-typedef struct {
-  int dummy;
-} msg_ping_t;
-
-/* Function prototypes */
-void register_messages(void);
-
-/* Code */
-void register_messages(void) {
-
+static void register_messages(void) {
   gras_msgtype_declare("ping", gras_datadesc_by_name("int"));
   gras_msgtype_declare("pong", gras_datadesc_by_name("int"));
 }
   gras_msgtype_declare("ping", gras_datadesc_by_name("int"));
   gras_msgtype_declare("pong", gras_datadesc_by_name("int"));
 }
@@ -54,40 +41,37 @@ int server_cb_ping_handler(gras_socket_t  expeditor,
                             
   xbt_error_t errcode;
   int msg=*(int*)payload_data;
                             
   xbt_error_t errcode;
   int msg=*(int*)payload_data;
-  gras_msgtype_t *pong_t=NULL;
 
 
-  server_data_t *g=(server_data_t*)gras_userdata_get();
+  server_data_t *globals=(server_data_t*)gras_userdata_get();
 
 
-  g->endcondition = 0;
+  globals->endcondition = 0;
   INFO3("SERVER: >>>>>>>> Got message PING(%d) from %s:%d <<<<<<<<", 
        msg, 
   INFO3("SERVER: >>>>>>>> Got message PING(%d) from %s:%d <<<<<<<<", 
        msg, 
-       gras_socket_peer_name(expeditor),
-       gras_socket_peer_port(expeditor));
+       gras_socket_peer_name(expeditor), gras_socket_peer_port(expeditor));
   
   msg = 4321;
   errcode = gras_msg_send(expeditor, gras_msgtype_by_name("pong"), &msg);
 
   if (errcode != no_error) {
     ERROR1("SERVER: Unable answer with PONG: %s\n", xbt_error_name(errcode));
   
   msg = 4321;
   errcode = gras_msg_send(expeditor, gras_msgtype_by_name("pong"), &msg);
 
   if (errcode != no_error) {
     ERROR1("SERVER: Unable answer with PONG: %s\n", xbt_error_name(errcode));
-    gras_socket_close(g->sock);
+    gras_socket_close(globals->sock);
     return 1;
   }
 
   INFO0("SERVER: >>>>>>>> Answed with PONG(4321) <<<<<<<<");
     return 1;
   }
 
   INFO0("SERVER: >>>>>>>> Answed with PONG(4321) <<<<<<<<");
-  g->endcondition = 1;
+  globals->endcondition = 1;
   gras_socket_close(expeditor);
   return 1;
 }
 
 int server (int argc,char *argv[]) {
   xbt_error_t errcode;
   gras_socket_close(expeditor);
   return 1;
 }
 
 int server (int argc,char *argv[]) {
   xbt_error_t errcode;
-  server_data_t *g;
-  gras_msgtype_t *ping_msg=NULL;
+  server_data_t *globals;
 
   int port = 4000;
   
   gras_init(&argc,argv, NULL);
 
   int port = 4000;
   
   gras_init(&argc,argv, NULL);
-  g=gras_userdata_new(server_data_t);
+  globals=gras_userdata_new(server_data_t);
    
   if (argc == 2) {
     port=atoi(argv[1]);
    
   if (argc == 2) {
     port=atoi(argv[1]);
@@ -95,7 +79,7 @@ int server (int argc,char *argv[]) {
 
   INFO1("Launch server (port=%d)", port);
 
 
   INFO1("Launch server (port=%d)", port);
 
-  if ((errcode=gras_socket_server(port,&(g->sock)))) { 
+  if ((errcode=gras_socket_server(port,&(globals->sock)))) { 
     CRITICAL1("Error %s encountered while opening the server socket",
              xbt_error_name(errcode));
     return 1;
     CRITICAL1("Error %s encountered while opening the server socket",
              xbt_error_name(errcode));
     return 1;
@@ -106,19 +90,20 @@ int server (int argc,char *argv[]) {
   gras_cb_register(gras_msgtype_by_name("ping"),&server_cb_ping_handler);
 
   INFO1("SERVER: >>>>>>>> Listening on port %d <<<<<<<<",
   gras_cb_register(gras_msgtype_by_name("ping"),&server_cb_ping_handler);
 
   INFO1("SERVER: >>>>>>>> Listening on port %d <<<<<<<<",
-       gras_socket_my_port(g->sock));
-  g->endcondition=0;
+       gras_socket_my_port(globals->sock));
+  globals->endcondition=0;
 
   errcode = gras_msg_handle(600.0);
   if (errcode != no_error)
     return errcode;
 
   errcode = gras_msg_handle(600.0);
   if (errcode != no_error)
     return errcode;
-  if (g->endcondition)
+  if (!globals->endcondition)
+     WARN0("An error occured, the endcondition was not set by the callback");
   
   if (!gras_if_RL())
     gras_os_sleep(1,0);
 
   
   if (!gras_if_RL())
     gras_os_sleep(1,0);
 
-  gras_socket_close(g->sock);
-  free(g);
+  gras_socket_close(globals->sock);
+  free(globals);
   gras_exit();
   INFO0("SERVER: Done.");
   return no_error;
   gras_exit();
   INFO0("SERVER: Done.");
   return no_error;
@@ -128,17 +113,12 @@ int server (int argc,char *argv[]) {
  * Client code
  * **********************************************************************/
 
  * Client code
  * **********************************************************************/
 
-/* Global private data */
-typedef struct {
-  gras_socket_t sock;
-} client_data_t;
-
 /* Function prototypes */
 int client (int argc,char *argv[]);
 
 int client(int argc,char *argv[]) {
 /* Function prototypes */
 int client (int argc,char *argv[]);
 
 int client(int argc,char *argv[]) {
-  xbt_error_t errcode;
-  client_data_t *g;
+  xbt_error_t errcode; 
+  gras_socket_t toserver; /* peer */
 
   gras_socket_t from;
   int ping, pong;
 
   gras_socket_t from;
   int ping, pong;
@@ -147,7 +127,6 @@ int client(int argc,char *argv[]) {
         int   port = 4000;
 
   gras_init(&argc, argv, NULL);
         int   port = 4000;
 
   gras_init(&argc, argv, NULL);
-  g=gras_userdata_new(client_data_t);
    
   if (argc == 3) {
     host=argv[1];
    
   if (argc == 3) {
     host=argv[1];
@@ -156,7 +135,7 @@ int client(int argc,char *argv[]) {
 
   INFO2("Launch client (server on %s:%d)",host,port);
   gras_os_sleep(1,0); /* Wait for the server startup */
 
   INFO2("Launch client (server on %s:%d)",host,port);
   gras_os_sleep(1,0); /* Wait for the server startup */
-  if ((errcode=gras_socket_client(host,port,&(g->sock)))) {
+  if ((errcode=gras_socket_client(host,port,&toserver))) {
     ERROR1("Client: Unable to connect to the server. Got %s",
           xbt_error_name(errcode));
     return 1;
     ERROR1("Client: Unable to connect to the server. Got %s",
           xbt_error_name(errcode));
     return 1;
@@ -167,25 +146,25 @@ int client(int argc,char *argv[]) {
   register_messages();
 
   INFO2("Client: >>>>>>>> Connected to server which is on %s:%d <<<<<<<<", 
   register_messages();
 
   INFO2("Client: >>>>>>>> Connected to server which is on %s:%d <<<<<<<<", 
-       gras_socket_peer_name(g->sock),gras_socket_peer_port(g->sock));
+       gras_socket_peer_name(toserver),gras_socket_peer_port(toserver));
 
   ping = 1234;
 
   ping = 1234;
-  errcode = gras_msg_send(g->sock, gras_msgtype_by_name("ping"), &ping);
+  errcode = gras_msg_send(toserver, gras_msgtype_by_name("ping"), &ping);
   if (errcode != no_error) {
     fprintf(stderr, "Client: Unable send PING to server (%s)\n",
            xbt_error_name(errcode));
   if (errcode != no_error) {
     fprintf(stderr, "Client: Unable send PING to server (%s)\n",
            xbt_error_name(errcode));
-    gras_socket_close(g->sock);
+    gras_socket_close(toserver);
     return 1;
   }
   INFO3("Client: >>>>>>>> Message PING(%d) sent to %s:%d <<<<<<<<",
        ping,
     return 1;
   }
   INFO3("Client: >>>>>>>> Message PING(%d) sent to %s:%d <<<<<<<<",
        ping,
-       gras_socket_peer_name(g->sock),gras_socket_peer_port(g->sock));
+       gras_socket_peer_name(toserver),gras_socket_peer_port(toserver));
 
   if ((errcode=gras_msg_wait(6000,gras_msgtype_by_name("pong"),
                             &from,&pong))) {
     ERROR1("Client: Why can't I get my PONG message like everyone else (%s)?",
           xbt_error_name(errcode));
 
   if ((errcode=gras_msg_wait(6000,gras_msgtype_by_name("pong"),
                             &from,&pong))) {
     ERROR1("Client: Why can't I get my PONG message like everyone else (%s)?",
           xbt_error_name(errcode));
-    gras_socket_close(g->sock);
+    gras_socket_close(toserver);
     return 1;
   }
 
     return 1;
   }
 
@@ -193,8 +172,7 @@ int client(int argc,char *argv[]) {
        pong,
        gras_socket_peer_name(from),gras_socket_peer_port(from));
 
        pong,
        gras_socket_peer_name(from),gras_socket_peer_port(from));
 
-  gras_socket_close(g->sock);
-  free(g);
+  gras_socket_close(toserver);
   gras_exit();
   INFO0("Client: Done.");
   return 0;
   gras_exit();
   INFO0("Client: Done.");
   return 0;