Simple do function to spawn processes.

2014-08-09 12:50:26 -07:00 · 2014-08-09 12:50:26 -07:00 · c93dcdd374
commit c93dcdd374
parent 7285fcccf7
1 changed files with 16 additions and 0 deletions
--- a/rash.rkt
+++ b/rash.rkt
@ -0,0 +1,16 @@
+#lang racket/base
+
+(require readline/readline)
+(require racket/string)
+
+(define (do command . args)
+  (let ([cmd (find-executable-path command)])
+    (if cmd
+        (let-values ([(subproc in out err)
+                      (subprocess (current-output-port)
+                                  (current-input-port)
+                                  (current-error-port)
+                                  cmd
+                                  (string-join args " "))])
+          (subprocess-wait subproc))
+        (raise (exn:fail:filesystem command)))))