work on gnunet-set, isolated bug in stream
[oweals/gnunet.git] / src / set / set_api.c
1 /*
2      This file is part of GNUnet.
3      (C) 2012 Christian Grothoff (and other contributing authors)
4
5      GNUnet is free software; you can redistribute it and/or modify
6      it under the terms of the GNU General Public License as published
7      by the Free Software Foundation; either version 3, or (at your
8      option) any later version.
9
10      GNUnet is distributed in the hope that it will be useful, but
11      WITHOUT ANY WARRANTY; without even the implied warranty of
12      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13      General Public License for more details.
14
15      You should have received a copy of the GNU General Public License
16      along with GNUnet; see the file COPYING.  If not, write to the
17      Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18      Boston, MA 02111-1307, USA.
19 */
20
21 /**
22  * @file set/set_api.c
23  * @brief api for the set service
24  * @author Florian Dold
25  */
26 #include "platform.h"
27 #include "gnunet_util_lib.h"
28 #include "gnunet_protocols.h"
29 #include "gnunet_client_lib.h"
30 #include "gnunet_set_service.h"
31 #include "set.h"
32 #include "mq.h"
33
34
35 #define LOG(kind,...) GNUNET_log_from (kind, "set-api",__VA_ARGS__)
36
37 /**
38  * Opaque handle to a set.
39  */
40 struct GNUNET_SET_Handle
41 {
42   struct GNUNET_CLIENT_Connection *client;
43   struct GNUNET_MQ_MessageQueue *mq;
44   unsigned int messages_since_ack;
45 };
46
47 /**
48  * Opaque handle to a set operation request from another peer.
49  */
50 struct GNUNET_SET_Request
51 {
52   uint32_t request_id;
53   int accepted;
54 };
55
56
57 struct GNUNET_SET_OperationHandle
58 {
59   GNUNET_SET_ResultIterator result_cb;
60   void *result_cls;
61   struct GNUNET_SET_Handle *set;
62   uint32_t request_id;
63   GNUNET_SCHEDULER_TaskIdentifier timeout_task;
64 };
65
66
67 /**
68  * Opaque handle to a listen operation.
69  */
70 struct GNUNET_SET_ListenHandle
71 {
72   struct GNUNET_CLIENT_Connection *client;
73   struct GNUNET_MQ_MessageQueue* mq;
74   GNUNET_SET_ListenCallback listen_cb;
75   void *listen_cls;
76 };
77
78
79 /**
80  * Handle result message for a set operation.
81  *
82  * @param cls the set
83  * @param mh the message
84  */
85 static void
86 handle_result (void *cls, const struct GNUNET_MessageHeader *mh)
87 {
88   struct ResultMessage *msg = (struct ResultMessage *) mh;
89   struct GNUNET_SET_Handle *set = cls;
90   struct GNUNET_SET_OperationHandle *oh;
91   struct GNUNET_SET_Element e;
92
93   if (set->messages_since_ack >= GNUNET_SET_ACK_WINDOW/2)
94   {
95     struct GNUNET_MQ_Message *mqm;
96     mqm = GNUNET_MQ_msg_header (GNUNET_MESSAGE_TYPE_SET_ACK);
97     GNUNET_MQ_send (set->mq, mqm);
98   }
99
100   oh = GNUNET_MQ_assoc_get (set->mq, ntohl (msg->request_id));
101   GNUNET_break (NULL != oh);
102   if (GNUNET_SCHEDULER_NO_TASK != oh->timeout_task)
103   {
104     GNUNET_SCHEDULER_cancel (oh->timeout_task);
105     oh->timeout_task = GNUNET_SCHEDULER_NO_TASK;
106   }
107   if (htons (msg->result_status) != GNUNET_SET_STATUS_OK)
108   {
109     if (NULL != oh->result_cb)
110       oh->result_cb (oh->result_cls, NULL, htons (msg->result_status));
111     GNUNET_MQ_assoc_remove (set->mq, ntohl (msg->request_id));
112     GNUNET_free (oh);
113     return;
114   }
115   e.data = &msg[1];
116   e.size = ntohs (mh->size) - sizeof (struct ResultMessage);
117   e.type = msg->element_type;
118   if (NULL != oh->result_cb)
119     oh->result_cb (oh->result_cls, &e, htons (msg->result_status));
120 }
121
122 /**
123  * Handle request message for a listen operation
124  *
125  * @param cls the listen handle
126  * @param mh the message
127  */
128 static void
129 handle_request (void *cls, const struct GNUNET_MessageHeader *mh)
130 {
131   struct RequestMessage *msg = (struct RequestMessage *) mh;
132   struct GNUNET_SET_ListenHandle *lh = cls;
133   struct GNUNET_SET_Request *req;
134
135   req = GNUNET_new (struct GNUNET_SET_Request);
136   req->request_id = ntohl (msg->request_id);
137   lh->listen_cb (lh->listen_cls, &msg->peer_id, &mh[1], req);
138   if (GNUNET_NO == req->accepted)
139   {
140     struct GNUNET_MQ_Message *mqm;
141     struct AcceptMessage *amsg;
142     
143     mqm = GNUNET_MQ_msg (amsg, GNUNET_MESSAGE_TYPE_SET_ACCEPT);
144     amsg->request_id = msg->request_id;
145     GNUNET_MQ_send (lh->mq, mqm);
146     GNUNET_free (req);
147   }
148 }
149
150
151 /**
152  * Create an empty set, supporting the specified operation.
153  *
154  * @param cfg configuration to use for connecting to the
155  *        set service
156  * @param op operation supported by the set
157  *        Note that the operation has to be specified
158  *        beforehand, as certain set operations need to maintain
159  *        data structures spefific to the operation
160  * @return a handle to the set
161  */
162 struct GNUNET_SET_Handle *
163 GNUNET_SET_create (const struct GNUNET_CONFIGURATION_Handle *cfg,
164                    enum GNUNET_SET_OperationType op)
165 {
166   struct GNUNET_SET_Handle *set;
167   struct GNUNET_MQ_Message *mqm;
168   struct SetCreateMessage *msg;
169   static const struct GNUNET_MQ_Handler mq_handlers[] = {
170     {handle_result, GNUNET_MESSAGE_TYPE_SET_RESULT},
171     GNUNET_MQ_HANDLERS_END
172   };
173
174   set = GNUNET_new (struct GNUNET_SET_Handle);
175   set->client = GNUNET_CLIENT_connect ("set", cfg);
176   GNUNET_log (GNUNET_ERROR_TYPE_INFO, "set client created\n");
177   GNUNET_assert (NULL != set->client);
178   set->mq = GNUNET_MQ_queue_for_connection_client (set->client, mq_handlers, set);
179   mqm = GNUNET_MQ_msg (msg, GNUNET_MESSAGE_TYPE_SET_CREATE);
180   msg->operation = htons (op);
181   GNUNET_MQ_send (set->mq, mqm);
182   return set;
183 }
184
185
186 /**
187  * Add an element to the given set.
188  * After the element has been added (in the sense of being
189  * transmitted to the set service), cont will be called.
190  * Calls to add_element can be queued
191  *
192  * @param set set to add element to
193  * @param element element to add to the set
194  * @param cont continuation called after the element has been added
195  * @param cont_cls closure for cont
196  */
197 void
198 GNUNET_SET_add_element (struct GNUNET_SET_Handle *set,
199                         const struct GNUNET_SET_Element *element,
200                         GNUNET_SET_Continuation cont,
201                         void *cont_cls)
202 {
203   struct GNUNET_MQ_Message *mqm;
204   struct ElementMessage *msg;
205
206   mqm = GNUNET_MQ_msg_extra (msg, element->size, GNUNET_MESSAGE_TYPE_SET_ADD);
207   msg->element_type = element->type;
208   memcpy (&msg[1], element->data, element->size);
209   GNUNET_MQ_notify_sent (mqm, cont, cont_cls);
210   GNUNET_MQ_send (set->mq, mqm);
211 }
212
213
214 /**
215  * Remove an element to the given set.
216  * After the element has been removed (in the sense of the
217  * request being transmitted to the set service), cont will be called.
218  * Calls to remove_element can be queued
219  *
220  * @param set set to remove element from
221  * @param element element to remove from the set
222  * @param cont continuation called after the element has been removed
223  * @param cont_cls closure for cont
224  */
225 void
226 GNUNET_SET_remove_element (struct GNUNET_SET_Handle *set,
227                            const struct GNUNET_SET_Element *element,
228                            GNUNET_SET_Continuation cont,
229                            void *cont_cls)
230 {
231   struct GNUNET_MQ_Message *mqm;
232   struct ElementMessage *msg;
233
234   mqm = GNUNET_MQ_msg_extra (msg, element->size, GNUNET_MESSAGE_TYPE_SET_REMOVE);
235   msg->element_type = element->type;
236   memcpy (&msg[1], element->data, element->size);
237   GNUNET_MQ_notify_sent (mqm, cont, cont_cls);
238   GNUNET_MQ_send (set->mq, mqm);
239 }
240
241
242 /**
243  * Destroy the set handle, and free all associated resources.
244  */
245 void
246 GNUNET_SET_destroy (struct GNUNET_SET_Handle *set)
247 {
248   GNUNET_CLIENT_disconnect (set->client);
249   set->client = NULL;
250   GNUNET_MQ_destroy (set->mq);
251   set->mq = NULL;
252 }
253
254
255 /**
256  * Signature of the main function of a task.
257  *
258  * @param cls closure
259  * @param tc context information (why was this task triggered now)
260  */
261 static void
262 operation_timeout_task (void *cls,
263                         const struct GNUNET_SCHEDULER_TaskContext * tc)
264 {
265   struct GNUNET_SET_OperationHandle *oh = cls;
266   oh->timeout_task = GNUNET_SCHEDULER_NO_TASK;
267   if (NULL != oh->result_cb)
268     oh->result_cb (oh->result_cls, NULL, GNUNET_SET_STATUS_TIMEOUT);
269   oh->result_cb = NULL;
270   oh->result_cls = NULL;
271   GNUNET_SET_operation_cancel (oh);
272 }
273
274
275 /**
276  * Evaluate a set operation with our set and the set of another peer.
277  *
278  * @param set set to use
279  * @param other_peer peer with the other set
280  * @param app_id hash for the application using the set
281  * @param context_msg additional information for the request
282  * @param result_cb called on error or success
283  * @param result_cls closure for result_cb
284  * @return a handle to cancel the operation
285  */
286 struct GNUNET_SET_OperationHandle *
287 GNUNET_SET_evaluate (struct GNUNET_SET_Handle *set,
288                      const struct GNUNET_PeerIdentity *other_peer,
289                      const struct GNUNET_HashCode *app_id,
290                      const struct GNUNET_MessageHeader *context_msg,
291                      uint16_t salt,
292                      struct GNUNET_TIME_Relative timeout,
293                      enum GNUNET_SET_ResultMode result_mode,
294                      GNUNET_SET_ResultIterator result_cb,
295                      void *result_cls)
296 {
297   struct GNUNET_MQ_Message *mqm;
298   struct EvaluateMessage *msg;
299   struct GNUNET_SET_OperationHandle *oh;
300
301   oh = GNUNET_new (struct GNUNET_SET_OperationHandle);
302   oh->result_cb = result_cb;
303   oh->result_cls = result_cls;
304   oh->set = set;
305
306   mqm = GNUNET_MQ_msg (msg, GNUNET_MESSAGE_TYPE_SET_EVALUATE);
307   msg->request_id = htonl (GNUNET_MQ_assoc_add (set->mq, mqm, oh));
308   msg->peer = *other_peer;
309   msg->app_id = *app_id;
310
311   if (GNUNET_OK != GNUNET_MQ_nest (mqm, context_msg))
312     GNUNET_assert (0);
313   
314   oh->timeout_task = GNUNET_SCHEDULER_add_delayed (timeout, operation_timeout_task, oh);
315   GNUNET_MQ_send (set->mq, mqm);
316
317   return oh;
318 }
319
320
321 /**
322  * Wait for set operation requests for the given application id
323  * 
324  * @param cfg configuration to use for connecting to
325  *            the set service
326  * @param operation operation we want to listen for
327  * @param app_id id of the application that handles set operation requests
328  * @param listen_cb called for each incoming request matching the operation
329  *                  and application id
330  * @param listen_cls handle for listen_cb
331  * @return a handle that can be used to cancel the listen operation
332  */
333 struct GNUNET_SET_ListenHandle *
334 GNUNET_SET_listen (const struct GNUNET_CONFIGURATION_Handle *cfg,
335                    enum GNUNET_SET_OperationType operation,
336                    const struct GNUNET_HashCode *app_id,
337                    GNUNET_SET_ListenCallback listen_cb,
338                    void *listen_cls)
339 {
340   struct GNUNET_SET_ListenHandle *lh;
341   struct GNUNET_MQ_Message *mqm;
342   struct ListenMessage *msg;
343   static const struct GNUNET_MQ_Handler mq_handlers[] = {
344     {handle_request, GNUNET_MESSAGE_TYPE_SET_REQUEST},
345     GNUNET_MQ_HANDLERS_END
346   };
347
348   lh = GNUNET_new (struct GNUNET_SET_ListenHandle);
349   lh->client = GNUNET_CLIENT_connect ("set", cfg);
350   lh->listen_cb = listen_cb;
351   lh->listen_cls = listen_cls;
352   GNUNET_assert (NULL != lh->client);
353   lh->mq = GNUNET_MQ_queue_for_connection_client (lh->client, mq_handlers, lh);
354   mqm = GNUNET_MQ_msg (msg, GNUNET_MESSAGE_TYPE_SET_LISTEN);
355   msg->operation = htons (operation);
356   msg->app_id = *app_id;
357   GNUNET_MQ_send (lh->mq, mqm);
358
359   return lh;
360 }
361
362
363 /**
364  * Cancel the given listen operation.
365  *
366  * @param lh handle for the listen operation
367  */
368 void
369 GNUNET_SET_listen_cancel (struct GNUNET_SET_ListenHandle *lh)
370 {
371   GNUNET_MQ_destroy (lh->mq);
372   lh->mq = NULL;
373   GNUNET_CLIENT_disconnect (lh->client);
374   lh->client = NULL;
375   lh->listen_cb = NULL;
376   lh->listen_cls = NULL;
377 }
378
379
380 /**
381  * Accept a request we got via GNUNET_SET_listen
382  *
383  * @param request request to accept
384  * @param set set used for the requested operation 
385  * @param timeout timeout for the set operation
386  * @param result_cb callback for the results
387  * @param cls closure for result_cb
388  */
389 struct GNUNET_SET_OperationHandle *
390 GNUNET_SET_accept (struct GNUNET_SET_Request *request,
391                    struct GNUNET_SET_Handle *set,
392                    struct GNUNET_TIME_Relative timeout,
393                    enum GNUNET_SET_ResultMode result_mode,
394                    GNUNET_SET_ResultIterator result_cb,
395                    void *result_cls)
396 {
397   struct GNUNET_MQ_Message *mqm;
398   struct AcceptMessage *msg;
399   struct GNUNET_SET_OperationHandle *oh;
400
401   /* don't accept a request twice! */
402   GNUNET_assert (GNUNET_NO == request->accepted);
403   request->accepted = GNUNET_YES;
404
405   oh = GNUNET_new (struct GNUNET_SET_OperationHandle);
406   oh->result_cb = result_cb;
407   oh->result_cls = result_cls;
408   oh->set = set;
409
410   mqm = GNUNET_MQ_msg (msg , GNUNET_MESSAGE_TYPE_SET_ACCEPT);
411   msg->request_id = htonl (request->request_id);
412   msg->accepted = 1;
413   GNUNET_MQ_send (set->mq, mqm);
414
415   oh->timeout_task = GNUNET_SCHEDULER_add_delayed (timeout, operation_timeout_task, oh);
416
417   return oh;
418 }
419
420
421 /**
422  * Cancel the given set operation.
423  *
424  * @param op set operation to cancel
425  */
426 void
427 GNUNET_SET_operation_cancel (struct GNUNET_SET_OperationHandle *h)
428 {
429   struct GNUNET_MQ_Message *mqm;
430   struct GNUNET_SET_OperationHandle *h_assoc;
431
432   h_assoc = GNUNET_MQ_assoc_remove (h->set->mq, h->request_id);
433   GNUNET_assert (h_assoc == h);
434   mqm = GNUNET_MQ_msg_header (GNUNET_MESSAGE_TYPE_SET_CANCEL);
435   GNUNET_MQ_send (h->set->mq, mqm);
436   GNUNET_free (h);
437 }
438