added running/checking scsynth

2014-05-27 18:01:07 -07:00 · 2014-05-27 18:01:07 -07:00 · f546b393ab
commit f546b393ab
parent ef0eb19041
1 changed files with 9 additions and 3 deletions
--- a/oregano/system.rkt
+++ b/oregano/system.rkt
@ -7,9 +7,15 @@
 ;; run scsynth
 (define (run-super-collider)
  (match (system-type 'os)
-    ('unix (when (not (system "ps -e | grep scsynth > /dev/null"))
-             (thread (lambda ()
-                     (system "./start_server_linux.sh")))))
+    ('unix (if (system "ps -e | grep scsynth > /dev/null")
+               (display "SuperCollider Running\n")
+               (begin
+                 (display "Starting SuperCollider...")
+                 (process "./start_server_linux.sh")
+                 (sleep 0.3)
+                 (if (system "ps -e | grep scsynth > /dev/null")
+                     (display "OK")
+                     (display "Error")))))
    ('macosx 1)
    ('windows  1)
    (else 1)))