src/peer.c

   1 /**************************************************************************/
   2 /* ---------------------------------------------------------------------- */
   3 /* Copyright (C) 2006 - 2008 FRESCOR consortium partners:                 */
   4 /*                                                                        */
   5 /*   Universidad de Cantabria,              SPAIN                         */
   6 /*   University of York,                    UK                            */
   7 /*   Scuola Superiore Sant'Anna,            ITALY                         */
   8 /*   Kaiserslautern University,             GERMANY                       */
   9 /*   Univ. Politécnica  Valencia,           SPAIN                        */
  10 /*   Czech Technical University in Prague,  CZECH REPUBLIC                */
  11 /*   ENEA                                   SWEDEN                        */
  12 /*   Thales Communication S.A.              FRANCE                        */
  13 /*   Visual Tools S.A.                      SPAIN                         */
  14 /*   Rapita Systems Ltd                     UK                            */
  15 /*   Evidence                               ITALY                         */
  16 /*                                                                        */
  17 /*   See http://www.frescor.org for a link to partners' websites          */
  18 /*                                                                        */
  19 /*          FRESCOR project (FP6/2005/IST/5-034026) is funded             */
  20 /*       in part by the European Union Sixth Framework Programme          */
  21 /*       The European Union is not liable of any use that may be          */
  22 /*       made of this code.                                               */
  23 /*                                                                        */
  24 /*                                                                        */
  25 /*  This file is part of FORB (Frescor Object Request Broker)             */
  26 /*                                                                        */
  27 /* FORB is free software; you can redistribute it and/or modify it        */
  28 /* under terms of the GNU General Public License as published by the      */
  29 /* Free Software Foundation; either version 2, or (at your option) any    */
  30 /* later version.  FORB is distributed in the hope that it will be        */
  31 /* useful, but WITHOUT ANY WARRANTY; without even the implied warranty    */
  32 /* of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU    */
  33 /* General Public License for more details. You should have received a    */
  34 /* copy of the GNU General Public License along with FORB; see file       */
  35 /* COPYING. If not, write to the Free Software Foundation, 675 Mass Ave,  */
  36 /* Cambridge, MA 02139, USA.                                              */
  37 /*                                                                        */
  38 /* As a special exception, including FORB header files in a file,         */
  39 /* instantiating FORB generics or templates, or linking other files       */
  40 /* with FORB objects to produce an executable application, does not       */
  41 /* by itself cause the resulting executable application to be covered     */
  42 /* by the GNU General Public License. This exception does not             */
  43 /* however invalidate any other reasons why the executable file might be  */
  44 /* covered by the GNU Public License.                                     */
  45 /**************************************************************************/
  46
  47 /**
  48  * @file   peer.c
  49  * @author Michal Sojka <sojkam1@fel.cvut.cz>
  50  * @date   Sun Oct 12 17:30:27 2008
  51  *
  52  * @brief  Implementation of peer manipulation functions.
  53  *
  54  *
  55  */
  56
  57 #include "peer.h"
  58 #include "forb_utils.h"
  59 #include "proto.h"
  60
  61 GAVL_CUST_NODE_INT_IMP(forb_peer_nolock,/* cust_prefix */
  62                        forb_t,          /* cust_root_t */
  63                        forb_peer_t,     /* cust_item_t */
  64                        forb_server_id,  /* cust_key_t */
  65                        peers,           /* cust_root_node */
  66                        gnode,           /* cust_item_node */
  67                        server_id,       /* cust_item_key */
  68                        forb_server_id_cmp);/* cust_cmp_fnc */
  69
  70
  71
  72 forb_peer_t *
  73 forb_peer_new(void)
  74 {
  75         forb_peer_t *peer;
  76
  77         peer = forb_malloc(sizeof(*peer));
  78         if (peer) {
  79                 memset(peer, 0, sizeof(*peer));
  80                 fosa_cond_init(&peer->cond);
  81                 forb_ref_init(&peer->ref);
  82                 fosa_mutex_init(&peer->send_lock, 0);
  83         }
  84         return peer;
  85 }
  86
  87 void
  88 forb_peer_release(forb_ref_t *ref)
  89 {
  90         forb_peer_t *peer = container_of(ref, forb_peer_t, ref);
  91         if (peer->port &&
  92             peer->port->desc.proto->peer_destroy) {
  93                 peer->port->desc.proto->peer_destroy(peer);
  94         }
  95         if (peer->addr)
  96                 forb_free(peer->addr);
  97
  98         forb_free(peer);
  99 }
 100
 101 void
 102 forb_peer_delete_by_port(forb_t *forb, forb_port_t *port)
 103 {
 104         forb_peer_t *peer;
 105         ul_list_for_each_cut(forb_port_peer, port, peer) {
 106                 forb_peer_delete(forb, peer);
 107                 forb_peer_put(peer);
 108         }
 109 }
 110
 111 /**
 112  * Finds the peer with given @a server_id. If the peer is not
 113  * currently known (not yet discovered or not available), this
 114  * function waits at maximum @a timeout for the peer to be discovered.
 115  *
 116  * @param forb
 117  * @param server_id
 118  * @param timeout
 119  *
 120  * @return The peer structure or NULL if the peer is not known even
 121  * after the timeout elapses.
 122  *
 123  * @note After the returned peer is not needed, forb_peer_put() must
 124  * called on it.
 125  */
 126 forb_peer_t *
 127 forb_peer_find_timed(forb_t *forb, forb_server_id *server_id,
 128                      fosa_abs_time_t *timeout)
 129 {
 130         forb_peer_t *peer;
 131         bool peer_allocated = false;
 132
 133         fosa_mutex_lock(&forb->peer_mutex);
 134         peer = forb_peer_nolock_find(forb, server_id);
 135         if (!peer && !timeout) goto unlock;
 136         if (peer) {
 137                 forb_peer_get(peer);
 138         } else {
 139                 /* We are the first who want to contact this peer */
 140                 peer = forb_peer_new();
 141                 if (!peer) goto unlock;
 142                 peer->server_id = *server_id;
 143                 peer->state = FORB_PEER_WANTED;
 144                 forb_peer_nolock_insert(forb, forb_peer_get(peer));
 145                 peer_allocated = true;
 146         }
 147         while (peer->state == FORB_PEER_WANTED) {
 148                 int ret;
 149                 /* Wait for the peer to be discovered. */
 150                 ret = fosa_cond_timedwait(&peer->cond,
 151                                           &forb->peer_mutex,
 152                                           timeout);
 153                 if (ret == FOSA_ETIMEDOUT) {
 154                         /* No peer discovered within timeout */
 155                         if (peer_allocated) {
 156                                 forb_peer_nolock_delete(forb, peer);
 157                                 forb_peer_put(peer);
 158                         }
 159                         forb_peer_put(peer);
 160                         peer = NULL;
 161                         break;
 162                 }
 163         }
 164 unlock:
 165         fosa_mutex_unlock(&forb->peer_mutex);
 166
 167         return peer;
 168 }