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 /* *INDENT-OFF* */
1436 static session_open_service_fn session_open_srv_fns[TRANSPORT_N_SERVICES] = {
1437   session_open_vc,
1438   session_open_cl,
1439   session_open_app,
1440 };
1441 /* *INDENT-ON* */
1442
1443 /**
1444  * Ask transport to open connection to remote transport endpoint.
1445  *
1446  * Stores handle for matching request with reply since the call can be
1447  * asynchronous. For instance, for TCP the 3-way handshake must complete
1448  * before reply comes. Session is only created once connection is established.
1449  *
1450  * @param app_index Index of the application requesting the connect
1451  * @param st Session type requested.
1452  * @param tep Remote transport endpoint
1453  * @param opaque Opaque data (typically, api_context) the application expects
1454  *               on open completion.
1455  */
1456 int
1457 session_open (session_endpoint_cfg_t *rmt, session_handle_t *rsh)
1458 {
1459   transport_service_type_t tst;
1460   tst = transport_protocol_service_type (rmt->transport_proto);
1461   return session_open_srv_fns[tst](rmt, rsh);
1462 }
1463
1464 /**
1465  * Ask transport to listen on session endpoint.
1466  *
1467  * @param s Session for which listen will be called. Note that unlike
1468  *          established sessions, listen sessions are not associated to a
1469  *          thread.
1470  * @param sep Local endpoint to be listened on.
1471  */
1472 int
1473 session_listen (session_t * ls, session_endpoint_cfg_t * sep)
1474 {
1475   transport_endpoint_cfg_t *tep;
1476   int tc_index;
1477   u32 s_index;
1478
1479   /* Transport bind/listen */
1480   tep = session_endpoint_to_transport_cfg (sep);
1481   s_index = ls->session_index;
1482   tc_index = transport_start_listen (session_get_transport_proto (ls),
1483                                      s_index, tep);
1484
1485   if (tc_index < 0)
1486     return tc_index;
1487
1488   /* Attach transport to session. Lookup tables are populated by the app
1489    * worker because local tables (for ct sessions) are not backed by a fib */
1490   ls = listen_session_get (s_index);
1491   ls->connection_index = tc_index;
1492   ls->opaque = sep->opaque;
1493   if (transport_connection_is_cless (session_get_transport (ls)))
1494     ls->flags |= SESSION_F_IS_CLESS;
1495
1496   return 0;
1497 }
1498
1499 /**
1500  * Ask transport to stop listening on local transport endpoint.
1501  *
1502  * @param s Session to stop listening on. It must be in state LISTENING.
1503  */
1504 int
1505 session_stop_listen (session_t * s)
1506 {
1507   transport_proto_t tp = session_get_transport_proto (s);
1508   transport_connection_t *tc;
1509
1510   if (s->session_state != SESSION_STATE_LISTENING)
1511     return SESSION_E_NOLISTEN;
1512
1513   tc = transport_get_listener (tp, s->connection_index);
1514
1515   /* If no transport, assume everything was cleaned up already */
1516   if (!tc)
1517     return SESSION_E_NONE;
1518
1519   if (!(tc->flags & TRANSPORT_CONNECTION_F_NO_LOOKUP))
1520     session_lookup_del_connection (tc);
1521
1522   transport_stop_listen (tp, s->connection_index);
1523   return 0;
1524 }
1525
1526 /**
1527  * Initialize session half-closing procedure.
1528  *
1529  * Note that half-closing will not change the state of the session.
1530  */
1531 void
1532 session_half_close (session_t *s)
1533 {
1534   if (!s)
1535     return;
1536
1537   session_program_transport_ctrl_evt (s, SESSION_CTRL_EVT_HALF_CLOSE);
1538 }
1539
1540 /**
1541  * Initialize session closing procedure.
1542  *
1543  * Request is always sent to session node to ensure that all outstanding
1544  * requests are served before transport is notified.
1545  */
1546 void
1547 session_close (session_t * s)
1548 {
1549   if (!s || (s->flags & SESSION_F_APP_CLOSED))
1550     return;
1551
1552   /* Transports can close and delete their state independent of app closes
1553    * and transport initiated state transitions can hide app closes. Instead
1554    * of extending the state machine to support separate tracking of app and
1555    * transport initiated closes, use a flag. */
1556   s->flags |= SESSION_F_APP_CLOSED;
1557
1558   if (s->session_state >= SESSION_STATE_CLOSING)
1559     {
1560       /* Session will only be removed once both app and transport
1561        * acknowledge the close */
1562       if (s->session_state == SESSION_STATE_TRANSPORT_CLOSED
1563           || s->session_state == SESSION_STATE_TRANSPORT_DELETED)
1564         session_program_transport_ctrl_evt (s, SESSION_CTRL_EVT_CLOSE);
1565       return;
1566     }
1567
1568   /* App closed so stop propagating dequeue notifications.
1569    * App might disconnect session before connected, in this case,
1570    * tx_fifo may not be setup yet, so clear only it's inited. */
1571   if (s->tx_fifo)
1572     svm_fifo_clear_deq_ntf (s->tx_fifo);
1573   session_set_state (s, SESSION_STATE_CLOSING);
1574   session_program_transport_ctrl_evt (s, SESSION_CTRL_EVT_CLOSE);
1575 }
1576
1577 /**
1578  * Force a close without waiting for data to be flushed
1579  */
1580 void
1581 session_reset (session_t * s)
1582 {
1583   if (s->session_state >= SESSION_STATE_CLOSING)
1584     return;
1585   /* Drop all outstanding tx data
1586    * App might disconnect session before connected, in this case,
1587    * tx_fifo may not be setup yet, so clear only it's inited. */
1588   if (s->tx_fifo)
1589     svm_fifo_dequeue_drop_all (s->tx_fifo);
1590   session_set_state (s, SESSION_STATE_CLOSING);
1591   session_program_transport_ctrl_evt (s, SESSION_CTRL_EVT_RESET);
1592 }
1593
1594 /**
1595  * Notify transport the session can be half-disconnected.
1596  *
1597  * Must be called from the session's thread.
1598  */
1599 void
1600 session_transport_half_close (session_t *s)
1601 {
1602   /* Only READY session can be half-closed */
1603   if (s->session_state != SESSION_STATE_READY)
1604     {
1605       return;
1606     }
1607
1608   transport_half_close (session_get_transport_proto (s), s->connection_index,
1609                         s->thread_index);
1610 }
1611
1612 /**
1613  * Notify transport the session can be disconnected. This should eventually
1614  * result in a delete notification that allows us to cleanup session state.
1615  * Called for both active/passive disconnects.
1616  *
1617  * Must be called from the session's thread.
1618  */
1619 void
1620 session_transport_close (session_t * s)
1621 {
1622   if (s->session_state >= SESSION_STATE_APP_CLOSED)
1623     {
1624       if (s->session_state == SESSION_STATE_TRANSPORT_CLOSED)
1625         session_set_state (s, SESSION_STATE_CLOSED);
1626       /* If transport is already deleted, just free the session */
1627       else if (s->session_state >= SESSION_STATE_TRANSPORT_DELETED)
1628         session_program_cleanup (s);
1629       return;
1630     }
1631
1632   /* If the tx queue wasn't drained, the transport can continue to try
1633    * sending the outstanding data (in closed state it cannot). It MUST however
1634    * at one point, either after sending everything or after a timeout, call
1635    * delete notify. This will finally lead to the complete cleanup of the
1636    * session.
1637    */
1638   session_set_state (s, SESSION_STATE_APP_CLOSED);
1639
1640   transport_close (session_get_transport_proto (s), s->connection_index,
1641                    s->thread_index);
1642 }
1643
1644 /**
1645  * Force transport close
1646  */
1647 void
1648 session_transport_reset (session_t * s)
1649 {
1650   if (s->session_state >= SESSION_STATE_APP_CLOSED)
1651     {
1652       if (s->session_state == SESSION_STATE_TRANSPORT_CLOSED)
1653         session_set_state (s, SESSION_STATE_CLOSED);
1654       else if (s->session_state >= SESSION_STATE_TRANSPORT_DELETED)
1655         session_program_cleanup (s);
1656       return;
1657     }
1658
1659   session_set_state (s, SESSION_STATE_APP_CLOSED);
1660   transport_reset (session_get_transport_proto (s), s->connection_index,
1661                    s->thread_index);
1662 }
1663
1664 /**
1665  * Cleanup transport and session state.
1666  *
1667  * Notify transport of the cleanup and free the session. This should
1668  * be called only if transport reported some error and is already
1669  * closed.
1670  */
1671 void
1672 session_transport_cleanup (session_t * s)
1673 {
1674   /* Delete from main lookup table before we axe the the transport */
1675   session_lookup_del_session (s);
1676   if (s->session_state != SESSION_STATE_TRANSPORT_DELETED)
1677     transport_cleanup (session_get_transport_proto (s), s->connection_index,
1678                        s->thread_index);
1679   /* Since we called cleanup, no delete notification will come. So, make
1680    * sure the session is properly freed. */
1681   segment_manager_dealloc_fifos (s->rx_fifo, s->tx_fifo);
1682   session_free (s);
1683 }
1684
1685 /**
1686  * Allocate worker mqs in share-able segment
1687  *
1688  * That can only be a newly created memfd segment, that must be mapped
1689  * by all apps/stack users unless private rx mqs are enabled.
1690  */
1691 void
1692 session_vpp_wrk_mqs_alloc (session_main_t *smm)
1693 {
1694   u32 mq_q_length = 2048, evt_size = sizeof (session_event_t);
1695   fifo_segment_t *mqs_seg = &smm->wrk_mqs_segment;
1696   svm_msg_q_cfg_t _cfg, *cfg = &_cfg;
1697   uword mqs_seg_size;
1698   int i;
1699
1700   mq_q_length = clib_max (mq_q_length, smm->configured_wrk_mq_length);
1701
1702   svm_msg_q_ring_cfg_t rc[SESSION_MQ_N_RINGS] = {
1703     { mq_q_length, evt_size, 0 }, { mq_q_length >> 1, 256, 0 }
1704   };
1705   cfg->consumer_pid = 0;
1706   cfg->n_rings = 2;
1707   cfg->q_nitems = mq_q_length;
1708   cfg->ring_cfgs = rc;
1709
1710   /*
1711    * Compute mqs segment size based on rings config and leave space
1712    * for passing extended configuration messages, i.e., data allocated
1713    * outside of the rings. If provided with a config value, accept it
1714    * if larger than minimum size.
1715    */
1716   mqs_seg_size = svm_msg_q_size_to_alloc (cfg) * vec_len (smm->wrk);
1717   mqs_seg_size = mqs_seg_size + (1 << 20);
1718   mqs_seg_size = clib_max (mqs_seg_size, smm->wrk_mqs_segment_size);
1719
1720   mqs_seg->ssvm.ssvm_size = mqs_seg_size;
1721   mqs_seg->ssvm.my_pid = getpid ();
1722   mqs_seg->ssvm.name = format (0, "%s%c", "session: wrk-mqs-segment", 0);
1723
1724   if (ssvm_server_init (&mqs_seg->ssvm, SSVM_SEGMENT_MEMFD))
1725     {
1726       clib_warning ("failed to initialize queue segment");
1727       return;
1728     }
1729
1730   fifo_segment_init (mqs_seg);
1731
1732   /* Special fifo segment that's filled only with mqs */
1733   mqs_seg->h->n_mqs = vec_len (smm->wrk);
1734
1735   for (i = 0; i < vec_len (smm->wrk); i++)
1736     smm->wrk[i].vpp_event_queue = fifo_segment_msg_q_alloc (mqs_seg, i, cfg);
1737 }
1738
1739 fifo_segment_t *
1740 session_main_get_wrk_mqs_segment (void)
1741 {
1742   return &session_main.wrk_mqs_segment;
1743 }
1744
1745 u64
1746 session_segment_handle (session_t * s)
1747 {
1748   svm_fifo_t *f;
1749
1750   if (!s->rx_fifo)
1751     return SESSION_INVALID_HANDLE;
1752
1753   f = s->rx_fifo;
1754   return segment_manager_make_segment_handle (f->segment_manager,
1755                                               f->segment_index);
1756 }
1757
1758 void
1759 session_get_original_dst (transport_endpoint_t *i2o_src,
1760                           transport_endpoint_t *i2o_dst,
1761                           transport_proto_t transport_proto, u32 *original_dst,
1762                           u16 *original_dst_port)
1763 {
1764   session_main_t *smm = vnet_get_session_main ();
1765   ip_protocol_t proto =
1766     (transport_proto == TRANSPORT_PROTO_TCP ? IPPROTO_TCP : IPPROTO_UDP);
1767   if (!smm->original_dst_lookup || !i2o_dst->is_ip4)
1768     return;
1769   smm->original_dst_lookup (&i2o_src->ip.ip4, i2o_src->port, &i2o_dst->ip.ip4,
1770                             i2o_dst->port, proto, original_dst,
1771                             original_dst_port);
1772 }
1773
1774 /* *INDENT-OFF* */
1775 static session_fifo_rx_fn *session_tx_fns[TRANSPORT_TX_N_FNS] = {
1776     session_tx_fifo_peek_and_snd,
1777     session_tx_fifo_dequeue_and_snd,
1778     session_tx_fifo_dequeue_internal,
1779     session_tx_fifo_dequeue_and_snd
1780 };
1781 /* *INDENT-ON* */
1782
1783 void
1784 session_register_transport (transport_proto_t transport_proto,
1785                             const transport_proto_vft_t * vft, u8 is_ip4,
1786                             u32 output_node)
1787 {
1788   session_main_t *smm = &session_main;
1789   session_type_t session_type;
1790   u32 next_index = ~0;
1791
1792   session_type = session_type_from_proto_and_ip (transport_proto, is_ip4);
1793
1794   vec_validate (smm->session_type_to_next, session_type);
1795   vec_validate (smm->session_tx_fns, session_type);
1796
1797   if (output_node != ~0)
1798     next_index = vlib_node_add_next (vlib_get_main (),
1799                                      session_queue_node.index, output_node);
1800
1801   smm->session_type_to_next[session_type] = next_index;
1802   smm->session_tx_fns[session_type] =
1803     session_tx_fns[vft->transport_options.tx_type];
1804 }
1805
1806 void
1807 session_register_update_time_fn (session_update_time_fn fn, u8 is_add)
1808 {
1809   session_main_t *smm = &session_main;
1810   session_update_time_fn *fi;
1811   u32 fi_pos = ~0;
1812   u8 found = 0;
1813
1814   vec_foreach (fi, smm->update_time_fns)
1815     {
1816       if (*fi == fn)
1817         {
1818           fi_pos = fi - smm->update_time_fns;
1819           found = 1;
1820           break;
1821         }
1822     }
1823
1824   if (is_add)
1825     {
1826       if (found)
1827         {
1828           clib_warning ("update time fn %p already registered", fn);
1829           return;
1830         }
1831       vec_add1 (smm->update_time_fns, fn);
1832     }
1833   else
1834     {
1835       vec_del1 (smm->update_time_fns, fi_pos);
1836     }
1837 }
1838
1839 transport_proto_t
1840 session_add_transport_proto (void)
1841 {
1842   session_main_t *smm = &session_main;
1843   session_worker_t *wrk;
1844   u32 thread;
1845
1846   smm->last_transport_proto_type += 1;
1847
1848   for (thread = 0; thread < vec_len (smm->wrk); thread++)
1849     {
1850       wrk = session_main_get_worker (thread);
1851       vec_validate (wrk->session_to_enqueue, smm->last_transport_proto_type);
1852     }
1853
1854   return smm->last_transport_proto_type;
1855 }
1856
1857 transport_connection_t *
1858 session_get_transport (session_t * s)
1859 {
1860   if (s->session_state != SESSION_STATE_LISTENING)
1861     return transport_get_connection (session_get_transport_proto (s),
1862                                      s->connection_index, s->thread_index);
1863   else
1864     return transport_get_listener (session_get_transport_proto (s),
1865                                    s->connection_index);
1866 }
1867
1868 void
1869 session_get_endpoint (session_t * s, transport_endpoint_t * tep, u8 is_lcl)
1870 {
1871   if (s->session_state != SESSION_STATE_LISTENING)
1872     return transport_get_endpoint (session_get_transport_proto (s),
1873                                    s->connection_index, s->thread_index, tep,
1874                                    is_lcl);
1875   else
1876     return transport_get_listener_endpoint (session_get_transport_proto (s),
1877                                             s->connection_index, tep, is_lcl);
1878 }
1879
1880 int
1881 session_transport_attribute (session_t *s, u8 is_get,
1882                              transport_endpt_attr_t *attr)
1883 {
1884   if (s->session_state < SESSION_STATE_READY)
1885     return -1;
1886
1887   return transport_connection_attribute (session_get_transport_proto (s),
1888                                          s->connection_index, s->thread_index,
1889                                          is_get, attr);
1890 }
1891
1892 transport_connection_t *
1893 listen_session_get_transport (session_t * s)
1894 {
1895   return transport_get_listener (session_get_transport_proto (s),
1896                                  s->connection_index);
1897 }
1898
1899 void
1900 session_queue_run_on_main_thread (vlib_main_t * vm)
1901 {
1902   ASSERT (vlib_get_thread_index () == 0);
1903   vlib_node_set_interrupt_pending (vm, session_queue_node.index);
1904 }
1905
1906 static void
1907 session_stats_collector_fn (vlib_stats_collector_data_t *d)
1908 {
1909   u32 i, n_workers, n_wrk_sessions, n_sessions = 0;
1910   session_main_t *smm = &session_main;
1911   session_worker_t *wrk;
1912   counter_t **counters;
1913   counter_t *cb;
1914
1915   n_workers = vec_len (smm->wrk);
1916   vlib_stats_validate (d->entry_index, 0, n_workers - 1);
1917   counters = d->entry->data;
1918   cb = counters[0];
1919
1920   for (i = 0; i < vec_len (smm->wrk); i++)
1921     {
1922       wrk = session_main_get_worker (i);
1923       n_wrk_sessions = pool_elts (wrk->sessions);
1924       cb[i] = n_wrk_sessions;
1925       n_sessions += n_wrk_sessions;
1926     }
1927
1928   vlib_stats_set_gauge (d->private_data, n_sessions);
1929 }
1930
1931 static void
1932 session_stats_collector_init (void)
1933 {
1934   vlib_stats_collector_reg_t reg = {};
1935
1936   reg.entry_index =
1937     vlib_stats_add_counter_vector ("/sys/session/sessions_per_worker");
1938   reg.private_data = vlib_stats_add_gauge ("/sys/session/sessions_total");
1939   reg.collect_fn = session_stats_collector_fn;
1940   vlib_stats_register_collector_fn (&reg);
1941   vlib_stats_validate (reg.entry_index, 0, vlib_get_n_threads ());
1942 }
1943
1944 static clib_error_t *
1945 session_manager_main_enable (vlib_main_t * vm)
1946 {
1947   session_main_t *smm = &session_main;
1948   vlib_thread_main_t *vtm = vlib_get_thread_main ();
1949   u32 num_threads, preallocated_sessions_per_worker;
1950   session_worker_t *wrk;
1951   int i;
1952
1953   /* We only initialize once and do not de-initialized on disable */
1954   if (smm->is_initialized)
1955     goto done;
1956
1957   num_threads = 1 /* main thread */  + vtm->n_threads;
1958
1959   if (num_threads < 1)
1960     return clib_error_return (0, "n_thread_stacks not set");
1961
1962   /* Allocate cache line aligned worker contexts */
1963   vec_validate_aligned (smm->wrk, num_threads - 1, CLIB_CACHE_LINE_BYTES);
1964   clib_spinlock_init (&session_main.pool_realloc_lock);
1965
1966   for (i = 0; i < num_threads; i++)
1967     {
1968       wrk = &smm->wrk[i];
1969       wrk->ctrl_head = clib_llist_make_head (wrk->event_elts, evt_list);
1970       wrk->new_head = clib_llist_make_head (wrk->event_elts, evt_list);
1971       wrk->old_head = clib_llist_make_head (wrk->event_elts, evt_list);
1972       wrk->pending_connects = clib_llist_make_head (wrk->event_elts, evt_list);
1973       wrk->evts_pending_main =
1974         clib_llist_make_head (wrk->event_elts, evt_list);
1975       wrk->vm = vlib_get_main_by_index (i);
1976       wrk->last_vlib_time = vlib_time_now (vm);
1977       wrk->last_vlib_us_time = wrk->last_vlib_time * CLIB_US_TIME_FREQ;
1978       wrk->timerfd = -1;
1979       vec_validate (wrk->session_to_enqueue, smm->last_transport_proto_type);
1980
1981       if (!smm->no_adaptive && smm->use_private_rx_mqs)
1982         session_wrk_enable_adaptive_mode (wrk);
1983     }
1984
1985   /* Allocate vpp event queues segment and queue */
1986   session_vpp_wrk_mqs_alloc (smm);
1987
1988   /* Initialize segment manager properties */
1989   segment_manager_main_init ();
1990
1991   /* Preallocate sessions */
1992   if (smm->preallocated_sessions)
1993     {
1994       if (num_threads == 1)
1995         {
1996           pool_init_fixed (smm->wrk[0].sessions, smm->preallocated_sessions);
1997         }
1998       else
1999         {
2000           int j;
2001           preallocated_sessions_per_worker =
2002             (1.1 * (f64) smm->preallocated_sessions /
2003              (f64) (num_threads - 1));
2004
2005           for (j = 1; j < num_threads; j++)
2006             {
2007               pool_init_fixed (smm->wrk[j].sessions,
2008                                preallocated_sessions_per_worker);
2009             }
2010         }
2011     }
2012
2013   session_lookup_init ();
2014   app_namespaces_init ();
2015   transport_init ();
2016   session_stats_collector_init ();
2017   smm->is_initialized = 1;
2018
2019 done:
2020
2021   smm->is_enabled = 1;
2022
2023   /* Enable transports */
2024   transport_enable_disable (vm, 1);
2025   session_debug_init ();
2026
2027   return 0;
2028 }
2029
2030 static void
2031 session_manager_main_disable (vlib_main_t * vm)
2032 {
2033   transport_enable_disable (vm, 0 /* is_en */ );
2034 }
2035
2036 /* in this new callback, cookie hint the index */
2037 void
2038 session_dma_completion_cb (vlib_main_t *vm, struct vlib_dma_batch *batch)
2039 {
2040   session_worker_t *wrk;
2041   wrk = session_main_get_worker (vm->thread_index);
2042   session_dma_transfer *dma_transfer;
2043
2044   dma_transfer = &wrk->dma_trans[wrk->trans_head];
2045   vec_add (wrk->pending_tx_buffers, dma_transfer->pending_tx_buffers,
2046            vec_len (dma_transfer->pending_tx_buffers));
2047   vec_add (wrk->pending_tx_nexts, dma_transfer->pending_tx_nexts,
2048            vec_len (dma_transfer->pending_tx_nexts));
2049   vec_reset_length (dma_transfer->pending_tx_buffers);
2050   vec_reset_length (dma_transfer->pending_tx_nexts);
2051   wrk->trans_head++;
2052   if (wrk->trans_head == wrk->trans_size)
2053     wrk->trans_head = 0;
2054   return;
2055 }
2056
2057 static void
2058 session_prepare_dma_args (vlib_dma_config_t *args)
2059 {
2060   args->max_batches = 16;
2061   args->max_transfers = DMA_TRANS_SIZE;
2062   args->max_transfer_size = 65536;
2063   args->features = 0;
2064   args->sw_fallback = 1;
2065   args->barrier_before_last = 1;
2066   args->callback_fn = session_dma_completion_cb;
2067 }
2068
2069 static void
2070 session_node_enable_dma (u8 is_en, int n_vlibs)
2071 {
2072   vlib_dma_config_t args;
2073   session_prepare_dma_args (&args);
2074   session_worker_t *wrk;
2075   vlib_main_t *vm;
2076
2077   int config_index = -1;
2078
2079   if (is_en)
2080     {
2081       vm = vlib_get_main_by_index (0);
2082       config_index = vlib_dma_config_add (vm, &args);
2083     }
2084   else
2085     {
2086       vm = vlib_get_main_by_index (0);
2087       wrk = session_main_get_worker (0);
2088       if (wrk->config_index >= 0)
2089         vlib_dma_config_del (vm, wrk->config_index);
2090     }
2091   int i;
2092   for (i = 0; i < n_vlibs; i++)
2093     {
2094       vm = vlib_get_main_by_index (i);
2095       wrk = session_main_get_worker (vm->thread_index);
2096       wrk->config_index = config_index;
2097       if (is_en)
2098         {
2099           if (config_index >= 0)
2100             wrk->dma_enabled = true;
2101           wrk->dma_trans = (session_dma_transfer *) clib_mem_alloc (
2102             sizeof (session_dma_transfer) * DMA_TRANS_SIZE);
2103           bzero (wrk->dma_trans,
2104                  sizeof (session_dma_transfer) * DMA_TRANS_SIZE);
2105         }
2106       else
2107         {
2108           if (wrk->dma_trans)
2109             clib_mem_free (wrk->dma_trans);
2110         }
2111       wrk->trans_head = 0;
2112       wrk->trans_tail = 0;
2113       wrk->trans_size = DMA_TRANS_SIZE;
2114     }
2115 }
2116
2117 void
2118 session_node_enable_disable (u8 is_en)
2119 {
2120   u8 mstate = is_en ? VLIB_NODE_STATE_INTERRUPT : VLIB_NODE_STATE_DISABLED;
2121   u8 state = is_en ? VLIB_NODE_STATE_POLLING : VLIB_NODE_STATE_DISABLED;
2122   session_main_t *sm = &session_main;
2123   vlib_main_t *vm;
2124   vlib_node_t *n;
2125   int n_vlibs, i;
2126
2127   n_vlibs = vlib_get_n_threads ();
2128   for (i = 0; i < n_vlibs; i++)
2129     {
2130       vm = vlib_get_main_by_index (i);
2131       /* main thread with workers and not polling */
2132       if (i == 0 && n_vlibs > 1)
2133         {
2134           vlib_node_set_state (vm, session_queue_node.index, mstate);
2135           if (is_en)
2136             {
2137               session_main_get_worker (0)->state = SESSION_WRK_INTERRUPT;
2138               vlib_node_set_state (vm, session_queue_process_node.index,
2139                                    state);
2140               n = vlib_get_node (vm, session_queue_process_node.index);
2141               vlib_start_process (vm, n->runtime_index);
2142             }
2143           else
2144             {
2145               vlib_process_signal_event_mt (vm,
2146                                             session_queue_process_node.index,
2147                                             SESSION_Q_PROCESS_STOP, 0);
2148             }
2149           if (!sm->poll_main)
2150             continue;
2151         }
2152       vlib_node_set_state (vm, session_input_node.index, mstate);
2153       vlib_node_set_state (vm, session_queue_node.index, state);
2154     }
2155
2156   if (sm->use_private_rx_mqs)
2157     application_enable_rx_mqs_nodes (is_en);
2158
2159   if (sm->dma_enabled)
2160     session_node_enable_dma (is_en, n_vlibs);
2161 }
2162
2163 clib_error_t *
2164 vnet_session_enable_disable (vlib_main_t * vm, u8 is_en)
2165 {
2166   clib_error_t *error = 0;
2167   if (is_en)
2168     {
2169       if (session_main.is_enabled)
2170         return 0;
2171
2172       error = session_manager_main_enable (vm);
2173       session_node_enable_disable (is_en);
2174     }
2175   else
2176     {
2177       session_main.is_enabled = 0;
2178       session_manager_main_disable (vm);
2179       session_node_enable_disable (is_en);
2180     }
2181
2182   return error;
2183 }
2184
2185 clib_error_t *
2186 session_main_init (vlib_main_t * vm)
2187 {
2188   session_main_t *smm = &session_main;
2189
2190   smm->is_enabled = 0;
2191   smm->session_enable_asap = 0;
2192   smm->poll_main = 0;
2193   smm->use_private_rx_mqs = 0;
2194   smm->no_adaptive = 0;
2195   smm->last_transport_proto_type = TRANSPORT_PROTO_HTTP;
2196   smm->port_allocator_min_src_port = 1024;
2197   smm->port_allocator_max_src_port = 65535;
2198
2199   return 0;
2200 }
2201
2202 static clib_error_t *
2203 session_main_loop_init (vlib_main_t * vm)
2204 {
2205   session_main_t *smm = &session_main;
2206   if (smm->session_enable_asap)
2207     {
2208       vlib_worker_thread_barrier_sync (vm);
2209       vnet_session_enable_disable (vm, 1 /* is_en */ );
2210       vlib_worker_thread_barrier_release (vm);
2211     }
2212   return 0;
2213 }
2214
2215 VLIB_INIT_FUNCTION (session_main_init);
2216 VLIB_MAIN_LOOP_ENTER_FUNCTION (session_main_loop_init);
2217
2218 static clib_error_t *
2219 session_config_fn (vlib_main_t * vm, unformat_input_t * input)
2220 {
2221   session_main_t *smm = &session_main;
2222   u32 nitems;
2223   uword tmp;
2224
2225   while (unformat_check_input (input) != UNFORMAT_END_OF_INPUT)
2226     {
2227       if (unformat (input, "wrk-mq-length %d", &nitems))
2228         {
2229           if (nitems >= 2048)
2230             smm->configured_wrk_mq_length = nitems;
2231           else
2232             clib_warning ("event queue length %d too small, ignored", nitems);
2233         }
2234       else if (unformat (input, "wrk-mqs-segment-size %U",
2235                          unformat_memory_size, &smm->wrk_mqs_segment_size))
2236         ;
2237       else if (unformat (input, "preallocated-sessions %d",
2238                          &smm->preallocated_sessions))
2239         ;
2240       else if (unformat (input, "v4-session-table-buckets %d",
2241                          &smm->configured_v4_session_table_buckets))
2242         ;
2243       else if (unformat (input, "v4-halfopen-table-buckets %d",
2244                          &smm->configured_v4_halfopen_table_buckets))
2245         ;
2246       else if (unformat (input, "v6-session-table-buckets %d",
2247                          &smm->configured_v6_session_table_buckets))
2248         ;
2249       else if (unformat (input, "v6-halfopen-table-buckets %d",
2250                          &smm->configured_v6_halfopen_table_buckets))
2251         ;
2252       else if (unformat (input, "v4-session-table-memory %U",
2253                          unformat_memory_size, &tmp))
2254         {
2255           if (tmp >= 0x100000000)
2256             return clib_error_return (0, "memory size %llx (%lld) too large",
2257                                       tmp, tmp);
2258           smm->configured_v4_session_table_memory = tmp;
2259         }
2260       else if (unformat (input, "v4-halfopen-table-memory %U",
2261                          unformat_memory_size, &tmp))
2262         {
2263           if (tmp >= 0x100000000)
2264             return clib_error_return (0, "memory size %llx (%lld) too large",
2265                                       tmp, tmp);
2266           smm->configured_v4_halfopen_table_memory = tmp;
2267         }
2268       else if (unformat (input, "v6-session-table-memory %U",
2269                          unformat_memory_size, &tmp))
2270         {
2271           if (tmp >= 0x100000000)
2272             return clib_error_return (0, "memory size %llx (%lld) too large",
2273                                       tmp, tmp);
2274           smm->configured_v6_session_table_memory = tmp;
2275         }
2276       else if (unformat (input, "v6-halfopen-table-memory %U",
2277                          unformat_memory_size, &tmp))
2278         {
2279           if (tmp >= 0x100000000)
2280             return clib_error_return (0, "memory size %llx (%lld) too large",
2281                                       tmp, tmp);
2282           smm->configured_v6_halfopen_table_memory = tmp;
2283         }
2284       else if (unformat (input, "local-endpoints-table-memory %U",
2285                          unformat_memory_size, &tmp))
2286         {
2287           if (tmp >= 0x100000000)
2288             return clib_error_return (0, "memory size %llx (%lld) too large",
2289                                       tmp, tmp);
2290           smm->local_endpoints_table_memory = tmp;
2291         }
2292       else if (unformat (input, "local-endpoints-table-buckets %d",
2293                          &smm->local_endpoints_table_buckets))
2294         ;
2295       else if (unformat (input, "min-src-port %d", &tmp))
2296         smm->port_allocator_min_src_port = tmp;
2297       else if (unformat (input, "max-src-port %d", &tmp))
2298         smm->port_allocator_max_src_port = tmp;
2299       else if (unformat (input, "enable"))
2300         smm->session_enable_asap = 1;
2301       else if (unformat (input, "use-app-socket-api"))
2302         (void) appns_sapi_enable_disable (1 /* is_enable */);
2303       else if (unformat (input, "poll-main"))
2304         smm->poll_main = 1;
2305       else if (unformat (input, "use-private-rx-mqs"))
2306         smm->use_private_rx_mqs = 1;
2307       else if (unformat (input, "no-adaptive"))
2308         smm->no_adaptive = 1;
2309       else if (unformat (input, "use-dma"))
2310         smm->dma_enabled = 1;
2311       else if (unformat (input, "nat44-original-dst-enable"))
2312         {
2313           smm->original_dst_lookup = vlib_get_plugin_symbol (
2314             "nat_plugin.so", "nat44_original_dst_lookup");
2315         }
2316       /*
2317        * Deprecated but maintained for compatibility
2318        */
2319       else if (unformat (input, "evt_qs_memfd_seg"))
2320         ;
2321       else if (unformat (input, "segment-baseva 0x%lx", &tmp))
2322         ;
2323       else if (unformat (input, "evt_qs_seg_size %U", unformat_memory_size,
2324                          &smm->wrk_mqs_segment_size))
2325         ;
2326       else if (unformat (input, "event-queue-length %d", &nitems))
2327         {
2328           if (nitems >= 2048)
2329             smm->configured_wrk_mq_length = nitems;
2330           else
2331             clib_warning ("event queue length %d too small, ignored", nitems);
2332         }
2333       else
2334         return clib_error_return (0, "unknown input `%U'",
2335                                   format_unformat_error, input);
2336     }
2337   return 0;
2338 }
2339
2340 VLIB_CONFIG_FUNCTION (session_config_fn, "session");
2341
2342 /*
2343  * fd.io coding-style-patch-verification: ON
2344  *
2345  * Local Variables:
2346  * eval: (c-set-style "gnu")
2347  * End:
2348  */