1 files changed, 395 insertions, 0 deletions

diff --git a/src/set/set_api.c b/src/set/set_api.c
index e69de29bb..d7898ab42 100644
--- a/src/set/set_api.c
+++ b/src/set/set_api.c
@@ -0,0 +1,395 @@
+/*
+     This file is part of GNUnet.
+     (C) 2012 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 set/set_api.c
+ * @brief api for the set service
+ * @author Florian Dold
+ */
+#include "platform.h"
+#include "gnunet_util_lib.h"
+#include "gnunet_protocols.h"
+#include "gnunet_client_lib.h"
+#include "gnunet_set_service.h"
+#include "set.h"
+#include "mq.h"
+
+
+#define LOG(kind,...) GNUNET_log_from (kind, "set-api",__VA_ARGS__)
+
+/**
+ * Opaque handle to a set.
+ */
+struct GNUNET_SET_Handle
+{
+  struct GNUNET_CLIENT_Connection *client;
+  struct GNUNET_MQ_MessageQueue *mq;
+  unsigned int messages_since_ack;
+};
+
+/**
+ * Opaque handle to a set operation request from another peer.
+ */
+struct GNUNET_SET_Request
+{
+  uint32_t request_id;
+  int accepted;
+};
+
+
+struct GNUNET_SET_OperationHandle
+{
+  GNUNET_SET_ResultIterator result_cb;
+  void *result_cls;
+  struct GNUNET_SET_Handle *set;
+  uint32_t request_id;
+};
+
+
+/**
+ * Opaque handle to a listen operation.
+ */
+struct GNUNET_SET_ListenHandle
+{
+  struct GNUNET_CLIENT_Connection *client;
+  struct GNUNET_MQ_MessageQueue* mq;
+  GNUNET_SET_ListenCallback listen_cb;
+  void *listen_cls;
+};
+
+
+void
+handle_result (void *cls, struct GNUNET_MessageHeader *mh)
+{
+  struct ResultMessage *msg = (struct ResultMessage *) mh;
+  struct GNUNET_SET_Handle *set = cls;
+  struct GNUNET_SET_OperationHandle *oh;
+  struct GNUNET_SET_Element e;
+
+  if (set->messages_since_ack >= GNUNET_SET_ACK_WINDOW/2)
+  {
+    struct GNUNET_MQ_Message *mqm;
+    mqm = GNUNET_MQ_msg_raw (GNUNET_MESSAGE_TYPE_SET_ACK);
+    GNUNET_MQ_send (set->mq, mqm);
+  }
+
+  oh = GNUNET_MQ_assoc_remove (set->mq, ntohl (msg->request_id));
+  GNUNET_break (NULL != oh);
+  if (htons (msg->result_status) != GNUNET_SET_STATUS_OK)
+  {
+    oh->result_cb (oh->result_cls, NULL, htons (msg->result_status));
+    GNUNET_free (oh);
+    return;
+  }
+  e.data = &msg[1];
+  e.size = ntohs (mh->size) - sizeof (struct ResultMessage);
+  e.type = msg->element_type;
+  oh->result_cb (oh->result_cls, &e, htons (msg->result_status));
+}
+
+void
+handle_request (void *cls, struct GNUNET_MessageHeader *mh)
+{
+  struct RequestMessage *msg = (struct RequestMessage *) mh;
+  struct GNUNET_SET_ListenHandle *lh = cls;
+  struct GNUNET_SET_Request *req;
+
+  req = GNUNET_new (struct GNUNET_SET_Request);
+  req->request_id = ntohl (msg->request_id);
+  lh->listen_cb (lh->listen_cls, &msg->peer_id, &mh[1], req);
+  if (GNUNET_NO == req->accepted)
+    GNUNET_free (req);
+}
+
+
+/**
+ * Create an empty set, supporting the specified operation.
+ *
+ * @param cfg configuration to use for connecting to the
+ *        set service
+ * @param op operation supported by the set
+ *        Note that the operation has to be specified
+ *        beforehand, as certain set operations need to maintain
+ *        data structures spefific to the operation
+ * @return a handle to the set
+ */
+struct GNUNET_SET_Handle *
+GNUNET_SET_create (struct GNUNET_CONFIGURATION_Handle *cfg,
+                   enum GNUNET_SET_OperationType op)
+{
+  struct GNUNET_SET_Handle *set;
+  struct GNUNET_MQ_Message *mqm;
+  struct SetCreateMessage *msg;
+  static const struct GNUNET_MQ_Handler mq_handlers[] = {
+    {handle_result, GNUNET_MESSAGE_TYPE_SET_RESULT},
+    GNUNET_MQ_HANDLERS_END
+  };
+
+  set = GNUNET_new (struct GNUNET_SET_Handle);
+  set->client = GNUNET_CLIENT_connect ("set", cfg);
+  GNUNET_assert (NULL != set->client);
+  set->mq = GNUNET_MQ_queue_for_connection_client (set->client, mq_handlers, set);
+  mqm = GNUNET_MQ_msg (msg, GNUNET_MESSAGE_TYPE_SET_CREATE);
+  msg->operation = htons (op);
+  GNUNET_MQ_send (set->mq, mqm);
+  return set;
+}
+
+
+/**
+ * Add an element to the given set.
+ * After the element has been added (in the sense of being
+ * transmitted to the set service), cont will be called.
+ * Calls to add_element can be queued
+ *
+ * @param set set to add element to
+ * @param element element to add to the set
+ * @param cont continuation called after the element has been added
+ * @param cont_cls closure for cont
+ */
+void
+GNUNET_SET_add_element (struct GNUNET_SET_Handle *set,
+                        const struct GNUNET_SET_Element *element,
+                        GNUNET_SET_Continuation cont,
+                        void *cont_cls)
+{
+  struct GNUNET_MQ_Message *mqm;
+  struct ElementMessage *msg;
+
+  mqm = GNUNET_MQ_msg_extra (msg, element->size, GNUNET_MESSAGE_TYPE_SET_ADD);
+  msg->element_type = element->type;
+  memcpy (&msg[1], element->data, element->size);
+  GNUNET_MQ_notify_sent (mqm, cont, cont_cls);
+  GNUNET_MQ_send (set->mq, mqm);
+}
+
+
+/**
+ * Remove an element to the given set.
+ * After the element has been removed (in the sense of the
+ * request being transmitted to the set service), cont will be called.
+ * Calls to remove_element can be queued
+ *
+ * @param set set to remove element from
+ * @param element element to remove from the set
+ * @param cont continuation called after the element has been removed
+ * @param cont_cls closure for cont
+ */
+void
+GNUNET_SET_remove_element (struct GNUNET_SET_Handle *set,
+                           const struct GNUNET_SET_Element *element,
+                           GNUNET_SET_Continuation cont,
+                           void *cont_cls)
+{
+  struct GNUNET_MQ_Message *mqm;
+  struct ElementMessage *msg;
+
+  mqm = GNUNET_MQ_msg_extra (msg, element->size, GNUNET_MESSAGE_TYPE_SET_REMOVE);
+  msg->element_type = element->type;
+  memcpy (&msg[1], element->data, element->size);
+  GNUNET_MQ_notify_sent (mqm, cont, cont_cls);
+  GNUNET_MQ_send (set->mq, mqm);
+}
+
+
+/**
+ * Destroy the set handle, and free all associated resources.
+ */
+void
+GNUNET_SET_destroy (struct GNUNET_SET_Handle *set)
+{
+  GNUNET_CLIENT_disconnect (set->client);
+  set->client = NULL;
+  GNUNET_MQ_destroy (set->mq);
+  set->mq = NULL;
+}
+
+static void
+operation_destroy (void *cls)
+{
+  struct GNUNET_SET_OperationHandle *oh = cls;
+  struct GNUNET_SET_OperationHandle *oh_assoc;
+
+  oh_assoc = GNUNET_MQ_assoc_remove (oh->set->mq, oh->request_id);
+  GNUNET_assert (oh_assoc == oh);
+}
+
+
+/**
+ * Evaluate a set operation with our set and the set of another peer.
+ *
+ * @param set set to use
+ * @param other_peer peer with the other set
+ * @param app_id hash for the application using the set
+ * @param context_msg additional information for the request
+ * @param result_cb called on error or success
+ * @param result_cls closure for result_cb
+ * @return a handle to cancel the operation
+ */
+struct GNUNET_SET_OperationHandle *
+GNUNET_SET_evaluate (struct GNUNET_SET_Handle *set,
+                     const struct GNUNET_PeerIdentity *other_peer,
+                     const struct GNUNET_HashCode *app_id,
+                     const struct GNUNET_MessageHeader *context_msg,
+                     struct GNUNET_TIME_Relative timeout,
+                     enum GNUNET_SET_ResultMode result_mode,
+                     GNUNET_SET_ResultIterator result_cb,
+                     void *result_cls)
+{
+  struct GNUNET_MQ_Message *mqm;
+  struct EvaluateMessage *msg;
+  struct GNUNET_SET_OperationHandle *oh;
+
+  oh = GNUNET_new (struct GNUNET_SET_OperationHandle);
+  oh->result_cb = result_cb;
+  oh->result_cls = result_cls;
+  oh->set = set;
+
+  mqm = GNUNET_MQ_msg_extra (msg, htons(context_msg->size), GNUNET_MESSAGE_TYPE_SET_EVALUATE);
+  msg->request_id = htonl (GNUNET_MQ_assoc_add (set->mq, mqm, oh));
+  msg->other_peer = *other_peer;
+  msg->app_id = *app_id;
+  msg->timeout = GNUNET_TIME_relative_hton (timeout);
+  memcpy (&msg[1], context_msg, htons (context_msg->size));
+  GNUNET_MQ_notify_timeout (mqm, operation_destroy, oh);
+  GNUNET_MQ_notify_destroy (mqm, operation_destroy, oh);
+  GNUNET_MQ_send (set->mq, mqm);
+
+  return oh;
+}
+
+
+/**
+ * Wait for set operation requests for the given application id
+ * 
+ * @param cfg configuration to use for connecting to
+ *            the set service
+ * @param operation operation we want to listen for
+ * @param app_id id of the application that handles set operation requests
+ * @param listen_cb called for each incoming request matching the operation
+ *                  and application id
+ * @param listen_cls handle for listen_cb
+ * @return a handle that can be used to cancel the listen operation
+ */
+struct GNUNET_SET_ListenHandle *
+GNUNET_SET_listen (struct GNUNET_CONFIGURATION_Handle *cfg,
+                   enum GNUNET_SET_OperationType operation,
+                   const struct GNUNET_HashCode *app_id,
+                   GNUNET_SET_ListenCallback listen_cb,
+                   void *listen_cls)
+{
+  struct GNUNET_SET_ListenHandle *lh;
+  struct GNUNET_MQ_Message *mqm;
+  struct ListenMessage *msg;
+  static const struct GNUNET_MQ_Handler mq_handlers[] = {
+    {handle_request, GNUNET_MESSAGE_TYPE_SET_REQUEST},
+    GNUNET_MQ_HANDLERS_END
+  };
+
+  lh = GNUNET_new (struct GNUNET_SET_ListenHandle);
+  lh->client = GNUNET_CLIENT_connect ("set", cfg);
+  lh->listen_cb = listen_cb;
+  lh->listen_cls = listen_cls;
+  GNUNET_assert (NULL != lh->client);
+  lh->mq = GNUNET_MQ_queue_for_connection_client (lh->client, mq_handlers, lh);
+  mqm = GNUNET_MQ_msg (msg, GNUNET_MESSAGE_TYPE_SET_LISTEN);
+  msg->operation = htons (operation);
+  msg->app_id = *app_id;
+  GNUNET_MQ_send (lh->mq, mqm);
+
+  return lh;
+}
+
+
+/**
+ * Cancel the given listen operation.
+ *
+ * @param lh handle for the listen operation
+ */
+void
+GNUNET_SET_listen_cancel (struct GNUNET_SET_ListenHandle *lh)
+{
+  GNUNET_MQ_destroy (lh->mq);
+  lh->mq = NULL;
+  GNUNET_CLIENT_disconnect (lh->client);
+  lh->client = NULL;
+  lh->listen_cb = NULL;
+  lh->listen_cls = NULL;
+}
+
+
+/**
+ * Accept a request we got via GNUNET_SET_listen
+ *
+ * @param request request to accept
+ * @param set set used for the requested operation 
+ * @param timeout timeout for the set operation
+ * @param result_cb callback for the results
+ * @param cls closure for result_cb
+ */
+struct GNUNET_SET_OperationHandle *
+GNUNET_SET_accept (struct GNUNET_SET_Request *request,
+                   struct GNUNET_SET_Handle *set,
+                   struct GNUNET_TIME_Relative timeout,
+                   enum GNUNET_SET_ResultMode result_mode,
+                   GNUNET_SET_ResultIterator result_cb,
+                   void *result_cls)
+{
+  struct GNUNET_MQ_Message *mqm;
+  struct AcceptMessage *msg;
+  struct GNUNET_SET_OperationHandle *oh;
+
+  /* don't accept a request twice! */
+  GNUNET_assert (GNUNET_NO == request->accepted);
+  request->accepted = GNUNET_YES;
+
+  oh = GNUNET_new (struct GNUNET_SET_OperationHandle);
+  oh->result_cb = result_cb;
+  oh->result_cls = result_cls;
+  oh->set = set;
+
+  mqm = GNUNET_MQ_msg (msg , GNUNET_MESSAGE_TYPE_SET_ACCEPT);
+  msg->timeout = GNUNET_TIME_relative_hton (timeout);
+  msg->request_id = htonl (request->request_id);
+  GNUNET_MQ_notify_timeout (mqm, operation_destroy, oh);
+  GNUNET_MQ_notify_destroy (mqm, operation_destroy, oh);
+  GNUNET_MQ_send (set->mq, mqm);
+
+  return oh;
+}
+
+
+/**
+ * Cancel the given set operation.
+ *
+ * @param op set operation to cancel
+ */
+void
+GNUNET_SET_operation_cancel (struct GNUNET_SET_OperationHandle *h)
+{
+  struct GNUNET_MQ_Message *mqm;
+  struct GNUNET_SET_OperationHandle *h_assoc;
+
+  h_assoc = GNUNET_MQ_assoc_remove (h->set->mq, h->request_id);
+  GNUNET_assert (h_assoc == h);
+  mqm = GNUNET_MQ_msg_raw (GNUNET_MESSAGE_TYPE_SET_CANCEL);
+  GNUNET_MQ_send (h->set->mq, mqm);
+}
+