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

builder.*: lots of updates for the new language changes

db4
Eduardo Cavazos 2008-03-07 18:30:47 -06:00
parent ea9e04c694
commit 9ffe013d03
3 changed files with 10 additions and 8 deletions

2
extra/builder/builder.factor
View File

@ -102,7 +102,7 @@ SYMBOL: build-status
enter-build-dir enter-build-dir
"report" "report" utf8
[ [
"Build machine: " write host-name print "Build machine: " write host-name print
"CPU: " write cpu print "CPU: " write cpu print

14
extra/builder/test/test.factor
View File

@ -6,22 +6,24 @@ USING: kernel namespaces sequences assocs builder continuations
prettyprint prettyprint
tools.browser tools.browser
tools.test tools.test
io.encodings.utf8
bootstrap.stage2 benchmark builder.util ; bootstrap.stage2 benchmark builder.util ;
IN: builder.test IN: builder.test
: do-load ( -- ) : do-load ( -- )
try-everything keys "../load-everything-vocabs" [ . ] with-file-writer ; try-everything keys "../load-everything-vocabs" utf8 [ . ] with-file-writer ;
: do-tests ( -- ) : do-tests ( -- )
run-all-tests keys "../test-all-vocabs" [ . ] with-file-writer ; run-all-tests keys "../test-all-vocabs" utf8 [ . ] with-file-writer ;
: do-benchmarks ( -- ) run-benchmarks "../benchmarks" [ . ] with-file-writer ; : do-benchmarks ( -- )
run-benchmarks "../benchmarks" utf8 [ . ] with-file-writer ;
: do-all ( -- ) : do-all ( -- )
bootstrap-time get "../boot-time" [ . ] with-file-writer bootstrap-time get "../boot-time" utf8 [ . ] with-file-writer
[ do-load ] runtime "../load-time" [ . ] with-file-writer [ do-load ] runtime "../load-time" utf8 [ . ] with-file-writer
[ do-tests ] runtime "../test-time" [ . ] with-file-writer [ do-tests ] runtime "../test-time" utf8 [ . ] with-file-writer
do-benchmarks ; do-benchmarks ;
MAIN: do-all MAIN: do-all

2
extra/builder/util/util.factor
View File

@ -70,7 +70,7 @@ DEFER: to-strings
: milli-seconds>time ( n -- string ) : milli-seconds>time ( n -- string )
1000 /i 60 /mod >r 60 /mod r> 3array [ pad-00 ] map ":" join ; 1000 /i 60 /mod >r 60 /mod r> 3array [ pad-00 ] map ":" join ;
: eval-file ( file -- obj ) file-contents eval ; : eval-file ( file -- obj ) utf8 file-contents eval ;
: cat ( file -- ) utf8 file-contents print ; : cat ( file -- ) utf8 file-contents print ;