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

builder: minor tweaks

db4
Eduardo Cavazos 2008-02-01 16:04:41 -06:00
parent 9546aaaaf8
commit 1ee12b512c
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/builder/builder.factor
View File

@ -31,8 +31,6 @@ SYMBOL: builder-recipients
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: boot-image ( -- filename ) `{ "boot" ,[ cpu ] "image" } "." join ;
: target ( -- target ) `{ ,[ os ] %[ cpu "." split ] } "-" join ; : target ( -- target ) `{ ,[ os ] %[ cpu "." split ] } "-" join ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@ -61,7 +59,7 @@ if
"factor" cd "factor" cd
{ "/usr/bin/git" "show" } <process-stream> { "git" "show" } <process-stream>
[ readln ] with-stream [ readln ] with-stream
" " split second " " split second
"../git-id" <file-writer> [ print ] with-stream "../git-id" <file-writer> [ print ] with-stream
@ -76,7 +74,7 @@ if
"builder: vm compile" throw "builder: vm compile" throw
] if ] if
"wget http://factorcode.org/images/latest/" boot-image append system "wget http://factorcode.org/images/latest/" boot-image-name append system
0 = 0 =
[ ] [ ]
[ [
@ -84,7 +82,11 @@ if
"builder: image download" throw "builder: image download" throw
] if ] if
[ "./factor -i=" boot-image " -no-user-init > ../boot-log" 3append system ] [
"./factor -i=" boot-image-name " -no-user-init > ../boot-log"
3append
system
]
benchmark nip benchmark nip
"../boot-time" <file-writer> [ . ] with-stream "../boot-time" <file-writer> [ . ] with-stream
0 = 0 =