8 int server_kill_cb(gras_msg_cb_ctx_t ctx, void *payload) {
9 gras_socket_t client = gras_msg_cb_ctx_from(ctx);
10 server_data_t *globals=(server_data_t*)gras_userdata_get();
12 fprintf(stderr,"Argh, killed by %s:%d! Bye folks...\n",
13 gras_socket_peer_name(client), gras_socket_peer_port(client));
18 } /* end_of_kill_callback */
20 int server_hello_cb(gras_msg_cb_ctx_t ctx, void *payload) {
21 gras_socket_t client = gras_msg_cb_ctx_from(ctx);
23 fprintf(stderr,"Cool, we received the message from %s:%d.\n",
24 gras_socket_peer_name(client), gras_socket_peer_port(client));
27 } /* end_of_hello_callback */
29 int server(int argc, char *argv[]) {
30 gras_socket_t mysock; /* socket on which I listen */
31 server_data_t globals;
33 gras_init(&argc,argv);
35 globals=gras_userdata_new(server_data_t);
38 gras_msgtype_declare("hello", NULL);
39 gras_msgtype_declare("kill", NULL);
40 mysock = gras_socket_server(atoi(argv[1]));
42 gras_cb_register(gras_msgtype_by_name("hello"),&server_hello_cb);
43 gras_cb_register(gras_msgtype_by_name("kill"),&server_kill_cb);
45 while (!globals->killed) {
46 gras_msg_handle(-1); /* blocking */
53 int client(int argc, char *argv[]) {
54 gras_socket_t mysock; /* socket on which I listen */
55 gras_socket_t toserver; /* socket used to write to the server */
57 gras_init(&argc,argv);
59 gras_msgtype_declare("hello", NULL);
60 gras_msgtype_declare("kill", NULL);
61 mysock = gras_socket_server_range(1024, 10000, 0, 0);
63 fprintf(stderr,"Client ready; listening on %d\n", gras_socket_my_port(mysock));
65 gras_os_sleep(1.5); /* sleep 1 second and half */
66 toserver = gras_socket_client(argv[1], atoi(argv[2]));
68 gras_msg_send(toserver,gras_msgtype_by_name("hello"), NULL);
69 fprintf(stderr,"we sent the data to the server on %s. Let's do it again for fun\n", gras_socket_peer_name(toserver));
70 gras_msg_send(toserver,gras_msgtype_by_name("hello"), NULL);
72 fprintf(stderr,"Ok. Enough. Have a rest, and then kill the server\n");
73 gras_os_sleep(5); /* sleep 1 second and half */
74 gras_msg_send(toserver,gras_msgtype_by_name("kill"), NULL);