35 lines
1.4 KiB
Factor
35 lines
1.4 KiB
Factor
|
|
||
|
|
USING: kernel namespaces debugger system io io.files io.sockets
|
||
|
|
io.encodings.utf8 prettyprint benchmark
|
||
|
|
builder.util builder.common ;
|
||
|
|
|
||
|
|
IN: builder.report
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
: (report) ( -- )
|
||
|
|
|
||
|
|
"Build machine: " write host-name print
|
||
|
|
"CPU: " write cpu .
|
||
|
|
"OS: " write os .
|
||
|
|
"Build directory: " write build-dir print
|
||
|
|
"git id: " write "git-id" eval-file print nl
|
||
|
|
|
||
|
|
status-vm get f = [ "compile-log" cat "vm compile error" throw ] when
|
||
|
|
status-boot get f = [ "boot-log" cat "Boot error" throw ] when
|
||
|
|
status-test get f = [ "test-log" 100 cat-n "Test error" throw ] when
|
||
|
|
|
||
|
|
"Boot time: " write "boot-time" eval-file milli-seconds>time print
|
||
|
|
"Load time: " write "load-time" eval-file milli-seconds>time print
|
||
|
|
"Test time: " write "test-time" eval-file milli-seconds>time print nl
|
||
|
|
|
||
|
|
"Did not pass load-everything: " print "load-everything-vocabs" cat
|
||
|
|
|
||
|
|
"Did not pass test-all: " print "test-all-vocabs" cat
|
||
|
|
"test-failures" cat
|
||
|
|
|
||
|
|
"help-lint results:" print "help-lint" cat
|
||
|
|
|
||
|
|
"Benchmarks: " print "benchmarks" eval-file benchmarks. ;
|
||
|
|
|
||
|
|
: report ( -- ) "report" utf8 [ [ (report) ] try ] with-file-writer ;
|