fix
[oweals/gnunet.git] / src / ats / ats_api_scheduling.c
1 /*
2      This file is part of GNUnet.
3      (C) 2010,2011 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  * @file ats/ats_api_scheduling.c
22  * @brief automatic transport selection and outbound bandwidth determination
23  * @author Christian Grothoff
24  * @author Matthias Wachs
25  */
26 #include "platform.h"
27 #include "gnunet_ats_service.h"
28 #include "ats.h"
29
30
31 /**
32  * Message in linked list we should send to the ATS service.  The
33  * actual binary message follows this struct.
34  */
35 struct PendingMessage
36 {
37
38   /**
39    * Kept in a DLL.
40    */ 
41   struct PendingMessage *next;
42
43   /**
44    * Kept in a DLL.
45    */ 
46   struct PendingMessage *prev;
47
48   /**
49    * Size of the message.
50    */
51   size_t size;
52
53   /**
54    * Is this the 'ATS_START' message?
55    */ 
56   int is_init;
57 };
58
59
60 /**
61  * Information we track per session.
62  */
63 struct SessionRecord
64 {
65   /**
66    * Identity of the peer (just needed for error checking).
67    */
68   struct GNUNET_PeerIdentity peer;
69
70   /**
71    * Session handle.
72    */
73   struct Session *session;
74
75   /**
76    * Set to GNUNET_YES if the slot is used.
77    */
78   int slot_used;
79 };
80
81
82 /**
83  * Handle to the ATS subsystem for bandwidth/transport scheduling information.
84  */
85 struct GNUNET_ATS_SchedulingHandle
86 {
87   
88   /**
89    * Our configuration.
90    */
91   const struct GNUNET_CONFIGURATION_Handle *cfg;
92
93   /**
94    * Callback to invoke on suggestions.
95    */
96   GNUNET_ATS_AddressSuggestionCallback suggest_cb;
97   
98   /**
99    * Closure for 'suggest_cb'.
100    */
101   void *suggest_cb_cls;
102
103   /**
104    * Connection to ATS service.
105    */
106   struct GNUNET_CLIENT_Connection *client;
107
108   /**
109    * Head of list of messages for the ATS service.
110    */
111   struct PendingMessage *pending_head;
112
113   /**
114    * Tail of list of messages for the ATS service
115    */
116   struct PendingMessage *pending_tail;
117
118   /**
119    * Current request for transmission to ATS.
120    */
121   struct GNUNET_CLIENT_TransmitHandle *th;
122
123   /**
124    * Array of session objects (we need to translate them to numbers and back
125    * for the protocol; the offset in the array is the session number on the
126    * network).  Index 0 is always NULL and reserved to represent the NULL pointer.
127    * Unused entries are also NULL.
128    */
129   struct SessionRecord *session_array;
130
131   /**
132    * Task to trigger reconnect.
133    */ 
134   GNUNET_SCHEDULER_TaskIdentifier task;
135   
136   /**
137    * Size of the session array.
138    */
139   unsigned int session_array_size;
140
141 };
142
143
144 /**
145  * Re-establish the connection to the ATS service.
146  *
147  * @param sh handle to use to re-connect.
148  */
149 static void
150 reconnect (struct GNUNET_ATS_SchedulingHandle *sh);
151
152
153
154 /**
155  * Re-establish the connection to the ATS service.
156  *
157  * @param cls handle to use to re-connect.
158  * @param tc scheduler context
159  */
160 static void
161 reconnect_task (void *cls,
162                 const struct GNUNET_SCHEDULER_TaskContext *tc)
163 {
164   struct GNUNET_ATS_SchedulingHandle *sh = cls;
165
166   sh->task = GNUNET_SCHEDULER_NO_TASK;
167   reconnect (sh);
168 }
169
170
171 /**
172  * Transmit messages from the message queue to the service
173  * (if there are any, and if we are not already trying).
174  *
175  * @param sh handle to use
176  */
177 static void
178 do_transmit (struct GNUNET_ATS_SchedulingHandle *sh);
179
180
181 /**
182  * Type of a function to call when we receive a message
183  * from the service.
184  *
185  * @param cls the 'struct GNUNET_ATS_SchedulingHandle'
186  * @param msg message received, NULL on timeout or fatal error
187  */
188 static void
189 process_ats_message (void *cls,
190                      const struct GNUNET_MessageHeader *msg);
191
192
193 /**
194  * We can now transmit a message to ATS. Do it.
195  *
196  * @param cls the 'struct GNUNET_ATS_SchedulingHandle'
197  * @param size number of bytes we can transmit to ATS
198  * @param buf where to copy the messages
199  * @return number of bytes copied into buf
200  */
201 static size_t
202 transmit_message_to_ats (void *cls,
203                          size_t size,
204                          void *buf)
205 {
206   struct GNUNET_ATS_SchedulingHandle *sh = cls;
207   struct PendingMessage *p;
208   size_t ret;
209   char *cbuf;
210
211   sh->th = NULL;
212   ret = 0;
213   cbuf = buf;
214   while ( (NULL != (p = sh->pending_head)) &&
215           (p->size <= size) )
216   {
217     memcpy (&cbuf[ret], &p[1], p->size);    
218     ret += p->size;
219     size -= p->size;
220     GNUNET_CONTAINER_DLL_remove (sh->pending_head,
221                                  sh->pending_tail,
222                                  p);
223     if (GNUNET_YES == p->is_init)
224       GNUNET_CLIENT_receive (sh->client,
225                              &process_ats_message, sh,
226                              GNUNET_TIME_UNIT_FOREVER_REL);
227     GNUNET_free (p);
228   }
229   do_transmit (sh);
230   return ret;
231 }
232
233
234 /**
235  * Transmit messages from the message queue to the service
236  * (if there are any, and if we are not already trying).
237  *
238  * @param sh handle to use
239  */
240 static void
241 do_transmit (struct GNUNET_ATS_SchedulingHandle *sh)
242 {
243   struct PendingMessage *p;
244
245   if (NULL != sh->th)
246     return;
247   if (NULL == (p = sh->pending_head))
248     return;
249   if (NULL == sh->client)
250     return; /* currently reconnecting */
251   sh->th = GNUNET_CLIENT_notify_transmit_ready (sh->client,
252                                                 p->size,
253                                                 GNUNET_TIME_UNIT_FOREVER_REL,
254                                                 GNUNET_YES,
255                                                 &transmit_message_to_ats, sh);
256 }
257
258
259 /**
260  * Find the session object corresponding to the given session ID.
261  *
262  * @param sh our handle
263  * @param session_id current session ID
264  * @param peer peer the session belongs to
265  * @return the session object (or NULL)
266  */
267 static struct Session*
268 find_session (struct GNUNET_ATS_SchedulingHandle *sh,
269               uint32_t session_id,
270               const struct GNUNET_PeerIdentity *peer)
271 {
272   if (session_id >= sh->session_array_size)
273   {
274     GNUNET_break (0);
275     return NULL;
276   }
277   if (session_id == 0)
278     return NULL;
279   GNUNET_assert (0 == memcmp (peer,
280                               &sh->session_array[session_id].peer,
281                               sizeof (struct GNUNET_PeerIdentity)));
282   return sh->session_array[session_id].session;
283 }
284
285
286 /**
287  * Get the ID for the given session object.  If we do not have an ID for
288  * the given session object, allocate one.
289  *
290  * @param sh our handle
291  * @param session session object
292  * @param peer peer the session belongs to
293  * @return the session id
294  */
295 static uint32_t 
296 get_session_id (struct GNUNET_ATS_SchedulingHandle *sh,
297                 struct Session *session,
298                 const struct GNUNET_PeerIdentity *peer)
299 {
300   unsigned int i;
301   unsigned int f;
302   
303   if (NULL == session)
304     return 0;
305   f = 0;
306   for (i=1;i<sh->session_array_size;i++)
307   {
308     if (session == sh->session_array[i].session)
309     {
310       GNUNET_assert (0 == memcmp (peer,
311                                   &sh->session_array[i].peer,
312                                   sizeof (struct GNUNET_PeerIdentity)));
313       return i;
314     }
315     if ( (f == 0) &&
316          (sh->session_array[i].slot_used == GNUNET_NO) )
317       f = i;
318   }
319   if (f == 0)
320   {    
321     f = sh->session_array_size;
322     GNUNET_array_grow (sh->session_array,
323                        sh->session_array_size,
324                        sh->session_array_size * 2);
325   }
326   GNUNET_assert (f > 0);
327   sh->session_array[f].session = session;
328   sh->session_array[f].peer = *peer;
329   sh->session_array[f].slot_used = GNUNET_YES;
330   return f;
331 }
332
333
334 /**
335  * Remove the session of the given session ID from the session
336  * table (it is no longer valid).
337  *
338  * @param sh our handle
339  * @param session_id identifies session that is no longer valid
340  * @param peer peer the session belongs to
341  */
342 static void
343 remove_session (struct GNUNET_ATS_SchedulingHandle *sh,
344                 uint32_t session_id,
345                 const struct GNUNET_PeerIdentity *peer)
346 {
347   GNUNET_assert (session_id < sh->session_array_size);
348   GNUNET_assert (0 == memcmp (peer,
349                               &sh->session_array[session_id].peer,
350                               sizeof (struct GNUNET_PeerIdentity)));
351   sh->session_array[session_id].session = NULL;
352 }
353
354
355 /**
356  * Release the session slot from the session table (ATS service is
357  * also done using it).
358  *
359  * @param sh our handle
360  * @param session_id identifies session that is no longer valid
361  * @param peer peer the session belongs to
362  */
363 static void
364 release_session (struct GNUNET_ATS_SchedulingHandle *sh,
365                  uint32_t session_id,
366                  const struct GNUNET_PeerIdentity *peer)
367 {
368   GNUNET_assert (session_id < sh->session_array_size);
369   GNUNET_assert (0 == memcmp (peer,
370                               &sh->session_array[session_id].peer,
371                               sizeof (struct GNUNET_PeerIdentity)));
372   sh->session_array[session_id].slot_used = GNUNET_NO;
373   memset (&sh->session_array[session_id].peer,
374           0, 
375           sizeof (struct GNUNET_PeerIdentity));
376 }
377
378
379 static void
380 process_release_message (struct GNUNET_ATS_SchedulingHandle *sh,
381                          const struct SessionReleaseMessage *srm)
382 {
383   release_session (sh,
384                    ntohl (srm->session_id),
385                    &srm->peer);
386 }
387
388
389 /**
390  * Type of a function to call when we receive a message
391  * from the service.
392  *
393  * @param cls the 'struct GNUNET_ATS_SchedulingHandle'
394  * @param msg message received, NULL on timeout or fatal error
395  */
396 static void
397 process_ats_message (void *cls,
398                      const struct GNUNET_MessageHeader *msg)
399 {
400   struct GNUNET_ATS_SchedulingHandle *sh = cls;
401   const struct AddressSuggestionMessage *m;
402   const struct GNUNET_ATS_Information *atsi;
403   const char *address;
404   const char *plugin_name;
405   uint16_t address_length;
406   uint16_t plugin_name_length;
407   uint32_t ats_count;
408
409   if (NULL == msg) 
410   {
411     GNUNET_CLIENT_disconnect (sh->client, GNUNET_NO);
412     sh->client = NULL;
413     sh->task = GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_UNIT_SECONDS,
414                                              &reconnect_task, sh);
415     return;
416   }
417   if ( (ntohs (msg->type) == GNUNET_MESSAGE_TYPE_ATS_SESSION_RELEASE) &&
418        (ntohs (msg->size) == sizeof (struct SessionReleaseMessage)) )
419   {
420     process_release_message (sh,
421                              (const struct SessionReleaseMessage*) msg);
422     GNUNET_CLIENT_receive (sh->client,
423                            &process_ats_message, sh,
424                            GNUNET_TIME_UNIT_FOREVER_REL);
425     return;
426   }
427   if ( (ntohs (msg->type) != GNUNET_MESSAGE_TYPE_ATS_ADDRESS_SUGGESTION) ||
428        (ntohs (msg->size) <= sizeof (struct AddressSuggestionMessage)) )
429   {
430     GNUNET_break (0);
431     GNUNET_CLIENT_disconnect (sh->client, GNUNET_NO);
432     sh->client = NULL;
433     sh->task = GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_UNIT_SECONDS,
434                                              &reconnect_task, sh);
435     return;
436   }
437   m = (const struct AddressSuggestionMessage*) msg;
438   ats_count = ntohl (m->ats_count);
439   address_length = ntohs (m->address_length);
440   atsi = (const struct GNUNET_ATS_Information*) &m[1];
441   address = (const char*) &atsi[ats_count];
442   plugin_name = &address[address_length];
443   plugin_name_length = ntohs (m->plugin_name_length);
444   if ( (address_length +
445         plugin_name_length +
446         ats_count * sizeof (struct GNUNET_ATS_Information) +
447         sizeof (struct AddressSuggestionMessage) != ntohs (msg->size))  ||
448        (ats_count > GNUNET_SERVER_MAX_MESSAGE_SIZE / sizeof (struct GNUNET_ATS_Information)) ||
449        (plugin_name[plugin_name_length - 1] != '\0') )
450   {
451     GNUNET_break (0);
452     GNUNET_CLIENT_disconnect (sh->client, GNUNET_NO);
453     sh->client = NULL;
454     sh->task = GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_UNIT_SECONDS,
455                                              &reconnect_task, sh);
456     return;
457   }
458   sh->suggest_cb (sh->suggest_cb_cls,
459                   &m->peer,
460                   plugin_name,
461                   address, address_length,
462                   find_session (sh, ntohl (m->session_id), &m->peer),
463                   m->bandwidth_out,
464                   m->bandwidth_in,
465                   atsi,
466                   ats_count);
467   GNUNET_CLIENT_receive (sh->client,
468                          &process_ats_message, sh,
469                          GNUNET_TIME_UNIT_FOREVER_REL);
470 }
471
472
473 /**
474  * Re-establish the connection to the ATS service.
475  *
476  * @param sh handle to use to re-connect.
477  */
478 static void
479 reconnect (struct GNUNET_ATS_SchedulingHandle *sh)
480 {
481   struct PendingMessage *p;
482   struct ClientStartMessage *init;
483
484   GNUNET_assert (NULL == sh->client);
485   sh->client = GNUNET_CLIENT_connect ("ats", sh->cfg);
486   GNUNET_assert (NULL != sh->client);
487   if ( (NULL == (p = sh->pending_head)) ||
488        (GNUNET_YES != p->is_init) )
489   {
490     p = GNUNET_malloc (sizeof (struct PendingMessage) +
491                        sizeof (struct ClientStartMessage));
492     p->size = sizeof (struct ClientStartMessage);
493     p->is_init = GNUNET_YES;
494     init = (struct ClientStartMessage *) &p[1];
495     init->header.type = htons (GNUNET_MESSAGE_TYPE_ATS_START);
496     init->header.size = htons (sizeof (struct ClientStartMessage));
497     init->start_flag = htonl (START_FLAG_SCHEDULING);
498     GNUNET_CONTAINER_DLL_insert (sh->pending_head,
499                                  sh->pending_tail,
500                                  p);
501   }
502   do_transmit (sh);
503 }
504
505
506 /**
507  * Initialize the ATS subsystem.
508  *
509  * @param cfg configuration to use
510  * @param suggest_cb notification to call whenever the suggestation changed
511  * @param suggest_cb_cls closure for 'suggest_cb'
512  * @return ats context
513  */
514 struct GNUNET_ATS_SchedulingHandle *
515 GNUNET_ATS_scheduling_init (const struct GNUNET_CONFIGURATION_Handle *cfg,
516                             GNUNET_ATS_AddressSuggestionCallback suggest_cb,
517                             void *suggest_cb_cls)
518 {
519   struct GNUNET_ATS_SchedulingHandle *sh;
520
521   sh = GNUNET_malloc (sizeof (struct GNUNET_ATS_SchedulingHandle));
522   sh->cfg = cfg;
523   sh->suggest_cb = suggest_cb;
524   sh->suggest_cb_cls = suggest_cb_cls;
525   GNUNET_array_grow (sh->session_array,
526                      sh->session_array_size,
527                      4);
528   reconnect (sh);
529   return sh;
530 }
531
532
533 /**
534  * Client is done with ATS scheduling, release resources.
535  *
536  * @param sh handle to release
537  */
538 void
539 GNUNET_ATS_scheduling_done (struct GNUNET_ATS_SchedulingHandle *sh)
540 {
541   struct PendingMessage *p;
542
543   while (NULL != (p = sh->pending_head))
544   {
545     GNUNET_CONTAINER_DLL_remove (sh->pending_head,
546                                  sh->pending_tail,
547                                  p);
548     GNUNET_free (p);
549   }
550   if (NULL != sh->client)
551   {
552     GNUNET_CLIENT_disconnect (sh->client, GNUNET_NO);
553     sh->client = NULL;
554   }
555   if (GNUNET_SCHEDULER_NO_TASK != sh->task)
556   {
557     GNUNET_SCHEDULER_cancel (sh->task);
558     sh->task = GNUNET_SCHEDULER_NO_TASK;
559   }
560   GNUNET_array_grow (sh->session_array,
561                      sh->session_array_size,
562                      0);
563   GNUNET_free (sh);
564 }
565
566
567 /**
568  * We would like to establish a new connection with a peer.  ATS
569  * should suggest a good address to begin with.
570  *
571  * @param sh handle
572  * @param peer identity of the peer we need an address for
573  */
574 void
575 GNUNET_ATS_suggest_address (struct GNUNET_ATS_SchedulingHandle *sh,
576                             const struct GNUNET_PeerIdentity *peer)
577 {
578   struct PendingMessage *p;
579   struct RequestAddressMessage *m;
580
581   p = GNUNET_malloc (sizeof (struct PendingMessage) +
582                      sizeof (struct RequestAddressMessage));
583   p->size = sizeof (struct RequestAddressMessage);
584   p->is_init = GNUNET_NO;
585   m = (struct RequestAddressMessage*) &p[1];
586   m->header.type = htons (GNUNET_MESSAGE_TYPE_ATS_REQUEST_ADDRESS);
587   m->header.size = htons (sizeof (struct RequestAddressMessage));
588   m->reserved = htonl (0);
589   m->peer = *peer;
590   GNUNET_CONTAINER_DLL_insert_tail (sh->pending_head,
591                                     sh->pending_tail,
592                                     p);
593   do_transmit (sh);
594 }
595
596
597 /**
598  * We have updated performance statistics for a given address.  Note
599  * that this function can be called for addresses that are currently
600  * in use as well as addresses that are valid but not actively in use.
601  * Furthermore, the peer may not even be connected to us right now (in
602  * which case the call may be ignored or the information may be stored
603  * for later use).  Update bandwidth assignments.
604  *
605  * @param sh handle
606  * @param peer identity of the new peer
607  * @param plugin_name name of the transport plugin
608  * @param plugin_addr address  (if available)
609  * @param plugin_addr_len number of bytes in plugin_addr
610  * @param session session handle (if available)
611  * @param ats performance data for the address
612  * @param ats_count number of performance records in 'ats'
613  */
614 void
615 GNUNET_ATS_address_update (struct GNUNET_ATS_SchedulingHandle *sh,
616                            const struct GNUNET_PeerIdentity *peer,
617                            const char *plugin_name,
618                            const void *plugin_addr, size_t plugin_addr_len,
619                            struct Session *session,
620                            const struct GNUNET_ATS_Information *ats,
621                            uint32_t ats_count)
622 {
623   struct PendingMessage *p;
624   struct AddressUpdateMessage *m;
625   struct GNUNET_ATS_Information *am;
626   char *pm;
627   size_t namelen;
628   size_t msize;
629
630   namelen = (plugin_name == NULL) ? 0 : strlen (plugin_name) + 1;                                               
631   msize = sizeof (struct AddressUpdateMessage) + plugin_addr_len + 
632     ats_count * sizeof (struct GNUNET_ATS_Information) + namelen;
633   if ( (msize >= GNUNET_SERVER_MAX_MESSAGE_SIZE) ||
634        (plugin_addr_len  >= GNUNET_SERVER_MAX_MESSAGE_SIZE) ||
635        (namelen  >= GNUNET_SERVER_MAX_MESSAGE_SIZE) ||
636        (ats_count >= GNUNET_SERVER_MAX_MESSAGE_SIZE / sizeof (struct GNUNET_ATS_Information)) )
637   {
638     GNUNET_break (0);
639     return;
640   }
641   p = GNUNET_malloc (sizeof (struct PendingMessage) +  msize);
642   p->size = msize;
643   p->is_init = GNUNET_NO;
644   m = (struct AddressUpdateMessage*) &p[1];
645   m->header.type = htons (GNUNET_MESSAGE_TYPE_ATS_ADDRESS_UPDATE);
646   m->header.size = htons (msize);
647   m->ats_count = htonl (ats_count);
648   m->peer = *peer;
649   m->address_length = htons (plugin_addr_len);
650   m->plugin_name_length = htons (namelen);
651   m->session_id = htonl (get_session_id (sh, session, peer));
652   am = (struct GNUNET_ATS_Information*) &m[1];
653   memcpy (am, ats, ats_count * sizeof (struct GNUNET_ATS_Information));
654   pm = (char *) &am[ats_count];
655   memcpy (pm, plugin_addr, plugin_addr_len);
656   memcpy (&pm[plugin_addr_len], plugin_name, namelen);
657   GNUNET_CONTAINER_DLL_insert_tail (sh->pending_head,
658                                     sh->pending_tail,
659                                     p);
660   do_transmit (sh);
661 }
662
663
664 /**
665  * A session got destroyed, stop including it as a valid address.
666  *
667  * @param sh handle
668  * @param peer identity of the peer
669  * @param plugin_name name of the transport plugin
670  * @param plugin_addr address  (if available)
671  * @param plugin_addr_len number of bytes in plugin_addr
672  * @param session session handle that is no longer valid
673  */
674 void
675 GNUNET_ATS_address_destroyed (struct GNUNET_ATS_SchedulingHandle *sh,
676                               const struct GNUNET_PeerIdentity *peer,
677                               const char *plugin_name,
678                               const void *plugin_addr, 
679                               size_t plugin_addr_len,
680                               struct Session *session)
681 {
682   struct PendingMessage *p;
683   struct AddressDestroyedMessage *m;
684   char *pm;
685   size_t namelen;
686   size_t msize;
687   uint32_t session_id;
688
689   namelen = (plugin_name == NULL) ? 0 : strlen (plugin_name) + 1;                                               
690   msize = sizeof (struct AddressDestroyedMessage) + plugin_addr_len + 
691     namelen;
692   if ( (msize >= GNUNET_SERVER_MAX_MESSAGE_SIZE) ||
693        (plugin_addr_len  >= GNUNET_SERVER_MAX_MESSAGE_SIZE) ||
694        (namelen  >= GNUNET_SERVER_MAX_MESSAGE_SIZE) )
695   {
696     GNUNET_break (0);
697     return;
698   }
699   p = GNUNET_malloc (sizeof (struct PendingMessage) +  msize);
700   p->size = msize;
701   p->is_init = GNUNET_NO;
702   m = (struct AddressDestroyedMessage*) &p[1];
703   m->header.type = htons (GNUNET_MESSAGE_TYPE_ATS_ADDRESS_DESTROYED);
704   m->header.size = htons (msize);
705   m->reserved = htonl (0);
706   m->peer = *peer;
707   m->address_length = htons (plugin_addr_len);
708   m->plugin_name_length = htons (namelen);
709   m->session_id = htonl (session_id = get_session_id (sh, session, peer));
710   pm = (char *) &m[1];
711   memcpy (pm, plugin_addr, plugin_addr_len);
712   memcpy (&pm[plugin_addr_len], plugin_name, namelen);
713   GNUNET_CONTAINER_DLL_insert_tail (sh->pending_head,
714                                     sh->pending_tail,
715                                     p);
716   do_transmit (sh);
717   remove_session (sh, session_id, peer);
718 }
719
720 /* end of ats_api_scheduling.c */