123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980 |
- /*
- This file is part of GNUnet
- (C) 2008--2013 Christian Grothoff (and other contributing authors)
- GNUnet is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published
- by the Free Software Foundation; either version 3, or (at your
- option) any later version.
- GNUnet is distributed in the hope that it will be useful, but
- WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with GNUnet; see the file COPYING. If not, write to the
- Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- Boston, MA 02111-1307, USA.
- */
- /**
- * @file testbed/testbed_api_peers.c
- * @brief management of the knowledge about peers in this library
- * (we know the peer ID, its host, pending operations, etc.)
- * @author Christian Grothoff
- * @author Sree Harsha Totakura
- */
- #include "platform.h"
- #include "testbed_api_peers.h"
- #include "testbed_api.h"
- #include "testbed.h"
- #include "testbed_api_hosts.h"
- #include "testbed_api_operations.h"
- /**
- * Peer list DLL head
- */
- static struct GNUNET_TESTBED_Peer *peer_list_head;
- /**
- * Peer list DLL tail
- */
- static struct GNUNET_TESTBED_Peer *peer_list_tail;
- /**
- * Adds a peer to the peer list
- *
- * @param peer the peer to add to the peer list
- */
- void
- GNUNET_TESTBED_peer_register_ (struct GNUNET_TESTBED_Peer *peer)
- {
- GNUNET_CONTAINER_DLL_insert_tail (peer_list_head, peer_list_tail, peer);
- }
- /**
- * Removes a peer from the peer list
- *
- * @param peer the peer to remove
- */
- void
- GNUNET_TESTBED_peer_deregister_ (struct GNUNET_TESTBED_Peer *peer)
- {
- GNUNET_CONTAINER_DLL_remove (peer_list_head, peer_list_tail, peer);
- }
- /**
- * Frees all peers
- */
- void
- GNUNET_TESTBED_cleanup_peers_ (void)
- {
- struct GNUNET_TESTBED_Peer *peer;
- while (NULL != (peer = peer_list_head))
- {
- GNUNET_TESTBED_peer_deregister_ (peer);
- GNUNET_free (peer);
- }
- }
- /**
- * Function to call to start a peer_create type operation once all
- * queues the operation is part of declare that the
- * operation can be activated.
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- opstart_peer_create (void *cls)
- {
- struct OperationContext *opc = cls;
- struct PeerCreateData *data = opc->data;
- struct GNUNET_TESTBED_PeerCreateMessage *msg;
- char *config;
- char *xconfig;
- size_t c_size;
- size_t xc_size;
- uint16_t msize;
- GNUNET_assert (OP_PEER_CREATE == opc->type);
- GNUNET_assert (NULL != data);
- GNUNET_assert (NULL != data->peer);
- opc->state = OPC_STATE_STARTED;
- config = GNUNET_CONFIGURATION_serialize (data->cfg, &c_size);
- xc_size = GNUNET_TESTBED_compress_config_ (config, c_size, &xconfig);
- GNUNET_free (config);
- msize = xc_size + sizeof (struct GNUNET_TESTBED_PeerCreateMessage);
- msg = GNUNET_realloc (xconfig, msize);
- memmove (&msg[1], msg, xc_size);
- msg->header.size = htons (msize);
- msg->header.type = htons (GNUNET_MESSAGE_TYPE_TESTBED_CREATE_PEER);
- msg->operation_id = GNUNET_htonll (opc->id);
- msg->host_id = htonl (GNUNET_TESTBED_host_get_id_ (data->peer->host));
- msg->peer_id = htonl (data->peer->unique_id);
- msg->config_size = htons ((uint16_t) c_size);
- GNUNET_TESTBED_insert_opc_ (opc->c, opc);
- GNUNET_TESTBED_queue_message_ (opc->c, &msg->header);
- }
- /**
- * Callback which will be called when peer_create type operation is released
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- oprelease_peer_create (void *cls)
- {
- struct OperationContext *opc = cls;
- switch (opc->state)
- {
- case OPC_STATE_STARTED:
- GNUNET_TESTBED_remove_opc_ (opc->c, opc);
- /* No break we continue flow */
- case OPC_STATE_INIT:
- GNUNET_free (((struct PeerCreateData *) opc->data)->peer);
- GNUNET_free (opc->data);
- break;
- case OPC_STATE_FINISHED:
- break;
- }
- GNUNET_free (opc);
- }
- /**
- * Function called when a peer destroy operation is ready
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- opstart_peer_destroy (void *cls)
- {
- struct OperationContext *opc = cls;
- struct GNUNET_TESTBED_Peer *peer = opc->data;
- struct GNUNET_TESTBED_PeerDestroyMessage *msg;
- GNUNET_assert (OP_PEER_DESTROY == opc->type);
- GNUNET_assert (NULL != peer);
- opc->state = OPC_STATE_STARTED;
- msg = GNUNET_new (struct GNUNET_TESTBED_PeerDestroyMessage);
- msg->header.size = htons (sizeof (struct GNUNET_TESTBED_PeerDestroyMessage));
- msg->header.type = htons (GNUNET_MESSAGE_TYPE_TESTBED_DESTROY_PEER);
- msg->peer_id = htonl (peer->unique_id);
- msg->operation_id = GNUNET_htonll (opc->id);
- GNUNET_TESTBED_insert_opc_ (opc->c, opc);
- GNUNET_TESTBED_queue_message_ (peer->controller, &msg->header);
- }
- /**
- * Callback which will be called when peer_create type operation is released
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- oprelease_peer_destroy (void *cls)
- {
- struct OperationContext *opc = cls;
- switch (opc->state)
- {
- case OPC_STATE_STARTED:
- GNUNET_TESTBED_remove_opc_ (opc->c, opc);
- /* no break; continue */
- case OPC_STATE_INIT:
- break;
- case OPC_STATE_FINISHED:
- break;
- }
- GNUNET_free (opc);
- }
- /**
- * Function called when a peer start operation is ready
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- opstart_peer_start (void *cls)
- {
- struct OperationContext *opc = cls;
- struct GNUNET_TESTBED_PeerStartMessage *msg;
- struct PeerEventData *data;
- struct GNUNET_TESTBED_Peer *peer;
- GNUNET_assert (OP_PEER_START == opc->type);
- GNUNET_assert (NULL != (data = opc->data));
- GNUNET_assert (NULL != (peer = data->peer));
- GNUNET_assert ((TESTBED_PS_CREATED == peer->state) || (TESTBED_PS_STOPPED == peer->state));
- opc->state = OPC_STATE_STARTED;
- msg = GNUNET_new (struct GNUNET_TESTBED_PeerStartMessage);
- msg->header.size = htons (sizeof (struct GNUNET_TESTBED_PeerStartMessage));
- msg->header.type = htons (GNUNET_MESSAGE_TYPE_TESTBED_START_PEER);
- msg->peer_id = htonl (peer->unique_id);
- msg->operation_id = GNUNET_htonll (opc->id);
- GNUNET_TESTBED_insert_opc_ (opc->c, opc);
- GNUNET_TESTBED_queue_message_ (peer->controller, &msg->header);
- }
- /**
- * Callback which will be called when peer start type operation is released
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- oprelease_peer_start (void *cls)
- {
- struct OperationContext *opc = cls;
- switch (opc->state)
- {
- case OPC_STATE_STARTED:
- GNUNET_TESTBED_remove_opc_ (opc->c, opc);
- /* no break; continue */
- case OPC_STATE_INIT:
- GNUNET_free (opc->data);
- break;
- case OPC_STATE_FINISHED:
- break;
- }
- GNUNET_free (opc);
- }
- /**
- * Function called when a peer stop operation is ready
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- opstart_peer_stop (void *cls)
- {
- struct OperationContext *opc = cls;
- struct GNUNET_TESTBED_PeerStopMessage *msg;
- struct PeerEventData *data;
- struct GNUNET_TESTBED_Peer *peer;
- GNUNET_assert (NULL != (data = opc->data));
- GNUNET_assert (NULL != (peer = data->peer));
- GNUNET_assert (TESTBED_PS_STARTED == peer->state);
- opc->state = OPC_STATE_STARTED;
- msg = GNUNET_new (struct GNUNET_TESTBED_PeerStopMessage);
- msg->header.type = htons (GNUNET_MESSAGE_TYPE_TESTBED_STOP_PEER);
- msg->header.size = htons (sizeof (struct GNUNET_TESTBED_PeerStopMessage));
- msg->peer_id = htonl (peer->unique_id);
- msg->operation_id = GNUNET_htonll (opc->id);
- GNUNET_TESTBED_insert_opc_ (opc->c, opc);
- GNUNET_TESTBED_queue_message_ (peer->controller, &msg->header);
- }
- /**
- * Callback which will be called when peer stop type operation is released
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- oprelease_peer_stop (void *cls)
- {
- struct OperationContext *opc = cls;
- switch (opc->state)
- {
- case OPC_STATE_STARTED:
- GNUNET_TESTBED_remove_opc_ (opc->c, opc);
- /* no break; continue */
- case OPC_STATE_INIT:
- GNUNET_free (opc->data);
- break;
- case OPC_STATE_FINISHED:
- break;
- }
- GNUNET_free (opc);
- }
- /**
- * Generate PeerGetConfigurationMessage
- *
- * @param peer_id the id of the peer whose information we have to get
- * @param operation_id the ip of the operation that should be represented in the
- * message
- * @return the PeerGetConfigurationMessage
- */
- struct GNUNET_TESTBED_PeerGetConfigurationMessage *
- GNUNET_TESTBED_generate_peergetconfig_msg_ (uint32_t peer_id,
- uint64_t operation_id)
- {
- struct GNUNET_TESTBED_PeerGetConfigurationMessage *msg;
- msg =
- GNUNET_malloc (sizeof
- (struct GNUNET_TESTBED_PeerGetConfigurationMessage));
- msg->header.size =
- htons (sizeof (struct GNUNET_TESTBED_PeerGetConfigurationMessage));
- msg->header.type = htons (GNUNET_MESSAGE_TYPE_TESTBED_GET_PEER_INFORMATION);
- msg->peer_id = htonl (peer_id);
- msg->operation_id = GNUNET_htonll (operation_id);
- return msg;
- }
- /**
- * Function called when a peer get information operation is ready
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- opstart_peer_getinfo (void *cls)
- {
- struct OperationContext *opc = cls;
- struct PeerInfoData *data = opc->data;
- struct GNUNET_TESTBED_PeerGetConfigurationMessage *msg;
- GNUNET_assert (NULL != data);
- opc->state = OPC_STATE_STARTED;
- msg =
- GNUNET_TESTBED_generate_peergetconfig_msg_ (data->peer->unique_id,
- opc->id);
- GNUNET_TESTBED_insert_opc_ (opc->c, opc);
- GNUNET_TESTBED_queue_message_ (opc->c, &msg->header);
- }
- /**
- * Callback which will be called when peer stop type operation is released
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- oprelease_peer_getinfo (void *cls)
- {
- struct OperationContext *opc = cls;
- struct GNUNET_TESTBED_PeerInformation *data;
- switch (opc->state)
- {
- case OPC_STATE_STARTED:
- GNUNET_TESTBED_remove_opc_ (opc->c, opc);
- /* no break; continue */
- case OPC_STATE_INIT:
- GNUNET_free (opc->data);
- break;
- case OPC_STATE_FINISHED:
- data = opc->data;
- GNUNET_assert (NULL != data);
- switch (data->pit)
- {
- case GNUNET_TESTBED_PIT_CONFIGURATION:
- if (NULL != data->result.cfg)
- GNUNET_CONFIGURATION_destroy (data->result.cfg);
- break;
- case GNUNET_TESTBED_PIT_IDENTITY:
- GNUNET_free (data->result.id);
- break;
- default:
- GNUNET_assert (0); /* We should never reach here */
- }
- GNUNET_free (data);
- break;
- }
- GNUNET_free (opc);
- }
- /**
- * Function called when a overlay connect operation is ready
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- opstart_overlay_connect (void *cls)
- {
- struct OperationContext *opc = cls;
- struct GNUNET_TESTBED_OverlayConnectMessage *msg;
- struct OverlayConnectData *data;
- opc->state = OPC_STATE_STARTED;
- data = opc->data;
- GNUNET_assert (NULL != data);
- msg = GNUNET_new (struct GNUNET_TESTBED_OverlayConnectMessage);
- msg->header.size =
- htons (sizeof (struct GNUNET_TESTBED_OverlayConnectMessage));
- msg->header.type = htons (GNUNET_MESSAGE_TYPE_TESTBED_OVERLAY_CONNECT);
- msg->peer1 = htonl (data->p1->unique_id);
- msg->peer2 = htonl (data->p2->unique_id);
- msg->operation_id = GNUNET_htonll (opc->id);
- msg->peer2_host_id = htonl (GNUNET_TESTBED_host_get_id_ (data->p2->host));
- GNUNET_TESTBED_insert_opc_ (opc->c, opc);
- GNUNET_TESTBED_queue_message_ (opc->c, &msg->header);
- }
- /**
- * Callback which will be called when overlay connect operation is released
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- oprelease_overlay_connect (void *cls)
- {
- struct OperationContext *opc = cls;
- struct OverlayConnectData *data;
- data = opc->data;
- switch (opc->state)
- {
- case OPC_STATE_INIT:
- break;
- case OPC_STATE_STARTED:
- GNUNET_TESTBED_remove_opc_ (opc->c, opc);
- break;
- case OPC_STATE_FINISHED:
- break;
- }
- GNUNET_free (data);
- GNUNET_free (opc);
- }
- /**
- * Function called when a peer reconfigure operation is ready
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- opstart_peer_reconfigure (void *cls)
- {
- struct OperationContext *opc = cls;
- struct PeerReconfigureData *data = opc->data;
- struct GNUNET_TESTBED_PeerReconfigureMessage *msg;
- char *xconfig;
- size_t xc_size;
- uint16_t msize;
- opc->state = OPC_STATE_STARTED;
- GNUNET_assert (NULL != data);
- xc_size = GNUNET_TESTBED_compress_config_ (data->config, data->cfg_size,
- &xconfig);
- GNUNET_free (data->config);
- data->config = NULL;
- GNUNET_assert (xc_size <= UINT16_MAX);
- msize = (uint16_t) xc_size +
- sizeof (struct GNUNET_TESTBED_PeerReconfigureMessage);
- msg = GNUNET_realloc (xconfig, msize);
- (void) memmove (&msg[1], msg, xc_size);
- msg->header.size = htons (msize);
- msg->header.type = htons (GNUNET_MESSAGE_TYPE_TESTBED_RECONFIGURE_PEER);
- msg->peer_id = htonl (data->peer->unique_id);
- msg->operation_id = GNUNET_htonll (opc->id);
- msg->config_size = htons (data->cfg_size);
- GNUNET_free (data);
- opc->data = NULL;
- GNUNET_TESTBED_insert_opc_ (opc->c, opc);
- GNUNET_TESTBED_queue_message_ (opc->c, &msg->header);
- }
- /**
- * Callback which will be called when a peer reconfigure operation is released
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- oprelease_peer_reconfigure (void *cls)
- {
- struct OperationContext *opc = cls;
- struct PeerReconfigureData *data = opc->data;
- switch (opc->state)
- {
- case OPC_STATE_INIT:
- GNUNET_free (data->config);
- GNUNET_free (data);
- break;
- case OPC_STATE_STARTED:
- GNUNET_TESTBED_remove_opc_ (opc->c, opc);
- break;
- case OPC_STATE_FINISHED:
- break;
- }
- GNUNET_free (opc);
- }
- /**
- * Lookup a peer by ID.
- *
- * @param id global peer ID assigned to the peer
- * @return handle to the host, NULL on error
- */
- struct GNUNET_TESTBED_Peer *
- GNUNET_TESTBED_peer_lookup_by_id_ (uint32_t id)
- {
- GNUNET_break (0);
- return NULL;
- }
- /**
- * Create the given peer at the specified host using the given
- * controller. If the given controller is not running on the target
- * host, it should find or create a controller at the target host and
- * delegate creating the peer. Explicit delegation paths can be setup
- * using 'GNUNET_TESTBED_controller_link'. If no explicit delegation
- * path exists, a direct link with a subordinate controller is setup
- * for the first delegated peer to a particular host; the subordinate
- * controller is then destroyed once the last peer that was delegated
- * to the remote host is stopped.
- *
- * Creating the peer only creates the handle to manipulate and further
- * configure the peer; use "GNUNET_TESTBED_peer_start" and
- * "GNUNET_TESTBED_peer_stop" to actually start/stop the peer's
- * processes.
- *
- * Note that the given configuration will be adjusted by the
- * controller to avoid port/path conflicts with other peers.
- * The "final" configuration can be obtained using
- * 'GNUNET_TESTBED_peer_get_information'.
- *
- * @param controller controller process to use
- * @param host host to run the peer on; cannot be NULL
- * @param cfg Template configuration to use for the peer. Should exist until
- * operation is cancelled or GNUNET_TESTBED_operation_done() is called
- * @param cb the callback to call when the peer has been created
- * @param cls the closure to the above callback
- * @return the operation handle
- */
- struct GNUNET_TESTBED_Operation *
- GNUNET_TESTBED_peer_create (struct GNUNET_TESTBED_Controller *controller,
- struct GNUNET_TESTBED_Host *host,
- const struct GNUNET_CONFIGURATION_Handle *cfg,
- GNUNET_TESTBED_PeerCreateCallback cb, void *cls)
- {
- struct GNUNET_TESTBED_Peer *peer;
- struct PeerCreateData *data;
- struct OperationContext *opc;
- static uint32_t id_gen;
- peer = GNUNET_new (struct GNUNET_TESTBED_Peer);
- peer->controller = controller;
- peer->host = host;
- peer->unique_id = id_gen++;
- peer->state = TESTBED_PS_INVALID;
- data = GNUNET_new (struct PeerCreateData);
- data->host = host;
- data->cfg = cfg;
- data->cb = cb;
- data->cls = cls;
- data->peer = peer;
- opc = GNUNET_new (struct OperationContext);
- opc->c = controller;
- opc->data = data;
- opc->id = GNUNET_TESTBED_get_next_op_id (controller);
- opc->type = OP_PEER_CREATE;
- opc->op =
- GNUNET_TESTBED_operation_create_ (opc, &opstart_peer_create,
- &oprelease_peer_create);
- GNUNET_TESTBED_operation_queue_insert_ (controller->opq_parallel_operations,
- opc->op);
- GNUNET_TESTBED_operation_begin_wait_ (opc->op);
- return opc->op;
- }
- /**
- * Start the given peer.
- *
- * @param op_cls the closure for this operation; will be set in
- * event->details.operation_finished.op_cls when this operation fails.
- * @param peer peer to start
- * @param pcc function to call upon completion
- * @param pcc_cls closure for 'pcc'
- * @return handle to the operation
- */
- struct GNUNET_TESTBED_Operation *
- GNUNET_TESTBED_peer_start (void *op_cls, struct GNUNET_TESTBED_Peer *peer,
- GNUNET_TESTBED_PeerChurnCallback pcc, void *pcc_cls)
- {
- struct OperationContext *opc;
- struct PeerEventData *data;
- data = GNUNET_new (struct PeerEventData);
- data->peer = peer;
- data->pcc = pcc;
- data->pcc_cls = pcc_cls;
- opc = GNUNET_new (struct OperationContext);
- opc->c = peer->controller;
- opc->data = data;
- opc->op_cls = op_cls;
- opc->id = GNUNET_TESTBED_get_next_op_id (opc->c);
- opc->type = OP_PEER_START;
- opc->op =
- GNUNET_TESTBED_operation_create_ (opc, &opstart_peer_start,
- &oprelease_peer_start);
- GNUNET_TESTBED_operation_queue_insert_ (opc->c->opq_parallel_operations,
- opc->op);
- GNUNET_TESTBED_operation_begin_wait_ (opc->op);
- return opc->op;
- }
- /**
- * Stop the given peer. The handle remains valid (use
- * "GNUNET_TESTBED_peer_destroy" to fully clean up the
- * state of the peer).
- *
- * @param op_cls the closure for this operation; will be set in the event
- * information
- * @param peer peer to stop
- * @param pcc function to call upon completion
- * @param pcc_cls closure for 'pcc'
- * @return handle to the operation
- */
- struct GNUNET_TESTBED_Operation *
- GNUNET_TESTBED_peer_stop (void *op_cls,
- struct GNUNET_TESTBED_Peer *peer,
- GNUNET_TESTBED_PeerChurnCallback pcc, void *pcc_cls)
- {
- struct OperationContext *opc;
- struct PeerEventData *data;
- data = GNUNET_new (struct PeerEventData);
- data->peer = peer;
- data->pcc = pcc;
- data->pcc_cls = pcc_cls;
- opc = GNUNET_new (struct OperationContext);
- opc->c = peer->controller;
- opc->data = data;
- opc->op_cls = op_cls;
- opc->id = GNUNET_TESTBED_get_next_op_id (opc->c);
- opc->type = OP_PEER_STOP;
- opc->op =
- GNUNET_TESTBED_operation_create_ (opc, &opstart_peer_stop,
- &oprelease_peer_stop);
- GNUNET_TESTBED_operation_queue_insert_ (opc->c->opq_parallel_operations,
- opc->op);
- GNUNET_TESTBED_operation_begin_wait_ (opc->op);
- return opc->op;
- }
- /**
- * Request information about a peer. The controller callback will not be called
- * with event type GNUNET_TESTBED_ET_OPERATION_FINISHED when result for this
- * operation is available. Instead, the GNUNET_TESTBED_PeerInfoCallback() will
- * be called.
- * The peer information in the callback is valid until the operation is canceled.
- *
- * @param peer peer to request information about
- * @param pit desired information
- * @param cb the convenience callback to be called when results for this
- * operation are available
- * @param cb_cls the closure for the above callback
- * @return handle to the operation
- */
- struct GNUNET_TESTBED_Operation *
- GNUNET_TESTBED_peer_get_information (struct GNUNET_TESTBED_Peer *peer,
- enum GNUNET_TESTBED_PeerInformationType
- pit, GNUNET_TESTBED_PeerInfoCallback cb,
- void *cb_cls)
- {
- struct OperationContext *opc;
- struct PeerInfoData *data;
- GNUNET_assert (GNUNET_TESTBED_PIT_GENERIC != pit);
- GNUNET_assert (NULL != cb);
- data = GNUNET_new (struct PeerInfoData);
- data->peer = peer;
- data->pit = pit;
- data->cb = cb;
- data->cb_cls = cb_cls;
- opc = GNUNET_new (struct OperationContext);
- opc->c = peer->controller;
- opc->data = data;
- opc->type = OP_PEER_INFO;
- opc->id = GNUNET_TESTBED_get_next_op_id (opc->c);
- opc->op =
- GNUNET_TESTBED_operation_create_ (opc, &opstart_peer_getinfo,
- &oprelease_peer_getinfo);
- GNUNET_TESTBED_operation_queue_insert_ (opc->c->opq_parallel_operations,
- opc->op);
- GNUNET_TESTBED_operation_begin_wait_ (opc->op);
- return opc->op;
- }
- /**
- * Change peer configuration. Must only be called while the
- * peer is stopped. Ports and paths cannot be changed this
- * way.
- *
- * @param peer peer to change configuration for
- * @param cfg new configuration (differences to existing
- * configuration only)
- * @return handle to the operation
- */
- struct GNUNET_TESTBED_Operation *
- GNUNET_TESTBED_peer_update_configuration (struct GNUNET_TESTBED_Peer *peer,
- const struct
- GNUNET_CONFIGURATION_Handle *cfg)
- {
- struct OperationContext *opc;
- struct PeerReconfigureData *data;
- size_t csize;
- data = GNUNET_new (struct PeerReconfigureData);
- data->peer = peer;
- data->config = GNUNET_CONFIGURATION_serialize (cfg, &csize);
- if (NULL == data->config)
- {
- GNUNET_free (data);
- return NULL;
- }
- if (csize > UINT16_MAX)
- {
- GNUNET_break (0);
- GNUNET_free (data->config);
- GNUNET_free (data);
- return NULL;
- }
- data->cfg_size = (uint16_t) csize;
- opc = GNUNET_new (struct OperationContext);
- opc->c = peer->controller;
- opc->data = data;
- opc->type = OP_PEER_RECONFIGURE;
- opc->id = GNUNET_TESTBED_get_next_op_id (opc->c);
- opc->op =
- GNUNET_TESTBED_operation_create_ (opc, &opstart_peer_reconfigure,
- &oprelease_peer_reconfigure);
- GNUNET_TESTBED_operation_queue_insert_ (opc->c->opq_parallel_operations,
- opc->op);
- GNUNET_TESTBED_operation_begin_wait_ (opc->op);
- return opc->op;
- }
- /**
- * Destroy the given peer; the peer should have been
- * stopped first (if it was started).
- *
- * @param peer peer to stop
- * @return handle to the operation
- */
- struct GNUNET_TESTBED_Operation *
- GNUNET_TESTBED_peer_destroy (struct GNUNET_TESTBED_Peer *peer)
- {
- struct OperationContext *opc;
- opc = GNUNET_new (struct OperationContext);
- opc->data = peer;
- opc->c = peer->controller;
- opc->id = GNUNET_TESTBED_get_next_op_id (peer->controller);
- opc->type = OP_PEER_DESTROY;
- opc->op =
- GNUNET_TESTBED_operation_create_ (opc, &opstart_peer_destroy,
- &oprelease_peer_destroy);
- GNUNET_TESTBED_operation_queue_insert_ (opc->c->opq_parallel_operations,
- opc->op);
- GNUNET_TESTBED_operation_begin_wait_ (opc->op);
- return opc->op;
- }
- /**
- * Manipulate the P2P underlay topology by configuring a link
- * between two peers.
- *
- * @param op_cls closure argument to give with the operation event
- * @param p1 first peer
- * @param p2 second peer
- * @param co option to change
- * @param ... option-specific values
- * @return handle to the operation, NULL if configuring the link at this
- * time is not allowed
- */
- struct GNUNET_TESTBED_Operation *
- GNUNET_TESTBED_underlay_configure_link (void *op_cls,
- struct GNUNET_TESTBED_Peer *p1,
- struct GNUNET_TESTBED_Peer *p2,
- enum GNUNET_TESTBED_ConnectOption co,
- ...)
- {
- GNUNET_break (0);
- return NULL;
- }
- /**
- * Both peers must have been started before calling this function.
- * This function then obtains a HELLO from 'p1', gives it to 'p2'
- * and asks 'p2' to connect to 'p1'.
- *
- * @param op_cls closure argument to give with the operation event
- * @param cb the callback to call when this operation has finished
- * @param cb_cls the closure for the above callback
- * @param p1 first peer
- * @param p2 second peer
- * @return handle to the operation, NULL if connecting these two
- * peers is fundamentally not possible at this time (peers
- * not running or underlay disallows)
- */
- struct GNUNET_TESTBED_Operation *
- GNUNET_TESTBED_overlay_connect (void *op_cls,
- GNUNET_TESTBED_OperationCompletionCallback cb,
- void *cb_cls, struct GNUNET_TESTBED_Peer *p1,
- struct GNUNET_TESTBED_Peer *p2)
- {
- struct OperationContext *opc;
- struct OverlayConnectData *data;
- GNUNET_assert ((TESTBED_PS_STARTED == p1->state) && (TESTBED_PS_STARTED == p2->state));
- data = GNUNET_new (struct OverlayConnectData);
- data->p1 = p1;
- data->p2 = p2;
- data->cb = cb;
- data->cb_cls = cb_cls;
- opc = GNUNET_new (struct OperationContext);
- opc->data = data;
- opc->c = p1->controller;
- opc->id = GNUNET_TESTBED_get_next_op_id (opc->c);
- opc->type = OP_OVERLAY_CONNECT;
- opc->op_cls = op_cls;
- opc->op =
- GNUNET_TESTBED_operation_create_ (opc, &opstart_overlay_connect,
- &oprelease_overlay_connect);
- GNUNET_TESTBED_host_queue_oc_ (p1->host, opc->op);
- GNUNET_TESTBED_operation_begin_wait_ (opc->op);
- return opc->op;
- }
- /**
- * Function called when a peer manage service operation is ready
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- opstart_manage_service (void *cls)
- {
- struct OperationContext *opc = cls;
- struct ManageServiceData *data = opc->data;
- struct GNUNET_TESTBED_ManagePeerServiceMessage *msg;
- GNUNET_assert (NULL != data);
- msg = GNUNET_malloc (data->msize);
- msg->header.size = htons (data->msize);
- msg->header.type = htons (GNUNET_MESSAGE_TYPE_TESTBED_MANAGE_PEER_SERVICE);
- msg->peer_id = htonl (data->peer->unique_id);
- msg->operation_id = GNUNET_htonll (opc->id);
- msg->start = (uint8_t) data->start;
- (void) memcpy (&msg[1], data->service_name, data->msize
- - sizeof (struct GNUNET_TESTBED_ManagePeerServiceMessage));
- GNUNET_free (data->service_name);
- data->service_name = NULL;
- opc->state = OPC_STATE_STARTED;
- GNUNET_TESTBED_insert_opc_ (opc->c, opc);
- GNUNET_TESTBED_queue_message_ (opc->c, &msg->header);
- }
- /**
- * Callback which will be called when peer manage server operation is released
- *
- * @param cls the closure from GNUNET_TESTBED_operation_create_()
- */
- static void
- oprelease_manage_service (void *cls)
- {
- struct OperationContext *opc = cls;
- struct ManageServiceData *data;
- data = opc->data;
- switch (opc->state)
- {
- case OPC_STATE_STARTED:
- GNUNET_TESTBED_remove_opc_ (opc->c, opc);
- break;
- case OPC_STATE_INIT:
- GNUNET_assert (NULL != data);
- GNUNET_free (data->service_name);
- break;
- case OPC_STATE_FINISHED:
- break;
- }
- GNUNET_free_non_null (data);
- GNUNET_free (opc);
- }
- /**
- * Start or stop given service at a peer. This should not be called to
- * start/stop the peer's ARM service. Use GNUNET_TESTBED_peer_start(),
- * GNUNET_TESTBED_peer_stop() for starting/stopping peer's ARM service. Success
- * or failure of the generated operation is signalled through the controller
- * event callback and/or operation completion callback.
- *
- * @param op_cls the closure for the operation
- * @param peer the peer whose service is to be started/stopped
- * @param service_name the name of the service
- * @param cb the operation completion callback
- * @param cb_cls the closure for the operation completion callback
- * @param start 1 to start the service; 0 to stop the service
- * @return an operation handle; NULL upon error (peer not running)
- */
- struct GNUNET_TESTBED_Operation *
- GNUNET_TESTBED_peer_manage_service (void *op_cls,
- struct GNUNET_TESTBED_Peer *peer,
- const char *service_name,
- GNUNET_TESTBED_OperationCompletionCallback cb,
- void *cb_cls,
- unsigned int start)
- {
- struct ManageServiceData *data;
- struct OperationContext *opc;
- size_t msize;
- GNUNET_assert (TESTBED_PS_STARTED == peer->state); /* peer is not running? */
- msize = strlen (service_name) + 1;
- msize += sizeof (struct GNUNET_TESTBED_ManagePeerServiceMessage);
- if (GNUNET_SERVER_MAX_MESSAGE_SIZE < msize)
- return NULL;
- data = GNUNET_new (struct ManageServiceData);
- data->cb = cb;
- data->cb_cls = cb_cls;
- data->peer = peer;
- data->service_name = GNUNET_strdup (service_name);
- data->start = start;
- data->msize = (uint16_t) msize;
- opc = GNUNET_new (struct OperationContext);
- opc->data = data;
- opc->c = peer->controller;
- opc->id = GNUNET_TESTBED_get_next_op_id (opc->c);
- opc->type = OP_MANAGE_SERVICE;
- opc->op_cls = op_cls;
- opc->op =
- GNUNET_TESTBED_operation_create_ (opc, &opstart_manage_service,
- &oprelease_manage_service);
- GNUNET_TESTBED_operation_queue_insert_ (opc->c->opq_parallel_operations,
- opc->op);
- GNUNET_TESTBED_operation_begin_wait_ (opc->op);
- return opc->op;
- }
- /* end of testbed_api_peers.c */
|