26 lines
739 B
Factor
26 lines
739 B
Factor
|
! Copyright (C) 2008 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
IN: bootstrap.image.download
|
||
|
|
USING: http.client crypto.md5 splitting assocs kernel io.files
|
||
|
|
bootstrap.image sequences io ;
|
||
|
|
|
||
|
|
: url "http://factorcode.org/images/latest/" ;
|
||
|
|
|
||
|
|
: download-checksums ( -- alist )
|
||
|
|
url "checksums.txt" append http-get
|
||
|
|
string-lines [ " " split1 ] { } map>assoc ;
|
||
|
|
|
||
|
|
: need-new-image? ( image -- ? )
|
||
|
|
dup exists?
|
||
|
|
[ dup file>md5str swap download-checksums at = not ]
|
||
|
|
[ drop t ] if ;
|
||
|
|
|
||
|
|
: download-image ( arch -- )
|
||
|
|
boot-image-name dup need-new-image? [
|
||
|
|
"Downloading " write dup write "..." print
|
||
|
|
url swap append download
|
||
|
|
] [
|
||
|
|
"Boot image up to date" print
|
||
|
|
drop
|
||
|
|
] if ;
|