basis/tools/deploy/deploy.factor

   1 ! Copyright (C) 2007, 2010 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.deploy.backend system vocabs vocabs.loader kernel
   4 combinators tools.deploy.config.editor ;
   5 IN: tools.deploy
   6
   7 ERROR: no-vocab-main vocab ;
   8
   9 : check-vocab-main ( vocab -- vocab )
  10     [ require ] keep dup vocab-main [ no-vocab-main ] unless ;
  11
  12 : deploy ( vocab -- )
  13     dup find-vocab-root [ check-vocab-main deploy* ] [ no-vocab ] if ;
  14
  15 : deploy-image-only ( vocab image -- )
  16     [ vm-path ] 2dip
  17     swap dup deploy-config make-deploy-image drop ;
  18
  19 {
  20     { [ os macosx? ] [ "tools.deploy.macosx" ] }
  21     { [ os windows? ] [ "tools.deploy.windows" ] }
  22     { [ os unix? ] [ "tools.deploy.unix" ] }
  23 } cond require