extra/mason/release/upload/upload.factor

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