53 lines
1.2 KiB
Factor
53 lines
1.2 KiB
Factor
|
|
||
|
|
USING: kernel namespaces system io.files bootstrap.image http.client
|
||
|
|
builder.util update update.backup ;
|
||
|
|
|
||
|
|
IN: update.latest
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
: git-pull-master ( -- )
|
||
|
|
image parent-directory
|
||
|
|
[
|
||
|
|
{ "git" "pull" "git://factorcode.org/git/factor.git" "master" }
|
||
|
|
run-command
|
||
|
|
]
|
||
|
|
with-directory ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
: remote-latest-image ( -- url )
|
||
|
|
{ "http://factorcode.org/images/latest/" my-boot-image-name } to-string ;
|
||
|
|
|
||
|
|
: download-latest-image ( -- ) remote-latest-image download ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
: rebuild-latest ( -- )
|
||
|
|
image parent-directory
|
||
|
|
[
|
||
|
|
backup
|
||
|
|
download-latest-image
|
||
|
|
make-clean
|
||
|
|
make
|
||
|
|
boot
|
||
|
|
]
|
||
|
|
with-directory ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
: update-latest ( -- )
|
||
|
|
image parent-directory
|
||
|
|
[
|
||
|
|
git-id
|
||
|
|
git-pull-master
|
||
|
|
git-id
|
||
|
|
= not
|
||
|
|
[ rebuild-latest ]
|
||
|
|
when
|
||
|
|
]
|
||
|
|
with-directory ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
MAIN: update-latest
|