From 84963c16ab709060f3788b1ac58da86e20673e78 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Tue, 19 Feb 2008 06:09:06 -0600 Subject: [PATCH] builder: factor out benchmark delta code --- extra/builder/builder.factor | 34 ++-------------------------------- 1 file changed, 2 insertions(+), 32 deletions(-) diff --git a/extra/builder/builder.factor b/extra/builder/builder.factor index 88fc35a4b8..fbff4a40e3 100644 --- a/extra/builder/builder.factor +++ b/extra/builder/builder.factor @@ -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) ( -- )