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

Only collect standard machine-info once

This commit is contained in:
Tony Garnock-Jones 2014-05-04 16:02:37 -04:00
parent 77133a2cf5
commit eb4f9099a7
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
echo-client.rkt
View File

@ -14,7 +14,7 @@
(set! server-entry-name name)])
(define L (default-logbook))
(define E (standard-logbook-entry L "minimart" "external-latency" #:name server-entry-name))
(define E (logbook-entry L "minimart" server-entry-name "external-latency"))
(define Tgrowth (logbook-table E "client-grow-times" #:column-spec '(initial-count
secs/connection
connections/sec

2
echo-server.rkt
View File

@ -17,7 +17,7 @@
(set! server-entry-name name)])
(define L (default-logbook))
(define E (standard-logbook-entry L "minimart" "external-latency" #:name server-entry-name))
(define E (logbook-entry L "minimart" server-entry-name "external-latency"))
(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)))

4
external-latency.rkt
View File

@ -4,7 +4,9 @@
(require racket/system)
(require logbook)
(define entry-name (standard-logbook-entry-name))
(define L (default-logbook))
(define E (standard-logbook-entry L "minimart" "external-latency"))
(define entry-name (logbook-entry-name E))
(define (start-bg command)
(match-define (list #f #f pid #f control)