detect os and run scsynth

oregano/main.rkt

@@ -3,19 +3,21 @@
 
 (require "instrument.rkt"
          "gui.rkt"
-         "sample.rkt")
+         "sample.rkt"
+         "system.rkt")
 
 ;; setup
 (require rsc3)
 
-;; TODO - run scsynth
+
+(run-super-collider)
+
 
 ;; show osc messages on server
 (send-msg (dump-osc 1))
-(with-sc3 reset)
+(reset)
 (sleep 0.1)
 
-
 (provide
  (all-from-out "instrument.rkt"
                "gui.rkt"

oregano/system.rkt

@@ -0,0 +1,16 @@
+#lang racket
+
+
+
+(provide (all-defined-out))
+
+;; 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")))))
+    ('macosx 1)
+    ('windows  1)
+    (else 1)))
+