extra/webapps/mason/version/binary/binary.factor

   1 ! Copyright (C) 2010 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: io kernel make sequences webapps.mason.version.common
   4 webapps.mason.version.files ;
   5 IN: webapps.mason.version.binary
   6
   7 : binary-release-command ( version builder -- command )
   8     [
   9         "cp " %
  10         [ nip binary-package-name % " " % ]
  11         [ remote-binary-release-name % ]
  12         2bi
  13     ] "" make ;
  14
  15 : binary-release-script ( version builders -- string )
  16     [ binary-release-command ] with map unlines ;
  17
  18 : do-binary-release ( version builders -- )
  19     "Copying binary releases to release directory..." print flush
  20     binary-release-script execute-on-server ;