From 77133a2cf55c8ce11941c634b636920b8e66cbf5 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sun, 4 May 2014 15:55:11 -0400
Subject: [PATCH] external-latency driver

---
 external-latency.rkt | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 external-latency.rkt

diff --git a/external-latency.rkt b/external-latency.rkt
new file mode 100644
index 0000000..65c579a
--- /dev/null
+++ b/external-latency.rkt
@@ -0,0 +1,31 @@
+#lang racket/base
+
+(require racket/match)
+(require racket/system)
+(require logbook)
+
+(define entry-name (standard-logbook-entry-name))
+
+(define (start-bg command)
+  (match-define (list #f #f pid #f control)
+    (process/ports (current-output-port)
+		   (current-input-port)
+		   (current-error-port)
+		   command))
+  control)
+
+(log-info "Starting server...")
+(define server-control
+  (start-bg (format "racket echo-server.rkt --logbook-entry-name ~a" entry-name)))
+
+(sleep 5)
+
+(log-info "Starting client...")
+(define client-control
+  (start-bg (format "racket echo-client.rkt --logbook-entry-name ~a" entry-name)))
+
+(log-info "Waiting for client termination...")
+(client-control 'wait)
+(log-info "Waiting for server termination...")
+(server-control 'wait)
+(log-info "Done.")