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 : deploy ( vocab -- )
   8     dup find-vocab-root [ deploy* ] [ no-vocab ] if ;
   9
  10 : deploy-image-only ( vocab image -- )
  11     [ vm ] 2dip
  12     swap dup deploy-config make-deploy-image drop ;
  13
  14 {
  15     { [ os macosx? ] [ "tools.deploy.macosx" ] }
  16     { [ os winnt? ] [ "tools.deploy.windows" ] }
  17     { [ os unix? ] [ "tools.deploy.unix" ] }
  18 } cond require