- proper service-side error reporting for the SP API
[oweals/gnunet.git] / src / scalarproduct / scalarproduct_api.c
index ee2e6e5eb0d0dec85065d3f5f2aae397fbca8435..9c497129a71d820c8a845088241dcfba12afbc32 100644 (file)
@@ -23,7 +23,7 @@
  * @brief API for the scalarproduct
  * @author Christian Fuchs
  * @author Gaurav Kukreja
- * 
+ *
  */
 #include "platform.h"
 #include "gnunet_util_lib.h"
  **************************************************************/
 
 /**
- * Entry in the request queue per client
+ * the abstraction function for our internal callback
+ */
+typedef void (*GNUNET_SCALARPRODUCT_ResponseMessageHandler) (void *cls,
+                                                             const struct GNUNET_MessageHeader *msg,
+                                                             enum GNUNET_SCALARPRODUCT_ResponseStatus status);
+
+/**
+ * A handle returned for each computation
  */
 struct GNUNET_SCALARPRODUCT_ComputationHandle
 {
-  /**
-   * This is a linked list.
-   */
-  struct GNUNET_SCALARPRODUCT_ComputationHandle *next;
-
-  /**
-   * This is a linked list.
-   */
-  struct GNUNET_SCALARPRODUCT_ComputationHandle *prev;
-
   /**
    * Our configuration.
    */
@@ -71,7 +68,7 @@ struct GNUNET_SCALARPRODUCT_ComputationHandle
   /**
    * The shared session key identifying this computation
    */
-  struct GNUNET_HashCode key;
+  struct GNUNET_HashCode key;
 
   /**
    * Current transmit handle.
@@ -79,26 +76,39 @@ struct GNUNET_SCALARPRODUCT_ComputationHandle
   struct GNUNET_CLIENT_TransmitHandle *th;
 
   /**
-   * Size of the message
+   * count of all elements we offer for computation
    */
-  uint16_t message_size;
+  uint32_t element_count_total;
 
+  /**
+   * count of the transfered elements we offer for computation
+   */
+  uint32_t element_count_transfered;
+  
+  /**
+   * the client's elements which 
+   */
+  struct GNUNET_SCALARPRODUCT_Element * elements;
+  
   /**
    * Message to be sent to the scalarproduct service
    */
-  struct GNUNET_SCALARPRODUCT_client_request * msg;
+  void * msg;
 
+  /**
+   * The client's msg handler callback
+   */
   union
   {
-    /**
-     * Function to call after transmission of the request.
-     */
-    GNUNET_SCALARPRODUCT_ContinuationWithStatus cont_status;
-
-    /**
-     * Function to call after transmission of the request.
-     */
-    GNUNET_SCALARPRODUCT_DatumProcessor cont_datum;
+  /**
+   * Function to call after transmission of the request (Bob).
+   */
+  GNUNET_SCALARPRODUCT_ContinuationWithStatus cont_status;
+
+  /**
+   * Function to call after transmission of the request (Alice).
+   */
+  GNUNET_SCALARPRODUCT_DatumProcessor cont_datum;
   };
 
   /**
@@ -107,42 +117,35 @@ struct GNUNET_SCALARPRODUCT_ComputationHandle
   void *cont_cls;
 
   /**
-   * Response Processor for response from the service. This function calls the
-   * continuation function provided by the client.
+   * API internal callback for results and failures to be forwarded to the client
    */
   GNUNET_SCALARPRODUCT_ResponseMessageHandler response_proc;
+  
+  /**
+   * 
+   */
+  GNUNET_SCHEDULER_TaskIdentifier cont_multipart;
 };
 
 /**************************************************************
- ***  Global Variables                               **********
- **************************************************************/
-/**
- * Head of the active sessions queue
- */
-static struct GNUNET_SCALARPRODUCT_ComputationHandle *head;
-/**
- * Tail of the active sessions queue
- */
-static struct GNUNET_SCALARPRODUCT_ComputationHandle *tail;
-
-/**************************************************************
- ***  Function Declarations                          **********
+ ***  Forward Function Declarations                          **********
  **************************************************************/
 
 void
 GNUNET_SCALARPRODUCT_cancel (struct GNUNET_SCALARPRODUCT_ComputationHandle * h);
 
+static size_t do_send_message (void *cls, size_t size, void *buf);
 /**************************************************************
  ***  Static Function Declarations                   **********
  **************************************************************/
 
 
 /**
- * Handles the RESULT received in reply of prepare_response from the 
- * service
- * 
- * @param cls Handle to the Master Context
+ * Handles the STATUS received from the service for a response, does not contain a payload
+ *
+ * @param cls our Handle
  * @param msg Pointer to the response received
+ * @param status the condition the request was terminated with (eg: disconnect)
  */
 static void
 process_status_message (void *cls,
@@ -156,11 +159,11 @@ process_status_message (void *cls,
 
 
 /**
- * Handles the RESULT received in reply of prepare_response from the 
- * service
- * 
- * @param cls Handle to the Master Context
+ * Handles the RESULT received from the service for a request, should contain a result MPI value
+ *
+ * @param cls our Handle
  * @param msg Pointer to the response received
+ * @param status the condition the request was terminated with (eg: disconnect)
  */
 static void
 process_result_message (void *cls,
@@ -173,8 +176,7 @@ process_result_message (void *cls,
   gcry_mpi_t result = NULL;
   gcry_error_t rc;
 
-  if (GNUNET_SCALARPRODUCT_Status_Success == status
-      && qe->cont_datum != NULL)
+  if (GNUNET_SCALARPRODUCT_Status_Success == status)
     {
       size_t product_len = ntohl (message->product_length);
       result = gcry_mpi_new (0);
@@ -184,7 +186,7 @@ process_result_message (void *cls,
           gcry_mpi_t num;
           size_t read = 0;
 
-          if (0 != (rc = gcry_mpi_scan (&num, GCRYMPI_FMT_STD, &msg[1], product_len, &read)))
+          if (0 != (rc = gcry_mpi_scan (&num, GCRYMPI_FMT_STD, &message[1], product_len, &read)))
             {
               LOG_GCRY(GNUNET_ERROR_TYPE_ERROR, "gcry_mpi_scan", rc);
               gcry_mpi_release (result);
@@ -193,9 +195,9 @@ process_result_message (void *cls,
             }
           else
             {
-              if (message->range > 0)
+              if (0 < message->range)
                 gcry_mpi_add (result, result, num);
-              else
+              else if (0 > message->range)
                 gcry_mpi_sub (result, result, num);
               gcry_mpi_release (num);
             }
@@ -206,17 +208,17 @@ process_result_message (void *cls,
 
 
 /**
- * Called when a response is received from the service. After basic check
+ * Called when a response is received from the service. After basic check, the
  * handler in qe->response_proc is called. This functions handles the response
  * to the client which used the API.
- * 
+ *
  * @param cls Pointer to the Master Context
  * @param msg Pointer to the data received in response
  */
 static void
 receive_cb (void *cls, const struct GNUNET_MessageHeader *msg)
 {
-  struct GNUNET_SCALARPRODUCT_ComputationHandle *qe = cls;
+  struct GNUNET_SCALARPRODUCT_ComputationHandle *h = cls;
   const struct GNUNET_SCALARPRODUCT_client_response *message =
           (const struct GNUNET_SCALARPRODUCT_client_response *) msg;
   enum GNUNET_SCALARPRODUCT_ResponseStatus status = GNUNET_SCALARPRODUCT_Status_InvalidResponse;
@@ -226,69 +228,125 @@ receive_cb (void *cls, const struct GNUNET_MessageHeader *msg)
       LOG (GNUNET_ERROR_TYPE_WARNING, "Disconnected by Service.\n");
       status = GNUNET_SCALARPRODUCT_Status_ServiceDisconnected;
     }
-  else if (GNUNET_MESSAGE_TYPE_SCALARPRODUCT_SERVICE_TO_CLIENT != ntohs (msg->type))
-    {
-      LOG (GNUNET_ERROR_TYPE_WARNING, "Invalid message type received\n");
-    }
-  else if (0 < ntohl (message->product_length) || (0 == message->range))
+  else if ((GNUNET_SYSERR != message->status) && (0 < message->product_length ))
     {
       // response for the responder client, successful
-      GNUNET_STATISTICS_update (qe->stats,
+      GNUNET_STATISTICS_update (h->stats,
                                 gettext_noop ("# SUC responder result messages received"), 1,
                                 GNUNET_NO);
 
       status = GNUNET_SCALARPRODUCT_Status_Success;
     }
+  else if (message->status == GNUNET_SYSERR){
+      // service signaled an error
+      status = GNUNET_SCALARPRODUCT_Status_Failure;
+  }
+  
+  if (h->cont_status != NULL)
+    h->response_proc (h, msg, status);
+
+  GNUNET_free (h);
+}
 
-  if (qe->cont_datum != NULL)
-    qe->response_proc (qe, msg, status);
 
-  GNUNET_free (qe);
-}
+static void
+send_multipart (void * cls, const struct GNUNET_SCHEDULER_TaskContext * tc)
+{
+  struct GNUNET_SCALARPRODUCT_ComputationHandle *h = (struct GNUNET_SCALARPRODUCT_ComputationHandle *) cls;
+  struct GNUNET_SCALARPRODUCT_computation_message_multipart *msg;
+  uint32_t size;
+  uint32_t todo;
+
+  h->cont_multipart = GNUNET_SCHEDULER_NO_TASK;
+
+  todo = h->element_count_total - h->element_count_transfered;
+  size = sizeof (struct GNUNET_SCALARPRODUCT_computation_message_multipart) +todo * sizeof (struct GNUNET_SCALARPRODUCT_Element);
+  if (GNUNET_SERVER_MAX_MESSAGE_SIZE <= size) {
+    //create a multipart msg, first we calculate a new msg size for the head msg
+    todo = (GNUNET_SERVER_MAX_MESSAGE_SIZE - 1 - sizeof (struct GNUNET_SCALARPRODUCT_computation_message_multipart)) / sizeof (struct GNUNET_SCALARPRODUCT_Element);
+    size = sizeof (struct GNUNET_SCALARPRODUCT_computation_message_multipart) +todo * sizeof (struct GNUNET_SCALARPRODUCT_Element);
+  }
+
+  msg = (struct GNUNET_SCALARPRODUCT_computation_message_multipart*) GNUNET_malloc (size);
+  h->msg = msg;
+  msg->header.size = htons (size);
+  msg->header.type = htons (GNUNET_MESSAGE_TYPE_SCALARPRODUCT_CLIENT_MUTLIPART);
+  msg->element_count_contained = htonl (todo);
 
+  memcpy (&msg[1], &h->elements[h->element_count_transfered], todo);
+  h->element_count_transfered += todo;
+
+  h->th = GNUNET_CLIENT_notify_transmit_ready (h->client, size,
+                                               GNUNET_TIME_UNIT_FOREVER_REL,
+                                               GNUNET_YES, // retry is OK in the initial stage
+                                               &do_send_message, h);
+
+  if (!h->th) {
+    LOG (GNUNET_ERROR_TYPE_ERROR,
+         _ ("Failed to send a multipart message to the scalarproduct service\n"));
+    GNUNET_STATISTICS_update (h->stats,
+                              gettext_noop ("# transmission request failures"),
+                              1, GNUNET_NO);
+    GNUNET_STATISTICS_destroy (h->stats, GNUNET_YES);
+    GNUNET_CLIENT_disconnect (h->client);
+    GNUNET_free (h->msg);
+    h->msg = NULL;
+    if (h->cont_status != NULL)
+      h->response_proc (h, NULL, GNUNET_SCALARPRODUCT_Status_Failure);
+
+    GNUNET_SCALARPRODUCT_cancel (cls);
+  }
+}
 
 /**
- * Transmits the request to the VectorProduct Sevice
- * 
+ * Transmits the request to the VectorProduct Service
+ *
  * @param cls Closure
  * @param size Size of the buffer
  * @param buf Pointer to the buffer
- * 
+ *
  * @return Size of the message sent
  */
 static size_t
-transmit_request (void *cls, size_t size,
-                  void *buf)
+do_send_message (void *cls, size_t size,
+                 void *buf)
 {
-  struct GNUNET_SCALARPRODUCT_ComputationHandle *qe = cls;
+  struct GNUNET_SCALARPRODUCT_ComputationHandle *h = cls;
 
-  if (NULL == buf)
-    {
-      LOG (GNUNET_ERROR_TYPE_DEBUG, "Failed to transmit request to SCALARPRODUCT.\n");
-      GNUNET_STATISTICS_update (qe->stats,
-                                gettext_noop ("# transmission request failures"),
-                                1, GNUNET_NO);
-
-      // notify caller about the error, done here.
-      if (qe->cont_datum != NULL)
-        qe->response_proc (qe, NULL, GNUNET_SCALARPRODUCT_Status_Failure);
-      GNUNET_SCALARPRODUCT_cancel (cls);
-      return 0;
-    }
-  memcpy (buf, qe->msg, size);
+  if (NULL == buf) {
+    LOG (GNUNET_ERROR_TYPE_DEBUG, "Failed to transmit request to SCALARPRODUCT.\n");
+    GNUNET_STATISTICS_update (h->stats,
+                              gettext_noop ("# transmission request failures"),
+                              1, GNUNET_NO);
+
+    // notify caller about the error, done here.
+    if (h->cont_status != NULL)
+      h->response_proc (h, NULL, GNUNET_SCALARPRODUCT_Status_Failure);
 
-  GNUNET_free (qe->msg);
-  qe->msg = NULL;
-  qe->th = NULL;
+    GNUNET_SCALARPRODUCT_cancel (cls);
+    return 0;
+  }
+  memcpy (buf, h->msg, size);
 
-  GNUNET_CLIENT_receive (qe->client, &receive_cb, qe,
-                         GNUNET_TIME_UNIT_FOREVER_REL);
+  GNUNET_free (h->msg);
+  h->msg = NULL;
+  h->th = NULL;
 
 #if INSANE_STATISTICS
-  GNUNET_STATISTICS_update (qe->stats,
+  GNUNET_STATISTICS_update (h->stats,
                             gettext_noop ("# bytes sent to scalarproduct"), 1,
                             GNUNET_NO);
 #endif
+
+  /* done sending */
+  if (h->element_count_total == h->element_count_transfered) {
+    GNUNET_CLIENT_receive (h->client, &receive_cb, h,
+                           GNUNET_TIME_UNIT_FOREVER_REL);
+    return size;
+  }
+  
+  h->cont_multipart = GNUNET_SCHEDULER_add_now (&send_multipart, h);
+  
   return size;
 }
 
@@ -299,35 +357,32 @@ transmit_request (void *cls, size_t size,
 
 
 /**
- * Used by Bob's client to cooperate with Alice, 
- * 
- * @param h handle to the master context
- * @param key Session key unique to the requesting client
+ * Used by Bob's client to cooperate with Alice,
+ *
+ * @param cfg the gnunet configuration handle
+ * @param key Session key unique to the requesting client
  * @param elements Array of elements of the vector
  * @param element_count Number of elements in the vector
  * @param cont Callback function
  * @param cont_cls Closure for the callback function
+ *
+ * @return a new handle for this computation
  */
 struct GNUNET_SCALARPRODUCT_ComputationHandle *
-GNUNET_SCALARPRODUCT_response (const struct GNUNET_CONFIGURATION_Handle *cfg,
-                               const struct GNUNET_HashCode * key,
-                               const int32_t * elements,
+GNUNET_SCALARPRODUCT_accept_computation (const struct GNUNET_CONFIGURATION_Handle * cfg,
+                               const struct GNUNET_HashCode * session_key,
+                               const struct GNUNET_SCALARPRODUCT_Element * elements,
                                uint32_t element_count,
                                GNUNET_SCALARPRODUCT_ContinuationWithStatus cont,
-                               void *cont_cls)
+                               void * cont_cls)
 {
   struct GNUNET_SCALARPRODUCT_ComputationHandle *h;
-  struct GNUNET_SCALARPRODUCT_client_request *msg;
-  int32_t * vector;
-  uint16_t size;
-  uint64_t i;
-
-  GNUNET_assert (key);
-  GNUNET_assert (elements);
-  GNUNET_assert (cont);
-  GNUNET_assert (element_count > 1);
-  GNUNET_assert (GNUNET_SERVER_MAX_MESSAGE_SIZE >= sizeof (struct GNUNET_SCALARPRODUCT_client_request)
-                 +element_count * sizeof (int32_t));
+  struct GNUNET_SCALARPRODUCT_computation_message *msg;
+  uint32_t size;
+  uint16_t possible;
+
+  GNUNET_assert (GNUNET_SERVER_MAX_MESSAGE_SIZE >= sizeof (struct GNUNET_SCALARPRODUCT_computation_message)
+                 + element_count * sizeof (int32_t));
   h = GNUNET_new (struct GNUNET_SCALARPRODUCT_ComputationHandle);
   h->client = GNUNET_CLIENT_connect ("scalarproduct", cfg);
   if (!h->client)
@@ -347,79 +402,86 @@ GNUNET_SCALARPRODUCT_response (const struct GNUNET_CONFIGURATION_Handle *cfg,
       return NULL;
     }
 
-  size = sizeof (struct GNUNET_SCALARPRODUCT_client_request) +element_count * sizeof (int32_t);
+  h->element_count_total = element_count;
+  size = sizeof (struct GNUNET_SCALARPRODUCT_computation_message) + element_count * sizeof (struct GNUNET_SCALARPRODUCT_Element);
+  if (GNUNET_SERVER_MAX_MESSAGE_SIZE > size) {
+    possible = element_count;
+    h->element_count_transfered = element_count;
+  }
+  else {
+    //create a multipart msg, first we calculate a new msg size for the head msg
+    possible = (GNUNET_SERVER_MAX_MESSAGE_SIZE - 1 - sizeof (struct GNUNET_SCALARPRODUCT_computation_message)) / sizeof (struct GNUNET_SCALARPRODUCT_Element);
+    h->element_count_transfered = possible;
+    size = sizeof (struct GNUNET_SCALARPRODUCT_computation_message) + possible*sizeof (struct GNUNET_SCALARPRODUCT_Element);
+    h->elements = (struct GNUNET_SCALARPRODUCT_Element*) 
+            GNUNET_malloc (sizeof(struct GNUNET_SCALARPRODUCT_Element) * element_count);
+    memcpy (h->elements, elements, sizeof (struct GNUNET_SCALARPRODUCT_Element)*element_count);
+  }
 
   h->cont_status = cont;
   h->cont_cls = cont_cls;
-  h->response_proc = &process_result_message;
+  h->response_proc = &process_status_message;
   h->cfg = cfg;
-  h->msg = GNUNET_malloc (size);
-  memcpy (&h->key, key, sizeof (struct GNUNET_HashCode));
+  memcpy (&h->key, session_key, sizeof (struct GNUNET_HashCode));
 
-  msg = (struct GNUNET_SCALARPRODUCT_client_request*) h->msg;
+  msg = (struct GNUNET_SCALARPRODUCT_computation_message*) GNUNET_malloc (size);
+  h->msg = msg;
   msg->header.size = htons (size);
-  msg->header.type = htons (GNUNET_MESSAGE_TYPE_SCALARPRODUCT_CLIENT_TO_ALICE);
-  msg->element_count = htonl (element_count);
+  msg->header.type = htons (GNUNET_MESSAGE_TYPE_SCALARPRODUCT_CLIENT_TO_BOB);
+  msg->element_count_total = htonl (element_count);
+  msg->element_count_contained = htonl (possible);
 
-  vector = (int32_t*) & msg[1];
-  // copy each element over to the message
-  for (i = 0; i < element_count; i++)
-    vector[i] = htonl (elements[i]);
-
-  memcpy (&msg->key, key, sizeof (struct GNUNET_HashCode));
+  memcpy (&msg->session_key, session_key, sizeof (struct GNUNET_HashCode));
+  memcpy (&msg[1], elements, possible);
 
   h->th = GNUNET_CLIENT_notify_transmit_ready (h->client, size,
                                                GNUNET_TIME_UNIT_FOREVER_REL,
                                                GNUNET_YES, // retry is OK in the initial stage
-                                               &transmit_request, h);
+                                               &do_send_message, h);
   if (!h->th)
     {
       LOG (GNUNET_ERROR_TYPE_ERROR,
            _ ("Failed to send a message to the scalarproduct service\n"));
+      GNUNET_STATISTICS_update (h->stats,
+                              gettext_noop ("# transmission request failures"),
+                              1, GNUNET_NO);
       GNUNET_STATISTICS_destroy (h->stats, GNUNET_YES);
       GNUNET_CLIENT_disconnect (h->client);
       GNUNET_free (h->msg);
+      GNUNET_free_non_null (h->elements);
       GNUNET_free (h);
       return NULL;
     }
-  GNUNET_CONTAINER_DLL_insert (head, tail, h);
   return h;
 }
 
 
 /**
  * Request by Alice's client for computing a scalar product
- * 
- * @param h handle to the master context
- * @param key Session key - unique to the requesting client
+ *
+ * @param cfg the gnunet configuration handle
+ * @param session_key Session key should be unique to the requesting client
  * @param peer PeerID of the other peer
  * @param elements Array of elements of the vector
  * @param element_count Number of elements in the vector
- * @param mask Array of the mask
- * @param mask_bytes number of bytes in the mask
  * @param cont Callback function
  * @param cont_cls Closure for the callback function
+ *
+ * @return a new handle for this computation
  */
 struct GNUNET_SCALARPRODUCT_ComputationHandle *
-GNUNET_SCALARPRODUCT_request (const struct GNUNET_CONFIGURATION_Handle *cfg,
-                              const struct GNUNET_HashCode * key,
+GNUNET_SCALARPRODUCT_start_computation (const struct GNUNET_CONFIGURATION_Handle * cfg,
+                              const struct GNUNET_HashCode * session_key,
                               const struct GNUNET_PeerIdentity *peer,
-                              const int32_t * elements,
+                              const struct GNUNET_SCALARPRODUCT_Element * elements,
                               uint32_t element_count,
-                              const unsigned char * mask,
-                              uint32_t mask_bytes,
                               GNUNET_SCALARPRODUCT_DatumProcessor cont,
-                              void *cont_cls)
+                              void * cont_cls)
 {
   struct GNUNET_SCALARPRODUCT_ComputationHandle *h;
-  struct GNUNET_SCALARPRODUCT_client_request *msg;
-  int32_t * vector;
-  uint16_t size;
-  uint64_t i;
-
-  GNUNET_assert (GNUNET_SERVER_MAX_MESSAGE_SIZE >= sizeof (struct GNUNET_SCALARPRODUCT_client_request)
-                 +element_count * sizeof (int32_t)
-                 + mask_bytes);
+  struct GNUNET_SCALARPRODUCT_computation_message *msg;
+  uint32_t size;
+  uint16_t possible;
 
   h = GNUNET_new (struct GNUNET_SCALARPRODUCT_ComputationHandle);
   h->client = GNUNET_CLIENT_connect ("scalarproduct", cfg);
@@ -440,94 +502,79 @@ GNUNET_SCALARPRODUCT_request (const struct GNUNET_CONFIGURATION_Handle *cfg,
       return NULL;
     }
 
-  size = sizeof (struct GNUNET_SCALARPRODUCT_client_request) +element_count * sizeof (int32_t) + mask_bytes;
-
+  h->element_count_total = element_count;
+  size = sizeof (struct GNUNET_SCALARPRODUCT_computation_message) + element_count * sizeof (struct GNUNET_SCALARPRODUCT_Element);
+  if (GNUNET_SERVER_MAX_MESSAGE_SIZE > size) {
+    possible = element_count;
+    h->element_count_transfered = element_count;
+  }
+  else {
+    //create a multipart msg, first we calculate a new msg size for the head msg
+    possible = (GNUNET_SERVER_MAX_MESSAGE_SIZE - 1 - sizeof (struct GNUNET_SCALARPRODUCT_computation_message)) / sizeof (struct GNUNET_SCALARPRODUCT_Element);
+    h->element_count_transfered = possible;
+    size = sizeof (struct GNUNET_SCALARPRODUCT_computation_message) + possible*sizeof (struct GNUNET_SCALARPRODUCT_Element);
+    h->elements = (struct GNUNET_SCALARPRODUCT_Element*) 
+            GNUNET_malloc (sizeof(struct GNUNET_SCALARPRODUCT_Element) * element_count);
+    memcpy (h->elements, elements, sizeof (struct GNUNET_SCALARPRODUCT_Element)*element_count);
+  }
+  
   h->cont_datum = cont;
   h->cont_cls = cont_cls;
-  h->response_proc = &process_status_message;
+  h->response_proc = &process_result_message;
   h->cfg = cfg;
-  h->msg = GNUNET_malloc (size);
-  memcpy (&h->key, key, sizeof (struct GNUNET_HashCode));
+  memcpy (&h->key, session_key, sizeof (struct GNUNET_HashCode));
 
-  msg = (struct GNUNET_SCALARPRODUCT_client_request*) h->msg;
+  msg = (struct GNUNET_SCALARPRODUCT_computation_message*) GNUNET_malloc (size);
+  h->msg = msg;
   msg->header.size = htons (size);
   msg->header.type = htons (GNUNET_MESSAGE_TYPE_SCALARPRODUCT_CLIENT_TO_ALICE);
-  msg->element_count = htons (element_count);
-  msg->mask_length = htons (mask_bytes);
-
-  vector = (int32_t*) & msg[1];
-  // copy each element over to the message
-  for (i = 0; i < element_count; i++)
-    vector[i] = htonl (elements[i]);
+  msg->element_count_total = htonl (element_count);
+  msg->element_count_contained = htonl (possible);
 
   memcpy (&msg->peer, peer, sizeof (struct GNUNET_PeerIdentity));
-  memcpy (&msg->key, key, sizeof (struct GNUNET_HashCode));
-  memcpy (&vector[element_count], mask, mask_bytes);
+  memcpy (&msg->session_key, session_key, sizeof (struct GNUNET_HashCode));
+  memcpy (&msg[1], elements, possible);
 
   h->th = GNUNET_CLIENT_notify_transmit_ready (h->client, size,
                                                GNUNET_TIME_UNIT_FOREVER_REL,
                                                GNUNET_YES, // retry is OK in the initial stage
-                                               &transmit_request, h);
+                                               &do_send_message, h);
   if (!h->th)
     {
       LOG (GNUNET_ERROR_TYPE_ERROR,
            _ ("Failed to send a message to the scalarproduct service\n"));
+      GNUNET_STATISTICS_update (h->stats,
+                              gettext_noop ("# transmission request failures"),
+                              1, GNUNET_NO);
       GNUNET_STATISTICS_destroy (h->stats, GNUNET_YES);
       GNUNET_CLIENT_disconnect (h->client);
       GNUNET_free (h->msg);
+      GNUNET_free_non_null (h->elements);
       GNUNET_free (h);
       return NULL;
     }
-  GNUNET_CONTAINER_DLL_insert (head, tail, h);
   return h;
 }
 
-
 /**
- * Disconnect from the scalarproduct service.
- * 
- * @param h a computation handle to cancel
+ * Cancel an ongoing computation or revoke our collaboration offer.
+ * Closes the connection to the service
+ *
+ * @param h computation handle to terminate
  */
 void
 GNUNET_SCALARPRODUCT_cancel (struct GNUNET_SCALARPRODUCT_ComputationHandle * h)
 {
-  struct GNUNET_SCALARPRODUCT_ComputationHandle * qe;
-
-  for (qe = head; head != NULL; qe = head)
-    {
-      if (qe == h)
-        {
-          GNUNET_CONTAINER_DLL_remove (head, tail, qe);
-          if (NULL == qe->th)
-            GNUNET_CLIENT_notify_transmit_ready_cancel (qe->th);
-          GNUNET_CLIENT_disconnect (qe->client);
-          GNUNET_STATISTICS_destroy (qe->stats, GNUNET_YES);
-          GNUNET_free (qe->msg);
-          GNUNET_free (qe);
-          break;
-        }
-    }
+  if (NULL != h->th)
+    GNUNET_CLIENT_notify_transmit_ready_cancel (h->th);
+  if (GNUNET_SCHEDULER_NO_TASK != h->cont_multipart)
+    GNUNET_SCHEDULER_cancel (h->cont_multipart);
+  GNUNET_free_non_null (h->elements);
+  GNUNET_free_non_null (h->msg);
+  GNUNET_CLIENT_disconnect (h->client);
+  GNUNET_STATISTICS_destroy (h->stats, GNUNET_YES);
+  GNUNET_free (h);
 }
-/**
- * Cancel ALL our ongoing scalar product computations and collaboration offers.
- * Closes ALL connections to the service
- */
-void
-GNUNET_SCALARPRODUCT_disconnect ()
-{
-    struct GNUNET_SCALARPRODUCT_ComputationHandle * qe;
 
-    LOG (GNUNET_ERROR_TYPE_INFO, "Disconnecting from VectorProduct\n");
-    for (qe = head; head != NULL; qe = head)
-    {
-        GNUNET_CONTAINER_DLL_remove (head, tail, qe);
-        if (NULL == qe->th)
-            GNUNET_CLIENT_notify_transmit_ready_cancel (qe->th);
-        GNUNET_CLIENT_disconnect (qe->client);
-        GNUNET_STATISTICS_destroy (qe->stats, GNUNET_YES);
-        GNUNET_free (qe->msg);
-        GNUNET_free (qe);
-    }
-}
 
-/* end of ext_api.c */
+/* end of scalarproduct_api.c */