Paste: <process-stdout-stderr-reader>

Author: dharmatech
Mode: factor
Date: Tue, 18 Nov 2008 17:09:28
Plain Text |
:: <process-stdout-stderr-reader> ( DESC -- process stream stream )
  [
    [let | STDOUT-PIPE [ (pipe) |dispose ]
           STDERR-PIPE [ (pipe) |dispose ] |

      [let | PROCESS [ DESC >process ] |

        PROCESS
          [ STDOUT-PIPE out>> or ] change-stdout
          [ STDERR-PIPE out>> or ] change-stderr
        run-detached

        STDOUT-PIPE out>> dispose
        STDERR-PIPE out>> dispose

        STDOUT-PIPE in>> <input-port> utf8 <decoder>
        STDERR-PIPE in>> <input-port> utf8 <decoder> ] ]
  ]
  with-destructors ;

New Annotation

Summary:
Author:
Mode:
Body: