Paste: run-process/result

Author: dharmatech
Mode: factor
Date: Mon, 17 Nov 2008 08:48:07
Plain Text | 
:: run-process/result ( DESC -- process )
  <process>
    DESC       >>command
    "/tmp/out" >>stdout
    "/tmp/err" >>stderr
  dup run-process wait-for-process >>status

  250 sleep

  "/tmp/out" utf8 file-contents [ string-lines ] [ f ] if* >>stdout
  "/tmp/err" utf8 file-contents [ string-lines ] [ f ] if* >>stderr ;

New Annotation

Summary:
Author:
Mode:
Body: