2014-05-27 23:39:51 +00:00
|
|
|
#lang racket
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(provide (all-defined-out))
|
|
|
|
|
|
|
|
|
|
;; run scsynth
|
|
|
|
|
(define (run-super-collider)
|
2014-05-29 05:41:53 +00:00
|
|
|
(display "in run-super-collider\n")
|
2014-05-27 23:39:51 +00:00
|
|
|
(match (system-type 'os)
|
2014-05-28 01:01:07 +00:00
|
|
|
('unix (if (system "ps -e | grep scsynth > /dev/null")
|
|
|
|
|
(display "SuperCollider Running\n")
|
|
|
|
|
(begin
|
|
|
|
|
(display "Starting SuperCollider...")
|
|
|
|
|
(process "./start_server_linux.sh")
|
2014-05-29 05:41:53 +00:00
|
|
|
(sleep 0.5)
|
2014-05-28 01:01:07 +00:00
|
|
|
(if (system "ps -e | grep scsynth > /dev/null")
|
|
|
|
|
(display "OK")
|
|
|
|
|
(display "Error")))))
|
2014-05-27 23:39:51 +00:00
|
|
|
('macosx 1)
|
|
|
|
|
('windows 1)
|
|
|
|
|
(else 1)))
|
|
|
|
|
|
