--- /dev/null
+/* $Id$ */
+
+/* amok host management - servers main loop and remote host stopping */
+
+/* Copyright (c) 2006 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 "xbt/sysdep.h"
+#include "xbt/host.h"
+#include "amok/hostmanagement.h"
+#include "gras/Virtu/virtu_interface.h" /* libdata */
+
+XBT_LOG_NEW_DEFAULT_SUBCATEGORY(amok_hm,amok,"Host management");
+
+
+/* libdata management */
+static int amok_hm_libdata_id;
+typedef struct {
+ int done;
+ xbt_dict_t groups;
+} s_amok_hm_libdata_t, *amok_hm_libdata_t;
+
+static void *amok_hm_libdata_new() {
+ amok_hm_libdata_t res=xbt_new(s_amok_hm_libdata_t,1);
+ res->done = 0;
+ res->groups = xbt_dict_new();
+ return res;
+}
+static void amok_hm_libdata_free(void *d) {
+ amok_hm_libdata_t data=(amok_hm_libdata_t)d;
+ xbt_dict_free(&data->groups);
+ free (data);
+}
+
+/* Message callbacks */
+static int amok_hm_cb_kill(gras_msg_cb_ctx_t ctx,
+ void *payload_data) {
+
+ amok_hm_libdata_t g=gras_libdata_by_id(amok_hm_libdata_id);
+ g->done = 1;
+ return 1;
+}
+static int amok_hm_cb_killrpc(gras_msg_cb_ctx_t ctx,
+ void *payload_data) {
+
+ amok_hm_libdata_t g=gras_libdata_by_id(amok_hm_libdata_id);
+ g->done = 1;
+ gras_msg_rpcreturn(30,ctx,NULL);
+ return 1;
+}
+
+static int amok_hm_cb_get(gras_msg_cb_ctx_t ctx, void *payload) {
+ amok_hm_libdata_t g=gras_libdata_by_id(amok_hm_libdata_id);
+ char *name = *(void**)payload;
+ xbt_dynar_t res = xbt_dict_get(g->groups, name);
+
+ gras_msg_rpcreturn(30, ctx, &res);
+ return 1;
+}
+static int amok_hm_cb_join(gras_msg_cb_ctx_t ctx, void *payload) {
+ amok_hm_libdata_t g=gras_libdata_by_id(amok_hm_libdata_id);
+ char *name = *(void**)payload;
+ xbt_dynar_t group = xbt_dict_get(g->groups, name);
+
+ gras_socket_t exp = gras_msg_cb_ctx_from(ctx);
+ xbt_host_t dude = xbt_host_new(gras_socket_peer_name(exp),
+ gras_socket_peer_port(exp));
+
+ xbt_dynar_push(group,&dude);
+
+ gras_msg_rpcreturn(30, ctx, NULL);
+ return 1;
+}
+static int amok_hm_cb_leave(gras_msg_cb_ctx_t ctx, void *payload) {
+ amok_hm_libdata_t g=gras_libdata_by_id(amok_hm_libdata_id);
+ char *name = *(void**)payload;
+ xbt_dynar_t group = xbt_dict_get(g->groups, name);
+
+ gras_socket_t exp = gras_msg_cb_ctx_from(ctx);
+ xbt_host_t dude = xbt_host_new(gras_socket_peer_name(exp),
+ gras_socket_peer_port(exp));
+
+ int cpt;
+ xbt_host_t host_it;
+
+ xbt_dynar_foreach(group, cpt, host_it) {
+ if (!strcmp(host_it->name, dude->name) &&
+ host_it->port == dude->port) {
+ xbt_dynar_cursor_rm (group,&cpt);
+ goto end;
+ }
+ }
+ WARN3("Asked to remove %s:%d from group '%s', but not found. Ignoring",
+ dude->name,dude->port, name);
+
+ end:
+ gras_msg_rpcreturn(30, ctx, NULL);
+ return 1;
+}
+
+static int amok_hm_cb_shutdown(gras_msg_cb_ctx_t ctx, void *payload) {
+ char *name = *(void**)payload;
+ amok_hm_group_shutdown_local(name);
+
+ gras_msg_rpcreturn(30, ctx, NULL);
+ return 1;
+}
+
+
+/* Initialization stuff */
+static short amok_hm_used = 0;
+void amok_hm_init() {
+ /* pure INIT part */
+ if (! amok_hm_used) {
+
+ /* dependencies */
+ amok_base_init();
+
+ /* module data on each process */
+ amok_hm_libdata_id = gras_procdata_add("amok_hm",
+ amok_hm_libdata_new,
+ amok_hm_libdata_free);
+
+ /* Datatype and message declarations */
+ gras_msgtype_declare("amok_hm_kill",NULL);
+ gras_msgtype_declare_rpc("amok_hm_kill",NULL,NULL);
+
+ gras_msgtype_declare_rpc("amok_hm_get",
+ gras_datadesc_by_name("string"),
+ gras_datadesc_by_name("xbt_dynar_t"));
+ gras_msgtype_declare_rpc("amok_hm_join",
+ gras_datadesc_by_name("string"),
+ NULL);
+ gras_msgtype_declare_rpc("amok_hm_leave",
+ gras_datadesc_by_name("string"),
+ NULL);
+
+ gras_msgtype_declare_rpc("amok_hm_shutdown",
+ gras_datadesc_by_name("string"),
+ NULL);
+ }
+ amok_hm_used++;
+
+ /* JOIN part */
+ gras_cb_register(gras_msgtype_by_name("amok_hm_kill"),
+ &amok_hm_cb_kill);
+ gras_cb_register(gras_msgtype_by_name("amok_hm_killrpc"),
+ &amok_hm_cb_killrpc);
+
+ gras_cb_register(gras_msgtype_by_name("amok_hm_get"),
+ &amok_hm_cb_get);
+ gras_cb_register(gras_msgtype_by_name("amok_hm_join"),
+ &amok_hm_cb_join);
+ gras_cb_register(gras_msgtype_by_name("amok_hm_leave"),
+ &amok_hm_cb_leave);
+ gras_cb_register(gras_msgtype_by_name("amok_hm_shutdown"),
+ &amok_hm_cb_shutdown);
+}
+
+
+
+void amok_hm_exit() {
+ /* pure EXIT part */
+ amok_hm_used--;
+
+ /* LEAVE part */
+ gras_cb_unregister(gras_msgtype_by_name("amok_hm_kill"),
+ &amok_hm_cb_kill);
+ gras_cb_unregister(gras_msgtype_by_name("amok_hm_killrpc"),
+ &amok_hm_cb_killrpc);
+
+ gras_cb_unregister(gras_msgtype_by_name("amok_hm_get"),
+ &amok_hm_cb_get);
+ gras_cb_unregister(gras_msgtype_by_name("amok_hm_join"),
+ &amok_hm_cb_join);
+ gras_cb_unregister(gras_msgtype_by_name("amok_hm_leave"),
+ &amok_hm_cb_leave);
+
+ gras_cb_unregister(gras_msgtype_by_name("amok_hm_shutdown"),
+ &amok_hm_cb_shutdown);
+}
+
+
+void amok_hm_mainloop(double timeOut) {
+ amok_hm_libdata_t g=gras_libdata_by_id(amok_hm_libdata_id);
+
+ while (!g->done) {
+ gras_msg_handle(timeOut);
+ }
+}
+
+/** \brief kill a buddy identified by its hostname and port */
+void amok_hm_kill_hp(char *name,int port) {
+ gras_socket_t sock=gras_socket_client(name,port);
+ amok_hm_kill(sock);
+ gras_socket_close(sock);
+}
+
+/** \brief kill a buddy to which we have a socket already */
+void amok_hm_kill(gras_socket_t buddy) {
+ gras_msg_send(buddy,gras_msgtype_by_name("amok_hm_kill"),NULL);
+}
+
+/** \brief kill syncronously a buddy (do not return before its death) */
+void amok_hm_kill_sync(gras_socket_t buddy) {
+ gras_msg_rpccall(buddy,30,gras_msgtype_by_name("amok_hm_killrpc"),NULL,NULL);
+}
+
+
+/** \brief create a new hostmanagement group located on local host
+ *
+ * The dynar elements are of type xbt_host_t
+ */
+xbt_dynar_t amok_hm_group_new(char *group_name) {
+ amok_hm_libdata_t g=gras_libdata_by_id(amok_hm_libdata_id);
+ xbt_dynar_t res = xbt_dynar_new(sizeof(xbt_host_t),
+ &xbt_host_free_voidp);
+
+ xbt_dict_set(g->groups,group_name,res,&xbt_dynar_free_voidp);
+
+ return res;
+}
+/** \brief retrieve all members of the given remote group */
+xbt_dynar_t amok_hm_group_get(gras_socket_t master, char *group_name) {
+ xbt_dynar_t res;
+
+ gras_msg_rpccall(master,30,gras_msgtype_by_name("amok_hm_get"),
+ &group_name,&res);
+ return res;
+}
+
+/** \brief add current host to the given remote group */
+void amok_hm_group_join(gras_socket_t master, char *group_name) {
+ gras_msg_rpccall(master,30,gras_msgtype_by_name("amok_hm_join"),
+ &group_name,NULL);
+}
+/** \brief remove current host from the given remote group if found
+ *
+ * If not found, call is ignored
+ */
+void amok_hm_group_leave(gras_socket_t master, char *group_name) {
+ gras_msg_rpccall(master,30,gras_msgtype_by_name("amok_hm_leave"),
+ &group_name,NULL);
+}
+
+/** \brief stops all members of the given local group */
+void amok_hm_group_shutdown_local(char *group_name) {
+ amok_hm_libdata_t g=gras_libdata_by_id(amok_hm_libdata_id);
+ xbt_dynar_t group = xbt_dict_get(g->groups, group_name);
+
+ int cpt;
+ xbt_host_t host_it;
+
+ xbt_dynar_foreach(group, cpt, host_it) {
+ amok_hm_kill_hp(host_it->name, host_it->port);
+ }
+
+ xbt_dict_remove(g->groups,group_name);
+}
+/** \brief stops all members of the given remote group */
+void amok_hm_group_shutdown_remote(gras_socket_t master, char *group_name){
+ gras_msg_rpccall(master,30,gras_msgtype_by_name("amok_hm_shutdown"),
+ &group_name,NULL);
+}