Slave.run: run a command using Unix.execute

[hcoop/domtool2.git] / src / slave.sml

diff --git a/src/slave.sml b/src/slave.sml
index ba31da8..7e3f9d8 100644 (file)
--- a/src/slave.sml
+++ b/src/slave.sml
@@ -82,6 +82,20 @@ fun shellF (ss, msg) =
            ErrorMsg.error NONE (msg s)
     end
 
+fun run (program, argv) =
+    let
+       val proc = Unix.execute (program, argv)
+
+       fun loop inf =
+           case TextIO.inputLine inf of
+               NONE => ()
+             | SOME line => loop inf
+       (* Programs that output will fail unless we eat their output *)
+       val () = loop (Unix.textInstreamOf proc)
+    in
+       OS.Process.isSuccess (Unix.reap proc)
+    end
+
 fun shellOutput ss =
     let
        val proc = Unix.execute ("/bin/bash", ["-c", String.concat ss ^ " 2>&1"])