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

mason.version: fixes

db4
Slava Pestov 2010-04-16 17:27:15 -05:00
parent 58bf727ac5
commit 14c52d947a
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/mason/version/files/files.factor
View File

@ -10,9 +10,6 @@ IN: mason.version.files
: remote-directory ( string -- string' ) : remote-directory ( string -- string' )
[ upload-directory get ] dip "/" glue ; [ upload-directory get ] dip "/" glue ;
: remote ( string version -- string )
remote-directory swap "/" glue ;
: platform ( builder -- string ) : platform ( builder -- string )
[ os>> ] [ cpu>> ] bi (platform) ; [ os>> ] [ cpu>> ] bi (platform) ;
@ -30,10 +27,10 @@ IN: mason.version.files
] [ drop ] 2bi release-directory ; ] [ drop ] 2bi release-directory ;
: remote-binary-release-name ( version builder -- string ) : remote-binary-release-name ( version builder -- string )
[ binary-release-name ] [ drop ] 2bi remote ; binary-release-name remote-directory ;
: source-release-name ( version -- string ) : source-release-name ( version -- string )
[ "factor-src-" ".zip" surround ] keep release-directory ; [ "factor-src-" ".zip" surround ] keep release-directory ;
: remote-source-release-name ( version -- string ) : remote-source-release-name ( version -- string )
[ source-release-name ] keep remote ; source-release-name remote-directory ;

2
extra/mason/version/version.factor
View File

@ -13,7 +13,7 @@ IN: mason.version
: make-release-directory ( version -- ) : make-release-directory ( version -- )
"Creating release directory..." print flush "Creating release directory..." print flush
[ "mkdir -p " % "" release-directory % "\n" % ] "" make [ "mkdir -p " % "" release-directory remote-directory % "\n" % ] "" make
execute-on-server ; execute-on-server ;
: tweet-release ( version announcement-url -- ) : tweet-release ( version announcement-url -- )