src/vnet/session/session.c

   1 /*
   2  * Copyright (c) 2017-2019 Cisco and/or its affiliates.
   3  * Licensed under the Apache License, Version 2.0 (the "License");
   4  * you may not use this file except in compliance with the License.
   5  * You may obtain a copy of the License at:
   6  *
   7  *     http://www.apache.org/licenses/LICENSE-2.0
   8  *
   9  * Unless required by applicable law or agreed to in writing, software
  10  * distributed under the License is distributed on an "AS IS" BASIS,
  11  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  12  * See the License for the specific language governing permissions and
  13  * limitations under the License.
  14  */
  15 /**
  16  * @file
  17  * @brief Session and session manager
  18  */
  19
  20 #include <vnet/plugin/plugin.h>
  21 #include <vnet/session/session.h>
  22 #include <vnet/session/application.h>
  23 #include <vnet/dpo/load_balance.h>
  24 #include <vnet/fib/ip4_fib.h>
  25 #include <vlib/stats/stats.h>
  26 #include <vlib/dma/dma.h>
  27
  28 session_main_t session_main;
  29
  30 static inline int
  31 session_send_evt_to_thread (void *data, void *args, u32 thread_index,
  32                             session_evt_type_t evt_type)
  33 {
  34   session_worker_t *wrk = session_main_get_worker (thread_index);
  35   session_event_t *evt;
  36   svm_msg_q_msg_t msg;
  37   svm_msg_q_t *mq;
  38
  39   mq = wrk->vpp_event_queue;
  40   if (PREDICT_FALSE (svm_msg_q_lock (mq)))
  41     return -1;
  42   if (PREDICT_FALSE (svm_msg_q_or_ring_is_full (mq, SESSION_MQ_IO_EVT_RING)))
  43     {
  44       svm_msg_q_unlock (mq);
  45       return -2;
  46     }
  47   switch (evt_type)
  48     {
  49     case SESSION_CTRL_EVT_RPC:
  50       msg = svm_msg_q_alloc_msg_w_ring (mq, SESSION_MQ_IO_EVT_RING);
  51       evt = (session_event_t *) svm_msg_q_msg_data (mq, &msg);
  52       evt->rpc_args.fp = data;
  53       evt->rpc_args.arg = args;
  54       break;
  55     case SESSION_IO_EVT_RX:
  56     case SESSION_IO_EVT_TX:
  57     case SESSION_IO_EVT_TX_FLUSH:
  58     case SESSION_IO_EVT_BUILTIN_RX:
  59       msg = svm_msg_q_alloc_msg_w_ring (mq, SESSION_MQ_IO_EVT_RING);
  60       evt = (session_event_t *) svm_msg_q_msg_data (mq, &msg);
  61       evt->session_index = *(u32 *) data;
  62       break;
  63     case SESSION_IO_EVT_TX_MAIN:
  64     case SESSION_CTRL_EVT_CLOSE:
  65     case SESSION_CTRL_EVT_RESET:
  66       msg = svm_msg_q_alloc_msg_w_ring (mq, SESSION_MQ_IO_EVT_RING);
  67       evt = (session_event_t *) svm_msg_q_msg_data (mq, &msg);
  68       evt->session_handle = session_handle ((session_t *) data);
  69       break;
  70     default:
  71       clib_warning ("evt unhandled!");
  72       svm_msg_q_unlock (mq);
  73       return -1;
  74     }
  75   evt->event_type = evt_type;
  76
  77   svm_msg_q_add_and_unlock (mq, &msg);
  78
  79   if (PREDICT_FALSE (wrk->state == SESSION_WRK_INTERRUPT))
  80     vlib_node_set_interrupt_pending (wrk->vm, session_queue_node.index);
  81
  82   return 0;
  83 }
  84
  85 int
  86 session_send_io_evt_to_thread (svm_fifo_t * f, session_evt_type_t evt_type)
  87 {
  88   return session_send_evt_to_thread (&f->shr->master_session_index, 0,
  89                                      f->master_thread_index, evt_type);
  90 }
  91
  92 int
  93 session_send_io_evt_to_thread_custom (void *data, u32 thread_index,
  94                                       session_evt_type_t evt_type)
  95 {
  96   return session_send_evt_to_thread (data, 0, thread_index, evt_type);
  97 }
  98
  99 int
 100 session_send_ctrl_evt_to_thread (session_t * s, session_evt_type_t evt_type)
 101 {
 102   /* only events supported are disconnect, shutdown and reset */
 103   ASSERT (evt_type == SESSION_CTRL_EVT_CLOSE ||
 104           evt_type == SESSION_CTRL_EVT_HALF_CLOSE ||
 105           evt_type == SESSION_CTRL_EVT_RESET);
 106   return session_send_evt_to_thread (s, 0, s->thread_index, evt_type);
 107 }
 108
 109 void
 110 session_send_rpc_evt_to_thread_force (u32 thread_index, void *fp,
 111                                       void *rpc_args)
 112 {
 113   session_send_evt_to_thread (fp, rpc_args, thread_index,
 114                               SESSION_CTRL_EVT_RPC);
 115 }
 116
 117 void
 118 session_send_rpc_evt_to_thread (u32 thread_index, void *fp, void *rpc_args)
 119 {
 120   if (thread_index != vlib_get_thread_index ())
 121     session_send_rpc_evt_to_thread_force (thread_index, fp, rpc_args);
 122   else
 123     {
 124       void (*fnp) (void *) = fp;
 125       fnp (rpc_args);
 126     }
 127 }
 128
 129 void
 130 session_add_self_custom_tx_evt (transport_connection_t * tc, u8 has_prio)
 131 {
 132   session_t *s = session_get (tc->s_index, tc->thread_index);
 133
 134   ASSERT (s->thread_index == vlib_get_thread_index ());
 135   ASSERT (s->session_state != SESSION_STATE_TRANSPORT_DELETED);
 136
 137   if (!(s->flags & SESSION_F_CUSTOM_TX))
 138     {
 139       s->flags |= SESSION_F_CUSTOM_TX;
 140       if (svm_fifo_set_event (s->tx_fifo)
 141           || transport_connection_is_descheduled (tc))
 142         {
 143           session_evt_elt_t *elt;
 144           session_worker_t *wrk;
 145
 146           wrk = session_main_get_worker (tc->thread_index);
 147           if (has_prio)
 148             elt = session_evt_alloc_new (wrk);
 149           else
 150             elt = session_evt_alloc_old (wrk);
 151           elt->evt.session_index = tc->s_index;
 152           elt->evt.event_type = SESSION_IO_EVT_TX;
 153           tc->flags &= ~TRANSPORT_CONNECTION_F_DESCHED;
 154
 155           if (PREDICT_FALSE (wrk->state == SESSION_WRK_INTERRUPT))
 156             vlib_node_set_interrupt_pending (wrk->vm,
 157                                              session_queue_node.index);
 158         }
 159     }
 160 }
 161
 162 void
 163 sesssion_reschedule_tx (transport_connection_t * tc)
 164 {
 165   session_worker_t *wrk = session_main_get_worker (tc->thread_index);
 166   session_evt_elt_t *elt;
 167
 168   ASSERT (tc->thread_index == vlib_get_thread_index ());
 169
 170   elt = session_evt_alloc_new (wrk);
 171   elt->evt.session_index = tc->s_index;
 172   elt->evt.event_type = SESSION_IO_EVT_TX;
 173
 174   if (PREDICT_FALSE (wrk->state == SESSION_WRK_INTERRUPT))
 175     vlib_node_set_interrupt_pending (wrk->vm, session_queue_node.index);
 176 }
 177
 178 static void
 179 session_program_transport_ctrl_evt (session_t * s, session_evt_type_t evt)
 180 {
 181   u32 thread_index = vlib_get_thread_index ();
 182   session_evt_elt_t *elt;
 183   session_worker_t *wrk;
 184
 185   /* If we are in the handler thread, or being called with the worker barrier
 186    * held, just append a new event to pending disconnects vector. */
 187   if (vlib_thread_is_main_w_barrier () || thread_index == s->thread_index)
 188     {
 189       wrk = session_main_get_worker (s->thread_index);
 190       elt = session_evt_alloc_ctrl (wrk);
 191       clib_memset (&elt->evt, 0, sizeof (session_event_t));
 192       elt->evt.session_handle = session_handle (s);
 193       elt->evt.event_type = evt;
 194
 195       if (PREDICT_FALSE (wrk->state == SESSION_WRK_INTERRUPT))
 196         vlib_node_set_interrupt_pending (wrk->vm, session_queue_node.index);
 197     }
 198   else
 199     session_send_ctrl_evt_to_thread (s, evt);
 200 }
 201
 202 session_t *
 203 session_alloc (u32 thread_index)
 204 {
 205   session_worker_t *wrk = &session_main.wrk[thread_index];
 206   session_t *s;
 207
 208   pool_get_aligned_safe (wrk->sessions, s, CLIB_CACHE_LINE_BYTES);
 209   clib_memset (s, 0, sizeof (*s));
 210   s->session_index = s - wrk->sessions;
 211   s->thread_index = thread_index;
 212   s->al_index = APP_INVALID_INDEX;
 213
 214   return s;
 215 }
 216
 217 void
 218 session_free (session_t * s)
 219 {
 220   session_worker_t *wrk = &session_main.wrk[s->thread_index];
 221
 222   SESSION_EVT (SESSION_EVT_FREE, s);
 223   if (CLIB_DEBUG)
 224     clib_memset (s, 0xFA, sizeof (*s));
 225   pool_put (wrk->sessions, s);
 226 }
 227
 228 u8
 229 session_is_valid (u32 si, u8 thread_index)
 230 {
 231   session_t *s;
 232   transport_connection_t *tc;
 233
 234   s = pool_elt_at_index (session_main.wrk[thread_index].sessions, si);
 235
 236   if (s->thread_index != thread_index || s->session_index != si)
 237     return 0;
 238
 239   if (s->session_state == SESSION_STATE_TRANSPORT_DELETED
 240       || s->session_state <= SESSION_STATE_LISTENING)
 241     return 1;
 242
 243   if ((s->session_state == SESSION_STATE_CONNECTING ||
 244        s->session_state == SESSION_STATE_TRANSPORT_CLOSED) &&
 245       (s->flags & SESSION_F_HALF_OPEN))
 246     return 1;
 247
 248   tc = session_get_transport (s);
 249   if (s->connection_index != tc->c_index ||
 250       s->thread_index != tc->thread_index || tc->s_index != si)
 251     return 0;
 252
 253   return 1;
 254 }
 255
 256 void
 257 session_cleanup (session_t *s)
 258 {
 259   segment_manager_dealloc_fifos (s->rx_fifo, s->tx_fifo);
 260   session_free (s);
 261 }
 262
 263 static void
 264 session_cleanup_notify (session_t * s, session_cleanup_ntf_t ntf)
 265 {
 266   app_worker_t *app_wrk;
 267
 268   app_wrk = app_worker_get_if_valid (s->app_wrk_index);
 269   if (!app_wrk)
 270     {
 271       if (ntf == SESSION_CLEANUP_TRANSPORT)
 272         return;
 273
 274       session_cleanup (s);
 275       return;
 276     }
 277   app_worker_cleanup_notify (app_wrk, s, ntf);
 278 }
 279
 280 void
 281 session_program_cleanup (session_t *s)
 282 {
 283   ASSERT (s->session_state == SESSION_STATE_TRANSPORT_DELETED);
 284   session_cleanup_notify (s, SESSION_CLEANUP_SESSION);
 285 }
 286
 287 /**
 288  * Cleans up session and lookup table.
 289  *
 290  * Transport connection must still be valid.
 291  */
 292 static void
 293 session_delete (session_t * s)
 294 {
 295   int rv;
 296
 297   /* Delete from the main lookup table. */
 298   if ((rv = session_lookup_del_session (s)))
 299     clib_warning ("session %u hash delete rv %d", s->session_index, rv);
 300
 301   session_program_cleanup (s);
 302 }
 303
 304 void
 305 session_cleanup_half_open (session_handle_t ho_handle)
 306 {
 307   session_t *ho = session_get_from_handle (ho_handle);
 308
 309   /* App transports can migrate their half-opens */
 310   if (ho->flags & SESSION_F_IS_MIGRATING)
 311     {
 312       /* Session still migrating, move to closed state to signal that the
 313        * session should be removed. */
 314       if (ho->connection_index == ~0)
 315         {
 316           session_set_state (ho, SESSION_STATE_CLOSED);
 317           return;
 318         }
 319       /* Migrated transports are no longer half-opens */
 320       transport_cleanup (session_get_transport_proto (ho),
 321                          ho->connection_index, ho->al_index /* overloaded */);
 322     }
 323   else if (ho->session_state != SESSION_STATE_TRANSPORT_DELETED)
 324     {
 325       /* Cleanup half-open session lookup table if need be */
 326       if (ho->session_state != SESSION_STATE_TRANSPORT_CLOSED)
 327         {
 328           transport_connection_t *tc;
 329           tc = transport_get_half_open (session_get_transport_proto (ho),
 330                                         ho->connection_index);
 331           if (tc && !(tc->flags & TRANSPORT_CONNECTION_F_NO_LOOKUP))
 332             session_lookup_del_half_open (tc);
 333         }
 334       transport_cleanup_half_open (session_get_transport_proto (ho),
 335                                    ho->connection_index);
 336     }
 337   session_free (ho);
 338 }
 339
 340 static void
 341 session_half_open_free (session_t *ho)
 342 {
 343   app_worker_t *app_wrk;
 344
 345   ASSERT (vlib_get_thread_index () <= transport_cl_thread ());
 346   app_wrk = app_worker_get_if_valid (ho->app_wrk_index);
 347   if (app_wrk)
 348     app_worker_del_half_open (app_wrk, ho);
 349   else
 350     session_free (ho);
 351 }
 352
 353 static void
 354 session_half_open_free_rpc (void *args)
 355 {
 356   session_t *ho = ho_session_get (pointer_to_uword (args));
 357   session_half_open_free (ho);
 358 }
 359
 360 void
 361 session_half_open_delete_notify (transport_connection_t *tc)
 362 {
 363   session_t *ho = ho_session_get (tc->s_index);
 364
 365   /* Cleanup half-open lookup table if need be */
 366   if (ho->session_state != SESSION_STATE_TRANSPORT_CLOSED)
 367     {
 368       if (!(tc->flags & TRANSPORT_CONNECTION_F_NO_LOOKUP))
 369         session_lookup_del_half_open (tc);
 370     }
 371   session_set_state (ho, SESSION_STATE_TRANSPORT_DELETED);
 372
 373   /* Notification from ctrl thread accepted without rpc */
 374   if (tc->thread_index == transport_cl_thread ())
 375     {
 376       session_half_open_free (ho);
 377     }
 378   else
 379     {
 380       void *args = uword_to_pointer ((uword) tc->s_index, void *);
 381       session_send_rpc_evt_to_thread_force (transport_cl_thread (),
 382                                             session_half_open_free_rpc, args);
 383     }
 384 }
 385
 386 void
 387 session_half_open_migrate_notify (transport_connection_t *tc)
 388 {
 389   session_t *ho;
 390
 391   /* Support half-open migrations only for transports with no lookup */
 392   ASSERT (tc->flags & TRANSPORT_CONNECTION_F_NO_LOOKUP);
 393
 394   ho = ho_session_get (tc->s_index);
 395   ho->flags |= SESSION_F_IS_MIGRATING;
 396   ho->connection_index = ~0;
 397 }
 398
 399 int
 400 session_half_open_migrated_notify (transport_connection_t *tc)
 401 {
 402   session_t *ho;
 403
 404   ho = ho_session_get (tc->s_index);
 405
 406   /* App probably detached so the half-open must be cleaned up */
 407   if (ho->session_state == SESSION_STATE_CLOSED)
 408     {
 409       session_half_open_delete_notify (tc);
 410       return -1;
 411     }
 412   ho->connection_index = tc->c_index;
 413   /* Overload al_index for half-open with new thread */
 414   ho->al_index = tc->thread_index;
 415   return 0;
 416 }
 417
 418 session_t *
 419 session_alloc_for_connection (transport_connection_t * tc)
 420 {
 421   session_t *s;
 422   u32 thread_index = tc->thread_index;
 423
 424   ASSERT (thread_index == vlib_get_thread_index ()
 425           || transport_protocol_is_cl (tc->proto));
 426
 427   s = session_alloc (thread_index);
 428   s->session_type = session_type_from_proto_and_ip (tc->proto, tc->is_ip4);
 429   session_set_state (s, SESSION_STATE_CLOSED);
 430
 431   /* Attach transport to session and vice versa */
 432   s->connection_index = tc->c_index;
 433   tc->s_index = s->session_index;
 434   return s;
 435 }
 436
 437 session_t *
 438 session_alloc_for_half_open (transport_connection_t *tc)
 439 {
 440   session_t *s;
 441
 442   s = ho_session_alloc ();
 443   s->session_type = session_type_from_proto_and_ip (tc->proto, tc->is_ip4);
 444   s->connection_index = tc->c_index;
 445   tc->s_index = s->session_index;
 446   return s;
 447 }
 448
 449 /**
 450  * Discards bytes from buffer chain
 451  *
 452  * It discards n_bytes_to_drop starting at first buffer after chain_b
 453  */
 454 always_inline void
 455 session_enqueue_discard_chain_bytes (vlib_main_t * vm, vlib_buffer_t * b,
 456                                      vlib_buffer_t ** chain_b,
 457                                      u32 n_bytes_to_drop)
 458 {
 459   vlib_buffer_t *next = *chain_b;
 460   u32 to_drop = n_bytes_to_drop;
 461   ASSERT (b->flags & VLIB_BUFFER_NEXT_PRESENT);
 462   while (to_drop && (next->flags & VLIB_BUFFER_NEXT_PRESENT))
 463     {
 464       next = vlib_get_buffer (vm, next->next_buffer);
 465       if (next->current_length > to_drop)
 466         {
 467           vlib_buffer_advance (next, to_drop);
 468           to_drop = 0;
 469         }
 470       else
 471         {
 472           to_drop -= next->current_length;
 473           next->current_length = 0;
 474         }
 475     }
 476   *chain_b = next;
 477
 478   if (to_drop == 0)
 479     b->total_length_not_including_first_buffer -= n_bytes_to_drop;
 480 }
 481
 482 /**
 483  * Enqueue buffer chain tail
 484  */
 485 always_inline int
 486 session_enqueue_chain_tail (session_t * s, vlib_buffer_t * b,
 487                             u32 offset, u8 is_in_order)
 488 {
 489   vlib_buffer_t *chain_b;
 490   u32 chain_bi, len, diff;
 491   vlib_main_t *vm = vlib_get_main ();
 492   u8 *data;
 493   u32 written = 0;
 494   int rv = 0;
 495
 496   if (is_in_order && offset)
 497     {
 498       diff = offset - b->current_length;
 499       if (diff > b->total_length_not_including_first_buffer)
 500         return 0;
 501       chain_b = b;
 502       session_enqueue_discard_chain_bytes (vm, b, &chain_b, diff);
 503       chain_bi = vlib_get_buffer_index (vm, chain_b);
 504     }
 505   else
 506     chain_bi = b->next_buffer;
 507
 508   do
 509     {
 510       chain_b = vlib_get_buffer (vm, chain_bi);
 511       data = vlib_buffer_get_current (chain_b);
 512       len = chain_b->current_length;
 513       if (!len)
 514         continue;
 515       if (is_in_order)
 516         {
 517           rv = svm_fifo_enqueue (s->rx_fifo, len, data);
 518           if (rv == len)
 519             {
 520               written += rv;
 521             }
 522           else if (rv < len)
 523             {
 524               return (rv > 0) ? (written + rv) : written;
 525             }
 526           else if (rv > len)
 527             {
 528               written += rv;
 529
 530               /* written more than what was left in chain */
 531               if (written > b->total_length_not_including_first_buffer)
 532                 return written;
 533
 534               /* drop the bytes that have already been delivered */
 535               session_enqueue_discard_chain_bytes (vm, b, &chain_b, rv - len);
 536             }
 537         }
 538       else
 539         {
 540           rv = svm_fifo_enqueue_with_offset (s->rx_fifo, offset, len, data);
 541           if (rv)
 542             {
 543               clib_warning ("failed to enqueue multi-buffer seg");
 544               return -1;
 545             }
 546           offset += len;
 547         }
 548     }
 549   while ((chain_bi = (chain_b->flags & VLIB_BUFFER_NEXT_PRESENT)
 550           ? chain_b->next_buffer : 0));
 551
 552   if (is_in_order)
 553     return written;
 554
 555   return 0;
 556 }
 557
 558 void
 559 session_fifo_tuning (session_t * s, svm_fifo_t * f,
 560                      session_ft_action_t act, u32 len)
 561 {
 562   if (s->flags & SESSION_F_CUSTOM_FIFO_TUNING)
 563     {
 564       app_worker_t *app_wrk = app_worker_get (s->app_wrk_index);
 565       app_worker_session_fifo_tuning (app_wrk, s, f, act, len);
 566       if (CLIB_ASSERT_ENABLE)
 567         {
 568           segment_manager_t *sm;
 569           sm = segment_manager_get (f->segment_manager);
 570           ASSERT (f->shr->size >= 4096);
 571           ASSERT (f->shr->size <= sm->max_fifo_size);
 572         }
 573     }
 574 }
 575
 576 void
 577 session_wrk_program_app_wrk_evts (session_worker_t *wrk, u32 app_wrk_index)
 578 {
 579   u8 need_interrupt;
 580
 581   ASSERT ((wrk - session_main.wrk) == vlib_get_thread_index ());
 582   need_interrupt = clib_bitmap_is_zero (wrk->app_wrks_pending_ntf);
 583   wrk->app_wrks_pending_ntf =
 584     clib_bitmap_set (wrk->app_wrks_pending_ntf, app_wrk_index, 1);
 585
 586   if (need_interrupt)
 587     vlib_node_set_interrupt_pending (wrk->vm, session_input_node.index);
 588 }
 589
 590 always_inline void
 591 session_program_io_event (app_worker_t *app_wrk, session_t *s,
 592                           session_evt_type_t et, u8 is_cl)
 593 {
 594   if (is_cl)
 595     {
 596       /* Special events for connectionless sessions */
 597       et += SESSION_IO_EVT_BUILTIN_RX - SESSION_IO_EVT_RX;
 598
 599       ASSERT (s->thread_index == 0 || et == SESSION_IO_EVT_TX_MAIN);
 600       session_event_t evt = {
 601         .event_type = et,
 602         .session_handle = session_handle (s),
 603       };
 604
 605       app_worker_add_event_custom (app_wrk, vlib_get_thread_index (), &evt);
 606     }
 607   else
 608     {
 609       app_worker_add_event (app_wrk, s, et);
 610     }
 611 }
 612
 613 static inline int
 614 session_notify_subscribers (u32 app_index, session_t *s, svm_fifo_t *f,
 615                             session_evt_type_t evt_type)
 616 {
 617   app_worker_t *app_wrk;
 618   application_t *app;
 619   u8 is_cl;
 620   int i;
 621
 622   app = application_get (app_index);
 623   if (!app)
 624     return -1;
 625
 626   is_cl = s->thread_index != vlib_get_thread_index ();
 627   for (i = 0; i < f->shr->n_subscribers; i++)
 628     {
 629       app_wrk = application_get_worker (app, f->shr->subscribers[i]);
 630       if (!app_wrk)
 631         continue;
 632       session_program_io_event (app_wrk, s, evt_type, is_cl ? 1 : 0);
 633     }
 634
 635   return 0;
 636 }
 637
 638 always_inline int
 639 session_enqueue_notify_inline (session_t *s, u8 is_cl)
 640 {
 641   app_worker_t *app_wrk;
 642
 643   app_wrk = app_worker_get_if_valid (s->app_wrk_index);
 644   if (PREDICT_FALSE (!app_wrk))
 645     return -1;
 646
 647   session_program_io_event (app_wrk, s, SESSION_IO_EVT_RX, is_cl);
 648
 649   if (PREDICT_FALSE (svm_fifo_n_subscribers (s->rx_fifo)))
 650     return session_notify_subscribers (app_wrk->app_index, s, s->rx_fifo,
 651                                        SESSION_IO_EVT_RX);
 652
 653   return 0;
 654 }
 655
 656 int
 657 session_enqueue_notify (session_t *s)
 658 {
 659   return session_enqueue_notify_inline (s, 0 /* is_cl */);
 660 }
 661
 662 int
 663 session_enqueue_notify_cl (session_t *s)
 664 {
 665   return session_enqueue_notify_inline (s, 1 /* is_cl */);
 666 }
 667
 668 int
 669 session_dequeue_notify (session_t *s)
 670 {
 671   app_worker_t *app_wrk;
 672   u8 is_cl;
 673
 674   /* Unset as soon as event is requested */
 675   svm_fifo_clear_deq_ntf (s->tx_fifo);
 676
 677   app_wrk = app_worker_get_if_valid (s->app_wrk_index);
 678   if (PREDICT_FALSE (!app_wrk))
 679     return -1;
 680
 681   is_cl = s->session_state == SESSION_STATE_LISTENING ||
 682           s->session_state == SESSION_STATE_OPENED;
 683   session_program_io_event (app_wrk, s, SESSION_IO_EVT_TX, is_cl ? 1 : 0);
 684
 685   if (PREDICT_FALSE (svm_fifo_n_subscribers (s->tx_fifo)))
 686     return session_notify_subscribers (app_wrk->app_index, s, s->tx_fifo,
 687                                        SESSION_IO_EVT_TX);
 688
 689   return 0;
 690 }
 691
 692 /**
 693  * Flushes queue of sessions that are to be notified of new data
 694  * enqueued events.
 695  *
 696  * @param transport_proto transport protocol for which queue to be flushed
 697  * @param thread_index Thread index for which the flush is to be performed.
 698  * @return 0 on success or a positive number indicating the number of
 699  *         failures due to API queue being full.
 700  */
 701 void
 702 session_main_flush_enqueue_events (transport_proto_t transport_proto,
 703                                    u32 thread_index)
 704 {
 705   session_worker_t *wrk = session_main_get_worker (thread_index);
 706   session_handle_t *handles;
 707   session_t *s;
 708   u32 i, is_cl;
 709
 710   handles = wrk->session_to_enqueue[transport_proto];
 711
 712   for (i = 0; i < vec_len (handles); i++)
 713     {
 714       s = session_get_from_handle (handles[i]);
 715       session_fifo_tuning (s, s->rx_fifo, SESSION_FT_ACTION_ENQUEUED,
 716                            0 /* TODO/not needed */);
 717       is_cl =
 718         s->thread_index != thread_index || (s->flags & SESSION_F_IS_CLESS);
 719       if (!is_cl)
 720         session_enqueue_notify_inline (s, 0);
 721       else
 722         session_enqueue_notify_inline (s, 1);
 723     }
 724
 725   vec_reset_length (handles);
 726   wrk->session_to_enqueue[transport_proto] = handles;
 727 }
 728
 729 /*
 730  * Enqueue data for delivery to app. If requested, it queues app notification
 731  * event for later delivery.
 732  *
 733  * @param tc Transport connection which is to be enqueued data
 734  * @param b Buffer to be enqueued
 735  * @param offset Offset at which to start enqueueing if out-of-order
 736  * @param queue_event Flag to indicate if peer is to be notified or if event
 737  *                    is to be queued. The former is useful when more data is
 738  *                    enqueued and only one event is to be generated.
 739  * @param is_in_order Flag to indicate if data is in order
 740  * @return Number of bytes enqueued or a negative value if enqueueing failed.
 741  */
 742 int
 743 session_enqueue_stream_connection (transport_connection_t * tc,
 744                                    vlib_buffer_t * b, u32 offset,
 745                                    u8 queue_event, u8 is_in_order)
 746 {
 747   session_t *s;
 748   int enqueued = 0, rv, in_order_off;
 749
 750   s = session_get (tc->s_index, tc->thread_index);
 751
 752   if (is_in_order)
 753     {
 754       enqueued = svm_fifo_enqueue (s->rx_fifo,
 755                                    b->current_length,
 756                                    vlib_buffer_get_current (b));
 757       if (PREDICT_FALSE ((b->flags & VLIB_BUFFER_NEXT_PRESENT)
 758                          && enqueued >= 0))
 759         {
 760           in_order_off = enqueued > b->current_length ? enqueued : 0;
 761           rv = session_enqueue_chain_tail (s, b, in_order_off, 1);
 762           if (rv > 0)
 763             enqueued += rv;
 764         }
 765     }
 766   else
 767     {
 768       rv = svm_fifo_enqueue_with_offset (s->rx_fifo, offset,
 769                                          b->current_length,
 770                                          vlib_buffer_get_current (b));
 771       if (PREDICT_FALSE ((b->flags & VLIB_BUFFER_NEXT_PRESENT) && !rv))
 772         session_enqueue_chain_tail (s, b, offset + b->current_length, 0);
 773       /* if something was enqueued, report even this as success for ooo
 774        * segment handling */
 775       return rv;
 776     }
 777
 778   if (queue_event)
 779     {
 780       /* Queue RX event on this fifo. Eventually these will need to be
 781        * flushed by calling @ref session_main_flush_enqueue_events () */
 782       if (!(s->flags & SESSION_F_RX_EVT))
 783         {
 784           session_worker_t *wrk = session_main_get_worker (s->thread_index);
 785           ASSERT (s->thread_index == vlib_get_thread_index ());
 786           s->flags |= SESSION_F_RX_EVT;
 787           vec_add1 (wrk->session_to_enqueue[tc->proto], session_handle (s));
 788         }
 789
 790       session_fifo_tuning (s, s->rx_fifo, SESSION_FT_ACTION_ENQUEUED, 0);
 791     }
 792
 793   return enqueued;
 794 }
 795
 796 always_inline int
 797 session_enqueue_dgram_connection_inline (session_t *s,
 798                                          session_dgram_hdr_t *hdr,
 799                                          vlib_buffer_t *b, u8 proto,
 800                                          u8 queue_event, u32 is_cl)
 801 {
 802   int rv;
 803
 804   ASSERT (svm_fifo_max_enqueue_prod (s->rx_fifo)
 805           >= b->current_length + sizeof (*hdr));
 806
 807   if (PREDICT_TRUE (!(b->flags & VLIB_BUFFER_NEXT_PRESENT)))
 808     {
 809       svm_fifo_seg_t segs[2] = {
 810           { (u8 *) hdr, sizeof (*hdr) },
 811           { vlib_buffer_get_current (b), b->current_length }
 812       };
 813
 814       rv = svm_fifo_enqueue_segments (s->rx_fifo, segs, 2,
 815                                       0 /* allow_partial */ );
 816     }
 817   else
 818     {
 819       vlib_main_t *vm = vlib_get_main ();
 820       svm_fifo_seg_t *segs = 0, *seg;
 821       vlib_buffer_t *it = b;
 822       u32 n_segs = 1;
 823
 824       vec_add2 (segs, seg, 1);
 825       seg->data = (u8 *) hdr;
 826       seg->len = sizeof (*hdr);
 827       while (it)
 828         {
 829           vec_add2 (segs, seg, 1);
 830           seg->data = vlib_buffer_get_current (it);
 831           seg->len = it->current_length;
 832           n_segs++;
 833           if (!(it->flags & VLIB_BUFFER_NEXT_PRESENT))
 834             break;
 835           it = vlib_get_buffer (vm, it->next_buffer);
 836         }
 837       rv = svm_fifo_enqueue_segments (s->rx_fifo, segs, n_segs,
 838                                       0 /* allow partial */ );
 839       vec_free (segs);
 840     }
 841
 842   if (queue_event && rv > 0)
 843     {
 844       /* Queue RX event on this fifo. Eventually these will need to be
 845        * flushed by calling @ref session_main_flush_enqueue_events () */
 846       if (!(s->flags & SESSION_F_RX_EVT))
 847         {
 848           u32 thread_index =
 849             is_cl ? vlib_get_thread_index () : s->thread_index;
 850           session_worker_t *wrk = session_main_get_worker (thread_index);
 851           ASSERT (s->thread_index == vlib_get_thread_index () || is_cl);
 852           s->flags |= SESSION_F_RX_EVT;
 853           vec_add1 (wrk->session_to_enqueue[proto], session_handle (s));
 854         }
 855
 856       session_fifo_tuning (s, s->rx_fifo, SESSION_FT_ACTION_ENQUEUED, 0);
 857     }
 858   return rv > 0 ? rv : 0;
 859 }
 860
 861 int
 862 session_enqueue_dgram_connection (session_t *s, session_dgram_hdr_t *hdr,
 863                                   vlib_buffer_t *b, u8 proto, u8 queue_event)
 864 {
 865   return session_enqueue_dgram_connection_inline (s, hdr, b, proto,
 866                                                   queue_event, 0 /* is_cl */);
 867 }
 868
 869 int
 870 session_enqueue_dgram_connection2 (session_t *s, session_dgram_hdr_t *hdr,
 871                                    vlib_buffer_t *b, u8 proto, u8 queue_event)
 872 {
 873   return session_enqueue_dgram_connection_inline (s, hdr, b, proto,
 874                                                   queue_event, 1 /* is_cl */);
 875 }
 876
 877 int
 878 session_enqueue_dgram_connection_cl (session_t *s, session_dgram_hdr_t *hdr,
 879                                      vlib_buffer_t *b, u8 proto,
 880                                      u8 queue_event)
 881 {
 882   session_t *awls;
 883
 884   awls = app_listener_select_wrk_cl_session (s, hdr);
 885   return session_enqueue_dgram_connection_inline (awls, hdr, b, proto,
 886                                                   queue_event, 1 /* is_cl */);
 887 }
 888
 889 int
 890 session_tx_fifo_peek_bytes (transport_connection_t * tc, u8 * buffer,
 891                             u32 offset, u32 max_bytes)
 892 {
 893   session_t *s = session_get (tc->s_index, tc->thread_index);
 894   return svm_fifo_peek (s->tx_fifo, offset, max_bytes, buffer);
 895 }
 896
 897 u32
 898 session_tx_fifo_dequeue_drop (transport_connection_t * tc, u32 max_bytes)
 899 {
 900   session_t *s = session_get (tc->s_index, tc->thread_index);
 901   u32 rv;
 902
 903   rv = svm_fifo_dequeue_drop (s->tx_fifo, max_bytes);
 904   session_fifo_tuning (s, s->tx_fifo, SESSION_FT_ACTION_DEQUEUED, rv);
 905
 906   if (svm_fifo_needs_deq_ntf (s->tx_fifo, max_bytes))
 907     session_dequeue_notify (s);
 908
 909   return rv;
 910 }
 911
 912 int
 913 session_stream_connect_notify (transport_connection_t * tc,
 914                                session_error_t err)
 915 {
 916   u32 opaque = 0, new_ti, new_si;
 917   app_worker_t *app_wrk;
 918   session_t *s = 0, *ho;
 919
 920   /*
 921    * Cleanup half-open table
 922    */
 923   session_lookup_del_half_open (tc);
 924
 925   ho = ho_session_get (tc->s_index);
 926   session_set_state (ho, SESSION_STATE_TRANSPORT_CLOSED);
 927   opaque = ho->opaque;
 928   app_wrk = app_worker_get_if_valid (ho->app_wrk_index);
 929   if (!app_wrk)
 930     return -1;
 931
 932   if (err)
 933     return app_worker_connect_notify (app_wrk, s, err, opaque);
 934
 935   s = session_alloc_for_connection (tc);
 936   session_set_state (s, SESSION_STATE_CONNECTING);
 937   s->app_wrk_index = app_wrk->wrk_index;
 938   s->opaque = opaque;
 939   new_si = s->session_index;
 940   new_ti = s->thread_index;
 941
 942   if ((err = app_worker_init_connected (app_wrk, s)))
 943     {
 944       session_free (s);
 945       app_worker_connect_notify (app_wrk, 0, err, opaque);
 946       return -1;
 947     }
 948
 949   s = session_get (new_si, new_ti);
 950   session_set_state (s, SESSION_STATE_READY);
 951   session_lookup_add_connection (tc, session_handle (s));
 952
 953   if (app_worker_connect_notify (app_wrk, s, SESSION_E_NONE, opaque))
 954     {
 955       session_lookup_del_connection (tc);
 956       /* Avoid notifying app about rejected session cleanup */
 957       s = session_get (new_si, new_ti);
 958       segment_manager_dealloc_fifos (s->rx_fifo, s->tx_fifo);
 959       session_free (s);
 960       return -1;
 961     }
 962
 963   return 0;
 964 }
 965
 966 static void
 967 session_switch_pool_closed_rpc (void *arg)
 968 {
 969   session_handle_t sh;
 970   session_t *s;
 971
 972   sh = pointer_to_uword (arg);
 973   s = session_get_from_handle_if_valid (sh);
 974   if (!s)
 975     return;
 976
 977   transport_cleanup (session_get_transport_proto (s), s->connection_index,
 978                      s->thread_index);
 979   session_cleanup (s);
 980 }
 981
 982 typedef struct _session_switch_pool_args
 983 {
 984   u32 session_index;
 985   u32 thread_index;
 986   u32 new_thread_index;
 987   u32 new_session_index;
 988 } session_switch_pool_args_t;
 989
 990 /**
 991  * Notify old thread of the session pool switch
 992  */
 993 static void
 994 session_switch_pool (void *cb_args)
 995 {
 996   session_switch_pool_args_t *args = (session_switch_pool_args_t *) cb_args;
 997   session_handle_t sh, new_sh;
 998   segment_manager_t *sm;
 999   app_worker_t *app_wrk;
1000   session_t *s;
1001
1002   ASSERT (args->thread_index == vlib_get_thread_index ());
1003   s = session_get (args->session_index, args->thread_index);
1004
1005   app_wrk = app_worker_get_if_valid (s->app_wrk_index);
1006   if (!app_wrk)
1007     goto app_closed;
1008
1009   /* Cleanup fifo segment slice state for fifos */
1010   sm = app_worker_get_connect_segment_manager (app_wrk);
1011   segment_manager_detach_fifo (sm, &s->rx_fifo);
1012   segment_manager_detach_fifo (sm, &s->tx_fifo);
1013
1014   /* Check if session closed during migration */
1015   if (s->session_state >= SESSION_STATE_TRANSPORT_CLOSING)
1016     goto app_closed;
1017
1018   new_sh =
1019     session_make_handle (args->new_session_index, args->new_thread_index);
1020   app_worker_migrate_notify (app_wrk, s, new_sh);
1021
1022   clib_mem_free (cb_args);
1023   return;
1024
1025 app_closed:
1026   /* Session closed during migration. Clean everything up */
1027   sh = session_handle (s);
1028   session_send_rpc_evt_to_thread (args->new_thread_index,
1029                                   session_switch_pool_closed_rpc,
1030                                   uword_to_pointer (sh, void *));
1031   clib_mem_free (cb_args);
1032 }
1033
1034 /**
1035  * Move dgram session to the right thread
1036  */
1037 int
1038 session_dgram_connect_notify (transport_connection_t * tc,
1039                               u32 old_thread_index, session_t ** new_session)
1040 {
1041   session_t *new_s;
1042   session_switch_pool_args_t *rpc_args;
1043   segment_manager_t *sm;
1044   app_worker_t *app_wrk;
1045
1046   /*
1047    * Clone half-open session to the right thread.
1048    */
1049   new_s = session_clone_safe (tc->s_index, old_thread_index);
1050   new_s->connection_index = tc->c_index;
1051   session_set_state (new_s, SESSION_STATE_READY);
1052   new_s->flags |= SESSION_F_IS_MIGRATING;
1053
1054   if (!(tc->flags & TRANSPORT_CONNECTION_F_NO_LOOKUP))
1055     session_lookup_add_connection (tc, session_handle (new_s));
1056
1057   app_wrk = app_worker_get_if_valid (new_s->app_wrk_index);
1058   if (app_wrk)
1059     {
1060       /* New set of fifos attached to the same shared memory */
1061       sm = app_worker_get_connect_segment_manager (app_wrk);
1062       segment_manager_attach_fifo (sm, &new_s->rx_fifo, new_s);
1063       segment_manager_attach_fifo (sm, &new_s->tx_fifo, new_s);
1064     }
1065
1066   /*
1067    * Ask thread owning the old session to clean it up and make us the tx
1068    * fifo owner
1069    */
1070   rpc_args = clib_mem_alloc (sizeof (*rpc_args));
1071   rpc_args->new_session_index = new_s->session_index;
1072   rpc_args->new_thread_index = new_s->thread_index;
1073   rpc_args->session_index = tc->s_index;
1074   rpc_args->thread_index = old_thread_index;
1075   session_send_rpc_evt_to_thread (rpc_args->thread_index, session_switch_pool,
1076                                   rpc_args);
1077
1078   tc->s_index = new_s->session_index;
1079   new_s->connection_index = tc->c_index;
1080   *new_session = new_s;
1081   return 0;
1082 }
1083
1084 /**
1085  * Notification from transport that connection is being closed.
1086  *
1087  * A disconnect is sent to application but state is not removed. Once
1088  * disconnect is acknowledged by application, session disconnect is called.
1089  * Ultimately this leads to close being called on transport (passive close).
1090  */
1091 void
1092 session_transport_closing_notify (transport_connection_t * tc)
1093 {
1094   app_worker_t *app_wrk;
1095   session_t *s;
1096
1097   s = session_get (tc->s_index, tc->thread_index);
1098   if (s->session_state >= SESSION_STATE_TRANSPORT_CLOSING)
1099     return;
1100
1101   /* Wait for reply from app before sending notification as the
1102    * accept might be rejected */
1103   if (s->session_state == SESSION_STATE_ACCEPTING)
1104     {
1105       session_set_state (s, SESSION_STATE_TRANSPORT_CLOSING);
1106       return;
1107     }
1108
1109   session_set_state (s, SESSION_STATE_TRANSPORT_CLOSING);
1110   app_wrk = app_worker_get (s->app_wrk_index);
1111   app_worker_close_notify (app_wrk, s);
1112 }
1113
1114 /**
1115  * Notification from transport that connection is being deleted
1116  *
1117  * This removes the session if it is still valid. It should be called only on
1118  * previously fully established sessions. For instance failed connects should
1119  * call stream_session_connect_notify and indicate that the connect has
1120  * failed.
1121  */
1122 void
1123 session_transport_delete_notify (transport_connection_t * tc)
1124 {
1125   session_t *s;
1126
1127   /* App might've been removed already */
1128   if (!(s = session_get_if_valid (tc->s_index, tc->thread_index)))
1129     return;
1130
1131   switch (s->session_state)
1132     {
1133     case SESSION_STATE_CREATED:
1134       /* Session was created but accept notification was not yet sent to the
1135        * app. Cleanup everything. */
1136       session_lookup_del_session (s);
1137       segment_manager_dealloc_fifos (s->rx_fifo, s->tx_fifo);
1138       session_free (s);
1139       break;
1140     case SESSION_STATE_ACCEPTING:
1141     case SESSION_STATE_TRANSPORT_CLOSING:
1142     case SESSION_STATE_CLOSING:
1143     case SESSION_STATE_TRANSPORT_CLOSED:
1144       /* If transport finishes or times out before we get a reply
1145        * from the app, mark transport as closed and wait for reply
1146        * before removing the session. Cleanup session table in advance
1147        * because transport will soon be closed and closed sessions
1148        * are assumed to have been removed from the lookup table */
1149       session_lookup_del_session (s);
1150       session_set_state (s, SESSION_STATE_TRANSPORT_DELETED);
1151       session_cleanup_notify (s, SESSION_CLEANUP_TRANSPORT);
1152       svm_fifo_dequeue_drop_all (s->tx_fifo);
1153       break;
1154     case SESSION_STATE_APP_CLOSED:
1155       /* Cleanup lookup table as transport needs to still be valid.
1156        * Program transport close to ensure that all session events
1157        * have been cleaned up. Once transport close is called, the
1158        * session is just removed because both transport and app have
1159        * confirmed the close*/
1160       session_lookup_del_session (s);
1161       session_set_state (s, SESSION_STATE_TRANSPORT_DELETED);
1162       session_cleanup_notify (s, SESSION_CLEANUP_TRANSPORT);
1163       svm_fifo_dequeue_drop_all (s->tx_fifo);
1164       session_program_transport_ctrl_evt (s, SESSION_CTRL_EVT_CLOSE);
1165       break;
1166     case SESSION_STATE_TRANSPORT_DELETED:
1167       break;
1168     case SESSION_STATE_CLOSED:
1169       session_cleanup_notify (s, SESSION_CLEANUP_TRANSPORT);
1170       session_set_state (s, SESSION_STATE_TRANSPORT_DELETED);
1171       session_delete (s);
1172       break;
1173     default:
1174       clib_warning ("session state %u", s->session_state);
1175       session_cleanup_notify (s, SESSION_CLEANUP_TRANSPORT);
1176       session_delete (s);
1177       break;
1178     }
1179 }
1180
1181 /**
1182  * Notification from transport that it is closed
1183  *
1184  * Should be called by transport, prior to calling delete notify, once it
1185  * knows that no more data will be exchanged. This could serve as an
1186  * early acknowledgment of an active close especially if transport delete
1187  * can be delayed a long time, e.g., tcp time-wait.
1188  */
1189 void
1190 session_transport_closed_notify (transport_connection_t * tc)
1191 {
1192   app_worker_t *app_wrk;
1193   session_t *s;
1194
1195   if (!(s = session_get_if_valid (tc->s_index, tc->thread_index)))
1196     return;
1197
1198   if (s->session_state >= SESSION_STATE_TRANSPORT_CLOSED)
1199     return;
1200
1201   /* Transport thinks that app requested close but it actually didn't.
1202    * Can happen for tcp:
1203    * 1)if fin and rst are received in close succession.
1204    * 2)if app shutdown the connection.  */
1205   if (s->session_state == SESSION_STATE_READY)
1206     {
1207       session_transport_closing_notify (tc);
1208       svm_fifo_dequeue_drop_all (s->tx_fifo);
1209       session_set_state (s, SESSION_STATE_TRANSPORT_CLOSED);
1210     }
1211   /* If app close has not been received or has not yet resulted in
1212    * a transport close, only mark the session transport as closed */
1213   else if (s->session_state <= SESSION_STATE_CLOSING)
1214     session_set_state (s, SESSION_STATE_TRANSPORT_CLOSED);
1215   /* If app also closed, switch to closed */
1216   else if (s->session_state == SESSION_STATE_APP_CLOSED)
1217     session_set_state (s, SESSION_STATE_CLOSED);
1218
1219   app_wrk = app_worker_get_if_valid (s->app_wrk_index);
1220   if (app_wrk)
1221     app_worker_transport_closed_notify (app_wrk, s);
1222 }
1223
1224 /**
1225  * Notify application that connection has been reset.
1226  */
1227 void
1228 session_transport_reset_notify (transport_connection_t * tc)
1229 {
1230   app_worker_t *app_wrk;
1231   session_t *s;
1232
1233   s = session_get (tc->s_index, tc->thread_index);
1234   svm_fifo_dequeue_drop_all (s->tx_fifo);
1235   if (s->session_state >= SESSION_STATE_TRANSPORT_CLOSING)
1236     return;
1237   if (s->session_state == SESSION_STATE_ACCEPTING)
1238     {
1239       session_set_state (s, SESSION_STATE_TRANSPORT_CLOSING);
1240       return;
1241     }
1242   session_set_state (s, SESSION_STATE_TRANSPORT_CLOSING);
1243   app_wrk = app_worker_get (s->app_wrk_index);
1244   app_worker_reset_notify (app_wrk, s);
1245 }
1246
1247 int
1248 session_stream_accept_notify (transport_connection_t * tc)
1249 {
1250   app_worker_t *app_wrk;
1251   session_t *s;
1252
1253   s = session_get (tc->s_index, tc->thread_index);
1254   app_wrk = app_worker_get_if_valid (s->app_wrk_index);
1255   if (!app_wrk)
1256     return -1;
1257   if (s->session_state != SESSION_STATE_CREATED)
1258     return 0;
1259   session_set_state (s, SESSION_STATE_ACCEPTING);
1260   if (app_worker_accept_notify (app_wrk, s))
1261     {
1262       /* On transport delete, no notifications should be sent. Unless, the
1263        * accept is retried and successful. */
1264       session_set_state (s, SESSION_STATE_CREATED);
1265       return -1;
1266     }
1267   return 0;
1268 }
1269
1270 /**
1271  * Accept a stream session. Optionally ping the server by callback.
1272  */
1273 int
1274 session_stream_accept (transport_connection_t * tc, u32 listener_index,
1275                        u32 thread_index, u8 notify)
1276 {
1277   session_t *s;
1278   int rv;
1279
1280   s = session_alloc_for_connection (tc);
1281   s->listener_handle = ((u64) thread_index << 32) | (u64) listener_index;
1282   session_set_state (s, SESSION_STATE_CREATED);
1283
1284   if ((rv = app_worker_init_accepted (s)))
1285     {
1286       session_free (s);
1287       return rv;
1288     }
1289
1290   session_lookup_add_connection (tc, session_handle (s));
1291
1292   /* Shoulder-tap the server */
1293   if (notify)
1294     {
1295       app_worker_t *app_wrk = app_worker_get (s->app_wrk_index);
1296       if ((rv = app_worker_accept_notify (app_wrk, s)))
1297         {
1298           session_lookup_del_session (s);
1299           segment_manager_dealloc_fifos (s->rx_fifo, s->tx_fifo);
1300           session_free (s);
1301           return rv;
1302         }
1303     }
1304
1305   return 0;
1306 }
1307
1308 int
1309 session_dgram_accept (transport_connection_t * tc, u32 listener_index,
1310                       u32 thread_index)
1311 {
1312   app_worker_t *app_wrk;
1313   session_t *s;
1314   int rv;
1315
1316   s = session_alloc_for_connection (tc);
1317   s->listener_handle = ((u64) thread_index << 32) | (u64) listener_index;
1318
1319   if ((rv = app_worker_init_accepted (s)))
1320     {
1321       session_free (s);
1322       return rv;
1323     }
1324
1325   session_lookup_add_connection (tc, session_handle (s));
1326   session_set_state (s, SESSION_STATE_ACCEPTING);
1327
1328   app_wrk = app_worker_get (s->app_wrk_index);
1329   if ((rv = app_worker_accept_notify (app_wrk, s)))
1330     {
1331       session_lookup_del_session (s);
1332       segment_manager_dealloc_fifos (s->rx_fifo, s->tx_fifo);
1333       session_free (s);
1334       return rv;
1335     }
1336
1337   return 0;
1338 }
1339
1340 int
1341 session_open_cl (session_endpoint_cfg_t *rmt, session_handle_t *rsh)
1342 {
1343   transport_connection_t *tc;
1344   transport_endpoint_cfg_t *tep;
1345   app_worker_t *app_wrk;
1346   session_handle_t sh;
1347   session_t *s;
1348   int rv;
1349
1350   tep = session_endpoint_to_transport_cfg (rmt);
1351   rv = transport_connect (rmt->transport_proto, tep);
1352   if (rv < 0)
1353     {
1354       SESSION_DBG ("Transport failed to open connection.");
1355       return rv;
1356     }
1357
1358   tc = transport_get_half_open (rmt->transport_proto, (u32) rv);
1359
1360   /* For dgram type of service, allocate session and fifos now */
1361   app_wrk = app_worker_get (rmt->app_wrk_index);
1362   s = session_alloc_for_connection (tc);
1363   s->app_wrk_index = app_wrk->wrk_index;
1364   s->opaque = rmt->opaque;
1365   session_set_state (s, SESSION_STATE_OPENED);
1366   if (transport_connection_is_cless (tc))
1367     s->flags |= SESSION_F_IS_CLESS;
1368   if (app_worker_init_connected (app_wrk, s))
1369     {
1370       session_free (s);
1371       return -1;
1372     }
1373
1374   sh = session_handle (s);
1375   *rsh = sh;
1376
1377   session_lookup_add_connection (tc, sh);
1378   return app_worker_connect_notify (app_wrk, s, SESSION_E_NONE, rmt->opaque);
1379 }
1380
1381 int
1382 session_open_vc (session_endpoint_cfg_t *rmt, session_handle_t *rsh)
1383 {
1384   transport_connection_t *tc;
1385   transport_endpoint_cfg_t *tep;
1386   app_worker_t *app_wrk;
1387   session_t *ho;
1388   int rv;
1389
1390   tep = session_endpoint_to_transport_cfg (rmt);
1391   rv = transport_connect (rmt->transport_proto, tep);
1392   if (rv < 0)
1393     {
1394       SESSION_DBG ("Transport failed to open connection.");
1395       return rv;
1396     }
1397
1398   tc = transport_get_half_open (rmt->transport_proto, (u32) rv);
1399
1400   app_wrk = app_worker_get (rmt->app_wrk_index);
1401
1402   /* If transport offers a vc service, only allocate established
1403    * session once the connection has been established.
1404    * In the meantime allocate half-open session for tracking purposes
1405    * associate half-open connection to it and add session to app-worker
1406    * half-open table. These are needed to allocate the established
1407    * session on transport notification, and to cleanup the half-open
1408    * session if the app detaches before connection establishment.
1409    */
1410   ho = session_alloc_for_half_open (tc);
1411   ho->app_wrk_index = app_wrk->wrk_index;
1412   ho->ho_index = app_worker_add_half_open (app_wrk, session_handle (ho));
1413   ho->opaque = rmt->opaque;
1414   *rsh = session_handle (ho);
1415
1416   if (!(tc->flags & TRANSPORT_CONNECTION_F_NO_LOOKUP))
1417     session_lookup_add_half_open (tc, tc->c_index);
1418
1419   return 0;
1420 }
1421
1422 int
1423 session_open_app (session_endpoint_cfg_t *rmt, session_handle_t *rsh)
1424 {
1425   transport_endpoint_cfg_t *tep_cfg = session_endpoint_to_transport_cfg (rmt);
1426
1427   /* Not supported for now */
1428   *rsh = SESSION_INVALID_HANDLE;
1429   return transport_connect (rmt->transport_proto, tep_cfg);
1430 }
1431
1432 typedef int (*session_open_service_fn) (session_endpoint_cfg_t *,
1433                                         session_handle_t *);
1434
1435 static session_open_service_fn session_open_srv_fns[TRANSPORT_N_SERVICES] = {
1436   session_open_vc,
1437   session_open_cl,
1438   session_open_app,
1439 };
1440
1441 /**
1442  * Ask transport to open connection to remote transport endpoint.
1443  *
1444  * Stores handle for matching request with reply since the call can be
1445  * asynchronous. For instance, for TCP the 3-way handshake must complete
1446  * before reply comes. Session is only created once connection is established.
1447  *
1448  * @param app_index Index of the application requesting the connect
1449  * @param st Session type requested.
1450  * @param tep Remote transport endpoint
1451  * @param opaque Opaque data (typically, api_context) the application expects
1452  *               on open completion.
1453  */
1454 int
1455 session_open (session_endpoint_cfg_t *rmt, session_handle_t *rsh)
1456 {
1457   transport_service_type_t tst;
1458   tst = transport_protocol_service_type (rmt->transport_proto);
1459   return session_open_srv_fns[tst](rmt, rsh);
1460 }
1461
1462 /**
1463  * Ask transport to listen on session endpoint.
1464  *
1465  * @param s Session for which listen will be called. Note that unlike
1466  *          established sessions, listen sessions are not associated to a
1467  *          thread.
1468  * @param sep Local endpoint to be listened on.
1469  */
1470 int
1471 session_listen (session_t * ls, session_endpoint_cfg_t * sep)
1472 {
1473   transport_endpoint_cfg_t *tep;
1474   int tc_index;
1475   u32 s_index;
1476
1477   /* Transport bind/listen */
1478   tep = session_endpoint_to_transport_cfg (sep);
1479   s_index = ls->session_index;
1480   tc_index = transport_start_listen (session_get_transport_proto (ls),
1481                                      s_index, tep);
1482
1483   if (tc_index < 0)
1484     return tc_index;
1485
1486   /* Attach transport to session. Lookup tables are populated by the app
1487    * worker because local tables (for ct sessions) are not backed by a fib */
1488   ls = listen_session_get (s_index);
1489   ls->connection_index = tc_index;
1490   ls->opaque = sep->opaque;
1491   if (transport_connection_is_cless (session_get_transport (ls)))
1492     ls->flags |= SESSION_F_IS_CLESS;
1493
1494   return 0;
1495 }
1496
1497 /**
1498  * Ask transport to stop listening on local transport endpoint.
1499  *
1500  * @param s Session to stop listening on. It must be in state LISTENING.
1501  */
1502 int
1503 session_stop_listen (session_t * s)
1504 {
1505   transport_proto_t tp = session_get_transport_proto (s);
1506   transport_connection_t *tc;
1507
1508   if (s->session_state != SESSION_STATE_LISTENING)
1509     return SESSION_E_NOLISTEN;
1510
1511   tc = transport_get_listener (tp, s->connection_index);
1512
1513   /* If no transport, assume everything was cleaned up already */
1514   if (!tc)
1515     return SESSION_E_NONE;
1516
1517   if (!(tc->flags & TRANSPORT_CONNECTION_F_NO_LOOKUP))
1518     session_lookup_del_connection (tc);
1519
1520   transport_stop_listen (tp, s->connection_index);
1521   return 0;
1522 }
1523
1524 /**
1525  * Initialize session half-closing procedure.
1526  *
1527  * Note that half-closing will not change the state of the session.
1528  */
1529 void
1530 session_half_close (session_t *s)
1531 {
1532   if (!s)
1533     return;
1534
1535   session_program_transport_ctrl_evt (s, SESSION_CTRL_EVT_HALF_CLOSE);
1536 }
1537
1538 /**
1539  * Initialize session closing procedure.
1540  *
1541  * Request is always sent to session node to ensure that all outstanding
1542  * requests are served before transport is notified.
1543  */
1544 void
1545 session_close (session_t * s)
1546 {
1547   if (!s || (s->flags & SESSION_F_APP_CLOSED))
1548     return;
1549
1550   /* Transports can close and delete their state independent of app closes
1551    * and transport initiated state transitions can hide app closes. Instead
1552    * of extending the state machine to support separate tracking of app and
1553    * transport initiated closes, use a flag. */
1554   s->flags |= SESSION_F_APP_CLOSED;
1555
1556   if (s->session_state >= SESSION_STATE_CLOSING)
1557     {
1558       /* Session will only be removed once both app and transport
1559        * acknowledge the close */
1560       if (s->session_state == SESSION_STATE_TRANSPORT_CLOSED
1561           || s->session_state == SESSION_STATE_TRANSPORT_DELETED)
1562         session_program_transport_ctrl_evt (s, SESSION_CTRL_EVT_CLOSE);
1563       return;
1564     }
1565
1566   /* App closed so stop propagating dequeue notifications.
1567    * App might disconnect session before connected, in this case,
1568    * tx_fifo may not be setup yet, so clear only it's inited. */
1569   if (s->tx_fifo)
1570     svm_fifo_clear_deq_ntf (s->tx_fifo);
1571   session_set_state (s, SESSION_STATE_CLOSING);
1572   session_program_transport_ctrl_evt (s, SESSION_CTRL_EVT_CLOSE);
1573 }
1574
1575 /**
1576  * Force a close without waiting for data to be flushed
1577  */
1578 void
1579 session_reset (session_t * s)
1580 {
1581   if (s->session_state >= SESSION_STATE_CLOSING)
1582     return;
1583   /* Drop all outstanding tx data
1584    * App might disconnect session before connected, in this case,
1585    * tx_fifo may not be setup yet, so clear only it's inited. */
1586   if (s->tx_fifo)
1587     svm_fifo_dequeue_drop_all (s->tx_fifo);
1588   session_set_state (s, SESSION_STATE_CLOSING);
1589   session_program_transport_ctrl_evt (s, SESSION_CTRL_EVT_RESET);
1590 }
1591
1592 /**
1593  * Notify transport the session can be half-disconnected.
1594  *
1595  * Must be called from the session's thread.
1596  */
1597 void
1598 session_transport_half_close (session_t *s)
1599 {
1600   /* Only READY session can be half-closed */
1601   if (s->session_state != SESSION_STATE_READY)
1602     {
1603       return;
1604     }
1605
1606   transport_half_close (session_get_transport_proto (s), s->connection_index,
1607                         s->thread_index);
1608 }
1609
1610 /**
1611  * Notify transport the session can be disconnected. This should eventually
1612  * result in a delete notification that allows us to cleanup session state.
1613  * Called for both active/passive disconnects.
1614  *
1615  * Must be called from the session's thread.
1616  */
1617 void
1618 session_transport_close (session_t * s)
1619 {
1620   if (s->session_state >= SESSION_STATE_APP_CLOSED)
1621     {
1622       if (s->session_state == SESSION_STATE_TRANSPORT_CLOSED)
1623         session_set_state (s, SESSION_STATE_CLOSED);
1624       /* If transport is already deleted, just free the session */
1625       else if (s->session_state >= SESSION_STATE_TRANSPORT_DELETED)
1626         session_program_cleanup (s);
1627       return;
1628     }
1629
1630   /* If the tx queue wasn't drained, the transport can continue to try
1631    * sending the outstanding data (in closed state it cannot). It MUST however
1632    * at one point, either after sending everything or after a timeout, call
1633    * delete notify. This will finally lead to the complete cleanup of the
1634    * session.
1635    */
1636   session_set_state (s, SESSION_STATE_APP_CLOSED);
1637
1638   transport_close (session_get_transport_proto (s), s->connection_index,
1639                    s->thread_index);
1640 }
1641
1642 /**
1643  * Force transport close
1644  */
1645 void
1646 session_transport_reset (session_t * s)
1647 {
1648   if (s->session_state >= SESSION_STATE_APP_CLOSED)
1649     {
1650       if (s->session_state == SESSION_STATE_TRANSPORT_CLOSED)
1651         session_set_state (s, SESSION_STATE_CLOSED);
1652       else if (s->session_state >= SESSION_STATE_TRANSPORT_DELETED)
1653         session_program_cleanup (s);
1654       return;
1655     }
1656
1657   session_set_state (s, SESSION_STATE_APP_CLOSED);
1658   transport_reset (session_get_transport_proto (s), s->connection_index,
1659                    s->thread_index);
1660 }
1661
1662 /**
1663  * Cleanup transport and session state.
1664  *
1665  * Notify transport of the cleanup and free the session. This should
1666  * be called only if transport reported some error and is already
1667  * closed.
1668  */
1669 void
1670 session_transport_cleanup (session_t * s)
1671 {
1672   /* Delete from main lookup table before we axe the the transport */
1673   session_lookup_del_session (s);
1674   if (s->session_state != SESSION_STATE_TRANSPORT_DELETED)
1675     transport_cleanup (session_get_transport_proto (s), s->connection_index,
1676                        s->thread_index);
1677   /* Since we called cleanup, no delete notification will come. So, make
1678    * sure the session is properly freed. */
1679   segment_manager_dealloc_fifos (s->rx_fifo, s->tx_fifo);
1680   session_free (s);
1681 }
1682
1683 /**
1684  * Allocate worker mqs in share-able segment
1685  *
1686  * That can only be a newly created memfd segment, that must be mapped
1687  * by all apps/stack users unless private rx mqs are enabled.
1688  */
1689 void
1690 session_vpp_wrk_mqs_alloc (session_main_t *smm)
1691 {
1692   u32 mq_q_length = 2048, evt_size = sizeof (session_event_t);
1693   fifo_segment_t *mqs_seg = &smm->wrk_mqs_segment;
1694   svm_msg_q_cfg_t _cfg, *cfg = &_cfg;
1695   uword mqs_seg_size;
1696   int i;
1697
1698   mq_q_length = clib_max (mq_q_length, smm->configured_wrk_mq_length);
1699
1700   svm_msg_q_ring_cfg_t rc[SESSION_MQ_N_RINGS] = {
1701     { mq_q_length, evt_size, 0 }, { mq_q_length >> 1, 256, 0 }
1702   };
1703   cfg->consumer_pid = 0;
1704   cfg->n_rings = 2;
1705   cfg->q_nitems = mq_q_length;
1706   cfg->ring_cfgs = rc;
1707
1708   /*
1709    * Compute mqs segment size based on rings config and leave space
1710    * for passing extended configuration messages, i.e., data allocated
1711    * outside of the rings. If provided with a config value, accept it
1712    * if larger than minimum size.
1713    */
1714   mqs_seg_size = svm_msg_q_size_to_alloc (cfg) * vec_len (smm->wrk);
1715   mqs_seg_size = mqs_seg_size + (1 << 20);
1716   mqs_seg_size = clib_max (mqs_seg_size, smm->wrk_mqs_segment_size);
1717
1718   mqs_seg->ssvm.ssvm_size = mqs_seg_size;
1719   mqs_seg->ssvm.my_pid = getpid ();
1720   mqs_seg->ssvm.name = format (0, "%s%c", "session: wrk-mqs-segment", 0);
1721
1722   if (ssvm_server_init (&mqs_seg->ssvm, SSVM_SEGMENT_MEMFD))
1723     {
1724       clib_warning ("failed to initialize queue segment");
1725       return;
1726     }
1727
1728   fifo_segment_init (mqs_seg);
1729
1730   /* Special fifo segment that's filled only with mqs */
1731   mqs_seg->h->n_mqs = vec_len (smm->wrk);
1732
1733   for (i = 0; i < vec_len (smm->wrk); i++)
1734     smm->wrk[i].vpp_event_queue = fifo_segment_msg_q_alloc (mqs_seg, i, cfg);
1735 }
1736
1737 fifo_segment_t *
1738 session_main_get_wrk_mqs_segment (void)
1739 {
1740   return &session_main.wrk_mqs_segment;
1741 }
1742
1743 u64
1744 session_segment_handle (session_t * s)
1745 {
1746   svm_fifo_t *f;
1747
1748   if (!s->rx_fifo)
1749     return SESSION_INVALID_HANDLE;
1750
1751   f = s->rx_fifo;
1752   return segment_manager_make_segment_handle (f->segment_manager,
1753                                               f->segment_index);
1754 }
1755
1756 void
1757 session_get_original_dst (transport_endpoint_t *i2o_src,
1758                           transport_endpoint_t *i2o_dst,
1759                           transport_proto_t transport_proto, u32 *original_dst,
1760                           u16 *original_dst_port)
1761 {
1762   session_main_t *smm = vnet_get_session_main ();
1763   ip_protocol_t proto =
1764     (transport_proto == TRANSPORT_PROTO_TCP ? IPPROTO_TCP : IPPROTO_UDP);
1765   if (!smm->original_dst_lookup || !i2o_dst->is_ip4)
1766     return;
1767   smm->original_dst_lookup (&i2o_src->ip.ip4, i2o_src->port, &i2o_dst->ip.ip4,
1768                             i2o_dst->port, proto, original_dst,
1769                             original_dst_port);
1770 }
1771
1772 static session_fifo_rx_fn *session_tx_fns[TRANSPORT_TX_N_FNS] = {
1773     session_tx_fifo_peek_and_snd,
1774     session_tx_fifo_dequeue_and_snd,
1775     session_tx_fifo_dequeue_internal,
1776     session_tx_fifo_dequeue_and_snd
1777 };
1778
1779 void
1780 session_register_transport (transport_proto_t transport_proto,
1781                             const transport_proto_vft_t * vft, u8 is_ip4,
1782                             u32 output_node)
1783 {
1784   session_main_t *smm = &session_main;
1785   session_type_t session_type;
1786   u32 next_index = ~0;
1787
1788   session_type = session_type_from_proto_and_ip (transport_proto, is_ip4);
1789
1790   vec_validate (smm->session_type_to_next, session_type);
1791   vec_validate (smm->session_tx_fns, session_type);
1792
1793   if (output_node != ~0)
1794     next_index = vlib_node_add_next (vlib_get_main (),
1795                                      session_queue_node.index, output_node);
1796
1797   smm->session_type_to_next[session_type] = next_index;
1798   smm->session_tx_fns[session_type] =
1799     session_tx_fns[vft->transport_options.tx_type];
1800 }
1801
1802 void
1803 session_register_update_time_fn (session_update_time_fn fn, u8 is_add)
1804 {
1805   session_main_t *smm = &session_main;
1806   session_update_time_fn *fi;
1807   u32 fi_pos = ~0;
1808   u8 found = 0;
1809
1810   vec_foreach (fi, smm->update_time_fns)
1811     {
1812       if (*fi == fn)
1813         {
1814           fi_pos = fi - smm->update_time_fns;
1815           found = 1;
1816           break;
1817         }
1818     }
1819
1820   if (is_add)
1821     {
1822       if (found)
1823         {
1824           clib_warning ("update time fn %p already registered", fn);
1825           return;
1826         }
1827       vec_add1 (smm->update_time_fns, fn);
1828     }
1829   else
1830     {
1831       vec_del1 (smm->update_time_fns, fi_pos);
1832     }
1833 }
1834
1835 transport_proto_t
1836 session_add_transport_proto (void)
1837 {
1838   session_main_t *smm = &session_main;
1839   session_worker_t *wrk;
1840   u32 thread;
1841
1842   smm->last_transport_proto_type += 1;
1843
1844   for (thread = 0; thread < vec_len (smm->wrk); thread++)
1845     {
1846       wrk = session_main_get_worker (thread);
1847       vec_validate (wrk->session_to_enqueue, smm->last_transport_proto_type);
1848     }
1849
1850   return smm->last_transport_proto_type;
1851 }
1852
1853 transport_connection_t *
1854 session_get_transport (session_t * s)
1855 {
1856   if (s->session_state != SESSION_STATE_LISTENING)
1857     return transport_get_connection (session_get_transport_proto (s),
1858                                      s->connection_index, s->thread_index);
1859   else
1860     return transport_get_listener (session_get_transport_proto (s),
1861                                    s->connection_index);
1862 }
1863
1864 void
1865 session_get_endpoint (session_t * s, transport_endpoint_t * tep, u8 is_lcl)
1866 {
1867   if (s->session_state != SESSION_STATE_LISTENING)
1868     return transport_get_endpoint (session_get_transport_proto (s),
1869                                    s->connection_index, s->thread_index, tep,
1870                                    is_lcl);
1871   else
1872     return transport_get_listener_endpoint (session_get_transport_proto (s),
1873                                             s->connection_index, tep, is_lcl);
1874 }
1875
1876 int
1877 session_transport_attribute (session_t *s, u8 is_get,
1878                              transport_endpt_attr_t *attr)
1879 {
1880   if (s->session_state < SESSION_STATE_READY)
1881     return -1;
1882
1883   return transport_connection_attribute (session_get_transport_proto (s),
1884                                          s->connection_index, s->thread_index,
1885                                          is_get, attr);
1886 }
1887
1888 transport_connection_t *
1889 listen_session_get_transport (session_t * s)
1890 {
1891   return transport_get_listener (session_get_transport_proto (s),
1892                                  s->connection_index);
1893 }
1894
1895 void
1896 session_queue_run_on_main_thread (vlib_main_t * vm)
1897 {
1898   ASSERT (vlib_get_thread_index () == 0);
1899   vlib_node_set_interrupt_pending (vm, session_queue_node.index);
1900 }
1901
1902 static void
1903 session_stats_collector_fn (vlib_stats_collector_data_t *d)
1904 {
1905   u32 i, n_workers, n_wrk_sessions, n_sessions = 0;
1906   session_main_t *smm = &session_main;
1907   session_worker_t *wrk;
1908   counter_t **counters;
1909   counter_t *cb;
1910
1911   n_workers = vec_len (smm->wrk);
1912   vlib_stats_validate (d->entry_index, 0, n_workers - 1);
1913   counters = d->entry->data;
1914   cb = counters[0];
1915
1916   for (i = 0; i < vec_len (smm->wrk); i++)
1917     {
1918       wrk = session_main_get_worker (i);
1919       n_wrk_sessions = pool_elts (wrk->sessions);
1920       cb[i] = n_wrk_sessions;
1921       n_sessions += n_wrk_sessions;
1922     }
1923
1924   vlib_stats_set_gauge (d->private_data, n_sessions);
1925 }
1926
1927 static void
1928 session_stats_collector_init (void)
1929 {
1930   vlib_stats_collector_reg_t reg = {};
1931
1932   reg.entry_index =
1933     vlib_stats_add_counter_vector ("/sys/session/sessions_per_worker");
1934   reg.private_data = vlib_stats_add_gauge ("/sys/session/sessions_total");
1935   reg.collect_fn = session_stats_collector_fn;
1936   vlib_stats_register_collector_fn (&reg);
1937   vlib_stats_validate (reg.entry_index, 0, vlib_get_n_threads ());
1938 }
1939
1940 static clib_error_t *
1941 session_manager_main_enable (vlib_main_t * vm)
1942 {
1943   session_main_t *smm = &session_main;
1944   vlib_thread_main_t *vtm = vlib_get_thread_main ();
1945   u32 num_threads, preallocated_sessions_per_worker;
1946   session_worker_t *wrk;
1947   int i;
1948
1949   /* We only initialize once and do not de-initialized on disable */
1950   if (smm->is_initialized)
1951     goto done;
1952
1953   num_threads = 1 /* main thread */  + vtm->n_threads;
1954
1955   if (num_threads < 1)
1956     return clib_error_return (0, "n_thread_stacks not set");
1957
1958   /* Allocate cache line aligned worker contexts */
1959   vec_validate_aligned (smm->wrk, num_threads - 1, CLIB_CACHE_LINE_BYTES);
1960   clib_spinlock_init (&session_main.pool_realloc_lock);
1961
1962   for (i = 0; i < num_threads; i++)
1963     {
1964       wrk = &smm->wrk[i];
1965       wrk->ctrl_head = clib_llist_make_head (wrk->event_elts, evt_list);
1966       wrk->new_head = clib_llist_make_head (wrk->event_elts, evt_list);
1967       wrk->old_head = clib_llist_make_head (wrk->event_elts, evt_list);
1968       wrk->pending_connects = clib_llist_make_head (wrk->event_elts, evt_list);
1969       wrk->evts_pending_main =
1970         clib_llist_make_head (wrk->event_elts, evt_list);
1971       wrk->vm = vlib_get_main_by_index (i);
1972       wrk->last_vlib_time = vlib_time_now (vm);
1973       wrk->last_vlib_us_time = wrk->last_vlib_time * CLIB_US_TIME_FREQ;
1974       wrk->timerfd = -1;
1975       vec_validate (wrk->session_to_enqueue, smm->last_transport_proto_type);
1976
1977       if (!smm->no_adaptive && smm->use_private_rx_mqs)
1978         session_wrk_enable_adaptive_mode (wrk);
1979     }
1980
1981   /* Allocate vpp event queues segment and queue */
1982   session_vpp_wrk_mqs_alloc (smm);
1983
1984   /* Initialize segment manager properties */
1985   segment_manager_main_init ();
1986
1987   /* Preallocate sessions */
1988   if (smm->preallocated_sessions)
1989     {
1990       if (num_threads == 1)
1991         {
1992           pool_init_fixed (smm->wrk[0].sessions, smm->preallocated_sessions);
1993         }
1994       else
1995         {
1996           int j;
1997           preallocated_sessions_per_worker =
1998             (1.1 * (f64) smm->preallocated_sessions /
1999              (f64) (num_threads - 1));
2000
2001           for (j = 1; j < num_threads; j++)
2002             {
2003               pool_init_fixed (smm->wrk[j].sessions,
2004                                preallocated_sessions_per_worker);
2005             }
2006         }
2007     }
2008
2009   session_lookup_init ();
2010   app_namespaces_init ();
2011   transport_init ();
2012   session_stats_collector_init ();
2013   smm->is_initialized = 1;
2014
2015 done:
2016
2017   smm->is_enabled = 1;
2018
2019   /* Enable transports */
2020   transport_enable_disable (vm, 1);
2021   session_debug_init ();
2022
2023   return 0;
2024 }
2025
2026 static void
2027 session_manager_main_disable (vlib_main_t * vm)
2028 {
2029   transport_enable_disable (vm, 0 /* is_en */ );
2030 }
2031
2032 /* in this new callback, cookie hint the index */
2033 void
2034 session_dma_completion_cb (vlib_main_t *vm, struct vlib_dma_batch *batch)
2035 {
2036   session_worker_t *wrk;
2037   wrk = session_main_get_worker (vm->thread_index);
2038   session_dma_transfer *dma_transfer;
2039
2040   dma_transfer = &wrk->dma_trans[wrk->trans_head];
2041   vec_add (wrk->pending_tx_buffers, dma_transfer->pending_tx_buffers,
2042            vec_len (dma_transfer->pending_tx_buffers));
2043   vec_add (wrk->pending_tx_nexts, dma_transfer->pending_tx_nexts,
2044            vec_len (dma_transfer->pending_tx_nexts));
2045   vec_reset_length (dma_transfer->pending_tx_buffers);
2046   vec_reset_length (dma_transfer->pending_tx_nexts);
2047   wrk->trans_head++;
2048   if (wrk->trans_head == wrk->trans_size)
2049     wrk->trans_head = 0;
2050   return;
2051 }
2052
2053 static void
2054 session_prepare_dma_args (vlib_dma_config_t *args)
2055 {
2056   args->max_batches = 16;
2057   args->max_transfers = DMA_TRANS_SIZE;
2058   args->max_transfer_size = 65536;
2059   args->features = 0;
2060   args->sw_fallback = 1;
2061   args->barrier_before_last = 1;
2062   args->callback_fn = session_dma_completion_cb;
2063 }
2064
2065 static void
2066 session_node_enable_dma (u8 is_en, int n_vlibs)
2067 {
2068   vlib_dma_config_t args;
2069   session_prepare_dma_args (&args);
2070   session_worker_t *wrk;
2071   vlib_main_t *vm;
2072
2073   int config_index = -1;
2074
2075   if (is_en)
2076     {
2077       vm = vlib_get_main_by_index (0);
2078       config_index = vlib_dma_config_add (vm, &args);
2079     }
2080   else
2081     {
2082       vm = vlib_get_main_by_index (0);
2083       wrk = session_main_get_worker (0);
2084       if (wrk->config_index >= 0)
2085         vlib_dma_config_del (vm, wrk->config_index);
2086     }
2087   int i;
2088   for (i = 0; i < n_vlibs; i++)
2089     {
2090       vm = vlib_get_main_by_index (i);
2091       wrk = session_main_get_worker (vm->thread_index);
2092       wrk->config_index = config_index;
2093       if (is_en)
2094         {
2095           if (config_index >= 0)
2096             wrk->dma_enabled = true;
2097           wrk->dma_trans = (session_dma_transfer *) clib_mem_alloc (
2098             sizeof (session_dma_transfer) * DMA_TRANS_SIZE);
2099           bzero (wrk->dma_trans,
2100                  sizeof (session_dma_transfer) * DMA_TRANS_SIZE);
2101         }
2102       else
2103         {
2104           if (wrk->dma_trans)
2105             clib_mem_free (wrk->dma_trans);
2106         }
2107       wrk->trans_head = 0;
2108       wrk->trans_tail = 0;
2109       wrk->trans_size = DMA_TRANS_SIZE;
2110     }
2111 }
2112
2113 void
2114 session_node_enable_disable (u8 is_en)
2115 {
2116   u8 mstate = is_en ? VLIB_NODE_STATE_INTERRUPT : VLIB_NODE_STATE_DISABLED;
2117   u8 state = is_en ? VLIB_NODE_STATE_POLLING : VLIB_NODE_STATE_DISABLED;
2118   session_main_t *sm = &session_main;
2119   vlib_main_t *vm;
2120   vlib_node_t *n;
2121   int n_vlibs, i;
2122
2123   n_vlibs = vlib_get_n_threads ();
2124   for (i = 0; i < n_vlibs; i++)
2125     {
2126       vm = vlib_get_main_by_index (i);
2127       /* main thread with workers and not polling */
2128       if (i == 0 && n_vlibs > 1)
2129         {
2130           vlib_node_set_state (vm, session_queue_node.index, mstate);
2131           if (is_en)
2132             {
2133               session_main_get_worker (0)->state = SESSION_WRK_INTERRUPT;
2134               vlib_node_set_state (vm, session_queue_process_node.index,
2135                                    state);
2136               n = vlib_get_node (vm, session_queue_process_node.index);
2137               vlib_start_process (vm, n->runtime_index);
2138             }
2139           else
2140             {
2141               vlib_process_signal_event_mt (vm,
2142                                             session_queue_process_node.index,
2143                                             SESSION_Q_PROCESS_STOP, 0);
2144             }
2145           if (!sm->poll_main)
2146             continue;
2147         }
2148       vlib_node_set_state (vm, session_input_node.index, mstate);
2149       vlib_node_set_state (vm, session_queue_node.index, state);
2150     }
2151
2152   if (sm->use_private_rx_mqs)
2153     application_enable_rx_mqs_nodes (is_en);
2154
2155   if (sm->dma_enabled)
2156     session_node_enable_dma (is_en, n_vlibs);
2157 }
2158
2159 clib_error_t *
2160 vnet_session_enable_disable (vlib_main_t * vm, u8 is_en)
2161 {
2162   clib_error_t *error = 0;
2163   if (is_en)
2164     {
2165       if (session_main.is_enabled)
2166         return 0;
2167
2168       error = session_manager_main_enable (vm);
2169       session_node_enable_disable (is_en);
2170     }
2171   else
2172     {
2173       session_main.is_enabled = 0;
2174       session_manager_main_disable (vm);
2175       session_node_enable_disable (is_en);
2176     }
2177
2178   return error;
2179 }
2180
2181 clib_error_t *
2182 session_main_init (vlib_main_t * vm)
2183 {
2184   session_main_t *smm = &session_main;
2185
2186   smm->is_enabled = 0;
2187   smm->session_enable_asap = 0;
2188   smm->poll_main = 0;
2189   smm->use_private_rx_mqs = 0;
2190   smm->no_adaptive = 0;
2191   smm->last_transport_proto_type = TRANSPORT_PROTO_HTTP;
2192   smm->port_allocator_min_src_port = 1024;
2193   smm->port_allocator_max_src_port = 65535;
2194
2195   return 0;
2196 }
2197
2198 static clib_error_t *
2199 session_main_loop_init (vlib_main_t * vm)
2200 {
2201   session_main_t *smm = &session_main;
2202   if (smm->session_enable_asap)
2203     {
2204       vlib_worker_thread_barrier_sync (vm);
2205       vnet_session_enable_disable (vm, 1 /* is_en */ );
2206       vlib_worker_thread_barrier_release (vm);
2207     }
2208   return 0;
2209 }
2210
2211 VLIB_INIT_FUNCTION (session_main_init);
2212 VLIB_MAIN_LOOP_ENTER_FUNCTION (session_main_loop_init);
2213
2214 static clib_error_t *
2215 session_config_fn (vlib_main_t * vm, unformat_input_t * input)
2216 {
2217   session_main_t *smm = &session_main;
2218   u32 nitems;
2219   uword tmp;
2220
2221   while (unformat_check_input (input) != UNFORMAT_END_OF_INPUT)
2222     {
2223       if (unformat (input, "wrk-mq-length %d", &nitems))
2224         {
2225           if (nitems >= 2048)
2226             smm->configured_wrk_mq_length = nitems;
2227           else
2228             clib_warning ("event queue length %d too small, ignored", nitems);
2229         }
2230       else if (unformat (input, "wrk-mqs-segment-size %U",
2231                          unformat_memory_size, &smm->wrk_mqs_segment_size))
2232         ;
2233       else if (unformat (input, "preallocated-sessions %d",
2234                          &smm->preallocated_sessions))
2235         ;
2236       else if (unformat (input, "v4-session-table-buckets %d",
2237                          &smm->configured_v4_session_table_buckets))
2238         ;
2239       else if (unformat (input, "v4-halfopen-table-buckets %d",
2240                          &smm->configured_v4_halfopen_table_buckets))
2241         ;
2242       else if (unformat (input, "v6-session-table-buckets %d",
2243                          &smm->configured_v6_session_table_buckets))
2244         ;
2245       else if (unformat (input, "v6-halfopen-table-buckets %d",
2246                          &smm->configured_v6_halfopen_table_buckets))
2247         ;
2248       else if (unformat (input, "v4-session-table-memory %U",
2249                          unformat_memory_size, &tmp))
2250         {
2251           if (tmp >= 0x100000000)
2252             return clib_error_return (0, "memory size %llx (%lld) too large",
2253                                       tmp, tmp);
2254           smm->configured_v4_session_table_memory = tmp;
2255         }
2256       else if (unformat (input, "v4-halfopen-table-memory %U",
2257                          unformat_memory_size, &tmp))
2258         {
2259           if (tmp >= 0x100000000)
2260             return clib_error_return (0, "memory size %llx (%lld) too large",
2261                                       tmp, tmp);
2262           smm->configured_v4_halfopen_table_memory = tmp;
2263         }
2264       else if (unformat (input, "v6-session-table-memory %U",
2265                          unformat_memory_size, &tmp))
2266         {
2267           if (tmp >= 0x100000000)
2268             return clib_error_return (0, "memory size %llx (%lld) too large",
2269                                       tmp, tmp);
2270           smm->configured_v6_session_table_memory = tmp;
2271         }
2272       else if (unformat (input, "v6-halfopen-table-memory %U",
2273                          unformat_memory_size, &tmp))
2274         {
2275           if (tmp >= 0x100000000)
2276             return clib_error_return (0, "memory size %llx (%lld) too large",
2277                                       tmp, tmp);
2278           smm->configured_v6_halfopen_table_memory = tmp;
2279         }
2280       else if (unformat (input, "local-endpoints-table-memory %U",
2281                          unformat_memory_size, &tmp))
2282         {
2283           if (tmp >= 0x100000000)
2284             return clib_error_return (0, "memory size %llx (%lld) too large",
2285                                       tmp, tmp);
2286           smm->local_endpoints_table_memory = tmp;
2287         }
2288       else if (unformat (input, "local-endpoints-table-buckets %d",
2289                          &smm->local_endpoints_table_buckets))
2290         ;
2291       else if (unformat (input, "min-src-port %d", &tmp))
2292         smm->port_allocator_min_src_port = tmp;
2293       else if (unformat (input, "max-src-port %d", &tmp))
2294         smm->port_allocator_max_src_port = tmp;
2295       else if (unformat (input, "enable"))
2296         smm->session_enable_asap = 1;
2297       else if (unformat (input, "use-app-socket-api"))
2298         (void) appns_sapi_enable_disable (1 /* is_enable */);
2299       else if (unformat (input, "poll-main"))
2300         smm->poll_main = 1;
2301       else if (unformat (input, "use-private-rx-mqs"))
2302         smm->use_private_rx_mqs = 1;
2303       else if (unformat (input, "no-adaptive"))
2304         smm->no_adaptive = 1;
2305       else if (unformat (input, "use-dma"))
2306         smm->dma_enabled = 1;
2307       else if (unformat (input, "nat44-original-dst-enable"))
2308         {
2309           smm->original_dst_lookup = vlib_get_plugin_symbol (
2310             "nat_plugin.so", "nat44_original_dst_lookup");
2311         }
2312       /*
2313        * Deprecated but maintained for compatibility
2314        */
2315       else if (unformat (input, "evt_qs_memfd_seg"))
2316         ;
2317       else if (unformat (input, "segment-baseva 0x%lx", &tmp))
2318         ;
2319       else if (unformat (input, "evt_qs_seg_size %U", unformat_memory_size,
2320                          &smm->wrk_mqs_segment_size))
2321         ;
2322       else if (unformat (input, "event-queue-length %d", &nitems))
2323         {
2324           if (nitems >= 2048)
2325             smm->configured_wrk_mq_length = nitems;
2326           else
2327             clib_warning ("event queue length %d too small, ignored", nitems);
2328         }
2329       else
2330         return clib_error_return (0, "unknown input `%U'",
2331                                   format_unformat_error, input);
2332     }
2333   return 0;
2334 }
2335
2336 VLIB_CONFIG_FUNCTION (session_config_fn, "session");
2337
2338 /*
2339  * fd.io coding-style-patch-verification: ON
2340  *
2341  * Local Variables:
2342  * eval: (c-set-style "gnu")
2343  * End:
2344  */