extra/mason/release/upload/upload.factor

   1 ! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel namespaces make sequences arrays io io.files
   4 io.launcher mason.common mason.platform
   5 mason.release.archive mason.config ;
   6 IN: mason.release.upload
   7
   8 : remote-location ( -- dest )
   9     upload-directory get "/" platform 3append ;
  10
  11 : remote-archive-name ( archive-name -- dest )
  12     [ remote-location "/" ] dip 3append ;
  13
  14 : upload ( archive-name -- )
  15     upload-to-factorcode? get [
  16         upload-username get
  17         upload-host get
  18         pick remote-archive-name
  19         upload-safely
  20     ] [ drop ] if ;