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

bootstrap.image.upload: Downloads moved.

factor-shell
Doug Coleman 2017-12-09 00:25:17 -06:00
parent 37163a96d6
commit f96f6d787e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,12 +12,12 @@ SYMBOL: build-images-destination
: latest-destination ( -- dest ) : latest-destination ( -- dest )
upload-images-destination get upload-images-destination get
"slava_pestov@downloads.factorcode.org:downloads.factorcode.org/images/latest/" "sheeple@downloads.factorcode.org:downloads.factorcode.org/images/latest/"
or ; or ;
: build-destination ( -- dest ) : build-destination ( -- dest )
build-images-destination get build-images-destination get
"slava_pestov@downloads.factorcode.org:downloads.factorcode.org/images/build/" "sheeple@downloads.factorcode.org:downloads.factorcode.org/images/build/"
or ; or ;
: factor-git-branch ( -- name ) : factor-git-branch ( -- name )
@ -25,7 +25,7 @@ SYMBOL: build-images-destination
: git-branch-destination ( -- dest ) : git-branch-destination ( -- dest )
build-images-destination get build-images-destination get
"slava_pestov@downloads.factorcode.org:downloads.factorcode.org/images/" "sheeple@downloads.factorcode.org:downloads.factorcode.org/images/"
or or
factor-git-branch "/" 3append ; factor-git-branch "/" 3append ;
@ -97,7 +97,7 @@ M: windows scp-name "pscp" ;
: create-remote-upload-directory ( -- ) : create-remote-upload-directory ( -- )
'[ '[
"ssh" , "ssh" ,
"slava_pestov@downloads.factorcode.org" , "sheeple@downloads.factorcode.org" ,
"mkdir -p downloads.factorcode.org/images/" factor-git-branch append , "mkdir -p downloads.factorcode.org/images/" factor-git-branch append ,
] { } make try-process ; ] { } make try-process ;