steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.deploy.shaker: make sure an io-multiplex method remains even if C streams are stripped out

release
Slava Pestov 2010-03-31 13:29:44 -04:00
parent 587664efbf
commit ce42aea6a4
2 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/tools/deploy/shaker/shaker.factor
View File

@ -392,13 +392,15 @@ IN: tools.deploy.shaker
] [ drop ] if ; ] [ drop ] if ;
: strip-c-io ( -- ) : strip-c-io ( -- )
! On all platforms, if deploy-io is 1, we strip out C streams.
! On Unix, if deploy-io is 3, we strip out C streams as well.
! On Windows, even if deploy-io is 3, C streams are still used
! for the console, so don't strip it there.
strip-io? strip-io?
deploy-io get 3 = os windows? not and deploy-io get 3 = os windows? not and
or [ or [
[ "Stripping C I/O" show
c-io-backend forget "vocab:tools/deploy/shaker/strip-c-io.factor" run-file
"io.streams.c" forget-vocab
] with-compilation-unit
] when ; ] when ;
: compress ( pred post-process string -- ) : compress ( pred post-process string -- )

10
basis/tools/deploy/shaker/strip-c-io.factor Normal file
View File

@ -0,0 +1,10 @@
USING: compiler.units definitions io.backend io.streams.c kernel
math threads.private vocabs ;
[
c-io-backend forget
"io.streams.c" forget-vocab
] with-compilation-unit
M: object io-multiplex
dup 0 = [ drop ] [ 60 60 * 1000 * 1000 * or (sleep) ] if ;