steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bootstrap.image.upload: use with-resource-directory.

db4
John Benediktsson 2015-07-16 10:39:33 -07:00
parent c7868226d0
commit dc9a501040
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/bootstrap/image/upload/upload.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: bootstrap.image checksums checksums.openssl io USING: bootstrap.image checksums checksums.openssl io
io.directories io.encodings.ascii io.files io.files.temp io.directories io.encodings.ascii io.files io.files.temp
io.launcher io.pathnames kernel make namespaces sequences system ; io.launcher kernel make namespaces sequences system ;
IN: bootstrap.image.upload IN: bootstrap.image.upload
SYMBOL: upload-images-destination SYMBOL: upload-images-destination
@ -12,9 +12,11 @@ SYMBOL: upload-images-destination
"slava_pestov@downloads.factorcode.org:downloads.factorcode.org/images/latest/" "slava_pestov@downloads.factorcode.org:downloads.factorcode.org/images/latest/"
or ; or ;
: checksums ( -- temp ) "checksums.txt" temp-file ; : checksums ( -- temp )
"checksums.txt" temp-file ;
: boot-image-names ( -- seq ) images [ boot-image-name ] map ; : boot-image-names ( -- seq )
images [ boot-image-name ] map ;
: compute-checksums ( -- ) : compute-checksums ( -- )
checksums ascii [ checksums ascii [
@ -42,8 +44,10 @@ M: windows scp-name "pscp" ;
] { } make try-process ; ] { } make try-process ;
: new-images ( -- ) : new-images ( -- )
"" resource-path [
[ make-images compute-checksums upload-images ] make-images
with-directory ; compute-checksums
upload-images
] with-resource-directory ;
MAIN: new-images MAIN: new-images