1 USING: kernel system sequences io.files io.directories
2 io.pathnames io.launcher bootstrap.image http.client update.util ;
5 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
7 : run-command ( cmd -- ) to-strings try-process ;
9 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
11 : git-pull-clean ( -- )
12 image-path parent-directory [
13 { "git" "pull" "git://factorcode.org/git/factor.git" branch-name }
17 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
19 : remote-clean-image ( -- url )
20 { "http://factorcode.org/images/clean/" platform "/" my-boot-image-name }
23 : download-clean-image ( -- ) remote-clean-image download ;
25 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
27 : make-clean ( -- ) { gnu-make "clean" } run-command ;
28 : make ( -- ) { gnu-make } run-command ;
29 : boot ( -- ) { "./factor" { "-i=" my-boot-image-name } } run-command ;
31 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
34 image-path parent-directory [
41 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
44 image-path parent-directory [
53 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!