doc/gtut-files/06-logs.c

   1 /* Copyright (c) 2006, 2007, 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 <gras.h>
   8
   9 XBT_LOG_NEW_DEFAULT_CATEGORY(test,"My little example");
  10
  11 typedef struct {
  12    int killed;
  13 } server_data_t;
  14
  15
  16 int server_kill_cb(gras_msg_cb_ctx_t ctx, void *payload) {
  17   gras_socket_t client = gras_msg_cb_ctx_from(ctx);
  18   server_data_t *globals=(server_data_t*)gras_userdata_get();
  19
  20   CRITICAL2("Argh, killed by %s:%d! Bye folks...",
  21         gras_socket_peer_name(client), gras_socket_peer_port(client));
  22
  23   globals->killed = 1;
  24
  25   return 0;
  26 } /* end_of_kill_callback */
  27
  28 int server_hello_cb(gras_msg_cb_ctx_t ctx, void *payload) {
  29   gras_socket_t client = gras_msg_cb_ctx_from(ctx);
  30
  31   INFO2("Cool, we received the message from %s:%d.",
  32         gras_socket_peer_name(client), gras_socket_peer_port(client));
  33
  34   return 0;
  35 } /* end_of_hello_callback */
  36
  37 int server(int argc, char *argv[]) {
  38   gras_socket_t mysock;   /* socket on which I listen */
  39   server_data_t *globals;
  40
  41   gras_init(&argc,argv);
  42
  43   globals=gras_userdata_new(server_data_t*);
  44   globals->killed=0;
  45
  46   gras_msgtype_declare("hello", NULL);
  47   gras_msgtype_declare("kill", NULL);
  48   mysock = gras_socket_server(atoi(argv[1]));
  49
  50   gras_cb_register("hello",&server_hello_cb);
  51   gras_cb_register("kill",&server_kill_cb);
  52
  53   while (!globals->killed) {
  54      gras_msg_handle(-1); /* blocking */
  55   }
  56
  57   gras_exit();
  58   return 0;
  59 }
  60
  61 int client(int argc, char *argv[]) {
  62   gras_socket_t mysock;   /* socket on which I listen */
  63   gras_socket_t toserver; /* socket used to write to the server */
  64
  65   gras_init(&argc,argv);
  66
  67   gras_msgtype_declare("hello", NULL);
  68   gras_msgtype_declare("kill", NULL);
  69   mysock = gras_socket_server_range(1024, 10000, 0, 0);
  70
  71   VERB1("Client ready; listening on %d", gras_socket_my_port(mysock));
  72
  73   gras_os_sleep(1.5); /* sleep 1 second and half */
  74   toserver = gras_socket_client(argv[1], atoi(argv[2]));
  75
  76   gras_msg_send(toserver,"hello", NULL);
  77   INFO1("we sent the data to the server on %s. Let's do it again for fun", gras_socket_peer_name(toserver));
  78   gras_msg_send(toserver,"hello", NULL);
  79
  80   INFO0("Ok. Enough. Have a rest, and then kill the server");
  81   gras_os_sleep(5); /* sleep 1 second and half */
  82   gras_msg_send(toserver,"kill", NULL);
  83
  84   gras_exit();
  85   return 0;
  86 }