basis/tools/deploy/windows/windows.factor

   1 ! Copyright (C) 2007, 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: io io.files kernel namespaces sequences system
   4 tools.deploy.backend tools.deploy.config assocs hashtables
   5 prettyprint combinators windows.shell32 windows.user32 ;
   6 IN: tools.deploy.windows
   7
   8 : copy-dlls ( bundle-name -- )
   9     {
  10         "resource:freetype6.dll"
  11         "resource:zlib1.dll"
  12         "resource:factor.dll"
  13     } swap copy-files-into ;
  14
  15 : create-exe-dir ( vocab bundle-name -- vm )
  16     dup copy-dlls
  17     dup "" copy-fonts
  18     ".exe" copy-vm ;
  19
  20 M: winnt deploy*
  21     "resource:" [
  22         deploy-name over deploy-config at
  23         [
  24             {
  25                 [ create-exe-dir ]
  26                 [ image-name ]
  27                 [ drop ]
  28                 [ drop deploy-config ]
  29             } 2cleave make-deploy-image
  30         ]
  31         [ nip open-in-explorer ] 2bi
  32     ] with-directory ;