2 USING: kernel system sequences io.files io.launcher bootstrap.image
6 ! builder.util builder.release.branch ;
10 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
12 : run-command ( cmd -- ) to-strings try-process ;
14 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 : git-pull-clean ( -- )
17 image parent-directory
19 { "git" "pull" "git://factorcode.org/git/factor.git" branch-name }
24 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
26 : remote-clean-image ( -- url )
27 { "http://factorcode.org/images/clean/" platform "/" my-boot-image-name }
30 : download-clean-image ( -- ) remote-clean-image download ;
32 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
34 : make-clean ( -- ) { gnu-make "clean" } run-command ;
35 : make ( -- ) { gnu-make } run-command ;
36 : boot ( -- ) { "./factor" { "-i=" my-boot-image-name } } run-command ;
38 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
41 image parent-directory
50 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
53 image parent-directory
64 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!