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

mason.release.archive: fix extension name on release binaries.

db4
John Benediktsson 2012-08-17 11:53:51 -07:00
parent dbfc9441af
commit d7f95a481c
2 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
extra/mason/release/archive/archive-tests.factor Normal file
View File

@ -0,0 +1,17 @@
USING: system tools.test ;
IN: mason.release.archive
{ ".dmg" } [ macosx extension ] unit-test
{ ".dmg" } [ "macosx" extension ] unit-test
{ ".zip" } [ windows extension ] unit-test
{ ".zip" } [ "windows" extension ] unit-test
{ ".tar.gz" } [ unix extension ] unit-test
{ ".tar.gz" } [ "unix" extension ] unit-test
{ ".tar.gz" } [ linux extension ] unit-test
{ ".tar.gz" } [ "linux" extension ] unit-test
{ ".tar.gz" } [ f extension ] unit-test

9
extra/mason/release/archive/archive.factor
View File

@ -1,18 +1,19 @@
! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov. ! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays combinators locals io.directories USING: accessors arrays combinators locals io.directories
io.directories.hierarchy io.files io.launcher io.pathnames io.directories.hierarchy io.files io.launcher io.pathnames
kernel make mason.common mason.config mason.platform namespaces kernel make mason.common mason.config mason.platform namespaces
prettyprint sequences system ; prettyprint sequences system words ;
IN: mason.release.archive IN: mason.release.archive
: base-name ( -- string ) : base-name ( -- string )
[ "factor-" % platform % "-" % stamp get % ] "" make ; [ "factor-" % platform % "-" % stamp get % ] "" make ;
: extension ( os -- extension ) : extension ( os -- extension )
dup word? [ name>> ] when
{ {
{ windows [ ".zip" ] } { "windows" [ ".zip" ] }
{ macosx [ ".dmg" ] } { "macosx" [ ".dmg" ] }
[ drop ".tar.gz" ] [ drop ".tar.gz" ]
} case ; } case ;