Handbook
Glossary
redirect* ( actions obj flags fd -- )
Vocabulary
io
.
launcher
.
unix
Inputs
actions
an
object
obj
an
object
flags
an
object
fd
an
object
Outputs
None
Definition
USING:
accessors
combinators
io.backend.unix
io.launcher
io.ports
kernel
strings
;
IN:
io.launcher.unix
:
redirect*
( actions obj flags fd -- )
{
{
[
pick
not
]
[
4drop
]
}
{
[
pick
string?
]
[
redirect-file*
]
}
{
[
pick
appender?
]
[
redirect-file-append*
]
}
{
[
pick
+closed+
eq?
]
[
redirect-closed*
]
}
{
[
pick
fd?
]
[
[
drop
fd>>
2dup
reset-fd*
]
dip
redirect-fd*
]
}
[
[
underlying-handle
]
2dip
redirect*
]
}
cond
;