2 USING: kernel namespaces sequences arrays io io.files
5 builder.release.archive ;
7 IN: builder.release.upload
9 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
13 SYMBOL: upload-username
15 SYMBOL: upload-directory
17 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
19 : remote-location ( -- dest )
20 upload-directory get platform append ;
22 : remote-archive-name ( -- dest )
23 remote-location "/" archive-name 3append ;
25 : temp-archive-name ( -- dest )
26 remote-archive-name ".incomplete" append ;
28 : upload-command ( -- args )
31 [ upload-username get % "@" % upload-host get % ":" % temp-archive-name % ] "" make
34 : rename-command ( -- args )
45 : upload-temp-file ( -- )
46 upload-command [ "Error uploading binary to factorcode" print ] run-or-bail ;
48 : rename-temp-file ( -- )
49 rename-command [ "Error renaming binary on factorcode" print ] run-or-bail ;
52 upload-to-factorcode get
53 [ upload-temp-file rename-temp-file ]