Implement run/file*, which is really weird

1 files changed, 14 insertions, 2 deletions

diff --git a/scsh-process.scm b/scsh-process.scm
index 96a3bc7..50c2431 100644
--- a/scsh-process.scm
+++ b/scsh-process.scm
@@ -113,10 +113,22 @@
     (apply values (fork/pipe+ conns thunk) temp-files)))
 
 (define (run/port* thunk)
-  (fork/pipe (lambda () (with-output-to-port (open-output-file* 1) thunk)))
+  (fork/pipe (lambda ()
+               (with-output-to-port (open-output-file* 1)
+                 (lambda ()
+                   (with-error-output-to-port (open-output-file* 2) thunk)))))
   (open-input-file* 0))
 (define (run/file* thunk)
-  (error "not yet implemented"))
+  (let* ((temp-file (create-temporary-file)))
+    (process-wait                       ; This is peculiar
+     (fork/pipe (lambda ()
+                  (let ((fd (file-open temp-file open/wronly)))
+                    (duplicate-fileno fd 1)
+                    (duplicate-fileno fd 2)
+                    (with-output-to-port (open-output-file* 1)
+                      (lambda ()
+                        (with-error-output-to-port (open-output-file* 2) thunk)))))))
+    temp-file))
 (define (run/string* thunk)
   (read-string #f (run/port* thunk)))
 (define (run/strings* thunk)