io.launcher: hide processes created by (process-stream)
parent
85710ced87
commit
c822395597
|
@ -255,7 +255,7 @@ PRIVATE>
|
||||||
(pipe) |dispose
|
(pipe) |dispose
|
||||||
(pipe) |dispose {
|
(pipe) |dispose {
|
||||||
[
|
[
|
||||||
rot >process
|
rot >process t >>hidden
|
||||||
[ swap in>> or ] change-stdin
|
[ swap in>> or ] change-stdin
|
||||||
[ swap out>> or ] change-stdout
|
[ swap out>> or ] change-stdout
|
||||||
run-detached
|
run-detached
|
||||||
|
|
|
@ -224,6 +224,10 @@ SYMBOLS: out-path err-path ;
|
||||||
out-path get-global utf8 file-contents
|
out-path get-global utf8 file-contents
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
|
{ t "This is a hidden process.\r\n" } [
|
||||||
|
"cmd /c echo.This is a hidden process." utf8 (process-stream) hidden>> swap stream-contents
|
||||||
|
] unit-test
|
||||||
|
|
||||||
[ "IN: scratchpad " ] [
|
[ "IN: scratchpad " ] [
|
||||||
console-vm-path "-run=listener" 2array
|
console-vm-path "-run=listener" 2array
|
||||||
ascii [ "USE: system 0 exit" print flush lines last ] with-process-stream
|
ascii [ "USE: system 0 exit" print flush lines last ] with-process-stream
|
||||||
|
|
Loading…
Reference in New Issue