1 ! Copyright (C) 2008, 2011 Eduardo Cavazos, Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel mason.common mason.config mason.platform
5 IN: mason.release.upload
7 : remote-location ( -- dest )
8 package-directory get "/" platform 3append ;
10 : remote-archive-name ( archive-name -- dest )
11 [ remote-location "/" ] dip 3append ;
13 : upload ( archive-name -- )
17 pick remote-archive-name