From dcd9368c671d667e1d1bb3223aefb4d5030a4b87 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 21 Jun 2019 14:47:53 +0100 Subject: [PATCH] Reenable auxiliary stats for racket-evt --- plain-racket-server-evt.rkt | 38 ++++++++++++++++++------------------- 1 file changed, 19 insertions(+), 19 deletions(-) diff --git a/plain-racket-server-evt.rkt b/plain-racket-server-evt.rkt index 14be756..ae3a080 100644 --- a/plain-racket-server-evt.rkt +++ b/plain-racket-server-evt.rkt @@ -6,25 +6,25 @@ (require logbook) (require racket/cmdline) -;; (define server-entry-name #f) -;; (define server-entry-type #f) +(define server-entry-name #f) +(define server-entry-type #f) -;; (command-line #:program "plain-racket-server-evt.rkt" -;; #:once-each -;; ["--logbook-entry-name" name -;; "set logbook entry name to use when recording run statistics" -;; (set! server-entry-name name)] -;; ["--logbook-entry-type" type -;; "set logbook entry type to use" -;; (set! server-entry-type type)]) +(command-line #:program "plain-racket-server-evt.rkt" + #:once-each + ["--logbook-entry-name" name + "set logbook entry name to use when recording run statistics" + (set! server-entry-name name)] + ["--logbook-entry-type" type + "set logbook entry type to use" + (set! server-entry-type type)]) -;; (when (not server-entry-type) -;; (error 'plain-racket-server "Please supply the --logbook-entry-type command-line argument.")) +(when (not server-entry-type) + (error 'plain-racket-server "Please supply the --logbook-entry-type command-line argument.")) -;; (define L (default-logbook)) -;; (define E (logbook-entry L "minimart" server-entry-name server-entry-type)) -;; (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 L (default-logbook)) +(define E (logbook-entry L "minimart" server-entry-name server-entry-type)) +(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) (define first-connection-seen? #f) @@ -38,10 +38,10 @@ (printf "~a connections\n" connection-count) (flush-output) (define now (current-inexact-milliseconds)) - ;; (write-logbook-datum! Tmem (list (/ now 1000.0) (current-memory-use))) - ;; (write-logbook-datum! Tconn (list (/ now 1000.0) connection-count)) + (write-logbook-datum! Tmem (list (/ now 1000.0) (current-memory-use))) + (write-logbook-datum! Tconn (list (/ now 1000.0) connection-count)) (when (and first-connection-seen? (zero? connection-count)) - ;; (close-logbook L) + (close-logbook L) (exit 0)) (loop)))))