src/plugins/tlspicotls/tls_picotls.c

   1 #include <math.h>
   2
   3 #include <tlspicotls/certs.h>
   4 #include <tlspicotls/tls_picotls.h>
   5 #include <tlspicotls/pico_vpp_crypto.h>
   6
   7 picotls_main_t picotls_main;
   8
   9 #define MAX_QUEUE 12000
  10 #define PTLS_MAX_PLAINTEXT_RECORD_SIZE 16384
  11
  12 static ptls_key_exchange_algorithm_t *default_key_exchange[] = {
  13 #ifdef PTLS_OPENSSL_HAVE_X25519
  14   &ptls_openssl_x25519,
  15 #endif
  16 #ifdef PTLS_OPENSSL_HAVE_SECP256R1
  17   &ptls_openssl_secp256r1,
  18 #endif
  19 #ifdef PTLS_OPENSSL_HAVE_SECP384R1
  20   &ptls_openssl_secp384r1,
  21 #endif
  22 #ifdef PTLS_OPENSSL_HAVE_SECP521R1
  23   &ptls_openssl_secp521r1
  24 #endif
  25 };
  26
  27 static u32
  28 picotls_ctx_alloc (void)
  29 {
  30   u32 thread_id = vlib_get_thread_index ();
  31   picotls_main_t *pm = &picotls_main;
  32   picotls_ctx_t **ctx;
  33
  34   pool_get_aligned_safe (pm->ctx_pool[thread_id], ctx, CLIB_CACHE_LINE_BYTES);
  35   if (!(*ctx))
  36     *ctx = clib_mem_alloc (sizeof (picotls_ctx_t));
  37
  38   clib_memset (*ctx, 0, sizeof (picotls_ctx_t));
  39   (*ctx)->ctx.c_thread_index = thread_id;
  40   (*ctx)->ctx.tls_ctx_engine = CRYPTO_ENGINE_PICOTLS;
  41   (*ctx)->ctx.app_session_handle = SESSION_INVALID_HANDLE;
  42   (*ctx)->ptls_ctx_idx = ctx - pm->ctx_pool[thread_id];
  43   return (*ctx)->ptls_ctx_idx;
  44 }
  45
  46 static void
  47 picotls_ctx_free (tls_ctx_t * ctx)
  48 {
  49   picotls_ctx_t *ptls_ctx = (picotls_ctx_t *) ctx;
  50   vec_free (ptls_ctx->rx_content);
  51   ptls_free (ptls_ctx->tls);
  52   pool_put_index (picotls_main.ctx_pool[ctx->c_thread_index],
  53                   ptls_ctx->ptls_ctx_idx);
  54 }
  55
  56 static u32
  57 picotls_listen_ctx_alloc (void)
  58 {
  59   picotls_main_t *pm = &picotls_main;
  60   picotls_listen_ctx_t *ptls_lctx;
  61
  62   pool_get (pm->lctx_pool, ptls_lctx);
  63
  64   clib_memset (ptls_lctx, 0, sizeof (picotls_listen_ctx_t));
  65   ptls_lctx->ptls_lctx_index = ptls_lctx - pm->lctx_pool;
  66   return ptls_lctx->ptls_lctx_index;
  67 }
  68
  69 static void
  70 picotls_listen_ctx_free (picotls_listen_ctx_t * lctx)
  71 {
  72   pool_put_index (picotls_main.lctx_pool, lctx->ptls_lctx_index);
  73 }
  74
  75 tls_ctx_t *
  76 picotls_ctx_get (u32 ctx_index)
  77 {
  78   picotls_ctx_t **ctx;
  79   ctx =
  80     pool_elt_at_index (picotls_main.ctx_pool[vlib_get_thread_index ()],
  81                        ctx_index);
  82   return &(*ctx)->ctx;
  83 }
  84
  85 picotls_listen_ctx_t *
  86 picotls_lctx_get (u32 lctx_index)
  87 {
  88   return pool_elt_at_index (picotls_main.lctx_pool, lctx_index);
  89 }
  90
  91 static u8
  92 picotls_handshake_is_over (tls_ctx_t * ctx)
  93 {
  94   picotls_ctx_t *ptls_ctx = (picotls_ctx_t *) ctx;
  95   assert (ptls_ctx->tls);
  96   return ptls_handshake_is_complete (ptls_ctx->tls);
  97 }
  98
  99 static int
 100 picotls_try_handshake_write (picotls_ctx_t * ptls_ctx,
 101                              session_t * tls_session, ptls_buffer_t * buf)
 102 {
 103   u32 enq_max, enq_now;
 104   svm_fifo_t *f;
 105   int write, buf_left;
 106
 107   if (buf->off <= 0)
 108     return 0;
 109
 110   f = tls_session->tx_fifo;
 111   buf_left = buf->off;
 112   enq_max = svm_fifo_max_enqueue_prod (f);
 113   if (!enq_max)
 114     return 0;
 115
 116   enq_now = clib_min (svm_fifo_max_write_chunk (f), enq_max);
 117   enq_now = clib_min (enq_now, buf_left);
 118   write = svm_fifo_enqueue (f, enq_now, buf->base);
 119   buf_left -= write;
 120   tls_add_vpp_q_tx_evt (tls_session);
 121   return write;
 122 }
 123
 124 static int
 125 picotls_start_listen (tls_ctx_t * lctx)
 126 {
 127   picotls_listen_ctx_t *ptls_lctx;
 128   ptls_context_t *ptls_ctx;
 129   u32 ptls_lctx_idx;
 130   app_cert_key_pair_t *ckpair;
 131
 132   ckpair = app_cert_key_pair_get_if_valid (lctx->ckpair_index);
 133   if (!ckpair || !ckpair->cert || !ckpair->key)
 134     {
 135       TLS_DBG (1, "tls cert and/or key not configured %d",
 136                lctx->parent_app_wrk_index);
 137       return -1;
 138     }
 139
 140   ptls_lctx_idx = picotls_listen_ctx_alloc ();
 141   ptls_lctx = picotls_lctx_get (ptls_lctx_idx);
 142   ptls_ctx = malloc (sizeof (ptls_context_t));
 143   ptls_lctx->ptls_ctx = ptls_ctx;
 144
 145   memset (ptls_ctx, 0, sizeof (ptls_context_t));
 146   ptls_ctx->update_open_count = NULL;
 147
 148   /*
 149    * Process certificate & private key.
 150    */
 151   load_bio_certificate_chain (ptls_ctx, (char *) ckpair->cert);
 152   load_bio_private_key (ptls_ctx, (char *) ckpair->key);
 153
 154   /* setup protocol related functions */
 155   ptls_ctx->key_exchanges = default_key_exchange;
 156   ptls_ctx->random_bytes = ptls_openssl_random_bytes;
 157   ptls_ctx->cipher_suites = ptls_vpp_crypto_cipher_suites;
 158   ptls_ctx->get_time = &ptls_get_time;
 159
 160   lctx->tls_ssl_ctx = ptls_lctx_idx;
 161
 162   return 0;
 163 }
 164
 165 static int
 166 picotls_stop_listen (tls_ctx_t * lctx)
 167 {
 168   u32 ptls_lctx_index;
 169   picotls_listen_ctx_t *ptls_lctx;
 170
 171   ptls_lctx_index = lctx->tls_ssl_ctx;
 172   ptls_lctx = picotls_lctx_get (ptls_lctx_index);
 173
 174   picotls_listen_ctx_free (ptls_lctx);
 175
 176   return 0;
 177 }
 178
 179 static void
 180 picotls_handle_handshake_failure (tls_ctx_t * ctx)
 181 {
 182   session_free (session_get (ctx->c_s_index, ctx->c_thread_index));
 183   ctx->flags |= TLS_CONN_F_NO_APP_SESSION;
 184   ctx->c_s_index = SESSION_INVALID_INDEX;
 185   tls_disconnect_transport (ctx);
 186 }
 187
 188 static void
 189 picotls_confirm_app_close (tls_ctx_t * ctx)
 190 {
 191   tls_disconnect_transport (ctx);
 192   session_transport_closed_notify (&ctx->connection);
 193 }
 194
 195 static int
 196 picotls_transport_close (tls_ctx_t * ctx)
 197 {
 198   if (!picotls_handshake_is_over (ctx))
 199     {
 200       picotls_handle_handshake_failure (ctx);
 201       return 0;
 202     }
 203   session_transport_closing_notify (&ctx->connection);
 204   return 0;
 205 }
 206
 207 static int
 208 picotls_transport_reset (tls_ctx_t *ctx)
 209 {
 210   if (!picotls_handshake_is_over (ctx))
 211     {
 212       picotls_handle_handshake_failure (ctx);
 213       return 0;
 214     }
 215
 216   session_transport_reset_notify (&ctx->connection);
 217   session_transport_closed_notify (&ctx->connection);
 218   tls_disconnect_transport (ctx);
 219
 220   return 0;
 221 }
 222
 223 static int
 224 picotls_app_close (tls_ctx_t * ctx)
 225 {
 226   session_t *app_session;
 227
 228   app_session = session_get_from_handle (ctx->app_session_handle);
 229   if (!svm_fifo_max_dequeue_cons (app_session->tx_fifo))
 230     picotls_confirm_app_close (ctx);
 231   else
 232     ctx->flags |= TLS_CONN_F_APP_CLOSED;
 233
 234   return 0;
 235 }
 236
 237 static inline int
 238 picotls_do_handshake (picotls_ctx_t *ptls_ctx, session_t *tcp_session)
 239 {
 240   int rv = PTLS_ERROR_IN_PROGRESS, write = 0, i = 0, read = 0, len;
 241   svm_fifo_t *tcp_rx_fifo = tcp_session->rx_fifo;
 242   ptls_buffer_t *buf = &ptls_ctx->read_buffer;
 243   u32 n_segs = 2, max_len = 16384;
 244   ptls_t *tls = ptls_ctx->tls;
 245   svm_fifo_seg_t fs[n_segs];
 246   uword deq_now;
 247
 248   ptls_buffer_init (buf, "", 0);
 249
 250   len = svm_fifo_segments (tcp_rx_fifo, 0, fs, &n_segs, max_len);
 251   if (len <= 0)
 252     return 0;
 253
 254   while (read < len && i < n_segs)
 255     {
 256       deq_now = fs[i].len;
 257       rv = ptls_handshake (tls, buf, fs[i].data, &deq_now, NULL);
 258
 259       write += picotls_try_handshake_write (ptls_ctx, tcp_session, buf);
 260       read += deq_now;
 261
 262       if (!(rv == 0 || rv == PTLS_ERROR_IN_PROGRESS))
 263         {
 264           clib_error ("unexpected error %u", rv);
 265           break;
 266         }
 267
 268       if (!rv)
 269         break;
 270
 271       if (deq_now < fs[i].len)
 272         {
 273           fs[i].data += deq_now;
 274           fs[i].len -= deq_now;
 275         }
 276       else
 277         i++;
 278     }
 279
 280   if (read)
 281     svm_fifo_dequeue_drop (tcp_rx_fifo, read);
 282
 283   ptls_buffer_dispose (buf);
 284
 285   return write;
 286 }
 287
 288 static inline int
 289 ptls_copy_buf_to_fs (ptls_buffer_t *buf, u32 to_copy, svm_fifo_seg_t *fs,
 290                      u32 *fs_idx, u32 max_fs)
 291 {
 292   u32 idx = *fs_idx;
 293
 294   while (to_copy)
 295     {
 296       if (fs[idx].len <= to_copy)
 297         {
 298           clib_memcpy_fast (fs[idx].data, buf->base + (buf->off - to_copy),
 299                             fs[idx].len);
 300           to_copy -= fs[idx].len;
 301           idx += 1;
 302           /* no more space in the app's rx fifo */
 303           if (idx == max_fs)
 304             break;
 305         }
 306       else
 307         {
 308           clib_memcpy_fast (fs[idx].data, buf->base + (buf->off - to_copy),
 309                             to_copy);
 310           fs[idx].len -= to_copy;
 311           fs[idx].data += to_copy;
 312           to_copy = 0;
 313         }
 314     }
 315
 316   *fs_idx = idx;
 317
 318   return to_copy;
 319 }
 320
 321 static u32
 322 ptls_tcp_to_app_write (picotls_ctx_t *ptls_ctx, svm_fifo_t *app_rx_fifo,
 323                        svm_fifo_t *tcp_rx_fifo)
 324 {
 325   u32 ai = 0, thread_index, min_buf_len, to_copy, left, wrote = 0;
 326   ptls_buffer_t *buf = &ptls_ctx->read_buffer;
 327   int ret, i = 0, read = 0, tcp_len, n_fs_app;
 328   u32 n_segs = 4, max_len = 1 << 16;
 329   svm_fifo_seg_t tcp_fs[n_segs], app_fs[n_segs];
 330   picotls_main_t *pm = &picotls_main;
 331   uword deq_now;
 332   u8 is_nocopy;
 333
 334   thread_index = ptls_ctx->ctx.c_thread_index;
 335
 336   n_fs_app = svm_fifo_provision_chunks (app_rx_fifo, app_fs, n_segs, max_len);
 337   if (n_fs_app <= 0)
 338     return 0;
 339
 340   tcp_len = svm_fifo_segments (tcp_rx_fifo, 0, tcp_fs, &n_segs, max_len);
 341   if (tcp_len <= 0)
 342     return 0;
 343
 344   if (ptls_ctx->read_buffer_offset)
 345     {
 346       to_copy = buf->off - ptls_ctx->read_buffer_offset;
 347       left = ptls_copy_buf_to_fs (buf, to_copy, app_fs, &ai, n_fs_app);
 348       wrote += to_copy - left;
 349       if (left)
 350         {
 351           ptls_ctx->read_buffer_offset = buf->off - left;
 352           goto do_checks;
 353         }
 354       ptls_ctx->read_buffer_offset = 0;
 355     }
 356
 357   while (ai < n_fs_app && read < tcp_len)
 358     {
 359       deq_now = clib_min (tcp_fs[i].len, tcp_len - read);
 360       min_buf_len = deq_now + (16 << 10);
 361       is_nocopy = app_fs[ai].len < min_buf_len ? 0 : 1;
 362       if (is_nocopy)
 363         {
 364           ptls_buffer_init (buf, app_fs[ai].data, app_fs[ai].len);
 365           ret = ptls_receive (ptls_ctx->tls, buf, tcp_fs[i].data, &deq_now);
 366           assert (ret == 0 || ret == PTLS_ERROR_IN_PROGRESS);
 367
 368           wrote += buf->off;
 369           if (buf->off == app_fs[ai].len)
 370             {
 371               ai++;
 372             }
 373           else
 374             {
 375               app_fs[ai].len -= buf->off;
 376               app_fs[ai].data += buf->off;
 377             }
 378         }
 379       else
 380         {
 381           vec_validate (pm->rx_bufs[thread_index], min_buf_len);
 382           ptls_buffer_init (buf, pm->rx_bufs[thread_index], min_buf_len);
 383           ret = ptls_receive (ptls_ctx->tls, buf, tcp_fs[i].data, &deq_now);
 384           assert (ret == 0 || ret == PTLS_ERROR_IN_PROGRESS);
 385
 386           left = ptls_copy_buf_to_fs (buf, buf->off, app_fs, &ai, n_fs_app);
 387           if (!left)
 388             {
 389               ptls_ctx->read_buffer_offset = 0;
 390               wrote += buf->off;
 391             }
 392           else
 393             {
 394               ptls_ctx->read_buffer_offset = buf->off - left;
 395               wrote += ptls_ctx->read_buffer_offset;
 396             }
 397         }
 398
 399       assert (deq_now <= tcp_fs[i].len);
 400       read += deq_now;
 401       if (deq_now < tcp_fs[i].len)
 402         {
 403           tcp_fs[i].data += deq_now;
 404           tcp_fs[i].len -= deq_now;
 405         }
 406       else
 407         i++;
 408     }
 409
 410 do_checks:
 411
 412   if (read)
 413     {
 414       svm_fifo_dequeue_drop (tcp_rx_fifo, read);
 415       if (svm_fifo_needs_deq_ntf (tcp_rx_fifo, read))
 416         {
 417           svm_fifo_clear_deq_ntf (tcp_rx_fifo);
 418           session_send_io_evt_to_thread (tcp_rx_fifo, SESSION_IO_EVT_RX);
 419         }
 420     }
 421
 422   if (wrote)
 423     svm_fifo_enqueue_nocopy (app_rx_fifo, wrote);
 424
 425   return wrote;
 426 }
 427
 428 static inline int
 429 picotls_ctx_read (tls_ctx_t *ctx, session_t *tcp_session)
 430 {
 431   picotls_ctx_t *ptls_ctx = (picotls_ctx_t *) ctx;
 432   svm_fifo_t *tcp_rx_fifo;
 433   session_t *app_session;
 434   int wrote;
 435
 436   if (PREDICT_FALSE (!ptls_handshake_is_complete (ptls_ctx->tls)))
 437     {
 438       picotls_do_handshake (ptls_ctx, tcp_session);
 439       if (picotls_handshake_is_over (ctx))
 440         {
 441           if (ptls_is_server (ptls_ctx->tls))
 442             {
 443               if (tls_notify_app_accept (ctx))
 444                 {
 445                   ctx->c_s_index = SESSION_INVALID_INDEX;
 446                   tls_disconnect_transport (ctx);
 447                   return -1;
 448                 }
 449             }
 450           else
 451             {
 452               tls_notify_app_connected (ctx, SESSION_E_NONE);
 453             }
 454         }
 455
 456       if (!svm_fifo_max_dequeue (tcp_session->rx_fifo))
 457         return 0;
 458     }
 459
 460   tcp_rx_fifo = tcp_session->rx_fifo;
 461   app_session = session_get_from_handle (ctx->app_session_handle);
 462   wrote = ptls_tcp_to_app_write (ptls_ctx, app_session->rx_fifo, tcp_rx_fifo);
 463
 464   if (wrote)
 465     tls_notify_app_enqueue (ctx, app_session);
 466
 467   if (ptls_ctx->read_buffer_offset || svm_fifo_max_dequeue (tcp_rx_fifo))
 468     tls_add_vpp_q_builtin_rx_evt (tcp_session);
 469
 470   return wrote;
 471 }
 472
 473 static inline u32
 474 ptls_compute_deq_len (picotls_ctx_t *ptls_ctx, u32 dst_chunk, u32 src_chunk,
 475                       u32 dst_space, u8 *is_nocopy)
 476 {
 477   int record_overhead = ptls_get_record_overhead (ptls_ctx->tls);
 478   int num_records;
 479   u32 deq_len, total_overhead;
 480
 481   if (dst_chunk >= clib_min (8192, src_chunk + record_overhead))
 482     {
 483       *is_nocopy = 1;
 484       deq_len = clib_min (src_chunk, dst_chunk);
 485       num_records = ceil ((f64) deq_len / PTLS_MAX_PLAINTEXT_RECORD_SIZE);
 486       total_overhead = num_records * record_overhead;
 487       if (deq_len + total_overhead > dst_chunk)
 488         deq_len = dst_chunk - total_overhead;
 489     }
 490   else
 491     {
 492       deq_len = clib_min (src_chunk, dst_space);
 493       num_records = ceil ((f64) deq_len / PTLS_MAX_PLAINTEXT_RECORD_SIZE);
 494       total_overhead = num_records * record_overhead;
 495       if (deq_len + total_overhead > dst_space)
 496         deq_len = dst_space - total_overhead;
 497     }
 498
 499   return deq_len;
 500 }
 501
 502 static u32
 503 ptls_app_to_tcp_write (picotls_ctx_t *ptls_ctx, session_t *app_session,
 504                        svm_fifo_t *tcp_tx_fifo, u32 max_len)
 505 {
 506   u32 wrote = 0, max_enq, thread_index, app_buf_len, left, ti = 0;
 507   int read = 0, rv, i = 0, len, n_tcp_segs = 4, deq_len;
 508   u32 n_app_segs = 2, min_chunk = 2048;
 509   svm_fifo_seg_t app_fs[n_app_segs], tcp_fs[n_tcp_segs];
 510   picotls_main_t *pm = &picotls_main;
 511   ptls_buffer_t _buf, *buf = &_buf;
 512   svm_fifo_t *app_tx_fifo;
 513   u8 is_nocopy, *app_buf;
 514   u32 first_chunk_len;
 515
 516   thread_index = app_session->thread_index;
 517   app_tx_fifo = app_session->tx_fifo;
 518
 519   len = svm_fifo_segments (app_tx_fifo, 0, app_fs, &n_app_segs, max_len);
 520   if (len <= 0)
 521     return 0;
 522
 523   n_tcp_segs = svm_fifo_provision_chunks (tcp_tx_fifo, tcp_fs, n_tcp_segs,
 524                                           1000 + max_len);
 525   if (n_tcp_segs <= 0)
 526     return 0;
 527
 528   while ((left = len - read) && ti < n_tcp_segs)
 529     {
 530       /* If we wrote something and are left with few bytes, postpone write
 531        * as we may be able to encrypt a bigger chunk next time */
 532       if (wrote && left < min_chunk)
 533         break;
 534
 535       /* Avoid short records if possible */
 536       if (app_fs[i].len < min_chunk && min_chunk < left)
 537         {
 538           app_buf_len = app_fs[i].len + app_fs[i + 1].len;
 539           app_buf = pm->rx_bufs[thread_index];
 540           vec_validate (pm->rx_bufs[thread_index], app_buf_len);
 541           clib_memcpy_fast (pm->rx_bufs[thread_index], app_fs[i].data,
 542                             app_fs[i].len);
 543           clib_memcpy_fast (pm->rx_bufs[thread_index] + app_fs[i].len,
 544                             app_fs[i + 1].data, app_buf_len - app_fs[i].len);
 545           first_chunk_len = app_fs[i].len;
 546           i += 1;
 547         }
 548       else
 549         {
 550           app_buf = app_fs[i].data;
 551           app_buf_len = app_fs[i].len;
 552           first_chunk_len = 0;
 553         }
 554
 555       is_nocopy = 0;
 556       max_enq = tcp_fs[ti].len;
 557       max_enq += ti < (n_tcp_segs - 1) ? tcp_fs[ti + 1].len : 0;
 558
 559       deq_len = ptls_compute_deq_len (ptls_ctx, tcp_fs[ti].len, app_buf_len,
 560                                       max_enq, &is_nocopy);
 561       if (is_nocopy)
 562         {
 563           ptls_buffer_init (buf, tcp_fs[ti].data, tcp_fs[ti].len);
 564           rv = ptls_send (ptls_ctx->tls, buf, app_buf, deq_len);
 565
 566           assert (rv == 0);
 567           wrote += buf->off;
 568
 569           tcp_fs[ti].len -= buf->off;
 570           tcp_fs[ti].data += buf->off;
 571           if (!tcp_fs[ti].len)
 572             ti += 1;
 573         }
 574       else
 575         {
 576           vec_validate (pm->tx_bufs[thread_index], max_enq);
 577           ptls_buffer_init (buf, pm->tx_bufs[thread_index], max_enq);
 578           rv = ptls_send (ptls_ctx->tls, buf, app_buf, deq_len);
 579
 580           assert (rv == 0);
 581           wrote += buf->off;
 582
 583           left = ptls_copy_buf_to_fs (buf, buf->off, tcp_fs, &ti, n_tcp_segs);
 584           assert (left == 0);
 585         }
 586
 587       read += deq_len;
 588       ASSERT (deq_len >= first_chunk_len);
 589
 590       if (deq_len == app_buf_len)
 591         {
 592           i += 1;
 593         }
 594       else
 595         {
 596           app_fs[i].len -= deq_len - first_chunk_len;
 597           app_fs[i].data += deq_len - first_chunk_len;
 598         }
 599     }
 600
 601   if (read)
 602     {
 603       svm_fifo_dequeue_drop (app_tx_fifo, read);
 604       if (svm_fifo_needs_deq_ntf (app_tx_fifo, read))
 605         session_dequeue_notify (app_session);
 606     }
 607
 608   if (wrote)
 609     {
 610       svm_fifo_enqueue_nocopy (tcp_tx_fifo, wrote);
 611       if (svm_fifo_set_event (tcp_tx_fifo))
 612         session_send_io_evt_to_thread (tcp_tx_fifo, SESSION_IO_EVT_TX);
 613     }
 614
 615   return wrote;
 616 }
 617
 618 static inline int
 619 picotls_ctx_write (tls_ctx_t *ctx, session_t *app_session,
 620                    transport_send_params_t *sp)
 621 {
 622   picotls_ctx_t *ptls_ctx = (picotls_ctx_t *) ctx;
 623   u32 deq_max, deq_now, enq_max, enq_buf, wrote = 0;
 624   svm_fifo_t *tcp_tx_fifo;
 625   session_t *tcp_session;
 626
 627   tcp_session = session_get_from_handle (ctx->tls_session_handle);
 628   tcp_tx_fifo = tcp_session->tx_fifo;
 629
 630   enq_max = svm_fifo_max_enqueue_prod (tcp_tx_fifo);
 631   if (enq_max < 2048)
 632     goto check_tls_fifo;
 633
 634   deq_max = svm_fifo_max_dequeue_cons (app_session->tx_fifo);
 635   deq_max = clib_min (deq_max, enq_max);
 636   if (!deq_max)
 637     goto check_tls_fifo;
 638
 639   deq_now = clib_min (deq_max, sp->max_burst_size);
 640   wrote = ptls_app_to_tcp_write (ptls_ctx, app_session, tcp_tx_fifo, deq_now);
 641
 642 check_tls_fifo:
 643
 644   if (ctx->flags & TLS_CONN_F_APP_CLOSED)
 645     picotls_app_close (ctx);
 646
 647   /* Deschedule and wait for deq notification if fifo is almost full */
 648   enq_buf = clib_min (svm_fifo_size (tcp_tx_fifo) / 2, TLSP_MIN_ENQ_SPACE);
 649   if (enq_max < wrote + enq_buf)
 650     {
 651       svm_fifo_add_want_deq_ntf (tcp_tx_fifo, SVM_FIFO_WANT_DEQ_NOTIF);
 652       transport_connection_deschedule (&ctx->connection);
 653       sp->flags |= TRANSPORT_SND_F_DESCHED;
 654     }
 655   else
 656     /* Request tx reschedule of the app session */
 657     app_session->flags |= SESSION_F_CUSTOM_TX;
 658
 659   return wrote;
 660 }
 661
 662 static int
 663 picotls_ctx_init_server (tls_ctx_t * ctx)
 664 {
 665   picotls_ctx_t *ptls_ctx = (picotls_ctx_t *) ctx;
 666   u32 ptls_lctx_idx = ctx->tls_ssl_ctx;
 667   picotls_listen_ctx_t *ptls_lctx;
 668
 669   ptls_lctx = picotls_lctx_get (ptls_lctx_idx);
 670   ptls_ctx->tls = ptls_new (ptls_lctx->ptls_ctx, 1);
 671   if (ptls_ctx->tls == NULL)
 672     {
 673       TLS_DBG (1, "Failed to initialize ptls_ssl structure");
 674       return -1;
 675     }
 676
 677   ptls_ctx->rx_len = 0;
 678   ptls_ctx->rx_offset = 0;
 679
 680   return 0;
 681 }
 682
 683 static int
 684 picotls_ctx_init_client (tls_ctx_t *ctx)
 685 {
 686   picotls_ctx_t *ptls_ctx = (picotls_ctx_t *) ctx;
 687   picotls_main_t *pm = &picotls_main;
 688   ptls_context_t *client_ptls_ctx = pm->client_ptls_ctx;
 689   ptls_handshake_properties_t hsprop = { { { { NULL } } } };
 690
 691   session_t *tls_session = session_get_from_handle (ctx->tls_session_handle);
 692   ptls_buffer_t hs_buf;
 693
 694   ptls_ctx->tls = ptls_new (client_ptls_ctx, 0);
 695   if (ptls_ctx->tls == NULL)
 696     {
 697       TLS_DBG (1, "Failed to initialize ptls_ssl structure");
 698       return -1;
 699     }
 700
 701   ptls_ctx->rx_len = 0;
 702   ptls_ctx->rx_offset = 0;
 703
 704   ptls_buffer_init (&hs_buf, "", 0);
 705   if (ptls_handshake (ptls_ctx->tls, &hs_buf, NULL, NULL, &hsprop) !=
 706       PTLS_ERROR_IN_PROGRESS)
 707     {
 708       TLS_DBG (1, "Failed to initialize tls connection");
 709     }
 710
 711   picotls_try_handshake_write (ptls_ctx, tls_session, &hs_buf);
 712
 713   ptls_buffer_dispose (&hs_buf);
 714
 715   return 0;
 716 }
 717
 718 tls_ctx_t *
 719 picotls_ctx_get_w_thread (u32 ctx_index, u8 thread_index)
 720 {
 721   picotls_ctx_t **ctx;
 722   ctx = pool_elt_at_index (picotls_main.ctx_pool[thread_index], ctx_index);
 723   return &(*ctx)->ctx;
 724 }
 725
 726 int
 727 picotls_init_client_ptls_ctx (ptls_context_t **client_ptls_ctx)
 728 {
 729   *client_ptls_ctx = clib_mem_alloc (sizeof (ptls_context_t));
 730   memset (*client_ptls_ctx, 0, sizeof (ptls_context_t));
 731
 732   (*client_ptls_ctx)->update_open_count = NULL;
 733   (*client_ptls_ctx)->key_exchanges = default_key_exchange;
 734   (*client_ptls_ctx)->random_bytes = ptls_openssl_random_bytes;
 735   (*client_ptls_ctx)->cipher_suites = ptls_vpp_crypto_cipher_suites;
 736   (*client_ptls_ctx)->get_time = &ptls_get_time;
 737
 738   return 0;
 739 }
 740
 741 int
 742 picotls_reinit_ca_chain (void)
 743 {
 744   /* Not supported yet */
 745   return 0;
 746 }
 747
 748 const static tls_engine_vft_t picotls_engine = {
 749   .ctx_alloc = picotls_ctx_alloc,
 750   .ctx_free = picotls_ctx_free,
 751   .ctx_get = picotls_ctx_get,
 752   .ctx_get_w_thread = picotls_ctx_get_w_thread,
 753   .ctx_handshake_is_over = picotls_handshake_is_over,
 754   .ctx_start_listen = picotls_start_listen,
 755   .ctx_stop_listen = picotls_stop_listen,
 756   .ctx_init_server = picotls_ctx_init_server,
 757   .ctx_init_client = picotls_ctx_init_client,
 758   .ctx_read = picotls_ctx_read,
 759   .ctx_write = picotls_ctx_write,
 760   .ctx_transport_close = picotls_transport_close,
 761   .ctx_transport_reset = picotls_transport_reset,
 762   .ctx_app_close = picotls_app_close,
 763   .ctx_reinit_cachain = picotls_reinit_ca_chain,
 764 };
 765
 766 static clib_error_t *
 767 tls_picotls_init (vlib_main_t * vm)
 768 {
 769   vlib_thread_main_t *vtm = vlib_get_thread_main ();
 770   picotls_main_t *pm = &picotls_main;
 771   clib_error_t *error = 0;
 772   u32 num_threads;
 773
 774   num_threads = 1 + vtm->n_threads;
 775
 776   vec_validate (pm->ctx_pool, num_threads - 1);
 777   vec_validate (pm->rx_bufs, num_threads - 1);
 778   vec_validate (pm->tx_bufs, num_threads - 1);
 779
 780   clib_rwlock_init (&picotls_main.crypto_keys_rw_lock);
 781
 782   tls_register_engine (&picotls_engine, CRYPTO_ENGINE_PICOTLS);
 783
 784   picotls_init_client_ptls_ctx (&pm->client_ptls_ctx);
 785
 786   return error;
 787 }
 788
 789 /* *INDENT-OFF* */
 790 VLIB_INIT_FUNCTION (tls_picotls_init) = {
 791   .runs_after = VLIB_INITS ("tls_init"),
 792 };
 793 /* *INDENT-ON* */
 794
 795 /* *INDENT-OFF* */
 796 VLIB_PLUGIN_REGISTER () = {
 797   .version = VPP_BUILD_VER,
 798   .description = "Transport Layer Security (TLS) Engine, Picotls Based",
 799 };
 800 /* *INDENT-ON* */
 801
 802 /*
 803  * fd.io coding-style-patch-verification: ON
 804  *
 805  * Local Variables:
 806  * eval: (c-set-style "gnu")
 807  * End:
 808  */