Cleanup URI code and TCP bugfixing

- Add CLI/API to enable session layer, by default it's disabled
- Improve rcv wnd computation
- Improvements to tx path
- URI code cleanup
- Builtin test tcp server
- Improve src port allocation

Change-Id: I2ace498e76a0771d4c31a8075cc14fe33d7dfa38
Signed-off-by: Florin Coras <fcoras@cisco.com>

1 files changed, 427 insertions, 365 deletions

diff --git a/src/uri/uri_tcp_test.c b/src/uri/uri_tcp_test.c
index ed5a37d813b..6c9cf1dbac9 100644
--- a/src/uri/uri_tcp_test.c
+++ b/src/uri/uri_tcp_test.c
@@ -20,16 +20,15 @@
 #include <svm/svm_fifo_segment.h>
 #include <vlibmemory/api.h>
 #include <vpp/api/vpe_msg_enum.h>
+#include <vnet/session/application_interface.h>
 
-#include "../vnet/session/application_interface.h"
-
-#define vl_typedefs             /* define message structures */
+#define vl_typedefs		/* define message structures */
 #include <vpp/api/vpe_all_api_h.h>
 #undef vl_typedefs
 
 /* declare message handlers for each api */
 
-#define vl_endianfun            /* define message structures */
+#define vl_endianfun		/* define message structures */
 #include <vpp/api/vpe_all_api_h.h>
 #undef vl_endianfun
 
@@ -45,8 +44,8 @@ vlib_main_t **vlib_mains;
 
 typedef struct
 {
-  svm_fifo_t * server_rx_fifo;
-  svm_fifo_t * server_tx_fifo;
+  svm_fifo_t *server_rx_fifo;
+  svm_fifo_t *server_tx_fifo;
 
   u32 vpp_session_index;
   u32 vpp_session_thread;
@@ -69,19 +68,19 @@ typedef struct
   u32 my_client_index;
 
   /* The URI we're playing with */
-  u8 * uri;
+  u8 *uri;
 
   /* Session pool */
-  session_t * sessions;
+  session_t *sessions;
 
   /* Hash table for disconnect processing */
-  uword * session_index_by_vpp_handles;
+  uword *session_index_by_vpp_handles;
 
   /* intermediate rx buffer */
-  u8 * rx_buf;
+  u8 *rx_buf;
 
   /* URI for slave's connect */
-  u8 * connect_uri;
+  u8 *connect_uri;
 
   u32 connected_session_index;
 
@@ -91,10 +90,10 @@ typedef struct
   int drop_packets;
 
   /* Our event queue */
-  unix_shared_memory_queue_t * our_event_queue;
+  unix_shared_memory_queue_t *our_event_queue;
 
   /* $$$ single thread only for the moment */
-  unix_shared_memory_queue_t * vpp_event_queue;
+  unix_shared_memory_queue_t *vpp_event_queue;
 
   pid_t my_pid;
 
@@ -111,12 +110,15 @@ typedef struct
   u32 configured_segment_size;
 
   /* VNET_API_ERROR_FOO -> "Foo" hash table */
-  uword * error_string_by_error_number;
-
-  /* convenience */
-  svm_fifo_segment_main_t * segment_main;
+  uword *error_string_by_error_number;
 
   u8 *connect_test_data;
+  pthread_t client_rx_thread_handle;
+  u32 client_bytes_received;
+  u8 test_return_packets;
+
+  /* convenience */
+  svm_fifo_segment_main_t *segment_main;
 } uri_tcp_test_main_t;
 
 uri_tcp_test_main_t uri_tcp_test_main;
@@ -141,7 +143,7 @@ wait_for_state_change (uri_tcp_test_main_t * utm, connection_state_t state)
   while (clib_time_now (&utm->clib_time) < timeout)
     {
       if (utm->state == state)
-        return 0;
+	return 0;
       if (utm->state == STATE_FAILED)
 	return -1;
     }
@@ -209,7 +211,7 @@ connect_to_vpp (char *name)
 }
 
 static void
-vl_api_map_another_segment_t_handler (vl_api_map_another_segment_t *mp)
+vl_api_map_another_segment_t_handler (vl_api_map_another_segment_t * mp)
 {
   svm_fifo_segment_create_args_t _a, *a = &_a;
   int rv;
@@ -221,24 +223,24 @@ vl_api_map_another_segment_t_handler (vl_api_map_another_segment_t *mp)
   if (rv)
     {
       clib_warning ("svm_fifo_segment_attach ('%s') failed",
-                    mp->segment_name);
+		    mp->segment_name);
       return;
     }
   clib_warning ("Mapped new segment '%s' size %d", mp->segment_name,
-                mp->segment_size);
+		mp->segment_size);
 }
 
 static void
 vl_api_disconnect_session_t_handler (vl_api_disconnect_session_t * mp)
 {
   uri_tcp_test_main_t *utm = &uri_tcp_test_main;
-  session_t * session;
-  vl_api_disconnect_session_reply_t * rmp;
-  uword * p;
+  session_t *session;
+  vl_api_disconnect_session_reply_t *rmp;
+  uword *p;
   int rv = 0;
   u64 key;
 
-  key = (((u64)mp->session_thread_index) << 32) | (u64)mp->session_index;
+  key = (((u64) mp->session_thread_index) << 32) | (u64) mp->session_index;
 
   p = hash_get (utm->session_index_by_vpp_handles, key);
 
@@ -254,6 +256,8 @@ vl_api_disconnect_session_t_handler (vl_api_disconnect_session_t * mp)
       rv = -11;
     }
 
+  utm->time_to_stop = 1;
+
   rmp = vl_msg_api_alloc (sizeof (*rmp));
   memset (rmp, 0, sizeof (*rmp));
 
@@ -261,32 +265,32 @@ vl_api_disconnect_session_t_handler (vl_api_disconnect_session_t * mp)
   rmp->retval = rv;
   rmp->session_index = mp->session_index;
   rmp->session_thread_index = mp->session_thread_index;
-  vl_msg_api_send_shmem (utm->vl_input_queue, (u8 *)&rmp);
+  vl_msg_api_send_shmem (utm->vl_input_queue, (u8 *) & rmp);
 }
 
 static void
 vl_api_reset_session_t_handler (vl_api_reset_session_t * mp)
 {
   uri_tcp_test_main_t *utm = &uri_tcp_test_main;
-  session_t * session;
-  vl_api_reset_session_reply_t * rmp;
-  uword * p;
+  session_t *session;
+  vl_api_reset_session_reply_t *rmp;
+  uword *p;
   int rv = 0;
   u64 key;
 
-  key = (((u64)mp->session_thread_index) << 32) | (u64)mp->session_index;
+  key = (((u64) mp->session_thread_index) << 32) | (u64) mp->session_index;
 
-  p = hash_get(utm->session_index_by_vpp_handles, key);
+  p = hash_get (utm->session_index_by_vpp_handles, key);
 
   if (p)
     {
-      session = pool_elt_at_index(utm->sessions, p[0]);
-      hash_unset(utm->session_index_by_vpp_handles, key);
-      pool_put(utm->sessions, session);
+      session = pool_elt_at_index (utm->sessions, p[0]);
+      hash_unset (utm->session_index_by_vpp_handles, key);
+      pool_put (utm->sessions, session);
     }
   else
     {
-      clib_warning("couldn't find session key %llx", key);
+      clib_warning ("couldn't find session key %llx", key);
       rv = -11;
     }
 
@@ -296,301 +300,95 @@ vl_api_reset_session_t_handler (vl_api_reset_session_t * mp)
   rmp->retval = rv;
   rmp->session_index = mp->session_index;
   rmp->session_thread_index = mp->session_thread_index;
-  vl_msg_api_send_shmem (utm->vl_input_queue, (u8 *)&rmp);
+  vl_msg_api_send_shmem (utm->vl_input_queue, (u8 *) & rmp);
 }
 
 void
-handle_fifo_event_connect_rx (uri_tcp_test_main_t *utm, session_fifo_event_t * e)
+client_handle_fifo_event_rx (uri_tcp_test_main_t * utm,
+			     session_fifo_event_t * e)
 {
-  svm_fifo_t * rx_fifo;
-  int n_read, bytes;
+  svm_fifo_t *rx_fifo;
+  int n_read, bytes, i;
 
   rx_fifo = e->fifo;
 
   bytes = e->enqueue_length;
   do
     {
-      n_read = svm_fifo_dequeue_nowait (rx_fifo, 0, vec_len(utm->rx_buf),
-                                         utm->rx_buf);
+      n_read = svm_fifo_dequeue_nowait (rx_fifo, 0, vec_len (utm->rx_buf),
+					utm->rx_buf);
       if (n_read > 0)
-        bytes -= n_read;
+	{
+	  bytes -= n_read;
+	  for (i = 0; i < n_read; i++)
+	    {
+	      if (utm->rx_buf[i] != ((utm->client_bytes_received + i) & 0xff))
+		{
+		  clib_warning ("error at byte %lld, 0x%x not 0x%x",
+				utm->client_bytes_received + i,
+				utm->rx_buf[i],
+				((utm->client_bytes_received + i) & 0xff));
+		}
+	    }
+	  utm->client_bytes_received += n_read;
+	}
+
     }
   while (n_read < 0 || bytes > 0);
-
-  //      bytes_to_read = svm_fifo_max_dequeue (rx_fifo);
-  //
-  //      bytes_to_read = vec_len(utm->rx_buf) > bytes_to_read ?
-  //        bytes_to_read : vec_len(utm->rx_buf);
-  //
-  //      buffer_offset = 0;
-  //      while (bytes_to_read > 0)
-  //        {
-  //          rv = svm_fifo_dequeue_nowait2 (rx_fifo, mypid,
-  //                                         bytes_to_read,
-  //                                         utm->rx_buf + buffer_offset);
-  //          if (rv > 0)
-  //            {
-  //              bytes_to_read -= rv;
-  //              buffer_offset += rv;
-  //              bytes_received += rv;
-  //            }
-  //        }
-
-
-  //  while (bytes_received < bytes_sent)
-  //    {
-  //      rv = svm_fifo_dequeue_nowait2 (rx_fifo, mypid,
-  //                                     vec_len (utm->rx_buf),
-  //                                     utm->rx_buf);
-  //      if (rv > 0)
-  //        {
-  //#if CLIB_DEBUG > 0
-  //          int j;
-  //          for (j = 0; j < rv; j++)
-  //            {
-  //              if (utm->rx_buf[j] != ((bytes_received + j) & 0xff))
-  //                {
-  //                  clib_warning ("error at byte %lld, 0x%x not 0x%x",
-  //                                bytes_received + j,
-  //                                utm->rx_buf[j],
-  //                                ((bytes_received + j )&0xff));
-  //                }
-  //            }
-  //#endif
-  //          bytes_received += (u64) rv;
-  //        }
-  //    }
 }
 
 void
-handle_connect_event_queue (uri_tcp_test_main_t * utm)
+client_handle_event_queue (uri_tcp_test_main_t * utm)
 {
   session_fifo_event_t _e, *e = &_e;;
 
-  unix_shared_memory_queue_sub (utm->our_event_queue, (u8 *) e, 0 /* nowait */);
+  unix_shared_memory_queue_sub (utm->our_event_queue, (u8 *) e,
+				0 /* nowait */ );
   switch (e->event_type)
     {
     case FIFO_EVENT_SERVER_RX:
-      handle_fifo_event_connect_rx (utm, e);
+      client_handle_fifo_event_rx (utm, e);
       break;
 
     case FIFO_EVENT_SERVER_EXIT:
       return;
 
     default:
-      clib_warning("unknown event type %d", e->event_type);
+      clib_warning ("unknown event type %d", e->event_type);
       break;
     }
 }
 
-void
-uri_tcp_connect_send (uri_tcp_test_main_t *utm)
-{
-  u8 *test_data = utm->connect_test_data;
-  u64 bytes_sent = 0;
-  int rv;
-  int mypid = getpid();
-  session_t * session;
-  svm_fifo_t *tx_fifo;
-  int buffer_offset, bytes_to_send = 0;
-  session_fifo_event_t evt;
-  static int serial_number = 0;
-  int i;
-  u32 max_chunk = 64 << 10, write;
-
-  session = pool_elt_at_index (utm->sessions, utm->connected_session_index);
-  tx_fifo = session->server_tx_fifo;
-
-  vec_validate (utm->rx_buf, vec_len (test_data) - 1);
-
-  for (i = 0; i < 10; i++)
-    {
-      bytes_to_send = vec_len (test_data);
-      buffer_offset = 0;
-      while (bytes_to_send > 0)
-        {
-          write = bytes_to_send > max_chunk ? max_chunk : bytes_to_send;
-          rv = svm_fifo_enqueue_nowait (tx_fifo, mypid, write,
-                                         test_data + buffer_offset);
-
-          if (rv > 0)
-            {
-              bytes_to_send -= rv;
-              buffer_offset += rv;
-              bytes_sent += rv;
-
-              /* Fabricate TX event, send to vpp */
-              evt.fifo = tx_fifo;
-              evt.event_type = FIFO_EVENT_SERVER_TX;
-              /* $$$$ for event logging */
-              evt.enqueue_length = rv;
-              evt.event_id = serial_number++;
-
-              unix_shared_memory_queue_add (utm->vpp_event_queue, (u8 *) &evt,
-                                            0 /* do wait for mutex */);
-            }
-        }
-    }
-}
-
-static void
-uri_tcp_client_test (uri_tcp_test_main_t * utm)
-{
-  vl_api_connect_uri_t * cmp;
-  vl_api_disconnect_session_t *dmp;
-  session_t *connected_session;
-  int i;
-
-  cmp = vl_msg_api_alloc (sizeof (*cmp));
-  memset (cmp, 0, sizeof (*cmp));
-
-  cmp->_vl_msg_id = ntohs (VL_API_CONNECT_URI);
-  cmp->client_index = utm->my_client_index;
-  cmp->context = ntohl(0xfeedface);
-  memcpy (cmp->uri, utm->connect_uri, vec_len (utm->connect_uri));
-  vl_msg_api_send_shmem (utm->vl_input_queue, (u8 *)&cmp);
-
-  if (wait_for_state_change (utm, STATE_READY))
-    {
-      return;
-    }
-
-  /* Init test data */
-  vec_validate (utm->connect_test_data, 64 * 1024 - 1);
-  for (i = 0; i < vec_len (utm->connect_test_data); i++)
-    utm->connect_test_data[i] = i & 0xff;
-
-  /* Start reader thread */
-  /* handle_connect_event_queue (utm); */
-
-  /* Start send */
-  uri_tcp_connect_send (utm);
-
-  /* Disconnect */
-  connected_session = pool_elt_at_index(utm->sessions,
-					utm->connected_session_index);
-  dmp = vl_msg_api_alloc (sizeof (*dmp));
-  memset (dmp, 0, sizeof (*dmp));
-  dmp->_vl_msg_id = ntohs (VL_API_DISCONNECT_SESSION);
-  dmp->client_index = utm->my_client_index;
-  dmp->session_index = connected_session->vpp_session_index;
-  dmp->session_thread_index = connected_session->vpp_session_thread;
-  vl_msg_api_send_shmem (utm->vl_input_queue, (u8 *)&dmp);
-}
-
-void
-handle_fifo_event_server_rx (uri_tcp_test_main_t *utm, session_fifo_event_t * e)
-{
-  svm_fifo_t * rx_fifo, * tx_fifo;
-  int n_read;
-
-  session_fifo_event_t evt;
-  unix_shared_memory_queue_t *q;
-  int rv, bytes;
-
-  rx_fifo = e->fifo;
-  tx_fifo = utm->sessions[rx_fifo->client_session_index].server_tx_fifo;
-
-  bytes = e->enqueue_length;
-  do
-    {
-      n_read = svm_fifo_dequeue_nowait (rx_fifo, 0, vec_len(utm->rx_buf),
-                                         utm->rx_buf);
-
-      /* Reflect if a non-drop session */
-      if (!utm->drop_packets && n_read > 0)
-        {
-          do
-            {
-              rv = svm_fifo_enqueue_nowait (tx_fifo, 0, n_read, utm->rx_buf);
-            }
-          while (rv == -2);
-
-          /* Fabricate TX event, send to vpp */
-          evt.fifo = tx_fifo;
-          evt.event_type = FIFO_EVENT_SERVER_TX;
-          /* $$$$ for event logging */
-          evt.enqueue_length = n_read;
-          evt.event_id = e->event_id;
-          q = utm->vpp_event_queue;
-          unix_shared_memory_queue_add (q, (u8 *) &evt, 0 /* do wait for mutex */);
-        }
-
-      if (n_read > 0)
-        bytes -= n_read;
-    }
-  while (n_read < 0 || bytes > 0);
-}
-
-void
-handle_event_queue (uri_tcp_test_main_t * utm)
+static void *
+client_rx_thread_fn (void *arg)
 {
-  session_fifo_event_t _e, *e = &_e;;
+  session_fifo_event_t _e, *e = &_e;
+  uri_tcp_test_main_t *utm = &uri_tcp_test_main;
 
+  utm->client_bytes_received = 0;
   while (1)
     {
-      unix_shared_memory_queue_sub (utm->our_event_queue, (u8 *)e,
-                                    0 /* nowait */);
+      unix_shared_memory_queue_sub (utm->our_event_queue, (u8 *) e,
+				    0 /* nowait */ );
       switch (e->event_type)
-        {
-        case FIFO_EVENT_SERVER_RX:
-          handle_fifo_event_server_rx (utm, e);
-          break;
-
-        case FIFO_EVENT_SERVER_EXIT:
-          return;
-
-        default:
-          clib_warning ("unknown event type %d", e->event_type);
-          break;
-        }
-      if (PREDICT_FALSE(utm->time_to_stop == 1))
-        break;
-      if (PREDICT_FALSE(utm->time_to_print_stats == 1))
-        {
-          utm->time_to_print_stats = 0;
-          fformat(stdout, "%d connections\n", pool_elts (utm->sessions));
-        }
+	{
+	case FIFO_EVENT_SERVER_RX:
+	  client_handle_fifo_event_rx (utm, e);
+	  break;
+
+	case FIFO_EVENT_SERVER_EXIT:
+	  return 0;
+	default:
+	  clib_warning ("unknown event type %d", e->event_type);
+	  break;
+	}
+
+      if (PREDICT_FALSE (utm->time_to_stop == 1))
+	break;
     }
+  pthread_exit (0);
 }
 
-static void
-vl_api_bind_uri_reply_t_handler (vl_api_bind_uri_reply_t * mp)
-{
-  uri_tcp_test_main_t *utm = &uri_tcp_test_main;
-  svm_fifo_segment_create_args_t _a, *a = &_a;
-  int rv;
-
-  if (mp->retval)
-    {
-      clib_warning("bind failed: %d", mp->retval);
-      return;
-    }
-
-  if (mp->segment_name_length == 0)
-    {
-      clib_warning("segment_name_length zero");
-      return;
-    }
-
-  a->segment_name = (char *) mp->segment_name;
-  a->segment_size = mp->segment_size;
-
-  ASSERT(mp->server_event_queue_address);
-
-  /* Attach to the segment vpp created */
-  rv = svm_fifo_segment_attach (a);
-  if (rv)
-    {
-      clib_warning("svm_fifo_segment_attach ('%s') failed", mp->segment_name);
-      return;
-    }
-
-  utm->our_event_queue =
-      (unix_shared_memory_queue_t *) mp->server_event_queue_address;
-
-  utm->state = STATE_READY;
-}
 
 static void
 vl_api_connect_uri_reply_t_handler (vl_api_connect_uri_reply_t * mp)
@@ -601,6 +399,7 @@ vl_api_connect_uri_reply_t_handler (vl_api_connect_uri_reply_t * mp)
   u32 session_index;
   svm_fifo_t *rx_fifo, *tx_fifo;
   int rv;
+  u64 key;
 
   if (mp->retval)
     {
@@ -608,6 +407,7 @@ vl_api_connect_uri_reply_t_handler (vl_api_connect_uri_reply_t * mp)
       utm->state = STATE_FAILED;
       return;
     }
+
   /*
    * Attatch to segment
    */
@@ -622,14 +422,14 @@ vl_api_connect_uri_reply_t_handler (vl_api_connect_uri_reply_t * mp)
   a->segment_name = (char *) mp->segment_name;
   a->segment_size = mp->segment_size;
 
-  ASSERT(mp->client_event_queue_address);
+  ASSERT (mp->client_event_queue_address);
 
   /* Attach to the segment vpp created */
   rv = svm_fifo_segment_attach (a);
   if (rv)
     {
       clib_warning ("svm_fifo_segment_attach ('%s') failed",
-                    mp->segment_name);
+		    mp->segment_name);
       return;
     }
 
@@ -650,9 +450,9 @@ vl_api_connect_uri_reply_t_handler (vl_api_connect_uri_reply_t * mp)
   pool_get (utm->sessions, session);
   session_index = session - utm->sessions;
 
-  rx_fifo = (svm_fifo_t *)mp->server_rx_fifo;
+  rx_fifo = (svm_fifo_t *) mp->server_rx_fifo;
   rx_fifo->client_session_index = session_index;
-  tx_fifo = (svm_fifo_t *)mp->server_tx_fifo;
+  tx_fifo = (svm_fifo_t *) mp->server_tx_fifo;
   tx_fifo->client_session_index = session_index;
 
   session->server_rx_fifo = rx_fifo;
@@ -662,54 +462,193 @@ vl_api_connect_uri_reply_t_handler (vl_api_connect_uri_reply_t * mp)
 
   /* Save handle */
   utm->connected_session_index = session_index;
-
   utm->state = STATE_READY;
+
+  /* Add it to lookup table */
+  key = (((u64) mp->session_thread_index) << 32) | (u64) mp->session_index;
+  hash_set (utm->session_index_by_vpp_handles, key, session_index);
+
+  /* Start RX thread */
+  rv = pthread_create (&utm->client_rx_thread_handle,
+		       NULL /*attr */ , client_rx_thread_fn, 0);
+  if (rv)
+    {
+      clib_warning ("pthread_create returned %d", rv);
+      rv = VNET_API_ERROR_SYSCALL_ERROR_1;
+    }
 }
 
 void
-uri_tcp_bind (uri_tcp_test_main_t *utm)
+client_send_data (uri_tcp_test_main_t * utm)
 {
-  vl_api_bind_uri_t * bmp;
-  u32 fifo_size = 3 << 20;
-  bmp = vl_msg_api_alloc (sizeof (*bmp));
-  memset (bmp, 0, sizeof (*bmp));
+  u8 *test_data = utm->connect_test_data;
+  u64 bytes_sent = 0;
+  int rv;
+  int mypid = getpid ();
+  session_t *session;
+  svm_fifo_t *tx_fifo;
+  int buffer_offset, bytes_to_send = 0;
+  session_fifo_event_t evt;
+  static int serial_number = 0;
+  int i;
+  u32 max_chunk = 64 << 10, write;
 
-  bmp->_vl_msg_id = ntohs (VL_API_BIND_URI);
-  bmp->client_index = utm->my_client_index;
-  bmp->context = ntohl(0xfeedface);
-  bmp->initial_segment_size = 256<<20;    /* size of initial segment */
-  bmp->options[SESSION_OPTIONS_FLAGS] =
-    SESSION_OPTIONS_FLAGS_USE_FIFO | SESSION_OPTIONS_FLAGS_ADD_SEGMENT;
-  bmp->options[SESSION_OPTIONS_RX_FIFO_SIZE] = fifo_size;
-  bmp->options[SESSION_OPTIONS_TX_FIFO_SIZE] = fifo_size;
-  bmp->options[SESSION_OPTIONS_ADD_SEGMENT_SIZE] = 128<<20;
-  memcpy (bmp->uri, utm->uri, vec_len (utm->uri));
-  vl_msg_api_send_shmem (utm->vl_input_queue, (u8 *)&bmp);
+  session = pool_elt_at_index (utm->sessions, utm->connected_session_index);
+  tx_fifo = session->server_tx_fifo;
+
+  vec_validate (utm->rx_buf, vec_len (test_data) - 1);
+
+  for (i = 0; i < 1; i++)
+    {
+      bytes_to_send = vec_len (test_data);
+      buffer_offset = 0;
+      while (bytes_to_send > 0)
+	{
+	  write = bytes_to_send > max_chunk ? max_chunk : bytes_to_send;
+	  rv = svm_fifo_enqueue_nowait (tx_fifo, mypid, write,
+					test_data + buffer_offset);
+
+	  if (rv > 0)
+	    {
+	      bytes_to_send -= rv;
+	      buffer_offset += rv;
+	      bytes_sent += rv;
+
+	      /* Fabricate TX event, send to vpp */
+	      evt.fifo = tx_fifo;
+	      evt.event_type = FIFO_EVENT_SERVER_TX;
+	      /* $$$$ for event logging */
+	      evt.enqueue_length = rv;
+	      evt.event_id = serial_number++;
+
+	      unix_shared_memory_queue_add (utm->vpp_event_queue,
+					    (u8 *) & evt,
+					    0 /* do wait for mutex */ );
+	    }
+	}
+    }
+
+  if (utm->test_return_packets)
+    {
+      f64 timeout = clib_time_now (&utm->clib_time) + 2;
+
+      /* Wait for the outstanding packets */
+      while (utm->client_bytes_received < vec_len (test_data))
+	{
+	  if (clib_time_now (&utm->clib_time) > timeout)
+	    {
+	      clib_warning ("timed out waiting for the missing packets");
+	      break;
+	    }
+	}
+
+      utm->time_to_stop = 1;
+    }
+}
+
+void
+client_connect (uri_tcp_test_main_t * utm)
+{
+  vl_api_connect_uri_t *cmp;
+  cmp = vl_msg_api_alloc (sizeof (*cmp));
+  memset (cmp, 0, sizeof (*cmp));
+
+  cmp->_vl_msg_id = ntohs (VL_API_CONNECT_URI);
+  cmp->client_index = utm->my_client_index;
+  cmp->context = ntohl (0xfeedface);
+  memcpy (cmp->uri, utm->connect_uri, vec_len (utm->connect_uri));
+  vl_msg_api_send_shmem (utm->vl_input_queue, (u8 *) & cmp);
+}
+
+void
+client_disconnect (uri_tcp_test_main_t * utm)
+{
+  session_t *connected_session;
+  vl_api_disconnect_session_t *dmp;
+  connected_session = pool_elt_at_index (utm->sessions,
+					 utm->connected_session_index);
+  dmp = vl_msg_api_alloc (sizeof (*dmp));
+  memset (dmp, 0, sizeof (*dmp));
+  dmp->_vl_msg_id = ntohs (VL_API_DISCONNECT_SESSION);
+  dmp->client_index = utm->my_client_index;
+  dmp->session_index = connected_session->vpp_session_index;
+  dmp->session_thread_index = connected_session->vpp_session_thread;
+  vl_msg_api_send_shmem (utm->vl_input_queue, (u8 *) & dmp);
+}
+
+static void
+client_test (uri_tcp_test_main_t * utm)
+{
+  int i;
+
+  client_connect (utm);
+
+  if (wait_for_state_change (utm, STATE_READY))
+    {
+      return;
+    }
+
+  /* Init test data */
+  vec_validate (utm->connect_test_data, 64 * 1024 - 1);
+  for (i = 0; i < vec_len (utm->connect_test_data); i++)
+    utm->connect_test_data[i] = i & 0xff;
+
+  /* Start send */
+  client_send_data (utm);
+
+  /* Disconnect */
+  client_disconnect (utm);
 }
 
 static void
-vl_api_unbind_uri_reply_t_handler (vl_api_unbind_uri_reply_t *mp)
+vl_api_bind_uri_reply_t_handler (vl_api_bind_uri_reply_t * mp)
 {
   uri_tcp_test_main_t *utm = &uri_tcp_test_main;
+  svm_fifo_segment_create_args_t _a, *a = &_a;
+  int rv;
 
-  if (mp->retval != 0)
-    clib_warning ("returned %d", ntohl(mp->retval));
+  if (mp->retval)
+    {
+      clib_warning ("bind failed: %d", mp->retval);
+      utm->state = STATE_FAILED;
+      return;
+    }
 
-  utm->state = STATE_START;
+  if (mp->segment_name_length == 0)
+    {
+      clib_warning ("segment_name_length zero");
+      return;
+    }
+
+  a->segment_name = (char *) mp->segment_name;
+  a->segment_size = mp->segment_size;
+
+  ASSERT (mp->server_event_queue_address);
+
+  /* Attach to the segment vpp created */
+  rv = svm_fifo_segment_attach (a);
+  if (rv)
+    {
+      clib_warning ("svm_fifo_segment_attach ('%s') failed",
+		    mp->segment_name);
+      return;
+    }
+
+  utm->our_event_queue =
+    (unix_shared_memory_queue_t *) mp->server_event_queue_address;
+
+  utm->state = STATE_READY;
 }
 
-void
-uri_tcp_unbind (uri_tcp_test_main_t *utm)
+static void
+vl_api_unbind_uri_reply_t_handler (vl_api_unbind_uri_reply_t * mp)
 {
-  vl_api_unbind_uri_t * ump;
+  uri_tcp_test_main_t *utm = &uri_tcp_test_main;
 
-  ump = vl_msg_api_alloc (sizeof (*ump));
-  memset (ump, 0, sizeof (*ump));
+  if (mp->retval != 0)
+    clib_warning ("returned %d", ntohl (mp->retval));
 
-  ump->_vl_msg_id = ntohs (VL_API_UNBIND_URI);
-  ump->client_index = utm->my_client_index;
-  memcpy (ump->uri, utm->uri, vec_len (utm->uri));
-  vl_msg_api_send_shmem (utm->vl_input_queue, (u8 *)&ump);
+  utm->state = STATE_START;
 }
 
 static void
@@ -717,14 +656,14 @@ vl_api_accept_session_t_handler (vl_api_accept_session_t * mp)
 {
   uri_tcp_test_main_t *utm = &uri_tcp_test_main;
   vl_api_accept_session_reply_t *rmp;
-  svm_fifo_t * rx_fifo, * tx_fifo;
-  session_t * session;
+  svm_fifo_t *rx_fifo, *tx_fifo;
+  session_t *session;
   static f64 start_time;
   u64 key;
   u32 session_index;
 
   if (start_time == 0.0)
-      start_time = clib_time_now (&utm->clib_time);
+    start_time = clib_time_now (&utm->clib_time);
 
   utm->vpp_event_queue = (unix_shared_memory_queue_t *)
     mp->vpp_event_queue_address;
@@ -733,45 +672,159 @@ vl_api_accept_session_t_handler (vl_api_accept_session_t * mp)
   pool_get (utm->sessions, session);
   session_index = session - utm->sessions;
 
-  rx_fifo = (svm_fifo_t *)mp->server_rx_fifo;
+  rx_fifo = (svm_fifo_t *) mp->server_rx_fifo;
   rx_fifo->client_session_index = session_index;
-  tx_fifo = (svm_fifo_t *)mp->server_tx_fifo;
+  tx_fifo = (svm_fifo_t *) mp->server_tx_fifo;
   tx_fifo->client_session_index = session_index;
 
   session->server_rx_fifo = rx_fifo;
   session->server_tx_fifo = tx_fifo;
 
   /* Add it to lookup table */
-  key = (((u64)mp->session_thread_index) << 32) | (u64)mp->session_index;
+  key = (((u64) mp->session_thread_index) << 32) | (u64) mp->session_index;
   hash_set (utm->session_index_by_vpp_handles, key, session_index);
 
   utm->state = STATE_READY;
 
   /* Stats printing */
-  if (pool_elts (utm->sessions) && (pool_elts(utm->sessions) % 20000) == 0)
+  if (pool_elts (utm->sessions) && (pool_elts (utm->sessions) % 20000) == 0)
     {
       f64 now = clib_time_now (&utm->clib_time);
       fformat (stdout, "%d active sessions in %.2f seconds, %.2f/sec...\n",
-               pool_elts(utm->sessions), now - start_time,
-               (f64)pool_elts(utm->sessions) / (now - start_time));
+	       pool_elts (utm->sessions), now - start_time,
+	       (f64) pool_elts (utm->sessions) / (now - start_time));
     }
 
-  /* Send accept reply to vpp */
+  /*
+   * Send accept reply to vpp
+   */
   rmp = vl_msg_api_alloc (sizeof (*rmp));
   memset (rmp, 0, sizeof (*rmp));
   rmp->_vl_msg_id = ntohs (VL_API_ACCEPT_SESSION_REPLY);
   rmp->session_type = mp->session_type;
   rmp->session_index = mp->session_index;
   rmp->session_thread_index = mp->session_thread_index;
-  vl_msg_api_send_shmem (utm->vl_input_queue, (u8 *)&rmp);
+  vl_msg_api_send_shmem (utm->vl_input_queue, (u8 *) & rmp);
 }
 
 void
-uri_tcp_server_test (uri_tcp_test_main_t * utm)
+server_handle_fifo_event_rx (uri_tcp_test_main_t * utm,
+			     session_fifo_event_t * e)
 {
+  svm_fifo_t *rx_fifo, *tx_fifo;
+  int n_read;
+
+  session_fifo_event_t evt;
+  unix_shared_memory_queue_t *q;
+  int rv, bytes;
+
+  rx_fifo = e->fifo;
+  tx_fifo = utm->sessions[rx_fifo->client_session_index].server_tx_fifo;
+
+  bytes = e->enqueue_length;
+  do
+    {
+      n_read = svm_fifo_dequeue_nowait (rx_fifo, 0, vec_len (utm->rx_buf),
+					utm->rx_buf);
+
+      /* Reflect if a non-drop session */
+      if (!utm->drop_packets && n_read > 0)
+	{
+	  do
+	    {
+	      rv = svm_fifo_enqueue_nowait (tx_fifo, 0, n_read, utm->rx_buf);
+	    }
+	  while (rv == -2);
+
+	  /* Fabricate TX event, send to vpp */
+	  evt.fifo = tx_fifo;
+	  evt.event_type = FIFO_EVENT_SERVER_TX;
+	  /* $$$$ for event logging */
+	  evt.enqueue_length = n_read;
+	  evt.event_id = e->event_id;
+	  q = utm->vpp_event_queue;
+	  unix_shared_memory_queue_add (q, (u8 *) & evt,
+					0 /* do wait for mutex */ );
+	}
+
+      if (n_read > 0)
+	bytes -= n_read;
+    }
+  while (n_read < 0 || bytes > 0);
+}
+
+void
+server_handle_event_queue (uri_tcp_test_main_t * utm)
+{
+  session_fifo_event_t _e, *e = &_e;;
 
+  while (1)
+    {
+      unix_shared_memory_queue_sub (utm->our_event_queue, (u8 *) e,
+				    0 /* nowait */ );
+      switch (e->event_type)
+	{
+	case FIFO_EVENT_SERVER_RX:
+	  server_handle_fifo_event_rx (utm, e);
+	  break;
+
+	case FIFO_EVENT_SERVER_EXIT:
+	  return;
+
+	default:
+	  clib_warning ("unknown event type %d", e->event_type);
+	  break;
+	}
+      if (PREDICT_FALSE (utm->time_to_stop == 1))
+	break;
+      if (PREDICT_FALSE (utm->time_to_print_stats == 1))
+	{
+	  utm->time_to_print_stats = 0;
+	  fformat (stdout, "%d connections\n", pool_elts (utm->sessions));
+	}
+    }
+}
+
+void
+server_bind (uri_tcp_test_main_t * utm)
+{
+  vl_api_bind_uri_t *bmp;
+  u32 fifo_size = 3 << 20;
+  bmp = vl_msg_api_alloc (sizeof (*bmp));
+  memset (bmp, 0, sizeof (*bmp));
+
+  bmp->_vl_msg_id = ntohs (VL_API_BIND_URI);
+  bmp->client_index = utm->my_client_index;
+  bmp->context = ntohl (0xfeedface);
+  bmp->initial_segment_size = 256 << 20;	/* size of initial segment */
+  bmp->options[SESSION_OPTIONS_FLAGS] =
+    SESSION_OPTIONS_FLAGS_USE_FIFO | SESSION_OPTIONS_FLAGS_ADD_SEGMENT;
+  bmp->options[SESSION_OPTIONS_RX_FIFO_SIZE] = fifo_size;
+  bmp->options[SESSION_OPTIONS_TX_FIFO_SIZE] = fifo_size;
+  bmp->options[SESSION_OPTIONS_ADD_SEGMENT_SIZE] = 128 << 20;
+  memcpy (bmp->uri, utm->uri, vec_len (utm->uri));
+  vl_msg_api_send_shmem (utm->vl_input_queue, (u8 *) & bmp);
+}
+
+void
+server_unbind (uri_tcp_test_main_t * utm)
+{
+  vl_api_unbind_uri_t *ump;
+
+  ump = vl_msg_api_alloc (sizeof (*ump));
+  memset (ump, 0, sizeof (*ump));
+
+  ump->_vl_msg_id = ntohs (VL_API_UNBIND_URI);
+  ump->client_index = utm->my_client_index;
+  memcpy (ump->uri, utm->uri, vec_len (utm->uri));
+  vl_msg_api_send_shmem (utm->vl_input_queue, (u8 *) & ump);
+}
+
+void
+server_test (uri_tcp_test_main_t * utm)
+{
   /* Bind to uri */
-  uri_tcp_bind (utm);
+  server_bind (utm);
 
   if (wait_for_state_change (utm, STATE_READY))
     {
@@ -780,10 +833,10 @@ uri_tcp_server_test (uri_tcp_test_main_t * utm)
     }
 
   /* Enter handle event loop */
-  handle_event_queue (utm);
+  server_handle_event_queue (utm);
 
   /* Cleanup */
-  uri_tcp_unbind (utm);
+  server_unbind (utm);
 
   if (wait_for_state_change (utm, STATE_START))
     {
@@ -824,12 +877,12 @@ main (int argc, char **argv)
   unformat_input_t _argv, *a = &_argv;
   u8 *chroot_prefix;
   u8 *heap;
-  u8 * bind_name = (u8 *) "tcp://0.0.0.0/1234";
+  u8 *bind_name = (u8 *) "tcp://0.0.0.0/1234";
   u32 tmp;
   mheap_t *h;
-  session_t * session;
+  session_t *session;
   int i;
-  int i_am_master = 1, drop_packets = 0;
+  int i_am_master = 1, drop_packets = 0, test_return_packets = 0;
 
   clib_mem_init (0, 256 << 20);
 
@@ -841,53 +894,54 @@ main (int argc, char **argv)
 
   vec_validate (utm->rx_buf, 65536);
 
-  utm->session_index_by_vpp_handles =
-    hash_create (0, sizeof(uword));
+  utm->session_index_by_vpp_handles = hash_create (0, sizeof (uword));
 
-  utm->my_pid = getpid();
-  utm->configured_segment_size = 1<<20;
+  utm->my_pid = getpid ();
+  utm->configured_segment_size = 1 << 20;
 
   clib_time_init (&utm->clib_time);
   init_error_string_table (utm);
-  svm_fifo_segment_init(0x200000000ULL, 20);
+  svm_fifo_segment_init (0x200000000ULL, 20);
   unformat_init_command_line (a, argv);
 
   while (unformat_check_input (a) != UNFORMAT_END_OF_INPUT)
     {
       if (unformat (a, "chroot prefix %s", &chroot_prefix))
-        {
-          vl_set_memory_root_path ((char *) chroot_prefix);
-        }
+	{
+	  vl_set_memory_root_path ((char *) chroot_prefix);
+	}
       else if (unformat (a, "uri %s", &bind_name))
-        ;
+	;
       else if (unformat (a, "segment-size %dM", &tmp))
-        utm->configured_segment_size = tmp<<20;
+	utm->configured_segment_size = tmp << 20;
       else if (unformat (a, "segment-size %dG", &tmp))
-        utm->configured_segment_size = tmp<<30;
+	utm->configured_segment_size = tmp << 30;
       else if (unformat (a, "master"))
-        i_am_master = 1;
+	i_am_master = 1;
       else if (unformat (a, "slave"))
-        i_am_master = 0;
+	i_am_master = 0;
       else if (unformat (a, "drop"))
-        drop_packets = 1;
+	drop_packets = 1;
+      else if (unformat (a, "test"))
+	test_return_packets = 1;
       else
-        {
-          fformat (stderr, "%s: usage [master|slave]\n");
-          exit (1);
-        }
+	{
+	  fformat (stderr, "%s: usage [master|slave]\n");
+	  exit (1);
+	}
     }
 
   utm->uri = format (0, "%s%c", bind_name, 0);
   utm->i_am_master = i_am_master;
   utm->segment_main = &svm_fifo_segment_main;
   utm->drop_packets = drop_packets;
-
+  utm->test_return_packets = test_return_packets;
   utm->connect_uri = format (0, "tcp://6.0.1.2/1234%c", 0);
 
-  setup_signal_handlers();
+  setup_signal_handlers ();
   uri_api_hookup (utm);
 
-  if (connect_to_vpp (i_am_master? "uri_tcp_server":"uri_tcp_client") < 0)
+  if (connect_to_vpp (i_am_master ? "uri_tcp_server" : "uri_tcp_client") < 0)
     {
       svm_region_exit ();
       fformat (stderr, "Couldn't connect to vpe, exiting...\n");
@@ -896,7 +950,7 @@ main (int argc, char **argv)
 
   if (i_am_master == 0)
     {
-      uri_tcp_client_test (utm);
+      client_test (utm);
       exit (0);
     }
 
@@ -909,8 +963,16 @@ main (int argc, char **argv)
   for (i = 0; i < 200000; i++)
     pool_put_index (utm->sessions, i);
 
-  uri_tcp_server_test (utm);
+  server_test (utm);
 
   vl_client_disconnect_from_vlib ();
   exit (0);
 }
+
+/*
+ * fd.io coding-style-patch-verification: ON
+ *
+ * Local Variables:
+ * eval: (c-set-style "gnu")
+ * End:
+ */