extra/webapps/mason/version/files/files.factor

   1 ! Copyright (C) 2010 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors fry kernel make mason.config mason.platform
   4 mason.release.archive namespaces sequences ;
   5 IN: webapps.mason.version.files
   6
   7 : release-directory ( string version -- string )
   8     [ "releases/" % % "/" % % ] "" make ;
   9
  10 : remote-directory ( string -- string' )
  11     [ package-directory get ] dip "/" glue ;
  12
  13 SLOT: os
  14 SLOT: cpu
  15
  16 : platform ( builder -- string )
  17     [ os>> ] [ cpu>> ] bi (platform) ;
  18
  19 SLOT: last-release
  20
  21 : binary-package-name ( builder -- string )
  22     [ [ platform % "/" % ] [ last-release>> % ] bi ] "" make
  23     remote-directory ;
  24
  25 : binary-release-name ( version builder -- string )
  26     [
  27         [
  28             [ "factor-" % platform % "-" % % ]
  29             [ os>> extension % ]
  30             bi
  31         ] "" make
  32     ] [ drop ] 2bi release-directory ;
  33
  34 : remote-binary-release-name ( version builder -- string )
  35     binary-release-name remote-directory ;
  36
  37 : source-release-name ( version -- string )
  38     [ "factor-src-" ".zip" surround ] keep release-directory ;
  39
  40 : remote-source-release-name ( version -- string )
  41     source-release-name remote-directory ;