mason.release.archive: use code-array literal
parent
a488d47dfb
commit
19bf287d67
|
@ -1,8 +1,8 @@
|
||||||
! 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: accessors combinators io.directories
|
USING: accessors combinators io.directories
|
||||||
io.directories.hierarchy io.files io.pathnames kernel locals
|
io.directories.hierarchy io.files io.pathnames kernel literals
|
||||||
make mason.common mason.config mason.platform namespaces
|
locals make mason.common mason.config mason.platform namespaces
|
||||||
sequences system words ;
|
sequences system words ;
|
||||||
IN: mason.release.archive
|
IN: mason.release.archive
|
||||||
|
|
||||||
|
@ -38,13 +38,12 @@ IN: mason.release.archive
|
||||||
: sign-factor.app? ( -- ? ) cert-path exists? ;
|
: sign-factor.app? ( -- ? ) cert-path exists? ;
|
||||||
|
|
||||||
:: sign-factor.app ( -- )
|
:: sign-factor.app ( -- )
|
||||||
{
|
${
|
||||||
"codesign" "--force" "--sign"
|
"codesign" "--force" "--sign"
|
||||||
"Developer ID Application"
|
"Developer ID Application"
|
||||||
}
|
cert-path
|
||||||
cert-path suffix
|
"Factor.app/"
|
||||||
"Factor.app/" suffix
|
} short-running-process ;
|
||||||
short-running-process ;
|
|
||||||
|
|
||||||
! Make the .dmg
|
! Make the .dmg
|
||||||
: make-macosx-archive ( archive-name -- )
|
: make-macosx-archive ( archive-name -- )
|
||||||
|
|
Loading…
Reference in New Issue