builder: tweaks

db4
Eduardo Cavazos 2008-02-12 00:15:20 -06:00
parent 4f113394ec
commit 27fb2270f0
1 changed files with 10 additions and 2 deletions

View File

@ -1,5 +1,5 @@
USING: kernel io io.files io.launcher io.sockets hashtables math threads USING: kernel parser io io.files io.launcher io.sockets hashtables math threads
system continuations namespaces sequences splitting math.parser system continuations namespaces sequences splitting math.parser
prettyprint tools.time calendar bake vars http.client prettyprint tools.time calendar bake vars http.client
combinators bootstrap.image bootstrap.image.download combinators bootstrap.image bootstrap.image.download
@ -189,6 +189,13 @@ SYMBOL: report
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: ms>minutes ( ms -- minutes ) 1000.0 / 60 / ;
: bootstrap-minutes ( -- )
"../bootstrap-time" <file-reader> contents eval ms>minutes unparse ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: (build) ( -- ) : (build) ( -- )
enter-build-dir enter-build-dir
@ -221,7 +228,8 @@ SYMBOL: report
builder-test [ "Builder test error" write nl ] run-or-report builder-test [ "Builder test error" write nl ] run-or-report
[ "Bootstrap time: " write ] >>>report "../bootstrap-time" file>>>report [ "Bootstrap time: " write bootstrap-minutes write " minutes" write nl ]
>>>report
"../load-everything-vocabs" exists? "../load-everything-vocabs" exists?
[ [