benchmark-results ( -- response )

Vocabulary

webapps.mason.benchmarks

Inputs

None

Outputs

response

an object

Definition

USING: accessors assocs combinators formatting
http.server.responses io io.streams.string kernel sequences
webapps.mason.backend webapps.mason.utils ;

IN: webapps.mason.benchmarks

: benchmark-results ( -- response )
    [ selected-benchmarks ] with-mason-db [
        "run,timestamp (UTC),host,os,cpu,git,name,duration (ns)"
        print [
            at {
                [ run-id>> ]
                [ timestamp>> timestamp>iso8601Z ]
                [ host-name>> ]
                [ os>> ]
                [ cpu>> ]
                [ git-id>> ]
            } cleave
        ] curry
        [ [ [ run-id>> ] [ name>> ] [ duration>> ] tri ] ] dip
        [ 2dip "%s,%s,%s,%s,%s,%s,%s,%s\n" printf ] curry
        compose each
    ] with-string-writer <text-content> ;