suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

option for benchmark tabulate to tag R5RS benchmarks

Browse Source
This commit is contained in:
Matthew Flatt 2018-07-29 06:41:40 -06:00
parent 1b716d5d32
commit d0f73f5ea8
1 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
pkgs/racket-benchmarks/tests/racket/benchmarks/common/tabulate.rkt
View File

@ -23,6 +23,7 @@ exec racket -qu "$0" ${1+"$@"}
(define base-link-filename (make-parameter #f)) (define base-link-filename (make-parameter #f))
(define full-page-mode (make-parameter #f)) (define full-page-mode (make-parameter #f))
(define include-links (make-parameter #f)) (define include-links (make-parameter #f))
(define note-r5rs (make-parameter #f))
(define nongc (make-parameter #f)) (define nongc (make-parameter #f))
(define subtract-nothing (make-parameter #f)) (define subtract-nothing (make-parameter #f))
(define subtract-nothing-run (make-parameter #f)) (define subtract-nothing-run (make-parameter #f))
@ -36,10 +37,12 @@ exec racket -qu "$0" ${1+"$@"}
(once-each (once-each
[("--graph") "generate graphs instead of tables (unless --multi)" [("--graph") "generate graphs instead of tables (unless --multi)"
(generate-graph #t)] (generate-graph #t)]
[("--links") "benchmark links to git"
(include-links #t)]
[("--multi") name "generate multiple pages for different views of data" [("--multi") name "generate multiple pages for different views of data"
(base-link-filename name)] (base-link-filename name)]
[("--links") "benchmark links to git"
(include-links #t)]
[("--r5rs") "note R5RS benchmarks"
(note-r5rs #t)]
[("--no-compile-time") "do not show compile times" [("--no-compile-time") "do not show compile times"
(no-compile-time #t)] (no-compile-time #t)]
[("--nongc") "show times not including GC" [("--nongc") "show times not including GC"
@ -201,6 +204,16 @@ exec racket -qu "$0" ${1+"$@"}
ps))))) ps)))))
`(html (nbody ,@ps)))) `(html (nbody ,@ps))))
(define (r5rs-note sep bm)
(if (and (note-r5rs)
(let ([fn (format "~a.rkt" bm)])
(and (file-exists? fn)
(call-with-input-file
fn
(lambda (i) (regexp-match? #rx"r5rs" i))))))
`(,sep (span ((style "font-size: small; font-weight: bold")) "R5RS"))
'()))
(define forever 1000000000) (define forever 1000000000)
(define (ntime v) (define (ntime v)
@ -299,7 +312,7 @@ exec racket -qu "$0" ${1+"$@"}
(define (bar-group name content) (define (bar-group name content)
`(tr ((style "background-color: #eeeeee")) `(tr ((style "background-color: #eeeeee"))
(td ((valign "top")) ,(symbol->string name)) (td ((valign "top")) ,(symbol->string name) ,@(r5rs-note '(br) name))
(td (td
(table (table
((style "border-spacing: 0px;")) ((style "border-spacing: 0px;"))
@ -404,11 +417,13 @@ exec racket -qu "$0" ${1+"$@"}
(lambda (fastest n-fastest c-fastest relative-to (lambda (fastest n-fastest c-fastest relative-to
base n-base c-base) base n-base c-base)
`(tr (td ,(if (include-links) `(tr (td ,(if (include-links)
`(a ((href ,(format (string-append "http://git.racket-lang.org/plt/tree/HEAD:/collects/" `(a ((href ,(format (string-append "http://github.com/racket/racket/tree/master/"
"pkgs/racket-benchmarks/"
"tests/racket/benchmarks/common/~a.sch") "tests/racket/benchmarks/common/~a.sch")
(car bm-run)))) (car bm-run))))
,(symbol->string (car bm-run))) ,(symbol->string (car bm-run)))
(symbol->string (car bm-run)))) (symbol->string (car bm-run)))
,@(r5rs-note " " (car bm-run)))
,@(if (no-compile-time) ,@(if (no-compile-time)
null null
`((td ((align "right")) `((td ((align "right"))