42 lines
1.2 KiB
Factor
42 lines
1.2 KiB
Factor
! Copyright (C) 2010 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors fry kernel make mason.config mason.platform
|
|
mason.release.archive namespaces sequences ;
|
|
IN: webapps.mason.version.files
|
|
|
|
: release-directory ( string version -- string )
|
|
[ "releases/" % % "/" % % ] "" make ;
|
|
|
|
: remote-directory ( string -- string' )
|
|
[ package-directory get ] dip "/" glue ;
|
|
|
|
SLOT: os
|
|
SLOT: cpu
|
|
|
|
: platform ( builder -- string )
|
|
[ os>> ] [ cpu>> ] bi (platform) ;
|
|
|
|
SLOT: last-release
|
|
|
|
: binary-package-name ( builder -- string )
|
|
[ [ platform % "/" % ] [ last-release>> % ] bi ] "" make
|
|
remote-directory ;
|
|
|
|
: binary-release-name ( version builder -- string )
|
|
[
|
|
[
|
|
[ "factor-" % platform % "-" % % ]
|
|
[ os>> extension % ]
|
|
bi
|
|
] "" make
|
|
] [ drop ] 2bi release-directory ;
|
|
|
|
: remote-binary-release-name ( version builder -- string )
|
|
binary-release-name remote-directory ;
|
|
|
|
: source-release-name ( version -- string )
|
|
[ "factor-src-" ".zip" surround ] keep release-directory ;
|
|
|
|
: remote-source-release-name ( version -- string )
|
|
source-release-name remote-directory ;
|