2 USING: kernel namespaces system io.files bootstrap.image http.client
3 update update.backup update.util ;
7 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
9 : git-pull-master ( -- )
10 image parent-directory
12 { "git" "pull" "http://factorcode.org/git/factor.git" "master" }
17 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
19 : remote-latest-image ( -- url )
20 { "http://factorcode.org/images/latest/" my-boot-image-name } to-string ;
22 : download-latest-image ( -- ) remote-latest-image download ;
24 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
26 : rebuild-latest ( -- )
27 image parent-directory
37 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
39 : update-latest ( -- )
40 image parent-directory
51 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!