src/vnet/session/application.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 #include <vnet/session/application.h>
  17 #include <vnet/session/application_interface.h>
  18 #include <vnet/session/application_namespace.h>
  19 #include <vnet/session/application_local.h>
  20 #include <vnet/session/session.h>
  21
  22 static app_main_t app_main;
  23
  24 #define app_interface_check_thread_and_barrier(_fn, _arg)               \
  25   if (PREDICT_FALSE (!vlib_thread_is_main_w_barrier ()))                \
  26     {                                                                   \
  27       vlib_rpc_call_main_thread (_fn, (u8 *) _arg, sizeof(*_arg));      \
  28       return 0;                                                         \
  29     }
  30
  31 static app_listener_t *
  32 app_listener_alloc (application_t * app)
  33 {
  34   app_listener_t *app_listener;
  35   pool_get (app->listeners, app_listener);
  36   clib_memset (app_listener, 0, sizeof (*app_listener));
  37   app_listener->al_index = app_listener - app->listeners;
  38   app_listener->app_index = app->app_index;
  39   app_listener->session_index = SESSION_INVALID_INDEX;
  40   app_listener->local_index = SESSION_INVALID_INDEX;
  41   app_listener->ls_handle = SESSION_INVALID_HANDLE;
  42   return app_listener;
  43 }
  44
  45 app_listener_t *
  46 app_listener_get (application_t * app, u32 app_listener_index)
  47 {
  48   return pool_elt_at_index (app->listeners, app_listener_index);
  49 }
  50
  51 static void
  52 app_listener_free (application_t * app, app_listener_t * app_listener)
  53 {
  54   clib_bitmap_free (app_listener->workers);
  55   if (CLIB_DEBUG)
  56     clib_memset (app_listener, 0xfa, sizeof (*app_listener));
  57   pool_put (app->listeners, app_listener);
  58 }
  59
  60 session_handle_t
  61 app_listener_handle (app_listener_t * al)
  62 {
  63   return al->ls_handle;
  64 }
  65
  66 app_listener_t *
  67 app_listener_get_w_session (session_t * ls)
  68 {
  69   application_t *app;
  70
  71   app = application_get_if_valid (ls->app_index);
  72   if (!app)
  73     return 0;
  74   return app_listener_get (app, ls->al_index);
  75 }
  76
  77 session_handle_t
  78 app_listen_session_handle (session_t * ls)
  79 {
  80   app_listener_t *al;
  81   al = app_listener_get_w_session (ls);
  82   if (!al)
  83     return listen_session_get_handle (ls);
  84   return al->ls_handle;
  85 }
  86
  87 app_listener_t *
  88 app_listener_get_w_handle (session_handle_t handle)
  89 {
  90   session_t *ls;
  91   ls = session_get_from_handle_if_valid (handle);
  92   if (!ls)
  93     return 0;
  94   return app_listener_get_w_session (ls);
  95 }
  96
  97 app_listener_t *
  98 app_listener_lookup (application_t * app, session_endpoint_cfg_t * sep_ext)
  99 {
 100   u32 table_index, fib_proto;
 101   session_endpoint_t *sep;
 102   session_handle_t handle;
 103   session_t *ls;
 104
 105   sep = (session_endpoint_t *) sep_ext;
 106   if (application_has_local_scope (app) && session_endpoint_is_local (sep))
 107     {
 108       table_index = application_local_session_table (app);
 109       handle = session_lookup_endpoint_listener (table_index, sep, 1);
 110       if (handle != SESSION_INVALID_HANDLE)
 111         {
 112           ls = listen_session_get_from_handle (handle);
 113           return app_listener_get_w_session (ls);
 114         }
 115     }
 116
 117   fib_proto = session_endpoint_fib_proto (sep);
 118   table_index = session_lookup_get_index_for_fib (fib_proto, sep->fib_index);
 119   handle = session_lookup_endpoint_listener (table_index, sep, 1);
 120   if (handle != SESSION_INVALID_HANDLE)
 121     {
 122       ls = listen_session_get_from_handle (handle);
 123       return app_listener_get_w_session ((session_t *) ls);
 124     }
 125
 126   return 0;
 127 }
 128
 129 int
 130 app_listener_alloc_and_init (application_t * app,
 131                              session_endpoint_cfg_t * sep,
 132                              app_listener_t ** listener)
 133 {
 134   app_listener_t *app_listener;
 135   transport_connection_t *tc;
 136   u32 al_index, table_index;
 137   session_handle_t lh;
 138   session_type_t st;
 139   session_t *ls = 0;
 140   int rv;
 141
 142   app_listener = app_listener_alloc (app);
 143   al_index = app_listener->al_index;
 144   st = session_type_from_proto_and_ip (sep->transport_proto, sep->is_ip4);
 145
 146   /*
 147    * Add session endpoint to local session table. Only binds to "inaddr_any"
 148    * (i.e., zero address) are added to local scope table.
 149    */
 150   if (application_has_local_scope (app)
 151       && session_endpoint_is_local ((session_endpoint_t *) sep))
 152     {
 153       session_type_t local_st;
 154
 155       local_st = session_type_from_proto_and_ip (TRANSPORT_PROTO_NONE,
 156                                                  sep->is_ip4);
 157       ls = listen_session_alloc (0, local_st);
 158       ls->app_index = app->app_index;
 159       ls->app_wrk_index = sep->app_wrk_index;
 160       lh = session_handle (ls);
 161
 162       if ((rv = session_listen (ls, sep)))
 163         {
 164           ls = session_get_from_handle (lh);
 165           session_free (ls);
 166           return rv;
 167         }
 168
 169       ls = session_get_from_handle (lh);
 170       app_listener = app_listener_get (app, al_index);
 171       app_listener->local_index = ls->session_index;
 172       app_listener->ls_handle = lh;
 173       ls->al_index = al_index;
 174
 175       table_index = application_local_session_table (app);
 176       session_lookup_add_session_endpoint (table_index,
 177                                            (session_endpoint_t *) sep, lh);
 178     }
 179
 180   if (application_has_global_scope (app))
 181     {
 182       /*
 183        * Start listening on local endpoint for requested transport and scope.
 184        * Creates a stream session with state LISTENING to be used in session
 185        * lookups, prior to establishing connection. Requests transport to
 186        * build it's own specific listening connection.
 187        */
 188       ls = listen_session_alloc (0, st);
 189       ls->app_index = app->app_index;
 190       ls->app_wrk_index = sep->app_wrk_index;
 191
 192       /* Listen pool can be reallocated if the transport is
 193        * recursive (tls) */
 194       lh = listen_session_get_handle (ls);
 195
 196       if ((rv = session_listen (ls, sep)))
 197         {
 198           ls = listen_session_get_from_handle (lh);
 199           session_free (ls);
 200           return rv;
 201         }
 202       ls = listen_session_get_from_handle (lh);
 203       app_listener = app_listener_get (app, al_index);
 204       app_listener->session_index = ls->session_index;
 205       app_listener->ls_handle = lh;
 206       ls->al_index = al_index;
 207
 208       /* Add to the global lookup table after transport was initialized.
 209        * Lookup table needs to be populated only now because sessions
 210        * with cut-through transport are are added to app local tables that
 211        * are not related to network fibs, i.e., cannot be added as
 212        * connections */
 213       tc = session_get_transport (ls);
 214       if (!(tc->flags & TRANSPORT_CONNECTION_F_NO_LOOKUP))
 215         {
 216           fib_protocol_t fib_proto;
 217           fib_proto = session_endpoint_fib_proto ((session_endpoint_t *) sep);
 218           table_index = session_lookup_get_index_for_fib (fib_proto,
 219                                                           sep->fib_index);
 220           ASSERT (table_index != SESSION_TABLE_INVALID_INDEX);
 221           session_lookup_add_session_endpoint (table_index,
 222                                                (session_endpoint_t *) sep,
 223                                                lh);
 224         }
 225     }
 226
 227   if (!ls)
 228     {
 229       app_listener_free (app, app_listener);
 230       return -1;
 231     }
 232
 233   *listener = app_listener;
 234   return 0;
 235 }
 236
 237 void
 238 app_listener_cleanup (app_listener_t * al)
 239 {
 240   application_t *app = application_get (al->app_index);
 241   session_t *ls;
 242
 243   if (al->session_index != SESSION_INVALID_INDEX)
 244     {
 245       ls = session_get (al->session_index, 0);
 246       session_stop_listen (ls);
 247       listen_session_free (ls);
 248     }
 249   if (al->local_index != SESSION_INVALID_INDEX)
 250     {
 251       session_endpoint_t sep = SESSION_ENDPOINT_NULL;
 252       u32 table_index;
 253
 254       table_index = application_local_session_table (app);
 255       ls = listen_session_get (al->local_index);
 256       ct_session_endpoint (ls, &sep);
 257       session_lookup_del_session_endpoint (table_index, &sep);
 258       session_stop_listen (ls);
 259       listen_session_free (ls);
 260     }
 261   app_listener_free (app, al);
 262 }
 263
 264 static app_worker_t *
 265 app_listener_select_worker (application_t * app, app_listener_t * al)
 266 {
 267   u32 wrk_index;
 268
 269   app = application_get (al->app_index);
 270   wrk_index = clib_bitmap_next_set (al->workers, al->accept_rotor + 1);
 271   if (wrk_index == ~0)
 272     wrk_index = clib_bitmap_first_set (al->workers);
 273
 274   ASSERT (wrk_index != ~0);
 275   al->accept_rotor = wrk_index;
 276   return application_get_worker (app, wrk_index);
 277 }
 278
 279 session_t *
 280 app_listener_get_session (app_listener_t * al)
 281 {
 282   if (al->session_index == SESSION_INVALID_INDEX)
 283     return 0;
 284
 285   return listen_session_get (al->session_index);
 286 }
 287
 288 session_t *
 289 app_listener_get_local_session (app_listener_t * al)
 290 {
 291   if (al->local_index == SESSION_INVALID_INDEX)
 292     return 0;
 293   return listen_session_get (al->local_index);
 294 }
 295
 296 static app_worker_map_t *
 297 app_worker_map_alloc (application_t * app)
 298 {
 299   app_worker_map_t *map;
 300   pool_get (app->worker_maps, map);
 301   clib_memset (map, 0, sizeof (*map));
 302   return map;
 303 }
 304
 305 static u32
 306 app_worker_map_index (application_t * app, app_worker_map_t * map)
 307 {
 308   return (map - app->worker_maps);
 309 }
 310
 311 static void
 312 app_worker_map_free (application_t * app, app_worker_map_t * map)
 313 {
 314   pool_put (app->worker_maps, map);
 315 }
 316
 317 static app_worker_map_t *
 318 app_worker_map_get (application_t * app, u32 map_index)
 319 {
 320   if (pool_is_free_index (app->worker_maps, map_index))
 321     return 0;
 322   return pool_elt_at_index (app->worker_maps, map_index);
 323 }
 324
 325 static const u8 *
 326 app_get_name (application_t * app)
 327 {
 328   return app->name;
 329 }
 330
 331 u32
 332 application_session_table (application_t * app, u8 fib_proto)
 333 {
 334   app_namespace_t *app_ns;
 335   app_ns = app_namespace_get (app->ns_index);
 336   if (!application_has_global_scope (app))
 337     return APP_INVALID_INDEX;
 338   if (fib_proto == FIB_PROTOCOL_IP4)
 339     return session_lookup_get_index_for_fib (fib_proto,
 340                                              app_ns->ip4_fib_index);
 341   else
 342     return session_lookup_get_index_for_fib (fib_proto,
 343                                              app_ns->ip6_fib_index);
 344 }
 345
 346 u32
 347 application_local_session_table (application_t * app)
 348 {
 349   app_namespace_t *app_ns;
 350   if (!application_has_local_scope (app))
 351     return APP_INVALID_INDEX;
 352   app_ns = app_namespace_get (app->ns_index);
 353   return app_ns->local_table_index;
 354 }
 355
 356 /**
 357  * Returns app name for app-index
 358  */
 359 const u8 *
 360 application_name_from_index (u32 app_index)
 361 {
 362   application_t *app = application_get (app_index);
 363   if (!app)
 364     return 0;
 365   return app_get_name (app);
 366 }
 367
 368 static void
 369 application_api_table_add (u32 app_index, u32 api_client_index)
 370 {
 371   if (api_client_index != APP_INVALID_INDEX)
 372     hash_set (app_main.app_by_api_client_index, api_client_index, app_index);
 373 }
 374
 375 static void
 376 application_api_table_del (u32 api_client_index)
 377 {
 378   hash_unset (app_main.app_by_api_client_index, api_client_index);
 379 }
 380
 381 static void
 382 application_name_table_add (application_t * app)
 383 {
 384   hash_set_mem (app_main.app_by_name, app->name, app->app_index);
 385 }
 386
 387 static void
 388 application_name_table_del (application_t * app)
 389 {
 390   hash_unset_mem (app_main.app_by_name, app->name);
 391 }
 392
 393 application_t *
 394 application_lookup (u32 api_client_index)
 395 {
 396   uword *p;
 397   p = hash_get (app_main.app_by_api_client_index, api_client_index);
 398   if (p)
 399     return application_get_if_valid (p[0]);
 400
 401   return 0;
 402 }
 403
 404 application_t *
 405 application_lookup_name (const u8 * name)
 406 {
 407   uword *p;
 408   p = hash_get_mem (app_main.app_by_name, name);
 409   if (p)
 410     return application_get (p[0]);
 411
 412   return 0;
 413 }
 414
 415 static application_t *
 416 application_alloc (void)
 417 {
 418   application_t *app;
 419   pool_get (app_main.app_pool, app);
 420   clib_memset (app, 0, sizeof (*app));
 421   app->app_index = app - app_main.app_pool;
 422   return app;
 423 }
 424
 425 application_t *
 426 application_get (u32 app_index)
 427 {
 428   if (app_index == APP_INVALID_INDEX)
 429     return 0;
 430   return pool_elt_at_index (app_main.app_pool, app_index);
 431 }
 432
 433 application_t *
 434 application_get_if_valid (u32 app_index)
 435 {
 436   if (pool_is_free_index (app_main.app_pool, app_index))
 437     return 0;
 438
 439   return pool_elt_at_index (app_main.app_pool, app_index);
 440 }
 441
 442 static void
 443 application_verify_cb_fns (session_cb_vft_t * cb_fns)
 444 {
 445   if (cb_fns->session_accept_callback == 0)
 446     clib_warning ("No accept callback function provided");
 447   if (cb_fns->session_connected_callback == 0)
 448     clib_warning ("No session connected callback function provided");
 449   if (cb_fns->session_disconnect_callback == 0)
 450     clib_warning ("No session disconnect callback function provided");
 451   if (cb_fns->session_reset_callback == 0)
 452     clib_warning ("No session reset callback function provided");
 453 }
 454
 455 /**
 456  * Check app config for given segment type
 457  *
 458  * Returns 1 on success and 0 otherwise
 459  */
 460 static u8
 461 application_verify_cfg (ssvm_segment_type_t st)
 462 {
 463   u8 is_valid;
 464   if (st == SSVM_SEGMENT_MEMFD)
 465     {
 466       is_valid = (session_main_get_evt_q_segment () != 0);
 467       if (!is_valid)
 468         clib_warning ("memfd seg: vpp's event qs IN binary api svm region");
 469       return is_valid;
 470     }
 471   else if (st == SSVM_SEGMENT_SHM)
 472     {
 473       is_valid = (session_main_get_evt_q_segment () == 0);
 474       if (!is_valid)
 475         clib_warning ("shm seg: vpp's event qs NOT IN binary api svm region");
 476       return is_valid;
 477     }
 478   else
 479     return 1;
 480 }
 481
 482 static int
 483 application_alloc_and_init (app_init_args_t * a)
 484 {
 485   ssvm_segment_type_t seg_type = SSVM_SEGMENT_MEMFD;
 486   segment_manager_props_t *props;
 487   vl_api_registration_t *reg;
 488   application_t *app;
 489   u64 *options;
 490
 491   app = application_alloc ();
 492   options = a->options;
 493   /*
 494    * Make sure we support the requested configuration
 495    */
 496   if (options[APP_OPTIONS_FLAGS] & APP_OPTIONS_FLAGS_IS_BUILTIN)
 497     {
 498       seg_type = SSVM_SEGMENT_PRIVATE;
 499     }
 500   else if (!a->use_sock_api)
 501     {
 502       reg = vl_api_client_index_to_registration (a->api_client_index);
 503       if (!reg)
 504         return VNET_API_ERROR_APP_UNSUPPORTED_CFG;
 505       if (vl_api_registration_file_index (reg) == VL_API_INVALID_FI)
 506         seg_type = SSVM_SEGMENT_SHM;
 507     }
 508
 509   if ((options[APP_OPTIONS_FLAGS] & APP_OPTIONS_FLAGS_EVT_MQ_USE_EVENTFD)
 510       && seg_type != SSVM_SEGMENT_MEMFD)
 511     {
 512       clib_warning ("mq eventfds can only be used if socket transport is "
 513                     "used for binary api");
 514       return VNET_API_ERROR_APP_UNSUPPORTED_CFG;
 515     }
 516
 517   if (!application_verify_cfg (seg_type))
 518     return VNET_API_ERROR_APP_UNSUPPORTED_CFG;
 519
 520   if (options[APP_OPTIONS_PREALLOC_FIFO_PAIRS]
 521       && options[APP_OPTIONS_PREALLOC_FIFO_HDRS])
 522     return VNET_API_ERROR_APP_UNSUPPORTED_CFG;
 523
 524   /* Check that the obvious things are properly set up */
 525   application_verify_cb_fns (a->session_cb_vft);
 526
 527   app->flags = options[APP_OPTIONS_FLAGS];
 528   app->cb_fns = *a->session_cb_vft;
 529   app->ns_index = options[APP_OPTIONS_NAMESPACE];
 530   app->proxied_transports = options[APP_OPTIONS_PROXY_TRANSPORT];
 531   app->name = vec_dup (a->name);
 532
 533   /* If no scope enabled, default to global */
 534   if (!application_has_global_scope (app)
 535       && !application_has_local_scope (app))
 536     app->flags |= APP_OPTIONS_FLAGS_USE_GLOBAL_SCOPE;
 537
 538   props = application_segment_manager_properties (app);
 539   segment_manager_props_init (props);
 540   props->segment_size = options[APP_OPTIONS_SEGMENT_SIZE];
 541   props->prealloc_fifos = options[APP_OPTIONS_PREALLOC_FIFO_PAIRS];
 542   props->prealloc_fifo_hdrs = options[APP_OPTIONS_PREALLOC_FIFO_HDRS];
 543   if (options[APP_OPTIONS_ADD_SEGMENT_SIZE])
 544     {
 545       props->add_segment_size = options[APP_OPTIONS_ADD_SEGMENT_SIZE];
 546       props->add_segment = 1;
 547     }
 548   if (options[APP_OPTIONS_RX_FIFO_SIZE])
 549     props->rx_fifo_size = options[APP_OPTIONS_RX_FIFO_SIZE];
 550   if (options[APP_OPTIONS_TX_FIFO_SIZE])
 551     props->tx_fifo_size = options[APP_OPTIONS_TX_FIFO_SIZE];
 552   if (options[APP_OPTIONS_EVT_QUEUE_SIZE])
 553     props->evt_q_size = options[APP_OPTIONS_EVT_QUEUE_SIZE];
 554   if (options[APP_OPTIONS_FLAGS] & APP_OPTIONS_FLAGS_EVT_MQ_USE_EVENTFD)
 555     props->use_mq_eventfd = 1;
 556   if (options[APP_OPTIONS_TLS_ENGINE])
 557     app->tls_engine = options[APP_OPTIONS_TLS_ENGINE];
 558   if (options[APP_OPTIONS_MAX_FIFO_SIZE])
 559     props->max_fifo_size = options[APP_OPTIONS_MAX_FIFO_SIZE];
 560   if (options[APP_OPTIONS_HIGH_WATERMARK])
 561     props->high_watermark = options[APP_OPTIONS_HIGH_WATERMARK];
 562   if (options[APP_OPTIONS_LOW_WATERMARK])
 563     props->low_watermark = options[APP_OPTIONS_LOW_WATERMARK];
 564   if (options[APP_OPTIONS_PCT_FIRST_ALLOC])
 565     props->pct_first_alloc = options[APP_OPTIONS_PCT_FIRST_ALLOC];
 566   props->segment_type = seg_type;
 567
 568   /* Add app to lookup by api_client_index table */
 569   if (!application_is_builtin (app))
 570     application_api_table_add (app->app_index, a->api_client_index);
 571   else
 572     application_name_table_add (app);
 573
 574   a->app_index = app->app_index;
 575
 576   APP_DBG ("New app name: %v api index: %u index %u", app->name,
 577            a->api_client_index, app->app_index);
 578
 579   return 0;
 580 }
 581
 582 static void
 583 application_free (application_t * app)
 584 {
 585   app_worker_map_t *wrk_map;
 586   app_worker_t *app_wrk;
 587
 588   /*
 589    * The app event queue allocated in first segment is cleared with
 590    * the segment manager. No need to explicitly free it.
 591    */
 592   APP_DBG ("Delete app name %v index: %d", app->name, app->app_index);
 593
 594   if (application_is_proxy (app))
 595     application_remove_proxy (app);
 596
 597   /*
 598    * Free workers
 599    */
 600
 601   /* *INDENT-OFF* */
 602   pool_flush (wrk_map, app->worker_maps, ({
 603     app_wrk = app_worker_get (wrk_map->wrk_index);
 604     app_worker_free (app_wrk);
 605   }));
 606   /* *INDENT-ON* */
 607   pool_free (app->worker_maps);
 608
 609   /*
 610    * Cleanup remaining state
 611    */
 612   if (application_is_builtin (app))
 613     application_name_table_del (app);
 614   vec_free (app->name);
 615   pool_put (app_main.app_pool, app);
 616 }
 617
 618 static void
 619 application_detach_process (application_t * app, u32 api_client_index)
 620 {
 621   vnet_app_worker_add_del_args_t _args = { 0 }, *args = &_args;
 622   app_worker_map_t *wrk_map;
 623   u32 *wrks = 0, *wrk_index;
 624   app_worker_t *app_wrk;
 625
 626   if (api_client_index == ~0)
 627     {
 628       application_free (app);
 629       return;
 630     }
 631
 632   APP_DBG ("Detaching for app %v index %u api client index %u", app->name,
 633            app->app_index, api_client_index);
 634
 635   /* *INDENT-OFF* */
 636   pool_foreach (wrk_map, app->worker_maps, ({
 637     app_wrk = app_worker_get (wrk_map->wrk_index);
 638     if (app_wrk->api_client_index == api_client_index)
 639       vec_add1 (wrks, app_wrk->wrk_index);
 640   }));
 641   /* *INDENT-ON* */
 642
 643   if (!vec_len (wrks))
 644     {
 645       clib_warning ("no workers for app %u api_index %u", app->app_index,
 646                     api_client_index);
 647       return;
 648     }
 649
 650   args->app_index = app->app_index;
 651   args->api_client_index = api_client_index;
 652   vec_foreach (wrk_index, wrks)
 653   {
 654     app_wrk = app_worker_get (wrk_index[0]);
 655     args->wrk_map_index = app_wrk->wrk_map_index;
 656     args->is_add = 0;
 657     vnet_app_worker_add_del (args);
 658   }
 659   vec_free (wrks);
 660 }
 661
 662 app_worker_t *
 663 application_get_worker (application_t * app, u32 wrk_map_index)
 664 {
 665   app_worker_map_t *map;
 666   map = app_worker_map_get (app, wrk_map_index);
 667   if (!map)
 668     return 0;
 669   return app_worker_get (map->wrk_index);
 670 }
 671
 672 app_worker_t *
 673 application_get_default_worker (application_t * app)
 674 {
 675   return application_get_worker (app, 0);
 676 }
 677
 678 u32
 679 application_n_workers (application_t * app)
 680 {
 681   return pool_elts (app->worker_maps);
 682 }
 683
 684 app_worker_t *
 685 application_listener_select_worker (session_t * ls)
 686 {
 687   application_t *app;
 688   app_listener_t *al;
 689
 690   app = application_get (ls->app_index);
 691   al = app_listener_get (app, ls->al_index);
 692   return app_listener_select_worker (app, al);
 693 }
 694
 695 int
 696 application_alloc_worker_and_init (application_t * app, app_worker_t ** wrk)
 697 {
 698   app_worker_map_t *wrk_map;
 699   app_worker_t *app_wrk;
 700   segment_manager_t *sm;
 701   int rv;
 702
 703   app_wrk = app_worker_alloc (app);
 704   wrk_map = app_worker_map_alloc (app);
 705   wrk_map->wrk_index = app_wrk->wrk_index;
 706   app_wrk->wrk_map_index = app_worker_map_index (app, wrk_map);
 707
 708   /*
 709    * Setup first segment manager
 710    */
 711   sm = segment_manager_alloc ();
 712   sm->app_wrk_index = app_wrk->wrk_index;
 713
 714   if ((rv = segment_manager_init (sm)))
 715     {
 716       app_worker_free (app_wrk);
 717       return rv;
 718     }
 719   sm->first_is_protected = 1;
 720
 721   /*
 722    * Setup app worker
 723    */
 724   app_wrk->first_segment_manager = segment_manager_index (sm);
 725   app_wrk->listeners_table = hash_create (0, sizeof (u64));
 726   app_wrk->event_queue = segment_manager_event_queue (sm);
 727   app_wrk->app_is_builtin = application_is_builtin (app);
 728
 729   *wrk = app_wrk;
 730
 731   return 0;
 732 }
 733
 734 int
 735 vnet_app_worker_add_del (vnet_app_worker_add_del_args_t * a)
 736 {
 737   fifo_segment_t *fs;
 738   app_worker_map_t *wrk_map;
 739   app_worker_t *app_wrk;
 740   segment_manager_t *sm;
 741   application_t *app;
 742   int rv;
 743
 744   app = application_get (a->app_index);
 745   if (!app)
 746     return VNET_API_ERROR_INVALID_VALUE;
 747
 748   if (a->is_add)
 749     {
 750       if ((rv = application_alloc_worker_and_init (app, &app_wrk)))
 751         return rv;
 752
 753       /* Map worker api index to the app */
 754       app_wrk->api_client_index = a->api_client_index;
 755       application_api_table_add (app->app_index, a->api_client_index);
 756
 757       sm = segment_manager_get (app_wrk->first_segment_manager);
 758       fs = segment_manager_get_segment_w_lock (sm, 0);
 759       a->segment = &fs->ssvm;
 760       a->segment_handle = segment_manager_segment_handle (sm, fs);
 761       segment_manager_segment_reader_unlock (sm);
 762       a->evt_q = app_wrk->event_queue;
 763       a->wrk_map_index = app_wrk->wrk_map_index;
 764     }
 765   else
 766     {
 767       wrk_map = app_worker_map_get (app, a->wrk_map_index);
 768       if (!wrk_map)
 769         return VNET_API_ERROR_INVALID_VALUE;
 770
 771       app_wrk = app_worker_get (wrk_map->wrk_index);
 772       if (!app_wrk)
 773         return VNET_API_ERROR_INVALID_VALUE;
 774
 775       application_api_table_del (app_wrk->api_client_index);
 776       app_worker_free (app_wrk);
 777       app_worker_map_free (app, wrk_map);
 778       if (application_n_workers (app) == 0)
 779         application_free (app);
 780     }
 781   return 0;
 782 }
 783
 784 static int
 785 app_validate_namespace (u8 * namespace_id, u64 secret, u32 * app_ns_index)
 786 {
 787   app_namespace_t *app_ns;
 788   if (vec_len (namespace_id) == 0)
 789     {
 790       /* Use default namespace */
 791       *app_ns_index = 0;
 792       return 0;
 793     }
 794
 795   *app_ns_index = app_namespace_index_from_id (namespace_id);
 796   if (*app_ns_index == APP_NAMESPACE_INVALID_INDEX)
 797     return VNET_API_ERROR_APP_INVALID_NS;
 798   app_ns = app_namespace_get (*app_ns_index);
 799   if (!app_ns)
 800     return VNET_API_ERROR_APP_INVALID_NS;
 801   if (app_ns->ns_secret != secret)
 802     return VNET_API_ERROR_APP_WRONG_NS_SECRET;
 803   return 0;
 804 }
 805
 806 static u8 *
 807 app_name_from_api_index (u32 api_client_index)
 808 {
 809   vl_api_registration_t *regp;
 810   regp = vl_api_client_index_to_registration (api_client_index);
 811   if (regp)
 812     return format (0, "%s", regp->name);
 813
 814   clib_warning ("api client index %u does not have an api registration!",
 815                 api_client_index);
 816   return format (0, "unknown");
 817 }
 818
 819 /**
 820  * Attach application to vpp
 821  *
 822  * Allocates a vpp app, i.e., a structure that keeps back pointers
 823  * to external app and a segment manager for shared memory fifo based
 824  * communication with the external app.
 825  */
 826 int
 827 vnet_application_attach (vnet_app_attach_args_t * a)
 828 {
 829   fifo_segment_t *fs;
 830   application_t *app = 0;
 831   app_worker_t *app_wrk;
 832   segment_manager_t *sm;
 833   u32 app_ns_index = 0;
 834   u8 *app_name = 0;
 835   u64 secret;
 836   int rv;
 837
 838   if (a->api_client_index != APP_INVALID_INDEX)
 839     app = application_lookup (a->api_client_index);
 840   else if (a->name)
 841     app = application_lookup_name (a->name);
 842   else
 843     return VNET_API_ERROR_INVALID_VALUE;
 844
 845   if (app)
 846     return VNET_API_ERROR_APP_ALREADY_ATTACHED;
 847
 848   /* Socket api sets the name and validates namespace prior to attach */
 849   if (!a->use_sock_api)
 850     {
 851       if (a->api_client_index != APP_INVALID_INDEX)
 852         {
 853           app_name = app_name_from_api_index (a->api_client_index);
 854           a->name = app_name;
 855         }
 856
 857       secret = a->options[APP_OPTIONS_NAMESPACE_SECRET];
 858       if ((rv =
 859            app_validate_namespace (a->namespace_id, secret, &app_ns_index)))
 860         return rv;
 861       a->options[APP_OPTIONS_NAMESPACE] = app_ns_index;
 862     }
 863
 864   if ((rv = application_alloc_and_init ((app_init_args_t *) a)))
 865     return rv;
 866
 867   app = application_get (a->app_index);
 868   if ((rv = application_alloc_worker_and_init (app, &app_wrk)))
 869     return rv;
 870
 871   a->app_evt_q = app_wrk->event_queue;
 872   app_wrk->api_client_index = a->api_client_index;
 873   sm = segment_manager_get (app_wrk->first_segment_manager);
 874   fs = segment_manager_get_segment_w_lock (sm, 0);
 875
 876   if (application_is_proxy (app))
 877     {
 878       application_setup_proxy (app);
 879       /*
 880        * I suspect the segment manager pool gets reallocated (because a new listener
 881        * is added, and each listener has a segment manager) so sm becomes a dangling
 882        * reference. That's why we need to re-grab sm.
 883        */
 884       sm = segment_manager_get (app_wrk->first_segment_manager);
 885     }
 886
 887   ASSERT (vec_len (fs->ssvm.name) <= 128);
 888   a->segment = &fs->ssvm;
 889   a->segment_handle = segment_manager_segment_handle (sm, fs);
 890
 891   segment_manager_segment_reader_unlock (sm);
 892   vec_free (app_name);
 893   return 0;
 894 }
 895
 896 /**
 897  * Detach application from vpp
 898  */
 899 int
 900 vnet_application_detach (vnet_app_detach_args_t * a)
 901 {
 902   application_t *app;
 903
 904   app = application_get_if_valid (a->app_index);
 905   if (!app)
 906     {
 907       clib_warning ("app not attached");
 908       return VNET_API_ERROR_APPLICATION_NOT_ATTACHED;
 909     }
 910
 911   app_interface_check_thread_and_barrier (vnet_application_detach, a);
 912   application_detach_process (app, a->api_client_index);
 913   return 0;
 914 }
 915
 916
 917 static u8
 918 session_endpoint_in_ns (session_endpoint_t * sep)
 919 {
 920   u8 is_lep = session_endpoint_is_local (sep);
 921   if (!is_lep && sep->sw_if_index != ENDPOINT_INVALID_INDEX
 922       && !ip_interface_has_address (sep->sw_if_index, &sep->ip, sep->is_ip4))
 923     {
 924       clib_warning ("sw_if_index %u not configured with ip %U",
 925                     sep->sw_if_index, format_ip46_address, &sep->ip,
 926                     sep->is_ip4);
 927       return 0;
 928     }
 929   return (is_lep || ip_is_local (sep->fib_index, &sep->ip, sep->is_ip4));
 930 }
 931
 932 static void
 933 session_endpoint_update_for_app (session_endpoint_cfg_t * sep,
 934                                  application_t * app, u8 is_connect)
 935 {
 936   app_namespace_t *app_ns;
 937   u32 ns_index, fib_index;
 938
 939   ns_index = app->ns_index;
 940
 941   /* App is a transport proto, so fetch the calling app's ns */
 942   if (app->flags & APP_OPTIONS_FLAGS_IS_TRANSPORT_APP)
 943     ns_index = sep->ns_index;
 944
 945   app_ns = app_namespace_get (ns_index);
 946   if (!app_ns)
 947     return;
 948
 949   /* Ask transport and network to bind to/connect using local interface
 950    * that "supports" app's namespace. This will fix our local connection
 951    * endpoint.
 952    */
 953
 954   /* If in default namespace and user requested a fib index use it */
 955   if (ns_index == 0 && sep->fib_index != ENDPOINT_INVALID_INDEX)
 956     fib_index = sep->fib_index;
 957   else
 958     fib_index = sep->is_ip4 ? app_ns->ip4_fib_index : app_ns->ip6_fib_index;
 959   sep->peer.fib_index = fib_index;
 960   sep->fib_index = fib_index;
 961
 962   if (!is_connect)
 963     {
 964       sep->sw_if_index = app_ns->sw_if_index;
 965     }
 966   else
 967     {
 968       if (app_ns->sw_if_index != APP_NAMESPACE_INVALID_INDEX
 969           && sep->peer.sw_if_index != ENDPOINT_INVALID_INDEX
 970           && sep->peer.sw_if_index != app_ns->sw_if_index)
 971         clib_warning ("Local sw_if_index different from app ns sw_if_index");
 972
 973       sep->peer.sw_if_index = app_ns->sw_if_index;
 974     }
 975 }
 976
 977 int
 978 vnet_listen (vnet_listen_args_t * a)
 979 {
 980   app_listener_t *app_listener;
 981   app_worker_t *app_wrk;
 982   application_t *app;
 983   int rv;
 984
 985   ASSERT (vlib_thread_is_main_w_barrier ());
 986
 987   app = application_get_if_valid (a->app_index);
 988   if (!app)
 989     return SESSION_E_NOAPP;
 990
 991   app_wrk = application_get_worker (app, a->wrk_map_index);
 992   if (!app_wrk)
 993     return SESSION_E_INVALID_APPWRK;
 994
 995   a->sep_ext.app_wrk_index = app_wrk->wrk_index;
 996
 997   session_endpoint_update_for_app (&a->sep_ext, app, 0 /* is_connect */ );
 998   if (!session_endpoint_in_ns (&a->sep))
 999     return SESSION_E_INVALID_NS;
1000
1001   /*
1002    * Check if we already have an app listener
1003    */
1004   app_listener = app_listener_lookup (app, &a->sep_ext);
1005   if (app_listener)
1006     {
1007       if (app_listener->app_index != app->app_index)
1008         return SESSION_E_ALREADY_LISTENING;
1009       if ((rv = app_worker_start_listen (app_wrk, app_listener)))
1010         return rv;
1011       a->handle = app_listener_handle (app_listener);
1012       return 0;
1013     }
1014
1015   /*
1016    * Create new app listener
1017    */
1018   if ((rv = app_listener_alloc_and_init (app, &a->sep_ext, &app_listener)))
1019     return rv;
1020
1021   if ((rv = app_worker_start_listen (app_wrk, app_listener)))
1022     {
1023       app_listener_cleanup (app_listener);
1024       return rv;
1025     }
1026
1027   a->handle = app_listener_handle (app_listener);
1028   return 0;
1029 }
1030
1031 int
1032 vnet_connect (vnet_connect_args_t * a)
1033 {
1034   app_worker_t *client_wrk;
1035   application_t *client;
1036
1037   ASSERT (vlib_thread_is_main_w_barrier ());
1038
1039   if (session_endpoint_is_zero (&a->sep))
1040     return SESSION_E_INVALID_RMT_IP;
1041
1042   client = application_get (a->app_index);
1043   session_endpoint_update_for_app (&a->sep_ext, client, 1 /* is_connect */ );
1044   client_wrk = application_get_worker (client, a->wrk_map_index);
1045
1046   /*
1047    * First check the local scope for locally attached destinations.
1048    * If we have local scope, we pass *all* connects through it since we may
1049    * have special policy rules even for non-local destinations, think proxy.
1050    */
1051   if (application_has_local_scope (client))
1052     {
1053       int rv;
1054
1055       a->sep_ext.original_tp = a->sep_ext.transport_proto;
1056       a->sep_ext.transport_proto = TRANSPORT_PROTO_NONE;
1057       rv = app_worker_connect_session (client_wrk, &a->sep, a->api_context);
1058       if (rv <= 0)
1059         return rv;
1060       a->sep_ext.transport_proto = a->sep_ext.original_tp;
1061     }
1062   /*
1063    * Not connecting to a local server, propagate to transport
1064    */
1065   return app_worker_connect_session (client_wrk, &a->sep, a->api_context);
1066 }
1067
1068 int
1069 vnet_unlisten (vnet_unlisten_args_t * a)
1070 {
1071   app_worker_t *app_wrk;
1072   app_listener_t *al;
1073   application_t *app;
1074
1075   ASSERT (vlib_thread_is_main_w_barrier ());
1076
1077   if (!(app = application_get_if_valid (a->app_index)))
1078     return SESSION_E_NOAPP;
1079
1080   if (!(al = app_listener_get_w_handle (a->handle)))
1081     return SESSION_E_NOLISTEN;
1082
1083   if (al->app_index != app->app_index)
1084     {
1085       clib_warning ("app doesn't own handle %llu!", a->handle);
1086       return SESSION_E_OWNER;
1087     }
1088
1089   app_wrk = application_get_worker (app, a->wrk_map_index);
1090   if (!app_wrk)
1091     {
1092       clib_warning ("no app %u worker %u", app->app_index, a->wrk_map_index);
1093       return SESSION_E_INVALID_APPWRK;
1094     }
1095
1096   return app_worker_stop_listen (app_wrk, al);
1097 }
1098
1099 int
1100 vnet_disconnect_session (vnet_disconnect_args_t * a)
1101 {
1102   app_worker_t *app_wrk;
1103   session_t *s;
1104
1105   s = session_get_from_handle_if_valid (a->handle);
1106   if (!s)
1107     return SESSION_E_NOSESSION;
1108
1109   app_wrk = app_worker_get (s->app_wrk_index);
1110   if (app_wrk->app_index != a->app_index)
1111     return SESSION_E_OWNER;
1112
1113   /* We're peeking into another's thread pool. Make sure */
1114   ASSERT (s->session_index == session_index_from_handle (a->handle));
1115
1116   session_close (s);
1117   return 0;
1118 }
1119
1120 int
1121 application_change_listener_owner (session_t * s, app_worker_t * app_wrk)
1122 {
1123   app_worker_t *old_wrk = app_worker_get (s->app_wrk_index);
1124   app_listener_t *app_listener;
1125   application_t *app;
1126   int rv;
1127
1128   if (!old_wrk)
1129     return SESSION_E_INVALID_APPWRK;
1130
1131   hash_unset (old_wrk->listeners_table, listen_session_get_handle (s));
1132   if (session_transport_service_type (s) == TRANSPORT_SERVICE_CL
1133       && s->rx_fifo)
1134     segment_manager_dealloc_fifos (s->rx_fifo, s->tx_fifo);
1135
1136   app = application_get (old_wrk->app_index);
1137   if (!app)
1138     return SESSION_E_NOAPP;
1139
1140   app_listener = app_listener_get (app, s->al_index);
1141
1142   /* Only remove from lb for now */
1143   app_listener->workers = clib_bitmap_set (app_listener->workers,
1144                                            old_wrk->wrk_map_index, 0);
1145
1146   if ((rv = app_worker_start_listen (app_wrk, app_listener)))
1147     return rv;
1148
1149   s->app_wrk_index = app_wrk->wrk_index;
1150
1151   return 0;
1152 }
1153
1154 int
1155 application_is_proxy (application_t * app)
1156 {
1157   return (app->flags & APP_OPTIONS_FLAGS_IS_PROXY);
1158 }
1159
1160 int
1161 application_is_builtin (application_t * app)
1162 {
1163   return (app->flags & APP_OPTIONS_FLAGS_IS_BUILTIN);
1164 }
1165
1166 int
1167 application_is_builtin_proxy (application_t * app)
1168 {
1169   return (application_is_proxy (app) && application_is_builtin (app));
1170 }
1171
1172 u8
1173 application_has_local_scope (application_t * app)
1174 {
1175   return app->flags & APP_OPTIONS_FLAGS_USE_LOCAL_SCOPE;
1176 }
1177
1178 u8
1179 application_has_global_scope (application_t * app)
1180 {
1181   return app->flags & APP_OPTIONS_FLAGS_USE_GLOBAL_SCOPE;
1182 }
1183
1184 static clib_error_t *
1185 application_start_stop_proxy_fib_proto (application_t * app, u8 fib_proto,
1186                                         u8 transport_proto, u8 is_start)
1187 {
1188   app_namespace_t *app_ns = app_namespace_get (app->ns_index);
1189   u8 is_ip4 = (fib_proto == FIB_PROTOCOL_IP4);
1190   session_endpoint_cfg_t sep = SESSION_ENDPOINT_CFG_NULL;
1191   transport_connection_t *tc;
1192   app_worker_t *app_wrk;
1193   app_listener_t *al;
1194   session_t *s;
1195   u32 flags;
1196
1197   /* TODO decide if we want proxy to be enabled for all workers */
1198   app_wrk = application_get_default_worker (app);
1199   if (is_start)
1200     {
1201       s = app_worker_first_listener (app_wrk, fib_proto, transport_proto);
1202       if (!s)
1203         {
1204           sep.is_ip4 = is_ip4;
1205           sep.fib_index = app_namespace_get_fib_index (app_ns, fib_proto);
1206           sep.sw_if_index = app_ns->sw_if_index;
1207           sep.transport_proto = transport_proto;
1208           sep.app_wrk_index = app_wrk->wrk_index;       /* only default */
1209
1210           /* force global scope listener */
1211           flags = app->flags;
1212           app->flags &= ~APP_OPTIONS_FLAGS_USE_LOCAL_SCOPE;
1213           app_listener_alloc_and_init (app, &sep, &al);
1214           app->flags = flags;
1215
1216           app_worker_start_listen (app_wrk, al);
1217           s = listen_session_get (al->session_index);
1218           s->flags |= SESSION_F_PROXY;
1219         }
1220     }
1221   else
1222     {
1223       s = app_worker_proxy_listener (app_wrk, fib_proto, transport_proto);
1224       ASSERT (s);
1225     }
1226
1227   tc = listen_session_get_transport (s);
1228
1229   if (!ip_is_zero (&tc->lcl_ip, 1))
1230     {
1231       u32 sti;
1232       sep.is_ip4 = is_ip4;
1233       sep.fib_index = app_namespace_get_fib_index (app_ns, fib_proto);
1234       sep.transport_proto = transport_proto;
1235       sep.port = 0;
1236       sti = session_lookup_get_index_for_fib (fib_proto, sep.fib_index);
1237       if (is_start)
1238         session_lookup_add_session_endpoint (sti,
1239                                              (session_endpoint_t *) & sep,
1240                                              s->session_index);
1241       else
1242         session_lookup_del_session_endpoint (sti,
1243                                              (session_endpoint_t *) & sep);
1244     }
1245
1246   return 0;
1247 }
1248
1249 static void
1250 application_start_stop_proxy_local_scope (application_t * app,
1251                                           u8 transport_proto, u8 is_start)
1252 {
1253   session_endpoint_t sep = SESSION_ENDPOINT_NULL;
1254   app_namespace_t *app_ns;
1255   app_ns = app_namespace_get (app->ns_index);
1256   sep.is_ip4 = 1;
1257   sep.transport_proto = transport_proto;
1258   sep.port = 0;
1259
1260   if (is_start)
1261     {
1262       session_lookup_add_session_endpoint (app_ns->local_table_index, &sep,
1263                                            app->app_index);
1264       sep.is_ip4 = 0;
1265       session_lookup_add_session_endpoint (app_ns->local_table_index, &sep,
1266                                            app->app_index);
1267     }
1268   else
1269     {
1270       session_lookup_del_session_endpoint (app_ns->local_table_index, &sep);
1271       sep.is_ip4 = 0;
1272       session_lookup_del_session_endpoint (app_ns->local_table_index, &sep);
1273     }
1274 }
1275
1276 void
1277 application_start_stop_proxy (application_t * app,
1278                               transport_proto_t transport_proto, u8 is_start)
1279 {
1280   if (application_has_local_scope (app))
1281     application_start_stop_proxy_local_scope (app, transport_proto, is_start);
1282
1283   if (application_has_global_scope (app))
1284     {
1285       application_start_stop_proxy_fib_proto (app, FIB_PROTOCOL_IP4,
1286                                               transport_proto, is_start);
1287       application_start_stop_proxy_fib_proto (app, FIB_PROTOCOL_IP6,
1288                                               transport_proto, is_start);
1289     }
1290 }
1291
1292 void
1293 application_setup_proxy (application_t * app)
1294 {
1295   u16 transports = app->proxied_transports;
1296   transport_proto_t tp;
1297
1298   ASSERT (application_is_proxy (app));
1299
1300   /* *INDENT-OFF* */
1301   transport_proto_foreach (tp, ({
1302     if (transports & (1 << tp))
1303       application_start_stop_proxy (app, tp, 1);
1304   }));
1305   /* *INDENT-ON* */
1306 }
1307
1308 void
1309 application_remove_proxy (application_t * app)
1310 {
1311   u16 transports = app->proxied_transports;
1312   transport_proto_t tp;
1313
1314   ASSERT (application_is_proxy (app));
1315
1316   /* *INDENT-OFF* */
1317   transport_proto_foreach (tp, ({
1318     if (transports & (1 << tp))
1319       application_start_stop_proxy (app, tp, 0);
1320   }));
1321   /* *INDENT-ON* */
1322 }
1323
1324 segment_manager_props_t *
1325 application_segment_manager_properties (application_t * app)
1326 {
1327   return &app->sm_properties;
1328 }
1329
1330 segment_manager_props_t *
1331 application_get_segment_manager_properties (u32 app_index)
1332 {
1333   application_t *app = application_get (app_index);
1334   return &app->sm_properties;
1335 }
1336
1337 clib_error_t *
1338 vnet_app_add_tls_cert (vnet_app_add_tls_cert_args_t * a)
1339 {
1340   /* Deprected, will be remove after 20.01 */
1341   app_cert_key_pair_t *ckpair;
1342   ckpair = app_cert_key_pair_get_default ();
1343   ckpair->cert = vec_dup (a->cert);
1344   return 0;
1345 }
1346
1347 clib_error_t *
1348 vnet_app_add_tls_key (vnet_app_add_tls_key_args_t * a)
1349 {
1350   /* Deprected, will be remove after 20.01 */
1351   app_cert_key_pair_t *ckpair;
1352   ckpair = app_cert_key_pair_get_default ();
1353   ckpair->key = vec_dup (a->key);
1354   return 0;
1355 }
1356
1357 static void
1358 application_format_listeners (application_t * app, int verbose)
1359 {
1360   vlib_main_t *vm = vlib_get_main ();
1361   app_worker_map_t *wrk_map;
1362   app_worker_t *app_wrk;
1363   u32 sm_index;
1364   u64 handle;
1365
1366   if (!app)
1367     {
1368       vlib_cli_output (vm, "%U", format_app_worker_listener, 0 /* header */ ,
1369                        0, 0, verbose);
1370       return;
1371     }
1372
1373   /* *INDENT-OFF* */
1374   pool_foreach (wrk_map, app->worker_maps, ({
1375     app_wrk = app_worker_get (wrk_map->wrk_index);
1376     if (hash_elts (app_wrk->listeners_table) == 0)
1377       continue;
1378     hash_foreach (handle, sm_index, app_wrk->listeners_table, ({
1379       vlib_cli_output (vm, "%U", format_app_worker_listener, app_wrk,
1380                        handle, sm_index, verbose);
1381     }));
1382   }));
1383   /* *INDENT-ON* */
1384 }
1385
1386 static void
1387 application_format_connects (application_t * app, int verbose)
1388 {
1389   app_worker_map_t *wrk_map;
1390   app_worker_t *app_wrk;
1391
1392   if (!app)
1393     {
1394       app_worker_format_connects (0, verbose);
1395       return;
1396     }
1397
1398   /* *INDENT-OFF* */
1399   pool_foreach (wrk_map, app->worker_maps, ({
1400     app_wrk = app_worker_get (wrk_map->wrk_index);
1401     app_worker_format_connects (app_wrk, verbose);
1402   }));
1403   /* *INDENT-ON* */
1404 }
1405
1406 u8 *
1407 format_cert_key_pair (u8 * s, va_list * args)
1408 {
1409   app_cert_key_pair_t *ckpair = va_arg (*args, app_cert_key_pair_t *);
1410   int key_len = 0, cert_len = 0;
1411   cert_len = vec_len (ckpair->cert);
1412   key_len = vec_len (ckpair->key);
1413   if (ckpair->cert_key_index == 0)
1414     s = format (s, "DEFAULT (cert:%d, key:%d)", cert_len, key_len);
1415   else
1416     s = format (s, "%d (cert:%d, key:%d)", ckpair->cert_key_index,
1417                 cert_len, key_len);
1418   return s;
1419 }
1420
1421 u8 *
1422 format_crypto_engine (u8 * s, va_list * args)
1423 {
1424   u32 engine = va_arg (*args, u32);
1425   switch (engine)
1426     {
1427     case CRYPTO_ENGINE_NONE:
1428       return format (s, "none");
1429     case CRYPTO_ENGINE_MBEDTLS:
1430       return format (s, "mbedtls");
1431     case CRYPTO_ENGINE_OPENSSL:
1432       return format (s, "openssl");
1433     case CRYPTO_ENGINE_PICOTLS:
1434       return format (s, "picotls");
1435     case CRYPTO_ENGINE_VPP:
1436       return format (s, "vpp");
1437     default:
1438       return format (s, "unknown engine");
1439     }
1440   return s;
1441 }
1442
1443 uword
1444 unformat_crypto_engine (unformat_input_t * input, va_list * args)
1445 {
1446   u8 *a = va_arg (*args, u8 *);
1447   if (unformat (input, "mbedtls"))
1448     *a = CRYPTO_ENGINE_MBEDTLS;
1449   else if (unformat (input, "openssl"))
1450     *a = CRYPTO_ENGINE_OPENSSL;
1451   else if (unformat (input, "picotls"))
1452     *a = CRYPTO_ENGINE_PICOTLS;
1453   else if (unformat (input, "vpp"))
1454     *a = CRYPTO_ENGINE_VPP;
1455   else
1456     return 0;
1457   return 1;
1458 }
1459
1460 u8 *
1461 format_crypto_context (u8 * s, va_list * args)
1462 {
1463   crypto_context_t *crctx = va_arg (*args, crypto_context_t *);
1464   s = format (s, "[0x%x][sub%d,ckpair%x]", crctx->ctx_index,
1465               crctx->n_subscribers, crctx->ckpair_index);
1466   s = format (s, "[%U]", format_crypto_engine, crctx->crypto_engine);
1467   return s;
1468 }
1469
1470 u8 *
1471 format_application (u8 * s, va_list * args)
1472 {
1473   application_t *app = va_arg (*args, application_t *);
1474   CLIB_UNUSED (int verbose) = va_arg (*args, int);
1475   segment_manager_props_t *props;
1476   const u8 *app_ns_name, *app_name;
1477   app_worker_map_t *wrk_map;
1478   app_worker_t *app_wrk;
1479
1480   if (app == 0)
1481     {
1482       if (!verbose)
1483         s = format (s, "%-10s%-20s%-40s", "Index", "Name", "Namespace");
1484       return s;
1485     }
1486
1487   app_name = app_get_name (app);
1488   app_ns_name = app_namespace_id_from_index (app->ns_index);
1489   props = application_segment_manager_properties (app);
1490   if (!verbose)
1491     {
1492       s = format (s, "%-10u%-20v%-40v", app->app_index, app_name,
1493                   app_ns_name);
1494       return s;
1495     }
1496
1497   s = format (s, "app-name %v app-index %u ns-index %u seg-size %U\n",
1498               app_name, app->app_index, app->ns_index,
1499               format_memory_size, props->add_segment_size);
1500   s = format (s, "rx-fifo-size %U tx-fifo-size %U workers:\n",
1501               format_memory_size, props->rx_fifo_size,
1502               format_memory_size, props->tx_fifo_size);
1503
1504   /* *INDENT-OFF* */
1505   pool_foreach (wrk_map, app->worker_maps, ({
1506       app_wrk = app_worker_get (wrk_map->wrk_index);
1507       s = format (s, "%U", format_app_worker, app_wrk);
1508   }));
1509   /* *INDENT-ON* */
1510
1511   return s;
1512 }
1513
1514 void
1515 application_format_all_listeners (vlib_main_t * vm, int verbose)
1516 {
1517   application_t *app;
1518
1519   if (!pool_elts (app_main.app_pool))
1520     {
1521       vlib_cli_output (vm, "No active server bindings");
1522       return;
1523     }
1524
1525   application_format_listeners (0, verbose);
1526
1527   /* *INDENT-OFF* */
1528   pool_foreach (app, app_main.app_pool, ({
1529     application_format_listeners (app, verbose);
1530   }));
1531   /* *INDENT-ON* */
1532 }
1533
1534 void
1535 application_format_all_clients (vlib_main_t * vm, int verbose)
1536 {
1537   application_t *app;
1538
1539   if (!pool_elts (app_main.app_pool))
1540     {
1541       vlib_cli_output (vm, "No active apps");
1542       return;
1543     }
1544
1545   application_format_connects (0, verbose);
1546
1547   /* *INDENT-OFF* */
1548   pool_foreach (app, app_main.app_pool, ({
1549     application_format_connects (app, verbose);
1550   }));
1551   /* *INDENT-ON* */
1552 }
1553
1554 static clib_error_t *
1555 show_certificate_command_fn (vlib_main_t * vm, unformat_input_t * input,
1556                              vlib_cli_command_t * cmd)
1557 {
1558   app_cert_key_pair_t *ckpair;
1559   session_cli_return_if_not_enabled ();
1560
1561   /* *INDENT-OFF* */
1562   pool_foreach (ckpair, app_main.cert_key_pair_store, ({
1563     vlib_cli_output (vm, "%U", format_cert_key_pair, ckpair);
1564   }));
1565   /* *INDENT-ON* */
1566   return 0;
1567 }
1568
1569 static inline void
1570 appliction_format_app_mq (vlib_main_t * vm, application_t * app)
1571 {
1572   app_worker_map_t *map;
1573   app_worker_t *wrk;
1574   /* *INDENT-OFF* */
1575   pool_foreach (map, app->worker_maps, ({
1576     wrk = app_worker_get (map->wrk_index);
1577     vlib_cli_output (vm, "[A%d][%d]%U", app->app_index,
1578                      map->wrk_index, format_svm_msg_q,
1579                      wrk->event_queue);
1580   }));
1581   /* *INDENT-ON* */
1582 }
1583
1584 static clib_error_t *
1585 appliction_format_all_app_mq (vlib_main_t * vm)
1586 {
1587   application_t *app;
1588   int i, n_threads;
1589
1590   n_threads = vec_len (vlib_mains);
1591
1592   for (i = 0; i < n_threads; i++)
1593     {
1594       vlib_cli_output (vm, "[Ctrl%d]%U", i, format_svm_msg_q,
1595                        session_main_get_vpp_event_queue (i));
1596     }
1597
1598   /* *INDENT-OFF* */
1599   pool_foreach (app, app_main.app_pool, ({
1600       appliction_format_app_mq (vm, app);
1601   }));
1602   /* *INDENT-ON* */
1603   return 0;
1604 }
1605
1606 static clib_error_t *
1607 show_app_command_fn (vlib_main_t * vm, unformat_input_t * input,
1608                      vlib_cli_command_t * cmd)
1609 {
1610   int do_server = 0, do_client = 0, do_mq = 0;
1611   application_t *app;
1612   u32 app_index = ~0;
1613   int verbose = 0;
1614
1615   session_cli_return_if_not_enabled ();
1616
1617   while (unformat_check_input (input) != UNFORMAT_END_OF_INPUT)
1618     {
1619       if (unformat (input, "server"))
1620         do_server = 1;
1621       else if (unformat (input, "client"))
1622         do_client = 1;
1623       else if (unformat (input, "mq"))
1624         do_mq = 1;
1625       else if (unformat (input, "%u", &app_index))
1626         ;
1627       else if (unformat (input, "verbose"))
1628         verbose = 1;
1629       else
1630         return clib_error_return (0, "unknown input `%U'",
1631                                   format_unformat_error, input);
1632     }
1633
1634   if (do_mq && app_index != ~0)
1635     {
1636       app = application_get_if_valid (app_index);
1637       if (!app)
1638         return clib_error_return (0, "No app with index %u", app_index);
1639
1640       appliction_format_app_mq (vm, app);
1641       return 0;
1642     }
1643
1644   if (do_mq)
1645     {
1646       appliction_format_all_app_mq (vm);
1647       return 0;
1648     }
1649
1650   if (do_server)
1651     {
1652       application_format_all_listeners (vm, verbose);
1653       return 0;
1654     }
1655
1656   if (do_client)
1657     {
1658       application_format_all_clients (vm, verbose);
1659       return 0;
1660     }
1661
1662   if (app_index != ~0)
1663     {
1664       app = application_get_if_valid (app_index);
1665       if (!app)
1666         return clib_error_return (0, "No app with index %u", app_index);
1667
1668       vlib_cli_output (vm, "%U", format_application, app, /* verbose */ 1);
1669       return 0;
1670     }
1671
1672   /* Print app related info */
1673   if (!do_server && !do_client)
1674     {
1675       vlib_cli_output (vm, "%U", format_application, 0, 0);
1676       /* *INDENT-OFF* */
1677       pool_foreach (app, app_main.app_pool, ({
1678         vlib_cli_output (vm, "%U", format_application, app, 0);
1679       }));
1680       /* *INDENT-ON* */
1681     }
1682
1683   return 0;
1684 }
1685
1686 /* Certificate store */
1687
1688 static app_cert_key_pair_t *
1689 app_cert_key_pair_alloc ()
1690 {
1691   app_cert_key_pair_t *ckpair;
1692   pool_get (app_main.cert_key_pair_store, ckpair);
1693   clib_memset (ckpair, 0, sizeof (*ckpair));
1694   ckpair->cert_key_index = ckpair - app_main.cert_key_pair_store;
1695   return ckpair;
1696 }
1697
1698 app_cert_key_pair_t *
1699 app_cert_key_pair_get_if_valid (u32 index)
1700 {
1701   if (pool_is_free_index (app_main.cert_key_pair_store, index))
1702     return 0;
1703   return app_cert_key_pair_get (index);
1704 }
1705
1706 app_cert_key_pair_t *
1707 app_cert_key_pair_get (u32 index)
1708 {
1709   return pool_elt_at_index (app_main.cert_key_pair_store, index);
1710 }
1711
1712 app_cert_key_pair_t *
1713 app_cert_key_pair_get_default ()
1714 {
1715   /* To maintain legacy bapi */
1716   return app_cert_key_pair_get (0);
1717 }
1718
1719 int
1720 vnet_app_add_cert_key_pair (vnet_app_add_cert_key_pair_args_t * a)
1721 {
1722   app_cert_key_pair_t *ckpair = app_cert_key_pair_alloc ();
1723   ckpair->cert = vec_dup (a->cert);
1724   ckpair->key = vec_dup (a->key);
1725   a->index = ckpair->cert_key_index;
1726   return 0;
1727 }
1728
1729 int
1730 vnet_app_add_cert_key_interest (u32 index, u32 app_index)
1731 {
1732   app_cert_key_pair_t *ckpair;
1733   if (!(ckpair = app_cert_key_pair_get_if_valid (index)))
1734     return -1;
1735   if (vec_search (ckpair->app_interests, app_index) != ~0)
1736     vec_add1 (ckpair->app_interests, app_index);
1737   return 0;
1738 }
1739
1740 int
1741 vnet_app_del_cert_key_pair (u32 index)
1742 {
1743   app_cert_key_pair_t *ckpair;
1744   application_t *app;
1745   u32 *app_index;
1746
1747   if (!(ckpair = app_cert_key_pair_get_if_valid (index)))
1748     return (VNET_API_ERROR_INVALID_VALUE);
1749
1750   vec_foreach (app_index, ckpair->app_interests)
1751   {
1752     if ((app = application_get_if_valid (*app_index))
1753         && app->cb_fns.app_cert_key_pair_delete_callback)
1754       app->cb_fns.app_cert_key_pair_delete_callback (ckpair);
1755   }
1756
1757   vec_free (ckpair->cert);
1758   vec_free (ckpair->key);
1759   pool_put (app_main.cert_key_pair_store, ckpair);
1760   return 0;
1761 }
1762
1763 clib_error_t *
1764 application_init (vlib_main_t * vm)
1765 {
1766   /* Add a certificate with index 0 to support legacy apis */
1767   (void) app_cert_key_pair_alloc ();
1768   app_main.last_crypto_engine = CRYPTO_ENGINE_LAST;
1769   app_main.app_by_name = hash_create_vec (0, sizeof (u8), sizeof (uword));
1770   return 0;
1771 }
1772
1773 /* *INDENT-OFF* */
1774 VLIB_INIT_FUNCTION (application_init);
1775
1776 VLIB_CLI_COMMAND (show_app_command, static) =
1777 {
1778   .path = "show app",
1779   .short_help = "show app [app_id] [server|client] [mq] [verbose]",
1780   .function = show_app_command_fn,
1781 };
1782
1783 VLIB_CLI_COMMAND (show_certificate_command, static) =
1784 {
1785   .path = "show app certificate",
1786   .short_help = "list app certs and keys present in store",
1787   .function = show_certificate_command_fn,
1788 };
1789 /* *INDENT-ON* */
1790
1791 crypto_engine_type_t
1792 app_crypto_engine_type_add (void)
1793 {
1794   return (++app_main.last_crypto_engine);
1795 }
1796
1797 u8
1798 app_crypto_engine_n_types (void)
1799 {
1800   return (app_main.last_crypto_engine + 1);
1801 }
1802
1803 /*
1804  * fd.io coding-style-patch-verification: ON
1805  *
1806  * Local Variables:
1807  * eval: (c-set-style "gnu")
1808  * End:
1809  */