- re-added testcase for crypto-paillier
[oweals/gnunet.git] / src / mesh / mesh_api.c
1 /*
2      This file is part of GNUnet.
3      (C) 2011 Christian Grothoff (and other contributing authors)
4      GNUnet is free software; you can redistribute it and/or modify
5      it under the terms of the GNU General Public License as published
6      by the Free Software Foundation; either version 3, or (at your
7      option) any later version.
8      GNUnet is distributed in the hope that it will be useful, but
9      WITHOUT ANY WARRANTY; without even the implied warranty of
10      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
11      General Public License for more details.
12      You should have received a copy of the GNU General Public License
13      along with GNUnet; see the file COPYING.  If not, write to the
14      Free Software Foundation, Inc., 59 Temple Place - Suite 330,
15      Boston, MA 02111-1307, USA.
16 */
17
18 /**
19  * @file mesh/mesh_api.c
20  * @brief mesh api: client implementation of new mesh service
21  * @author Bartlomiej Polot
22  */
23
24 #include "platform.h"
25 #include "gnunet_util_lib.h"
26 #include "gnunet_mesh_service.h"
27 #include "mesh.h"
28 #include "mesh_protocol.h"
29
30 #define LOG(kind,...) GNUNET_log_from (kind, "mesh-api",__VA_ARGS__)
31
32 /******************************************************************************/
33 /************************      DATA STRUCTURES     ****************************/
34 /******************************************************************************/
35
36 /**
37  * Transmission queue to the service
38  */
39 struct GNUNET_MESH_TransmitHandle
40 {
41
42     /**
43      * Double Linked list
44      */
45   struct GNUNET_MESH_TransmitHandle *next;
46
47     /**
48      * Double Linked list
49      */
50   struct GNUNET_MESH_TransmitHandle *prev;
51
52     /**
53      * Channel this message is sent on / for (may be NULL for control messages).
54      */
55   struct GNUNET_MESH_Channel *channel;
56
57     /**
58      * Callback to obtain the message to transmit, or NULL if we
59      * got the message in 'data'.  Notice that messages built
60      * by 'notify' need to be encapsulated with information about
61      * the 'target'.
62      */
63   GNUNET_CONNECTION_TransmitReadyNotify notify;
64
65     /**
66      * Closure for 'notify'
67      */
68   void *notify_cls;
69
70     /**
71      * How long is this message valid.  Once the timeout has been
72      * reached, the message must no longer be sent.  If this
73      * is a message with a 'notify' callback set, the 'notify'
74      * function should be called with 'buf' NULL and size 0.
75      */
76   struct GNUNET_TIME_Absolute timeout;
77
78     /**
79      * Task triggering a timeout, can be NO_TASK if the timeout is FOREVER.
80      */
81   GNUNET_SCHEDULER_TaskIdentifier timeout_task;
82
83     /**
84      * Size of 'data' -- or the desired size of 'notify' if 'data' is NULL.
85      */
86   size_t size;
87 };
88
89
90 /**
91  * Opaque handle to the service.
92  */
93 struct GNUNET_MESH_Handle
94 {
95
96     /**
97      * Handle to the server connection, to send messages later
98      */
99   struct GNUNET_CLIENT_Connection *client;
100
101     /**
102      * Set of handlers used for processing incoming messages in the channels
103      */
104   const struct GNUNET_MESH_MessageHandler *message_handlers;
105
106   /**
107    * Number of handlers in the handlers array.
108    */
109   unsigned int n_handlers;
110
111   /**
112    * Ports open.
113    */
114   const uint32_t *ports;
115
116   /**
117    * Number of ports.
118    */
119   unsigned int n_ports;
120
121     /**
122      * Double linked list of the channels this client is connected to, head.
123      */
124   struct GNUNET_MESH_Channel *channels_head;
125
126     /**
127      * Double linked list of the channels this client is connected to, tail.
128      */
129   struct GNUNET_MESH_Channel *channels_tail;
130
131     /**
132      * Callback for inbound channel creation
133      */
134   GNUNET_MESH_InboundChannelNotificationHandler *new_channel;
135
136     /**
137      * Callback for inbound channel disconnection
138      */
139   GNUNET_MESH_ChannelEndHandler *cleaner;
140
141     /**
142      * Handle to cancel pending transmissions in case of disconnection
143      */
144   struct GNUNET_CLIENT_TransmitHandle *th;
145
146     /**
147      * Closure for all the handlers given by the client
148      */
149   void *cls;
150
151     /**
152      * Messages to send to the service, head.
153      */
154   struct GNUNET_MESH_TransmitHandle *th_head;
155
156     /**
157      * Messages to send to the service, tail.
158      */
159   struct GNUNET_MESH_TransmitHandle *th_tail;
160
161     /**
162      * chid of the next channel to create (to avoid reusing IDs often)
163      */
164   MESH_ChannelNumber next_chid;
165
166     /**
167      * Have we started the task to receive messages from the service
168      * yet? We do this after we send the 'MESH_LOCAL_CONNECT' message.
169      */
170   int in_receive;
171
172   /**
173    * Configuration given by the client, in case of reconnection
174    */
175   const struct GNUNET_CONFIGURATION_Handle *cfg;
176
177   /**
178    * Time to the next reconnect in case one reconnect fails
179    */
180   struct GNUNET_TIME_Relative reconnect_time;
181
182   /**
183    * Task for trying to reconnect.
184    */
185   GNUNET_SCHEDULER_TaskIdentifier reconnect_task;
186
187   /**
188    * Monitor callback
189    */
190   GNUNET_MESH_ChannelsCB channels_cb;
191
192   /**
193    * Monitor callback closure.
194    */
195   void *channels_cls;
196
197   /**
198    * Channel callback.
199    */
200   GNUNET_MESH_ChannelCB channel_cb;
201
202   /**
203    * Channel callback closure.
204    */
205   void *channel_cls;
206
207   /**
208    * Monitor callback
209    */
210   GNUNET_MESH_PeersCB peers_cb;
211
212   /**
213    * Monitor callback closure.
214    */
215   void *peers_cls;
216
217   /**
218    * Monitor callback
219    */
220   GNUNET_MESH_TunnelsCB tunnels_cb;
221
222   /**
223    * Monitor callback closure.
224    */
225   void *tunnels_cls;
226
227   /**
228    * Tunnel callback.
229    */
230   GNUNET_MESH_TunnelCB tunnel_cb;
231
232   /**
233    * Tunnel callback closure.
234    */
235   void *tunnel_cls;
236 };
237
238
239 /**
240  * Description of a peer
241  */
242 struct GNUNET_MESH_Peer
243 {
244     /**
245      * ID of the peer in short form
246      */
247   GNUNET_PEER_Id id;
248
249   /**
250    * Channel this peer belongs to
251    */
252   struct GNUNET_MESH_Channel *t;
253 };
254
255
256 /**
257  * Opaque handle to a channel.
258  */
259 struct GNUNET_MESH_Channel
260 {
261
262     /**
263      * DLL next
264      */
265   struct GNUNET_MESH_Channel *next;
266
267     /**
268      * DLL prev
269      */
270   struct GNUNET_MESH_Channel *prev;
271
272     /**
273      * Handle to the mesh this channel belongs to
274      */
275   struct GNUNET_MESH_Handle *mesh;
276
277     /**
278      * Local ID of the channel
279      */
280   MESH_ChannelNumber chid;
281
282     /**
283      * Port number.
284      */
285   uint32_t port;
286
287     /**
288      * Other end of the channel.
289      */
290   GNUNET_PEER_Id peer;
291
292   /**
293    * Any data the caller wants to put in here
294    */
295   void *ctx;
296
297     /**
298      * Size of packet queued in this channel
299      */
300   unsigned int packet_size;
301
302     /**
303      * Channel options: reliability, etc.
304      */
305   enum GNUNET_MESH_ChannelOption options;
306
307     /**
308      * Are we allowed to send to the service?
309      */
310   int allow_send;
311
312 };
313
314
315 /**
316  * Implementation state for mesh's message queue.
317  */
318 struct MeshMQState
319 {
320   /**
321    * The current transmit handle, or NULL
322    * if no transmit is active.
323    */
324   struct GNUNET_MESH_TransmitHandle *th;
325
326   /**
327    * Channel to send the data over.
328    */
329   struct GNUNET_MESH_Channel *channel;
330 };
331
332
333 /******************************************************************************/
334 /***********************         DECLARATIONS         *************************/
335 /******************************************************************************/
336
337 /**
338  * Function called to send a message to the service.
339  * "buf" will be NULL and "size" zero if the socket was closed for writing in
340  * the meantime.
341  *
342  * @param cls closure, the mesh handle
343  * @param size number of bytes available in buf
344  * @param buf where the callee should write the connect message
345  * @return number of bytes written to buf
346  */
347 static size_t
348 send_callback (void *cls, size_t size, void *buf);
349
350
351 /******************************************************************************/
352 /***********************     AUXILIARY FUNCTIONS      *************************/
353 /******************************************************************************/
354
355 /**
356  * Check if transmission is a payload packet.
357  *
358  * @param th Transmission handle.
359  *
360  * @return GNUNET_YES if it is a payload packet,
361  *         GNUNET_NO if it is a mesh management packet.
362  */
363 static int
364 th_is_payload (struct GNUNET_MESH_TransmitHandle *th)
365 {
366   return (th->notify != NULL) ? GNUNET_YES : GNUNET_NO;
367 }
368
369
370 /**
371  * Check whether there is any message ready in the queue and find the size.
372  *
373  * @param h Mesh handle.
374  *
375  * @return The size of the first ready message in the queue,
376  *         0 if there is none.
377  */
378 static size_t
379 message_ready_size (struct GNUNET_MESH_Handle *h)
380 {
381   struct GNUNET_MESH_TransmitHandle *th;
382   struct GNUNET_MESH_Channel *ch;
383
384   for (th = h->th_head; NULL != th; th = th->next)
385   {
386     ch = th->channel;
387     if (GNUNET_NO == th_is_payload (th))
388     {
389       LOG (GNUNET_ERROR_TYPE_DEBUG, "#  message internal\n");
390       return th->size;
391     }
392     if (GNUNET_YES == ch->allow_send)
393     {
394       LOG (GNUNET_ERROR_TYPE_DEBUG, "#  message payload ok\n");
395       return th->size;
396     }
397   }
398   return 0;
399 }
400
401
402 /**
403  * Get the channel handler for the channel specified by id from the given handle
404  * @param h Mesh handle
405  * @param chid ID of the wanted channel
406  * @return handle to the required channel or NULL if not found
407  */
408 static struct GNUNET_MESH_Channel *
409 retrieve_channel (struct GNUNET_MESH_Handle *h, MESH_ChannelNumber chid)
410 {
411   struct GNUNET_MESH_Channel *ch;
412
413   ch = h->channels_head;
414   while (ch != NULL)
415   {
416     if (ch->chid == chid)
417       return ch;
418     ch = ch->next;
419   }
420   return NULL;
421 }
422
423
424 /**
425  * Create a new channel and insert it in the channel list of the mesh handle
426  *
427  * @param h Mesh handle
428  * @param chid Desired chid of the channel, 0 to assign one automatically.
429  *
430  * @return Handle to the created channel.
431  */
432 static struct GNUNET_MESH_Channel *
433 create_channel (struct GNUNET_MESH_Handle *h, MESH_ChannelNumber chid)
434 {
435   struct GNUNET_MESH_Channel *ch;
436
437   ch = GNUNET_new (struct GNUNET_MESH_Channel);
438   GNUNET_CONTAINER_DLL_insert (h->channels_head, h->channels_tail, ch);
439   ch->mesh = h;
440   if (0 == chid)
441   {
442     ch->chid = h->next_chid;
443     while (NULL != retrieve_channel (h, h->next_chid))
444     {
445       h->next_chid++;
446       h->next_chid &= ~GNUNET_MESH_LOCAL_CHANNEL_ID_SERV;
447       h->next_chid |= GNUNET_MESH_LOCAL_CHANNEL_ID_CLI;
448     }
449   }
450   else
451   {
452     ch->chid = chid;
453   }
454   ch->allow_send = GNUNET_NO;
455   return ch;
456 }
457
458
459 /**
460  * Destroy the specified channel.
461  * - Destroys all peers, calling the disconnect callback on each if needed
462  * - Cancels all outgoing traffic for that channel, calling respective notifys
463  * - Calls cleaner if channel was inbound
464  * - Frees all memory used
465  *
466  * @param ch Pointer to the channel.
467  * @param call_cleaner Whether to call the cleaner handler.
468  *
469  * @return Handle to the required channel or NULL if not found.
470  */
471 static void
472 destroy_channel (struct GNUNET_MESH_Channel *ch, int call_cleaner)
473 {
474   struct GNUNET_MESH_Handle *h;
475   struct GNUNET_MESH_TransmitHandle *th;
476   struct GNUNET_MESH_TransmitHandle *next;
477
478   LOG (GNUNET_ERROR_TYPE_DEBUG, " destroy_channel %X\n", ch->chid);
479
480   if (NULL == ch)
481   {
482     GNUNET_break (0);
483     return;
484   }
485   h = ch->mesh;
486
487   GNUNET_CONTAINER_DLL_remove (h->channels_head, h->channels_tail, ch);
488
489   /* signal channel destruction */
490   if ( (NULL != h->cleaner) && (0 != ch->peer) && (GNUNET_YES == call_cleaner) )
491   {
492     LOG (GNUNET_ERROR_TYPE_DEBUG, " calling cleaner\n");
493     h->cleaner (h->cls, ch, ch->ctx);
494   }
495
496   /* check that clients did not leave messages behind in the queue */
497   for (th = h->th_head; NULL != th; th = next)
498   {
499     next = th->next;
500     if (th->channel != ch)
501       continue;
502     /* Clients should have aborted their requests already.
503      * Management traffic should be ok, as clients can't cancel that.
504      * If the service crashed and we are reconnecting, it's ok.
505      */
506     GNUNET_break (GNUNET_NO == th_is_payload (th)
507                   || GNUNET_NO == h->in_receive);
508     GNUNET_CONTAINER_DLL_remove (h->th_head, h->th_tail, th);
509
510     /* clean up request */
511     if (GNUNET_SCHEDULER_NO_TASK != th->timeout_task)
512       GNUNET_SCHEDULER_cancel (th->timeout_task);
513     GNUNET_free (th);
514   }
515
516   /* if there are no more pending requests with mesh service, cancel active request */
517   /* Note: this should be unnecessary... */
518   if ((0 == message_ready_size (h)) && (NULL != h->th))
519   {
520     GNUNET_CLIENT_notify_transmit_ready_cancel (h->th);
521     h->th = NULL;
522   }
523
524   if (0 != ch->peer)
525     GNUNET_PEER_change_rc (ch->peer, -1);
526   GNUNET_free (ch);
527   return;
528 }
529
530
531 /**
532  * Notify client that the transmission has timed out
533  *
534  * @param cls closure
535  * @param tc task context
536  */
537 static void
538 timeout_transmission (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
539 {
540   struct GNUNET_MESH_TransmitHandle *th = cls;
541   struct GNUNET_MESH_Handle *mesh;
542
543   mesh = th->channel->mesh;
544   GNUNET_CONTAINER_DLL_remove (mesh->th_head, mesh->th_tail, th);
545   th->channel->packet_size = 0;
546   if (GNUNET_YES == th_is_payload (th))
547     th->notify (th->notify_cls, 0, NULL);
548   GNUNET_free (th);
549   if ((0 == message_ready_size (mesh)) && (NULL != mesh->th))
550   {
551     /* nothing ready to transmit, no point in asking for transmission */
552     GNUNET_CLIENT_notify_transmit_ready_cancel (mesh->th);
553     mesh->th = NULL;
554   }
555 }
556
557
558 /**
559  * Add a transmit handle to the transmission queue and set the
560  * timeout if needed.
561  *
562  * @param h mesh handle with the queue head and tail
563  * @param th handle to the packet to be transmitted
564  */
565 static void
566 add_to_queue (struct GNUNET_MESH_Handle *h,
567               struct GNUNET_MESH_TransmitHandle *th)
568 {
569   GNUNET_CONTAINER_DLL_insert_tail (h->th_head, h->th_tail, th);
570   if (GNUNET_TIME_UNIT_FOREVER_ABS.abs_value_us == th->timeout.abs_value_us)
571     return;
572   th->timeout_task =
573       GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_absolute_get_remaining
574                                     (th->timeout), &timeout_transmission, th);
575 }
576
577
578 /**
579  * Auxiliary function to send an already constructed packet to the service.
580  * Takes care of creating a new queue element, copying the message and
581  * calling the tmt_rdy function if necessary.
582  *
583  * @param h mesh handle
584  * @param msg message to transmit
585  * @param channel channel this send is related to (NULL if N/A)
586  */
587 static void
588 send_packet (struct GNUNET_MESH_Handle *h,
589              const struct GNUNET_MessageHeader *msg,
590              struct GNUNET_MESH_Channel *channel);
591
592
593 /**
594  * Send an ack on the channel to confirm the processing of a message.
595  *
596  * @param ch Channel on which to send the ACK.
597  */
598 static void
599 send_ack (struct GNUNET_MESH_Channel *ch)
600 {
601   struct GNUNET_MESH_LocalAck msg;
602
603   LOG (GNUNET_ERROR_TYPE_DEBUG, "Sending ACK on channel %X\n", ch->chid);
604   msg.header.type = htons (GNUNET_MESSAGE_TYPE_MESH_LOCAL_ACK);
605   msg.header.size = htons (sizeof (msg));
606   msg.channel_id = htonl (ch->chid);
607
608   send_packet (ch->mesh, &msg.header, ch);
609   return;
610 }
611
612
613
614 /**
615  * Reconnect callback: tries to reconnect again after a failer previous
616  * reconnecttion
617  * @param cls closure (mesh handle)
618  * @param tc task context
619  */
620 static void
621 reconnect_cbk (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc);
622
623
624 /**
625  * Send a connect packet to the service with the applications and types
626  * requested by the user.
627  *
628  * @param h The mesh handle.
629  *
630  */
631 static void
632 send_connect (struct GNUNET_MESH_Handle *h)
633 {
634   size_t size;
635
636   size = sizeof (struct GNUNET_MESH_ClientConnect);
637   size += h->n_ports * sizeof (uint32_t);
638   {
639     char buf[size] GNUNET_ALIGN;
640     struct GNUNET_MESH_ClientConnect *msg;
641     uint32_t *ports;
642     uint16_t i;
643
644     /* build connection packet */
645     msg = (struct GNUNET_MESH_ClientConnect *) buf;
646     msg->header.type = htons (GNUNET_MESSAGE_TYPE_MESH_LOCAL_CONNECT);
647     msg->header.size = htons (size);
648     ports = (uint32_t *) &msg[1];
649     for (i = 0; i < h->n_ports; i++)
650     {
651       ports[i] = htonl (h->ports[i]);
652       LOG (GNUNET_ERROR_TYPE_DEBUG, " port %u\n",
653            h->ports[i]);
654     }
655     LOG (GNUNET_ERROR_TYPE_DEBUG,
656          "Sending %lu bytes long message with %u ports\n",
657          ntohs (msg->header.size), h->n_ports);
658     send_packet (h, &msg->header, NULL);
659   }
660 }
661
662
663 /**
664  * Reconnect to the service, retransmit all infomation to try to restore the
665  * original state.
666  *
667  * @param h handle to the mesh
668  *
669  * @return GNUNET_YES in case of sucess, GNUNET_NO otherwise (service down...)
670  */
671 static int
672 do_reconnect (struct GNUNET_MESH_Handle *h)
673 {
674   LOG (GNUNET_ERROR_TYPE_DEBUG, "*****************************\n");
675   LOG (GNUNET_ERROR_TYPE_DEBUG, "*******   RECONNECT   *******\n");
676   LOG (GNUNET_ERROR_TYPE_DEBUG, "*****************************\n");
677   LOG (GNUNET_ERROR_TYPE_DEBUG, "******** on %p *******\n", h);
678   LOG (GNUNET_ERROR_TYPE_DEBUG, "*****************************\n");
679
680   /* disconnect */
681   if (NULL != h->th)
682   {
683     GNUNET_CLIENT_notify_transmit_ready_cancel (h->th);
684     h->th = NULL;
685   }
686   if (NULL != h->client)
687   {
688     GNUNET_CLIENT_disconnect (h->client);
689   }
690
691   /* connect again */
692   h->client = GNUNET_CLIENT_connect ("mesh", h->cfg);
693   if (h->client == NULL)
694   {
695     h->reconnect_task = GNUNET_SCHEDULER_add_delayed (h->reconnect_time,
696                                                       &reconnect_cbk, h);
697     h->reconnect_time =
698         GNUNET_TIME_relative_min (GNUNET_TIME_UNIT_SECONDS,
699                                   GNUNET_TIME_relative_multiply
700                                   (h->reconnect_time, 2));
701     LOG (GNUNET_ERROR_TYPE_DEBUG, "Next retry in %s\n",
702          GNUNET_STRINGS_relative_time_to_string (h->reconnect_time,
703                                                  GNUNET_NO));
704     GNUNET_break (0);
705     return GNUNET_NO;
706   }
707   else
708   {
709     h->reconnect_time = GNUNET_TIME_UNIT_MILLISECONDS;
710   }
711   send_connect (h);
712   return GNUNET_YES;
713 }
714
715 /**
716  * Reconnect callback: tries to reconnect again after a failer previous
717  * reconnecttion
718  * @param cls closure (mesh handle)
719  * @param tc task context
720  */
721 static void
722 reconnect_cbk (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
723 {
724   struct GNUNET_MESH_Handle *h = cls;
725
726   h->reconnect_task = GNUNET_SCHEDULER_NO_TASK;
727   if (0 != (tc->reason & GNUNET_SCHEDULER_REASON_SHUTDOWN))
728     return;
729   do_reconnect (h);
730 }
731
732
733 /**
734  * Reconnect to the service, retransmit all infomation to try to restore the
735  * original state.
736  *
737  * @param h handle to the mesh
738  *
739  * @return GNUNET_YES in case of sucess, GNUNET_NO otherwise (service down...)
740  */
741 static void
742 reconnect (struct GNUNET_MESH_Handle *h)
743 {
744   struct GNUNET_MESH_Channel *ch;
745   struct GNUNET_MESH_Channel *next;
746
747   LOG (GNUNET_ERROR_TYPE_DEBUG,
748        "Requested RECONNECT, destroying all channels\n");
749   h->in_receive = GNUNET_NO;
750   for (ch = h->channels_head; NULL != ch; ch = next)
751   {
752     next = ch->next;
753     destroy_channel (ch, GNUNET_YES);
754   }
755   if (GNUNET_SCHEDULER_NO_TASK == h->reconnect_task)
756     h->reconnect_task = GNUNET_SCHEDULER_add_delayed (h->reconnect_time,
757                                                       &reconnect_cbk, h);
758 }
759
760
761 /******************************************************************************/
762 /***********************      RECEIVE HANDLERS     ****************************/
763 /******************************************************************************/
764
765 /**
766  * Process the new channel notification and add it to the channels in the handle
767  *
768  * @param h     The mesh handle
769  * @param msg   A message with the details of the new incoming channel
770  */
771 static void
772 process_channel_created (struct GNUNET_MESH_Handle *h,
773                         const struct GNUNET_MESH_ChannelMessage *msg)
774 {
775   struct GNUNET_MESH_Channel *ch;
776   MESH_ChannelNumber chid;
777   uint32_t port;
778
779   chid = ntohl (msg->channel_id);
780   port = ntohl (msg->port);
781   LOG (GNUNET_ERROR_TYPE_DEBUG, "Creating incoming channel %X:%u\n", chid, port);
782   if (chid < GNUNET_MESH_LOCAL_CHANNEL_ID_SERV)
783   {
784     GNUNET_break (0);
785     return;
786   }
787   if (NULL != h->new_channel)
788   {
789     void *ctx;
790
791     ch = create_channel (h, chid);
792     ch->allow_send = GNUNET_NO;
793     ch->peer = GNUNET_PEER_intern (&msg->peer);
794     ch->mesh = h;
795     ch->chid = chid;
796     ch->port = port;
797     ch->options = ntohl (msg->opt);
798
799     LOG (GNUNET_ERROR_TYPE_DEBUG, "  created channel %p\n", ch);
800     ctx = h->new_channel (h->cls, ch, &msg->peer, ch->port, ch->options);
801     if (NULL != ctx)
802       ch->ctx = ctx;
803     LOG (GNUNET_ERROR_TYPE_DEBUG, "User notified\n");
804   }
805   else
806   {
807     struct GNUNET_MESH_ChannelMessage d_msg;
808
809     LOG (GNUNET_ERROR_TYPE_DEBUG, "No handler for incoming channels\n");
810
811     d_msg.header.type = htons (GNUNET_MESSAGE_TYPE_MESH_CHANNEL_DESTROY);
812     d_msg.header.size = htons (sizeof (struct GNUNET_MESH_ChannelMessage));
813     d_msg.channel_id = msg->channel_id;
814     memset (&d_msg.peer, 0, sizeof (struct GNUNET_PeerIdentity));
815     d_msg.port = 0;
816     d_msg.opt = 0;
817
818     send_packet (h, &d_msg.header, NULL);
819   }
820   return;
821 }
822
823
824 /**
825  * Process the channel destroy notification and free associated resources
826  *
827  * @param h     The mesh handle
828  * @param msg   A message with the details of the channel being destroyed
829  */
830 static void
831 process_channel_destroy (struct GNUNET_MESH_Handle *h,
832                          const struct GNUNET_MESH_ChannelMessage *msg)
833 {
834   struct GNUNET_MESH_Channel *ch;
835   MESH_ChannelNumber chid;
836
837   LOG (GNUNET_ERROR_TYPE_DEBUG, "Channel Destroy received from service\n");
838   chid = ntohl (msg->channel_id);
839   ch = retrieve_channel (h, chid);
840
841   if (NULL == ch)
842   {
843     LOG (GNUNET_ERROR_TYPE_DEBUG, "channel %X unknown\n", chid);
844     return;
845   }
846   LOG (GNUNET_ERROR_TYPE_DEBUG, " destroying channel %X\n", ch->chid);
847   destroy_channel (ch, GNUNET_YES);
848 }
849
850
851 /**
852  * Process the incoming data packets, call appropriate handlers.
853  *
854  * @param h         The mesh handle
855  * @param message   A message encapsulating the data
856  */
857 static void
858 process_incoming_data (struct GNUNET_MESH_Handle *h,
859                        const struct GNUNET_MessageHeader *message)
860 {
861   const struct GNUNET_MessageHeader *payload;
862   const struct GNUNET_MESH_MessageHandler *handler;
863   struct GNUNET_MESH_LocalData *dmsg;
864   struct GNUNET_MESH_Channel *ch;
865   size_t size;
866   unsigned int i;
867   uint16_t type;
868
869   LOG (GNUNET_ERROR_TYPE_DEBUG, "Got a data message!\n");
870   dmsg = (struct GNUNET_MESH_LocalData *) message;
871   ch = retrieve_channel (h, ntohl (dmsg->id));
872   payload = (struct GNUNET_MessageHeader *) &dmsg[1];
873   LOG (GNUNET_ERROR_TYPE_DEBUG, "  %s data on channel %s [%X]\n",
874        GM_f2s (ch->chid >= GNUNET_MESH_LOCAL_CHANNEL_ID_SERV),
875        GNUNET_i2s (GNUNET_PEER_resolve2 (ch->peer)), ntohl (dmsg->id));
876
877   size = ntohs (message->size);
878   LOG (GNUNET_ERROR_TYPE_DEBUG, "  %u bytes\n", size);
879
880   if (NULL == ch)
881   {
882     /* Channel was ignored/destroyed, probably service didn't get it yet */
883     LOG (GNUNET_ERROR_TYPE_DEBUG, "  ignored!\n");
884     return;
885   }
886   type = ntohs (payload->type);
887   size = ntohs (payload->size);
888   LOG (GNUNET_ERROR_TYPE_DEBUG, "  payload type %s\n", GM_m2s (type));
889   for (i = 0; i < h->n_handlers; i++)
890   {
891     handler = &h->message_handlers[i];
892     LOG (GNUNET_ERROR_TYPE_DEBUG, "    checking handler for type %u\n",
893          handler->type);
894     if (handler->type == type)
895     {
896       if (GNUNET_OK !=
897           handler->callback (h->cls, ch, &ch->ctx, payload))
898       {
899         LOG (GNUNET_ERROR_TYPE_DEBUG, "callback caused disconnection\n");
900         GNUNET_MESH_channel_destroy (ch);
901         return;
902       }
903       else
904       {
905         LOG (GNUNET_ERROR_TYPE_DEBUG,
906              "callback completed successfully\n");
907         return;
908       }
909     }
910   }
911 }
912
913
914 /**
915  * Process a local ACK message, enabling the client to send
916  * more data to the service.
917  *
918  * @param h Mesh handle.
919  * @param message Message itself.
920  */
921 static void
922 process_ack (struct GNUNET_MESH_Handle *h,
923              const struct GNUNET_MessageHeader *message)
924 {
925   struct GNUNET_MESH_LocalAck *msg;
926   struct GNUNET_MESH_Channel *ch;
927   MESH_ChannelNumber chid;
928
929   LOG (GNUNET_ERROR_TYPE_DEBUG, "Got an ACK!\n");
930   msg = (struct GNUNET_MESH_LocalAck *) message;
931   chid = ntohl (msg->channel_id);
932   ch = retrieve_channel (h, chid);
933   if (NULL == ch)
934   {
935     LOG (GNUNET_ERROR_TYPE_DEBUG, "ACK on unknown channel %X\n", chid);
936     return;
937   }
938   LOG (GNUNET_ERROR_TYPE_DEBUG, "  on channel %X!\n", ch->chid);
939   ch->allow_send = GNUNET_YES;
940   if (NULL == h->th && 0 < ch->packet_size)
941   {
942     LOG (GNUNET_ERROR_TYPE_DEBUG, "  tmt rdy was NULL, requesting!\n");
943     h->th = GNUNET_CLIENT_notify_transmit_ready (h->client, ch->packet_size,
944                                                  GNUNET_TIME_UNIT_FOREVER_REL,
945                                                  GNUNET_YES, &send_callback, h);
946   }
947 }
948
949
950 /*
951  * Process a local reply about info on all channels, pass info to the user.
952  *
953  * @param h Mesh handle.
954  * @param message Message itself.
955  */
956 // static void
957 // process_get_channels (struct GNUNET_MESH_Handle *h,
958 //                      const struct GNUNET_MessageHeader *message)
959 // {
960 //   struct GNUNET_MESH_LocalInfo *msg;
961 //
962 //   GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Get Channels messasge received\n");
963 //
964 //   if (NULL == h->channels_cb)
965 //   {
966 //     GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "  ignored\n");
967 //     return;
968 //   }
969 //
970 //   msg = (struct GNUNET_MESH_LocalInfo *) message;
971 //   if (ntohs (message->size) !=
972 //       (sizeof (struct GNUNET_MESH_LocalInfo) +
973 //        sizeof (struct GNUNET_PeerIdentity)))
974 //   {
975 //     GNUNET_break_op (0);
976 //     GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
977 //                 "Get channels message: size %hu - expected %u\n",
978 //                 ntohs (message->size),
979 //                 sizeof (struct GNUNET_MESH_LocalInfo));
980 //     return;
981 //   }
982 //   h->channels_cb (h->channels_cls,
983 //                   ntohl (msg->channel_id),
984 //                   &msg->owner,
985 //                   &msg->destination);
986 // }
987
988
989
990 /*
991  * Process a local monitor_channel reply, pass info to the user.
992  *
993  * @param h Mesh handle.
994  * @param message Message itself.
995  */
996 // static void
997 // process_show_channel (struct GNUNET_MESH_Handle *h,
998 //                      const struct GNUNET_MessageHeader *message)
999 // {
1000 //   struct GNUNET_MESH_LocalInfo *msg;
1001 //   size_t esize;
1002 //
1003 //   GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Show Channel messasge received\n");
1004 //
1005 //   if (NULL == h->channel_cb)
1006 //   {
1007 //     GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "  ignored\n");
1008 //     return;
1009 //   }
1010 //
1011 //   /* Verify message sanity */
1012 //   msg = (struct GNUNET_MESH_LocalInfo *) message;
1013 //   esize = sizeof (struct GNUNET_MESH_LocalInfo);
1014 //   if (ntohs (message->size) != esize)
1015 //   {
1016 //     GNUNET_break_op (0);
1017 //     GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
1018 //                 "Show channel message: size %hu - expected %u\n",
1019 //                 ntohs (message->size),
1020 //                 esize);
1021 //
1022 //     h->channel_cb (h->channel_cls, NULL, NULL);
1023 //     h->channel_cb = NULL;
1024 //     h->channel_cls = NULL;
1025 //
1026 //     return;
1027 //   }
1028 //
1029 //   h->channel_cb (h->channel_cls,
1030 //                  &msg->destination,
1031 //                  &msg->owner);
1032 // }
1033
1034
1035
1036
1037 /*
1038  * Process a local reply about info on all tunnels, pass info to the user.
1039  *
1040  * @param h Mesh handle.
1041  * @param message Message itself.
1042  */
1043 static void
1044 process_get_tunnels (struct GNUNET_MESH_Handle *h,
1045                      const struct GNUNET_MessageHeader *message)
1046 {
1047   struct GNUNET_MESH_LocalInfoTunnel *msg;
1048   uint16_t size;
1049
1050   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Get Tunnels messasge received\n");
1051
1052   if (NULL == h->tunnels_cb)
1053   {
1054     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "  ignored\n");
1055     return;
1056   }
1057
1058   size = ntohs (message->size);
1059   if (sizeof (struct GNUNET_MESH_LocalInfoTunnel) > size)
1060   {
1061     h->tunnels_cb (h->tunnel_cls, NULL, 0, 0, 0, 0);
1062     h->tunnels_cb = NULL;
1063     h->tunnels_cls = NULL;
1064     return;
1065   }
1066
1067   msg = (struct GNUNET_MESH_LocalInfoTunnel *) message;
1068   h->tunnels_cb (h->tunnel_cls,
1069                  &msg->destination,
1070                  ntohl (msg->channels),
1071                  ntohl (msg->connections),
1072                  ntohs (msg->estate),
1073                  ntohs (msg->cstate));
1074
1075 }
1076
1077
1078
1079 /*
1080  * Process a local monitor_channel reply, pass info to the user.
1081  *
1082  * @param h Mesh handle.
1083  * @param message Message itself.
1084  */
1085 static void
1086 process_get_tunnel (struct GNUNET_MESH_Handle *h,
1087                     const struct GNUNET_MessageHeader *message)
1088 {
1089   struct GNUNET_MESH_LocalInfoTunnel *msg;
1090   size_t esize;
1091
1092   GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Get Tunnel messasge received\n");
1093
1094   if (NULL == h->tunnel_cb)
1095   {
1096     GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "  ignored\n");
1097     return;
1098   }
1099
1100   /* Verify message sanity */
1101   msg = (struct GNUNET_MESH_LocalInfoTunnel *) message;
1102   esize = sizeof (struct GNUNET_MESH_LocalInfo);
1103   if (ntohs (message->size) != esize)
1104   {
1105     GNUNET_break_op (0);
1106     GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
1107                 "Get Tunnel message: size %hu - expected %u\n",
1108                 ntohs (message->size),
1109                 esize);
1110
1111     h->tunnel_cb (h->tunnel_cls, NULL, 0, 0, 0, 0);
1112     h->tunnel_cb = NULL;
1113     h->tunnel_cls = NULL;
1114
1115     return;
1116   }
1117
1118   h->tunnel_cb (h->tunnel_cls,
1119                 &msg->destination,
1120                 ntohl (msg->channels),
1121                 ntohl (msg->connections),
1122                 ntohl (msg->estate),
1123                 ntohl (msg->cstate));
1124   h->tunnel_cb = NULL;
1125   h->tunnel_cls = NULL;
1126 }
1127
1128 /**
1129  * Function to process all messages received from the service
1130  *
1131  * @param cls closure
1132  * @param msg message received, NULL on timeout or fatal error
1133  */
1134 static void
1135 msg_received (void *cls, const struct GNUNET_MessageHeader *msg)
1136 {
1137   struct GNUNET_MESH_Handle *h = cls;
1138   uint16_t type;
1139
1140   if (msg == NULL)
1141   {
1142     LOG (GNUNET_ERROR_TYPE_DEBUG,
1143          "Mesh service disconnected, reconnecting\n", h);
1144     reconnect (h);
1145     return;
1146   }
1147   type = ntohs (msg->type);
1148   LOG (GNUNET_ERROR_TYPE_DEBUG, "\n");
1149   LOG (GNUNET_ERROR_TYPE_DEBUG, "Received a message: %s\n",
1150        GM_m2s (type));
1151   switch (type)
1152   {
1153     /* Notify of a new incoming channel */
1154   case GNUNET_MESSAGE_TYPE_MESH_CHANNEL_CREATE:
1155     process_channel_created (h, (struct GNUNET_MESH_ChannelMessage *) msg);
1156     break;
1157     /* Notify of a channel disconnection */
1158   case GNUNET_MESSAGE_TYPE_MESH_CHANNEL_DESTROY: /* TODO separate(gid problem)*/
1159   case GNUNET_MESSAGE_TYPE_MESH_CHANNEL_NACK:
1160     process_channel_destroy (h, (struct GNUNET_MESH_ChannelMessage *) msg);
1161     break;
1162   case GNUNET_MESSAGE_TYPE_MESH_LOCAL_DATA:
1163     process_incoming_data (h, msg);
1164     break;
1165   case GNUNET_MESSAGE_TYPE_MESH_LOCAL_ACK:
1166     process_ack (h, msg);
1167     break;
1168 //   case GNUNET_MESSAGE_TYPE_MESH_LOCAL_INFO_CHANNELS:
1169 //     process_get_channels (h, msg);
1170 //     break;
1171 //   case GNUNET_MESSAGE_TYPE_MESH_LOCAL_INFO_CHANNEL:
1172 //     process_show_channel (h, msg);
1173 //     break;
1174   case GNUNET_MESSAGE_TYPE_MESH_LOCAL_INFO_TUNNELS:
1175     process_get_tunnels (h, msg);
1176     break;
1177   case GNUNET_MESSAGE_TYPE_MESH_LOCAL_INFO_TUNNEL:
1178     process_get_tunnel (h, msg);
1179     break;
1180 //   case GNUNET_MESSAGE_TYPE_MESH_LOCAL_INFO_CHANNEL:
1181 //     process_show_channel (h, msg);
1182 //     break;
1183   default:
1184     /* We shouldn't get any other packages, log and ignore */
1185     LOG (GNUNET_ERROR_TYPE_WARNING,
1186          "unsolicited message form service (type %s)\n",
1187          GM_m2s (ntohs (msg->type)));
1188   }
1189   LOG (GNUNET_ERROR_TYPE_DEBUG, "message processed\n");
1190   if (GNUNET_YES == h->in_receive)
1191   {
1192     GNUNET_CLIENT_receive (h->client, &msg_received, h,
1193                            GNUNET_TIME_UNIT_FOREVER_REL);
1194   }
1195   else
1196   {
1197     LOG (GNUNET_ERROR_TYPE_DEBUG,
1198          "in receive off, not calling CLIENT_receive\n");
1199   }
1200 }
1201
1202
1203 /******************************************************************************/
1204 /************************       SEND FUNCTIONS     ****************************/
1205 /******************************************************************************/
1206
1207 /**
1208  * Function called to send a message to the service.
1209  * "buf" will be NULL and "size" zero if the socket was closed for writing in
1210  * the meantime.
1211  *
1212  * @param cls closure, the mesh handle
1213  * @param size number of bytes available in buf
1214  * @param buf where the callee should write the connect message
1215  * @return number of bytes written to buf
1216  */
1217 static size_t
1218 send_callback (void *cls, size_t size, void *buf)
1219 {
1220   struct GNUNET_MESH_Handle *h = cls;
1221   struct GNUNET_MESH_TransmitHandle *th;
1222   struct GNUNET_MESH_TransmitHandle *next;
1223   struct GNUNET_MESH_Channel *ch;
1224   char *cbuf = buf;
1225   size_t tsize;
1226   size_t psize;
1227   size_t nsize;
1228
1229   LOG (GNUNET_ERROR_TYPE_DEBUG, "\n");
1230   LOG (GNUNET_ERROR_TYPE_DEBUG, "# Send packet() Buffer %u\n", size);
1231   if ((0 == size) || (NULL == buf))
1232   {
1233     LOG (GNUNET_ERROR_TYPE_DEBUG, "# Received NULL send callback on %p\n", h);
1234     reconnect (h);
1235     h->th = NULL;
1236     return 0;
1237   }
1238   tsize = 0;
1239   next = h->th_head;
1240   nsize = message_ready_size (h);
1241   while ((NULL != (th = next)) && (0 < nsize) && (size >= nsize))
1242   {
1243     ch = th->channel;
1244     if (GNUNET_YES == th_is_payload (th))
1245     {
1246       struct GNUNET_MESH_LocalData *dmsg;
1247       struct GNUNET_MessageHeader *mh;
1248
1249       LOG (GNUNET_ERROR_TYPE_DEBUG, "#  payload\n");
1250       if (GNUNET_NO == ch->allow_send)
1251       {
1252         /* This channel is not ready to transmit yet, try next message */
1253         next = th->next;
1254         continue;
1255       }
1256       ch->packet_size = 0;
1257       GNUNET_assert (size >= th->size);
1258       dmsg = (struct GNUNET_MESH_LocalData *) cbuf;
1259       mh = (struct GNUNET_MessageHeader *) &dmsg[1];
1260       psize = th->notify (th->notify_cls,
1261                           size - sizeof (struct GNUNET_MESH_LocalData),
1262                           mh);
1263       if (psize > 0)
1264       {
1265         psize += sizeof (struct GNUNET_MESH_LocalData);
1266         GNUNET_assert (size >= psize);
1267         dmsg->header.size = htons (psize);
1268         dmsg->id = htonl (ch->chid);
1269         dmsg->header.type = htons (GNUNET_MESSAGE_TYPE_MESH_LOCAL_DATA);
1270         LOG (GNUNET_ERROR_TYPE_DEBUG, "#  payload type %s\n",
1271              GM_m2s (ntohs (mh->type)));
1272                 ch->allow_send = GNUNET_NO;
1273       }
1274       else
1275       {
1276         LOG (GNUNET_ERROR_TYPE_DEBUG,
1277              "#  callback returned size 0, "
1278              "application canceled transmission\n");
1279       }
1280     }
1281     else
1282     {
1283       struct GNUNET_MessageHeader *mh = (struct GNUNET_MessageHeader *) &th[1];
1284
1285       LOG (GNUNET_ERROR_TYPE_DEBUG, "#  mesh internal traffic, type %s\n",
1286            GM_m2s (ntohs (mh->type)));
1287       memcpy (cbuf, &th[1], th->size);
1288       psize = th->size;
1289     }
1290     if (th->timeout_task != GNUNET_SCHEDULER_NO_TASK)
1291       GNUNET_SCHEDULER_cancel (th->timeout_task);
1292     GNUNET_CONTAINER_DLL_remove (h->th_head, h->th_tail, th);
1293     GNUNET_free (th);
1294     next = h->th_head;
1295     nsize = message_ready_size (h);
1296     cbuf += psize;
1297     size -= psize;
1298     tsize += psize;
1299   }
1300   LOG (GNUNET_ERROR_TYPE_DEBUG, "#  total size: %u\n", tsize);
1301   h->th = NULL;
1302   size = message_ready_size (h);
1303   if (0 != size)
1304   {
1305     LOG (GNUNET_ERROR_TYPE_DEBUG, "#  next size: %u\n", size);
1306     h->th =
1307         GNUNET_CLIENT_notify_transmit_ready (h->client, size,
1308                                              GNUNET_TIME_UNIT_FOREVER_REL,
1309                                              GNUNET_YES, &send_callback, h);
1310   }
1311   else
1312   {
1313     if (NULL != h->th_head)
1314       LOG (GNUNET_ERROR_TYPE_DEBUG, "#  can't transmit any more\n");
1315     else
1316       LOG (GNUNET_ERROR_TYPE_DEBUG, "#  nothing left to transmit\n");
1317   }
1318   if (GNUNET_NO == h->in_receive)
1319   {
1320     LOG (GNUNET_ERROR_TYPE_DEBUG, "# start receiving from service\n");
1321     h->in_receive = GNUNET_YES;
1322     GNUNET_CLIENT_receive (h->client, &msg_received, h,
1323                            GNUNET_TIME_UNIT_FOREVER_REL);
1324   }
1325   LOG (GNUNET_ERROR_TYPE_DEBUG, "# Send packet() END\n");
1326   return tsize;
1327 }
1328
1329
1330 /**
1331  * Auxiliary function to send an already constructed packet to the service.
1332  * Takes care of creating a new queue element, copying the message and
1333  * calling the tmt_rdy function if necessary.
1334  *
1335  * @param h mesh handle
1336  * @param msg message to transmit
1337  * @param channel channel this send is related to (NULL if N/A)
1338  */
1339 static void
1340 send_packet (struct GNUNET_MESH_Handle *h,
1341              const struct GNUNET_MessageHeader *msg,
1342              struct GNUNET_MESH_Channel *channel)
1343 {
1344   struct GNUNET_MESH_TransmitHandle *th;
1345   size_t msize;
1346
1347   LOG (GNUNET_ERROR_TYPE_DEBUG, " Sending message to service: %s\n",
1348        GM_m2s(ntohs(msg->type)));
1349   msize = ntohs (msg->size);
1350   th = GNUNET_malloc (sizeof (struct GNUNET_MESH_TransmitHandle) + msize);
1351   th->timeout = GNUNET_TIME_UNIT_FOREVER_ABS;
1352   th->size = msize;
1353   th->channel = channel;
1354   memcpy (&th[1], msg, msize);
1355   add_to_queue (h, th);
1356   LOG (GNUNET_ERROR_TYPE_DEBUG, "  queued\n");
1357   if (NULL != h->th)
1358     return;
1359   LOG (GNUNET_ERROR_TYPE_DEBUG, "  calling ntfy tmt rdy for %u bytes\n", msize);
1360   h->th =
1361       GNUNET_CLIENT_notify_transmit_ready (h->client, msize,
1362                                            GNUNET_TIME_UNIT_FOREVER_REL,
1363                                            GNUNET_YES, &send_callback, h);
1364 }
1365
1366
1367 /******************************************************************************/
1368 /**********************      API CALL DEFINITIONS     *************************/
1369 /******************************************************************************/
1370
1371 struct GNUNET_MESH_Handle *
1372 GNUNET_MESH_connect (const struct GNUNET_CONFIGURATION_Handle *cfg, void *cls,
1373                      GNUNET_MESH_InboundChannelNotificationHandler new_channel,
1374                      GNUNET_MESH_ChannelEndHandler cleaner,
1375                      const struct GNUNET_MESH_MessageHandler *handlers,
1376                      const uint32_t *ports)
1377 {
1378   struct GNUNET_MESH_Handle *h;
1379
1380   LOG (GNUNET_ERROR_TYPE_DEBUG, "GNUNET_MESH_connect()\n");
1381   h = GNUNET_new (struct GNUNET_MESH_Handle);
1382   LOG (GNUNET_ERROR_TYPE_DEBUG, " addr %p\n", h);
1383   h->cfg = cfg;
1384   h->new_channel = new_channel;
1385   h->cleaner = cleaner;
1386   h->client = GNUNET_CLIENT_connect ("mesh", cfg);
1387   if (h->client == NULL)
1388   {
1389     GNUNET_break (0);
1390     GNUNET_free (h);
1391     return NULL;
1392   }
1393   h->cls = cls;
1394   h->message_handlers = handlers;
1395   h->ports = ports;
1396   h->next_chid = GNUNET_MESH_LOCAL_CHANNEL_ID_CLI;
1397   h->reconnect_time = GNUNET_TIME_UNIT_MILLISECONDS;
1398   h->reconnect_task = GNUNET_SCHEDULER_NO_TASK;
1399
1400   if (NULL != ports && ports[0] != 0 && NULL == new_channel)
1401   {
1402     GNUNET_break (0);
1403     LOG (GNUNET_ERROR_TYPE_DEBUG,
1404          "no new channel handler given, ports parameter is useless!!\n");
1405   }
1406   if ((NULL == ports || ports[0] == 0) && NULL != new_channel)
1407   {
1408     GNUNET_break (0);
1409     LOG (GNUNET_ERROR_TYPE_DEBUG,
1410          "no ports given, new channel handler will never be called!!\n");
1411   }
1412   /* count handlers */
1413   for (h->n_handlers = 0;
1414        handlers && handlers[h->n_handlers].type;
1415        h->n_handlers++) ;
1416   for (h->n_ports = 0;
1417        ports && ports[h->n_ports];
1418        h->n_ports++) ;
1419   send_connect (h);
1420   LOG (GNUNET_ERROR_TYPE_DEBUG, "GNUNET_MESH_connect() END\n");
1421   return h;
1422 }
1423
1424
1425 void
1426 GNUNET_MESH_disconnect (struct GNUNET_MESH_Handle *handle)
1427 {
1428   struct GNUNET_MESH_Channel *ch;
1429   struct GNUNET_MESH_Channel *aux;
1430   struct GNUNET_MESH_TransmitHandle *th;
1431
1432   LOG (GNUNET_ERROR_TYPE_DEBUG, "MESH DISCONNECT\n");
1433
1434   ch = handle->channels_head;
1435   while (NULL != ch)
1436   {
1437     aux = ch->next;
1438     if (ch->chid < GNUNET_MESH_LOCAL_CHANNEL_ID_SERV)
1439     {
1440       GNUNET_break (0);
1441       LOG (GNUNET_ERROR_TYPE_DEBUG, "channel %X not destroyed\n", ch->chid);
1442     }
1443     destroy_channel (ch, GNUNET_YES);
1444     ch = aux;
1445   }
1446   while ( (th = handle->th_head) != NULL)
1447   {
1448     struct GNUNET_MessageHeader *msg;
1449
1450     /* Make sure it is an allowed packet (everything else should have been
1451      * already canceled).
1452      */
1453     GNUNET_break (GNUNET_NO == th_is_payload (th));
1454     msg = (struct GNUNET_MessageHeader *) &th[1];
1455     switch (ntohs(msg->type))
1456     {
1457       case GNUNET_MESSAGE_TYPE_MESH_LOCAL_CONNECT:
1458       case GNUNET_MESSAGE_TYPE_MESH_CHANNEL_CREATE:
1459       case GNUNET_MESSAGE_TYPE_MESH_CHANNEL_DESTROY:
1460       case GNUNET_MESSAGE_TYPE_MESH_LOCAL_INFO_CHANNELS:
1461       case GNUNET_MESSAGE_TYPE_MESH_LOCAL_INFO_CHANNEL:
1462       case GNUNET_MESSAGE_TYPE_MESH_LOCAL_INFO_TUNNEL:
1463       case GNUNET_MESSAGE_TYPE_MESH_LOCAL_INFO_TUNNELS:
1464         break;
1465       default:
1466         GNUNET_break (0);
1467         LOG (GNUNET_ERROR_TYPE_ERROR, "unexpected msg %u\n",
1468              ntohs(msg->type));
1469     }
1470
1471     GNUNET_CONTAINER_DLL_remove (handle->th_head, handle->th_tail, th);
1472     GNUNET_free (th);
1473   }
1474
1475   if (NULL != handle->th)
1476   {
1477     GNUNET_CLIENT_notify_transmit_ready_cancel (handle->th);
1478     handle->th = NULL;
1479   }
1480   if (NULL != handle->client)
1481   {
1482     GNUNET_CLIENT_disconnect (handle->client);
1483     handle->client = NULL;
1484   }
1485   if (GNUNET_SCHEDULER_NO_TASK != handle->reconnect_task)
1486   {
1487     GNUNET_SCHEDULER_cancel(handle->reconnect_task);
1488     handle->reconnect_task = GNUNET_SCHEDULER_NO_TASK;
1489   }
1490   GNUNET_free (handle);
1491 }
1492
1493
1494 /**
1495  * Create a new channel towards a remote peer.
1496  *
1497  * If the destination port is not open by any peer or the destination peer
1498  * does not accept the channel, #GNUNET_MESH_ChannelEndHandler will be called
1499  * for this channel.
1500  *
1501  * @param h mesh handle
1502  * @param channel_ctx client's channel context to associate with the channel
1503  * @param peer peer identity the channel should go to
1504  * @param port Port number.
1505  * @param options MeshOption flag field, with all desired option bits set to 1.
1506  *
1507  * @return handle to the channel
1508  */
1509 struct GNUNET_MESH_Channel *
1510 GNUNET_MESH_channel_create (struct GNUNET_MESH_Handle *h,
1511                             void *channel_ctx,
1512                             const struct GNUNET_PeerIdentity *peer,
1513                             uint32_t port,
1514                             enum GNUNET_MESH_ChannelOption options)
1515 {
1516   struct GNUNET_MESH_Channel *ch;
1517   struct GNUNET_MESH_ChannelMessage msg;
1518
1519   LOG (GNUNET_ERROR_TYPE_DEBUG,
1520        "Creating new channel to %s:%u\n",
1521        GNUNET_i2s (peer), port);
1522   ch = create_channel (h, 0);
1523   LOG (GNUNET_ERROR_TYPE_DEBUG, "  at %p\n", ch);
1524   LOG (GNUNET_ERROR_TYPE_DEBUG, "  number %X\n", ch->chid);
1525   ch->ctx = channel_ctx;
1526   ch->peer = GNUNET_PEER_intern (peer);
1527   msg.header.type = htons (GNUNET_MESSAGE_TYPE_MESH_CHANNEL_CREATE);
1528   msg.header.size = htons (sizeof (struct GNUNET_MESH_ChannelMessage));
1529   msg.channel_id = htonl (ch->chid);
1530   msg.port = htonl (port);
1531   msg.peer = *peer;
1532   msg.opt = htonl (options);
1533   ch->allow_send = 0;
1534   send_packet (h, &msg.header, ch);
1535   return ch;
1536 }
1537
1538
1539 void
1540 GNUNET_MESH_channel_destroy (struct GNUNET_MESH_Channel *channel)
1541 {
1542   struct GNUNET_MESH_Handle *h;
1543   struct GNUNET_MESH_ChannelMessage msg;
1544   struct GNUNET_MESH_TransmitHandle *th;
1545
1546   LOG (GNUNET_ERROR_TYPE_DEBUG, "Destroying channel\n");
1547   h = channel->mesh;
1548
1549   msg.header.type = htons (GNUNET_MESSAGE_TYPE_MESH_CHANNEL_DESTROY);
1550   msg.header.size = htons (sizeof (struct GNUNET_MESH_ChannelMessage));
1551   msg.channel_id = htonl (channel->chid);
1552   memset (&msg.peer, 0, sizeof (struct GNUNET_PeerIdentity));
1553   msg.port = 0;
1554   msg.opt = 0;
1555   th = h->th_head;
1556   while (th != NULL)
1557   {
1558     struct GNUNET_MESH_TransmitHandle *aux;
1559     if (th->channel == channel)
1560     {
1561       aux = th->next;
1562       /* FIXME call the handler? */
1563       if (GNUNET_YES == th_is_payload (th))
1564         th->notify (th->notify_cls, 0, NULL);
1565       GNUNET_CONTAINER_DLL_remove (h->th_head, h->th_tail, th);
1566       GNUNET_free (th);
1567       th = aux;
1568     }
1569     else
1570       th = th->next;
1571   }
1572
1573   destroy_channel (channel, GNUNET_YES);
1574   send_packet (h, &msg.header, NULL);
1575 }
1576
1577
1578 /**
1579  * Get information about a channel.
1580  *
1581  * @param channel Channel handle.
1582  * @param option Query (GNUNET_MESH_OPTION_*).
1583  * @param ... dependant on option, currently not used
1584  *
1585  * @return Union with an answer to the query.
1586  */
1587 const union GNUNET_MESH_ChannelInfo *
1588 GNUNET_MESH_channel_get_info (struct GNUNET_MESH_Channel *channel,
1589                               enum GNUNET_MESH_ChannelOption option, ...)
1590 {
1591   static int bool_flag;
1592   const union GNUNET_MESH_ChannelInfo *ret;
1593
1594   switch (option)
1595   {
1596     case GNUNET_MESH_OPTION_NOBUFFER:
1597     case GNUNET_MESH_OPTION_RELIABLE:
1598     case GNUNET_MESH_OPTION_OOORDER:
1599       if (0 != (option & channel->options))
1600         bool_flag = GNUNET_YES;
1601       else
1602         bool_flag = GNUNET_NO;
1603       ret = (const union GNUNET_MESH_ChannelInfo *) &bool_flag;
1604       break;
1605     case GNUNET_MESH_OPTION_PEER:
1606       ret = (const union GNUNET_MESH_ChannelInfo *) GNUNET_PEER_resolve2 (channel->peer);
1607       break;
1608     default:
1609       GNUNET_break (0);
1610       return NULL;
1611   }
1612
1613   return ret;
1614 }
1615
1616 struct GNUNET_MESH_TransmitHandle *
1617 GNUNET_MESH_notify_transmit_ready (struct GNUNET_MESH_Channel *channel, int cork,
1618                                    struct GNUNET_TIME_Relative maxdelay,
1619                                    size_t notify_size,
1620                                    GNUNET_CONNECTION_TransmitReadyNotify notify,
1621                                    void *notify_cls)
1622 {
1623   struct GNUNET_MESH_TransmitHandle *th;
1624
1625   GNUNET_assert (NULL != channel);
1626   LOG (GNUNET_ERROR_TYPE_DEBUG, "MESH NOTIFY TRANSMIT READY\n");
1627   LOG (GNUNET_ERROR_TYPE_DEBUG, "    on channel %X\n", channel->chid);
1628   LOG (GNUNET_ERROR_TYPE_DEBUG, "    allow_send %d\n", channel->allow_send);
1629   if (channel->chid >= GNUNET_MESH_LOCAL_CHANNEL_ID_SERV)
1630     LOG (GNUNET_ERROR_TYPE_DEBUG, "    to origin\n");
1631   else
1632     LOG (GNUNET_ERROR_TYPE_DEBUG, "    to destination\n");
1633   LOG (GNUNET_ERROR_TYPE_DEBUG, "    payload size %u\n", notify_size);
1634   GNUNET_assert (NULL != notify);
1635   GNUNET_assert (0 == channel->packet_size); // Only one data packet allowed
1636   th = GNUNET_new (struct GNUNET_MESH_TransmitHandle);
1637   th->channel = channel;
1638   th->timeout = GNUNET_TIME_relative_to_absolute (maxdelay);
1639   th->size = notify_size + sizeof (struct GNUNET_MESH_LocalData);
1640   channel->packet_size = th->size;
1641   LOG (GNUNET_ERROR_TYPE_DEBUG, "    total size %u\n", th->size);
1642   th->notify = notify;
1643   th->notify_cls = notify_cls;
1644   add_to_queue (channel->mesh, th);
1645   if (NULL != channel->mesh->th)
1646     return th;
1647   if (GNUNET_NO == channel->allow_send)
1648     return th;
1649   LOG (GNUNET_ERROR_TYPE_DEBUG, "    call client notify tmt rdy\n");
1650   channel->mesh->th =
1651       GNUNET_CLIENT_notify_transmit_ready (channel->mesh->client, th->size,
1652                                            GNUNET_TIME_UNIT_FOREVER_REL,
1653                                            GNUNET_YES, &send_callback,
1654                                            channel->mesh);
1655   LOG (GNUNET_ERROR_TYPE_DEBUG, "MESH NOTIFY TRANSMIT READY END\n");
1656   return th;
1657 }
1658
1659
1660 void
1661 GNUNET_MESH_notify_transmit_ready_cancel (struct GNUNET_MESH_TransmitHandle *th)
1662 {
1663   struct GNUNET_MESH_Handle *mesh;
1664
1665   th->channel->packet_size = 0;
1666   mesh = th->channel->mesh;
1667   if (th->timeout_task != GNUNET_SCHEDULER_NO_TASK)
1668     GNUNET_SCHEDULER_cancel (th->timeout_task);
1669   GNUNET_CONTAINER_DLL_remove (mesh->th_head, mesh->th_tail, th);
1670   GNUNET_free (th);
1671   if ((0 == message_ready_size (mesh)) && (NULL != mesh->th))
1672   {
1673     /* queue empty, no point in asking for transmission */
1674     GNUNET_CLIENT_notify_transmit_ready_cancel (mesh->th);
1675     mesh->th = NULL;
1676   }
1677 }
1678
1679
1680 void
1681 GNUNET_MESH_receive_done (struct GNUNET_MESH_Channel *channel)
1682 {
1683   send_ack (channel);
1684 }
1685
1686
1687 static void
1688 send_info_request (struct GNUNET_MESH_Handle *h, uint16_t type)
1689 {
1690   struct GNUNET_MessageHeader msg;
1691
1692   msg.size = htons (sizeof (msg));
1693   msg.type = htons (type);
1694   send_packet (h, &msg, NULL);
1695 }
1696
1697 /**
1698  * Request information about the running mesh peer.
1699  * The callback will be called for every channel known to the service,
1700  * listing all active peers that blong to the channel.
1701  *
1702  * If called again on the same handle, it will overwrite the previous
1703  * callback and cls. To retrieve the cls, monitor_cancel must be
1704  * called first.
1705  *
1706  * WARNING: unstable API, likely to change in the future!
1707  *
1708  * @param h Handle to the mesh peer.
1709  * @param callback Function to call with the requested data.
1710  * @param callback_cls Closure for @c callback.
1711  */
1712 void
1713 GNUNET_MESH_get_channels (struct GNUNET_MESH_Handle *h,
1714                          GNUNET_MESH_ChannelsCB callback,
1715                          void *callback_cls)
1716 {
1717   send_info_request (h, GNUNET_MESSAGE_TYPE_MESH_LOCAL_INFO_CHANNELS);
1718   h->channels_cb = callback;
1719   h->channels_cls = callback_cls;
1720 }
1721
1722
1723 /**
1724  * Cancel a monitor request. The monitor callback will not be called.
1725  *
1726  * WARNING: unstable API, likely to change in the future!
1727  *
1728  * @param h Mesh handle.
1729  *
1730  * @return Closure given to GNUNET_MESH_monitor, if any.
1731  */
1732 void *
1733 GNUNET_MESH_get_channels_cancel (struct GNUNET_MESH_Handle *h)
1734 {
1735   void *cls;
1736
1737   cls = h->channels_cls;
1738   h->channels_cb = NULL;
1739   h->channels_cls = NULL;
1740   return cls;
1741 }
1742
1743
1744 /**
1745  * Request information about the running mesh peer.
1746  * The callback will be called for every peer known to the service.
1747  *
1748  * If called again on the same handle, it will overwrite the previous
1749  * callback and cls. To retrieve the cls, monitor_cancel must be
1750  * called first.
1751  *
1752  * WARNING: unstable API, likely to change in the future!
1753  *
1754  * @param h Handle to the mesh peer.
1755  * @param callback Function to call with the requested data.
1756  * @param callback_cls Closure for @c callback.
1757  */
1758 void
1759 GNUNET_MESH_get_peers (struct GNUNET_MESH_Handle *h,
1760                        GNUNET_MESH_PeersCB callback,
1761                        void *callback_cls)
1762 {
1763   send_info_request (h, GNUNET_MESSAGE_TYPE_MESH_LOCAL_INFO_PEERS);
1764   h->peers_cb = callback;
1765   h->peers_cls = callback_cls;
1766 }
1767
1768
1769
1770 /**
1771  * Request information about the running mesh peer.
1772  * The callback will be called for every tunnel known to the service.
1773  *
1774  * If called again on the same handle, it will overwrite the previous
1775  * callback and cls. To retrieve the cls, monitor_cancel must be
1776  * called first.
1777  *
1778  * WARNING: unstable API, likely to change in the future!
1779  *
1780  * @param h Handle to the mesh peer.
1781  * @param callback Function to call with the requested data.
1782  * @param callback_cls Closure for @c callback.
1783  */
1784 void
1785 GNUNET_MESH_get_tunnels (struct GNUNET_MESH_Handle *h,
1786                          GNUNET_MESH_TunnelsCB callback,
1787                          void *callback_cls)
1788 {
1789   send_info_request (h, GNUNET_MESSAGE_TYPE_MESH_LOCAL_INFO_TUNNELS);
1790   h->tunnels_cb = callback;
1791   h->tunnels_cls = callback_cls;
1792 }
1793
1794
1795 /**
1796  * Cancel a monitor request. The monitor callback will not be called.
1797  *
1798  * @param h Mesh handle.
1799  *
1800  * @return Closure given to GNUNET_MESH_monitor, if any.
1801  */
1802 void *
1803 GNUNET_MESH_get_tunnels_cancel (struct GNUNET_MESH_Handle *h)
1804 {
1805   void *cls;
1806
1807   h->tunnels_cb = NULL;
1808   cls = h->tunnels_cls;
1809   h->tunnels_cls = NULL;
1810
1811   return cls;
1812 }
1813
1814
1815
1816 /**
1817  * Request information about the running mesh peer.
1818  * The callback will be called for every channel known to the service,
1819  * listing all active peers that blong to the channel.
1820  *
1821  * If called again on the same handle, it will overwrite the previous
1822  * callback and cls. To retrieve the cls, monitor_cancel must be
1823  * called first.
1824  *
1825  * WARNING: unstable API, likely to change in the future!
1826  *
1827  * @param h Handle to the mesh peer.
1828  * @param callback Function to call with the requested data.
1829  * @param callback_cls Closure for @c callback.
1830  */
1831 void
1832 GNUNET_MESH_get_tunnel (struct GNUNET_MESH_Handle *h,
1833                         const struct GNUNET_PeerIdentity *id,
1834                         GNUNET_MESH_TunnelCB callback,
1835                         void *callback_cls)
1836 {
1837   struct GNUNET_MESH_LocalInfo msg;
1838
1839   memset (&msg, 0, sizeof (msg));
1840   msg.header.size = htons (sizeof (msg));
1841   msg.header.type = htons (GNUNET_MESSAGE_TYPE_MESH_LOCAL_INFO_TUNNEL);
1842   msg.peer = *id;
1843   send_packet (h, &msg.header, NULL);
1844   h->tunnel_cb = callback;
1845   h->tunnel_cls = callback_cls;
1846 }
1847
1848
1849 /**
1850  * Request information about a specific channel of the running mesh peer.
1851  *
1852  * WARNING: unstable API, likely to change in the future!
1853  * FIXME Add destination option.
1854  *
1855  * @param h Handle to the mesh peer.
1856  * @param initiator ID of the owner of the channel.
1857  * @param channel_number Channel number.
1858  * @param callback Function to call with the requested data.
1859  * @param callback_cls Closure for @c callback.
1860  */
1861 void
1862 GNUNET_MESH_show_channel (struct GNUNET_MESH_Handle *h,
1863                          struct GNUNET_PeerIdentity *initiator,
1864                          unsigned int channel_number,
1865                          GNUNET_MESH_ChannelCB callback,
1866                          void *callback_cls)
1867 {
1868   struct GNUNET_MESH_LocalInfo msg;
1869
1870   msg.header.size = htons (sizeof (msg));
1871   msg.header.type = htons (GNUNET_MESSAGE_TYPE_MESH_LOCAL_INFO_CHANNEL);
1872   msg.peer = *initiator;
1873   msg.channel_id = htonl (channel_number);
1874 //   msg.reserved = 0;
1875   send_packet (h, &msg.header, NULL);
1876   h->channel_cb = callback;
1877   h->channel_cls = callback_cls;
1878 }
1879
1880
1881 /**
1882  * Function called to notify a client about the connection
1883  * begin ready to queue more data.  "buf" will be
1884  * NULL and "size" zero if the connection was closed for
1885  * writing in the meantime.
1886  *
1887  * @param cls closure
1888  * @param size number of bytes available in buf
1889  * @param buf where the callee should write the message
1890  * @return number of bytes written to buf
1891  */
1892 static size_t
1893 mesh_mq_ntr (void *cls, size_t size,
1894              void *buf)
1895 {
1896   struct GNUNET_MQ_Handle *mq = cls;
1897   struct MeshMQState *state = GNUNET_MQ_impl_state (mq);
1898   const struct GNUNET_MessageHeader *msg = GNUNET_MQ_impl_current (mq);
1899   uint16_t msize;
1900
1901   state->th = NULL;
1902   if (NULL == buf)
1903   {
1904     GNUNET_MQ_inject_error (mq, GNUNET_MQ_ERROR_WRITE);
1905     return 0;
1906   }
1907   msize = ntohs (msg->size);
1908   GNUNET_assert (msize <= size);
1909   memcpy (buf, msg, msize);
1910   GNUNET_MQ_impl_send_continue (mq);
1911   return msize;
1912 }
1913
1914
1915 /**
1916  * Signature of functions implementing the
1917  * sending functionality of a message queue.
1918  *
1919  * @param mq the message queue
1920  * @param msg the message to send
1921  * @param impl_state state of the implementation
1922  */
1923 static void
1924 mesh_mq_send_impl (struct GNUNET_MQ_Handle *mq,
1925                    const struct GNUNET_MessageHeader *msg, void *impl_state)
1926 {
1927   struct MeshMQState *state = impl_state;
1928
1929   GNUNET_assert (NULL == state->th);
1930   state->th =
1931       GNUNET_MESH_notify_transmit_ready (state->channel,
1932                                          /* FIXME: add option for corking */
1933                                          GNUNET_NO,
1934                                          GNUNET_TIME_UNIT_FOREVER_REL,
1935                                          ntohs (msg->size),
1936                                          mesh_mq_ntr, mq);
1937
1938 }
1939
1940
1941 /**
1942  * Signature of functions implementing the
1943  * destruction of a message queue.
1944  * Implementations must not free 'mq', but should
1945  * take care of 'impl_state'.
1946  *
1947  * @param mq the message queue to destroy
1948  * @param impl_state state of the implementation
1949  */
1950 static void
1951 mesh_mq_destroy_impl (struct GNUNET_MQ_Handle *mq, void *impl_state)
1952 {
1953   struct MeshMQState *state = impl_state;
1954
1955   if (NULL != state->th)
1956     GNUNET_MESH_notify_transmit_ready_cancel (state->th);
1957
1958   GNUNET_free (state);
1959 }
1960
1961
1962 /**
1963  * Create a message queue for a mesh channel.
1964  * The message queue can only be used to transmit messages,
1965  * not to receive them.
1966  *
1967  * @param channel the channel to create the message qeue for
1968  * @return a message queue to messages over the channel
1969  */
1970 struct GNUNET_MQ_Handle *
1971 GNUNET_MESH_mq_create (struct GNUNET_MESH_Channel *channel)
1972 {
1973   struct GNUNET_MQ_Handle *mq;
1974   struct MeshMQState *state;
1975
1976   state = GNUNET_new (struct MeshMQState);
1977   state->channel = channel;
1978
1979   mq = GNUNET_MQ_queue_for_callbacks (mesh_mq_send_impl,
1980                                       mesh_mq_destroy_impl,
1981                                       NULL, /* FIXME: cancel impl. */
1982                                       state,
1983                                       NULL, /* no msg handlers */
1984                                       NULL, /* no err handlers */
1985                                       NULL); /* no handler cls */
1986   return mq;
1987 }
1988