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-dll ( bundle-name -- )
   9     "resource:factor.dll" swap copy-file-into ;
  10
  11 : copy-freetype ( bundle-name -- )
  12     {
  13         "resource:freetype6.dll"
  14         "resource:zlib1.dll"
  15     } swap copy-files-into ;
  16
  17 : create-exe-dir ( vocab bundle-name -- vm )
  18     dup copy-dll
  19     deploy-ui? get [
  20         dup copy-freetype
  21         dup "" copy-fonts
  22     ] when
  23     ".exe" copy-vm ;
  24
  25 M: winnt deploy*
  26     "resource:" [
  27         dup deploy-config [
  28             deploy-name get
  29             [
  30                 [ create-exe-dir ]
  31                 [ image-name ]
  32                 [ drop ]
  33                 2tri namespace make-deploy-image
  34             ]
  35             [ nip open-in-explorer ] 2bi
  36         ] bind
  37     ] with-directory ;