steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

builder: factor out benchmark delta code

db4
Eduardo Cavazos 2008-02-19 06:09:06 -06:00
parent 0458a2e9c0
commit 84963c16ab
1 changed files with 2 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
extra/builder/builder.factor
View File

@ -1,7 +1,8 @@
USING: kernel namespaces sequences splitting system combinators continuations
parser io io.files io.launcher io.sockets prettyprint threads
bootstrap.image benchmark vars bake smtp builder.util accessors ;
bootstrap.image benchmark vars bake smtp builder.util accessors
builder.benchmark ;
IN: builder
@ -105,37 +106,6 @@ VAR: stamp
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
USING: arrays assocs math ;
: passing-benchmarks ( table -- table )
[ second first2 number? swap number? and ] subset ;
: simplify-table ( table -- table ) [ first2 second 2array ] map ;
: benchmark-difference ( old-table benchmark-result -- result-diff )
first2 >r
tuck swap at
r>
swap -
2array ;
: compare-tables ( old new -- table )
[ passing-benchmarks simplify-table ] 2apply
[ benchmark-difference ] with map ;
: show-benchmark-deltas ( -- )
"Benchmark deltas: " print
[
"../../benchmarks" eval-file
"../benchmarks" eval-file
compare-tables .
]
[ drop "Error generating benchmark deltas" . ]
recover ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
SYMBOL: build-status
: (build) ( -- )