From f546b393ab3e1e788c5cc5b3844a84639932f008 Mon Sep 17 00:00:00 2001 From: Mustafa Date: Tue, 27 May 2014 18:01:07 -0700 Subject: [PATCH] added running/checking scsynth --- oregano/system.rkt | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/oregano/system.rkt b/oregano/system.rkt index f4090e2..21bbf42 100644 --- 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)))