Customisable entry name; fix column names; no longer GC every 10s
This commit is contained in:
parent
b42488c871
commit
9b377586e5
|
@ -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)))]
|
||||
|
|
Loading…
Reference in New Issue