zzkt/rsc3
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

added running/checking scsynth

Browse source
This commit is contained in:
Mustafa 2014-05-27 18:01:07 -07:00
parent ef0eb19041
commit f546b393ab
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
oregano/system.rkt
View file

@ -7,9 +7,15 @@
;; run scsynth ;; run scsynth
(define (run-super-collider) (define (run-super-collider)
(match (system-type 'os) (match (system-type 'os)
('unix (when (not (system "ps -e | grep scsynth > /dev/null")) ('unix (if (system "ps -e | grep scsynth > /dev/null")
(thread (lambda () (display "SuperCollider Running\n")
(system "./start_server_linux.sh"))))) (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) ('macosx 1)
('windows 1) ('windows 1)
(else 1))) (else 1)))