From 9b377586e5193f5725f6c2f7d396893b4cd3b1bb Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 3 May 2014 23:18:03 -0400 Subject: [PATCH] Customisable entry name; fix column names; no longer GC every 10s --- echo-server.rkt | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/echo-server.rkt b/echo-server.rkt index 65fba39..19840a6 100644 --- a/echo-server.rkt +++ b/echo-server.rkt @@ -6,11 +6,20 @@ (require minimart) (require minimart/drivers/timer) (require logbook) +(require racket/cmdline) + +(define server-entry-name #f) + +(command-line #:program "echo-server.rkt" + #:once-each + ["--logbook-entry-name" name + "set logbook entry name to use when recording run statistics" + (set! server-entry-name name)]) (define L (default-logbook)) -(define E (standard-logbook-entry L "minimart" "echo-server")) -(define Tmem (logbook-table E "memory-use" #:column-spec '(time-ms memory-use))) -(define Tconn (logbook-table E "connections" #:column-spec '(time-ms connection-count))) +(define E (standard-logbook-entry L "minimart" "external-latency" #:name server-entry-name)) +(define Tmem (logbook-table E "server-memory-use" #:column-spec '(time-seconds memory-use))) +(define Tconn (logbook-table E "server-connections" #:column-spec '(time-seconds connection-count))) (define connection-count 0) @@ -18,9 +27,9 @@ (list (spawn (lambda (e s) (match e [(message (timer-expired 'statistician now) _ _) - (collect-garbage) - (collect-garbage) - (collect-garbage) + ;; (collect-garbage) + ;; (collect-garbage) + ;; (collect-garbage) (write-logbook-datum! Tmem (list (/ now 1000.0) (current-memory-use))) (write-logbook-datum! Tconn (list (/ now 1000.0) connection-count)) (transition s (send (set-timer 'statistician 10000 'relative)))]