syndicate-lang
/
minimart-benchmark-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Reenable auxiliary stats for racket-evt

This commit is contained in:
Tony Garnock-Jones 2019-06-21 14:47:53 +01:00
parent 1381164d32
commit dcd9368c67
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
plain-racket-server-evt.rkt
View File

@ -6,25 +6,25 @@
(require logbook) (require logbook)
(require racket/cmdline) (require racket/cmdline)
;; (define server-entry-name #f) (define server-entry-name #f)
;; (define server-entry-type #f) (define server-entry-type #f)
;; (command-line #:program "plain-racket-server-evt.rkt" (command-line #:program "plain-racket-server-evt.rkt"
;; #:once-each #:once-each
;; ["--logbook-entry-name" name ["--logbook-entry-name" name
;; "set logbook entry name to use when recording run statistics" "set logbook entry name to use when recording run statistics"
;; (set! server-entry-name name)] (set! server-entry-name name)]
;; ["--logbook-entry-type" type ["--logbook-entry-type" type
;; "set logbook entry type to use" "set logbook entry type to use"
;; (set! server-entry-type type)]) (set! server-entry-type type)])
;; (when (not server-entry-type) (when (not server-entry-type)
;; (error 'plain-racket-server "Please supply the --logbook-entry-type command-line argument.")) (error 'plain-racket-server "Please supply the --logbook-entry-type command-line argument."))
;; (define L (default-logbook)) (define L (default-logbook))
;; (define E (logbook-entry L "minimart" server-entry-name server-entry-type)) (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 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 Tconn (logbook-table E "server-connections" #:column-spec '(time-seconds connection-count)))
(define connection-count 0) (define connection-count 0)
(define first-connection-seen? #f) (define first-connection-seen? #f)
@ -38,10 +38,10 @@
(printf "~a connections\n" connection-count) (printf "~a connections\n" connection-count)
(flush-output) (flush-output)
(define now (current-inexact-milliseconds)) (define now (current-inexact-milliseconds))
;; (write-logbook-datum! Tmem (list (/ now 1000.0) (current-memory-use))) (write-logbook-datum! Tmem (list (/ now 1000.0) (current-memory-use)))
;; (write-logbook-datum! Tconn (list (/ now 1000.0) connection-count)) (write-logbook-datum! Tconn (list (/ now 1000.0) connection-count))
(when (and first-connection-seen? (zero? connection-count)) (when (and first-connection-seen? (zero? connection-count))
;; (close-logbook L) (close-logbook L)
(exit 0)) (exit 0))
(loop))))) (loop)))))