hunk ./README 3 -ssc3 [1] implements an s-expression read syntax -for the supercollider language [2]. The interaction -environment is for emacs [3]. supercollider is +ssc3 [1] implements an s-expression read syntax +for the supercollider language [2]. The interaction +environment is for emacs [3]. supercollider is hunk ./README 8 - [1] http://slavepianos.org/rd/f/389026/ + [1] http://slavepianos.org/rd/?t=ssc3 hunk ./README 13 -(c) rohan drape, 2004-2008 +(c) rohan drape, 2004-2011 hunk ./emacs/ssc3.el 1 -;; ssc3.el - (c) rohan drape, 2004-2008 - hunk ./emacs/ssc3.el 2 -;; derivation of `scheme' mode. +;; derivation of `scheme' mode. hunk ./emacs/ssc3.el 14 - "Start the ssc3 process. + "Start the ssc3 process. hunk ./emacs/ssc3.el 27 - "Start the sclang process. + "Start the sclang process. hunk ./emacs/ssc3.el 51 - (rsc3-evaluate-expression + (rsc3-evaluate-expression hunk ./emacs/ssc3.el 63 - (concat "(play (lambda () " + (concat "(play (lambda () " hunk ./emacs/ssc3.el 71 - (concat "(draw (lambda () " + (concat "(draw (lambda () " hunk ./emacs/ssc3.el 78 - (rsc3-evaluate-expression + (rsc3-evaluate-expression hunk ./emacs/ssc3.el 120 - (font-lock-add-keywords + (font-lock-add-keywords hunk ./emacs/ssc3.el 131 - (define-key map "\C-c_" 'ssc3-stop-scl) + (define-key map "\C-c_" 'ssc3-stop-scl) hunk ./emacs/ssc3.el 150 - (define-key map [menu-bar ssc3 expression] + (define-key map [menu-bar ssc3 expression] hunk ./emacs/ssc3.el 195 -(define-derived-mode - ssc3-mode - rsc3-mode +(define-derived-mode + ssc3-mode + rsc3-mode hunk ./help/scheme/array.test.scm 1 - hunk ./help/scheme/array.test.scm 10 - (transform-array (vector 1 2 3))) ; => "[1, 2, 3]" + (transform-array (vector 1 2 3))) ; => "[1, 2, 3]" hunk ./help/scheme/array.test.scm 13 - (transform-array (vector '(new Set) + (transform-array (vector '(new Set) hunk ./help/scheme/class.test.scm 1 - hunk ./help/scheme/class.test.scm 4 - (transform-class + (transform-class hunk ./help/scheme/class.test.scm 7 - (method (plusOffset) + (method (plusOffset) hunk ./help/scheme/clause.test.scm 1 - hunk ./help/scheme/clause.test.scm 11 - '(method (plusOffset) + '(method (plusOffset) hunk ./help/scheme/clause.test.scm 18 - '(classmethod (plusOne) + '(classmethod (plusOne) hunk ./help/scheme/define.test.scm 1 - hunk ./help/scheme/define.test.scm 4 - (transform-define + (transform-define hunk ./help/scheme/define.test.scm 10 - (transform-define + (transform-define hunk ./help/scheme/delimiter.test.scm 1 - hunk ./help/scheme/delimiter.test.scm 3 -(make-delimiter-list 1) ; => ((|;| | | *newline*)) +(make-delimiter-list 1) ; => ((|;| | | *newline*)) hunk ./help/scheme/delimiter.test.scm 5 -(make-delimiter-list 3) ; => ((|,| | |) (|,| | |) (|;| | | *newline*)) +(make-delimiter-list 3) ; => ((|,| | |) (|,| | |) (|;| | | *newline*)) hunk ./help/scheme/dispatch.test.scm 1 - hunk ./help/scheme/dispatch.test.scm 13 - (transform-dispatch '(with Array 1 (new Set) 3))) ; => "Array.with(1, Set.new, 3)" + (transform-dispatch '(with Array 1 (new Set) 3))) + +;; => "Array.with(1, Set.new, 3)" hunk ./help/scheme/dispatch.test.scm 18 - (transform-dispatch + (transform-dispatch hunk ./help/scheme/extend.test.scm 1 - hunk ./help/scheme/extend.test.scm 4 - (transform-extend + (transform-extend hunk ./help/scheme/extend.test.scm 8 - (method (plusOffset2) + (method (plusOffset2) hunk ./help/scheme/if.test.scm 1 - hunk ./help/scheme/infix.test.scm 1 - hunk ./help/scheme/lambda.test.scm 1 - hunk ./help/scheme/lambda.test.scm 4 - (transform-lambda + (transform-lambda hunk ./help/scheme/lambda.test.scm 8 - (transform-lambda + (transform-lambda hunk ./help/scheme/lambda.test.scm 12 - (transform-lambda - '(lambda (a) + (transform-lambda + '(lambda (a) hunk ./help/scheme/let.test.scm 1 - hunk ./help/scheme/let.test.scm 4 - (transform-let + (transform-let hunk ./help/scheme/let.test.scm 10 - (transform-let + (transform-let hunk ./help/scheme/method.test.scm 5 - (transform-method - 'method + (transform-method + 'method hunk ./help/scheme/set.test.scm 1 - hunk ./help/scheme/set.test.scm 4 - (transform-set! '(set! a b))) + (transform-set! '(set! a b))) hunk ./help/scheme/set.test.scm 9 - (transform-set! '(set! (latency s) (reciprocal 2)))) + (transform-set! '(set! (latency s) (reciprocal 2)))) hunk ./help/scheme/ssc.test.scm 72 -(ssc3->sc '(lambda (n) (+ n 1))) ; => "{arg n; (n+1); }; " +(ssc3->sc '(lambda (n) (+ n 1))) ; => "{arg n; (n+1); }; " hunk ./help/scheme/ssc.test.scm 74 -(ssc3->sc '(lambda (a (b 1)) - (effect side) (+ a b))) ; => "{arg a, b = 1; side.effect; (a+b); }; " +(ssc3->sc '(lambda (a (b 1)) + (effect side) (+ a b))) hunk ./help/scheme/ssc.test.scm 77 -(ssc3->sc - '(lambda ((freq 440) (gain 0.1)) +;; => "{arg a, b = 1; side.effect; (a+b); }; " + +(ssc3->sc + '(lambda ((freq 440) (gain 0.1)) hunk ./help/scheme/ssc.test.scm 87 -(ssc3->sc - '(play (lambda () (ar SinOsc 440 0 0.1)))) +(ssc3->sc + '(play (lambda () (ar SinOsc 440 0 0.1)))) hunk ./help/scheme/ssc.test.scm 96 - (lambda () + (lambda () hunk ./help/scheme/ssc.test.scm 108 - (method (plusOffset) + (method (plusOffset) hunk ./help/scheme/ssc.test.scm 143 -;; Setup the client connection. +;; Setup the client connection. hunk ./help/scheme/ssc.test.scm 149 -(ssc3-send - (quote +(ssc3-send + (quote hunk ./help/scheme/ssc.test.scm 152 - (lambda () + (lambda () hunk ./help/scheme/value-declaration.test.scm 5 - (transform-value-declaration + (transform-value-declaration hunk ./help/scheme/value-declaration.test.scm 9 - (transform-value-declaration + (transform-value-declaration hunk ./help/scheme/value-declaration.test.scm 13 - (transform-value-declaration + (transform-value-declaration hunk ./help/scheme/value-declaration.test.scm 17 - (transform-value-declaration + (transform-value-declaration hunk ./help/scheme/value-declaration.test.scm 21 - (transform-value-declaration + (transform-value-declaration hunk ./help/scheme/value-declaration.test.scm 25 - (transform-value-declaration + (transform-value-declaration hunk ./help/ssc3/ssc3.help.ssc3 1 -;; ssc3.help.ssc - (c) rohan drape, 2004-2008 - hunk ./help/ssc3/ssc3.help.ssc3 14 +;; A sin oscillator. + +(play (lambda () (ar Out 0 (ar SinOsc 440 0 0.1)))) + hunk ./help/ssc3/ssc3.help.ssc3 21 - (lambda () + (lambda () hunk ./help/ssc3/ssc3.help.ssc3 30 -;; The ssc Emacs command 'Play' (C-cC-p) adds the appropriate +;; The ssc Emacs command 'Play' (C-cC-p) adds the appropriate hunk ./util/sclang/EvalListener.sc 1 -// EvalListener.sc - (c) rohan drape, 2004-2005 - hunk ./util/sclang/EvalListener.sc 4 -EvalListener { - *init { +EvalListener { + *init { hunk ./util/sclang/EvalListener.sc 7 - arg time, theResponder, message, addr; + arg time, theResponder, message, addr; hunk ./util/sclang/EvalListener.sc 9 - var expr, result; - expr = message.at(1).asString; - result = expr.interpret; - addr.sendMsg("/result", result.asString); - }.value; - }).add; - } -} + var expr, result; + expr = message.at(1).asString; + result = expr.interpret; + addr.sendMsg("/result", result.asString); + }.value; + }).add; + } +} hunk ./util/ssc3/EvalListener.ssc3 1 -;; EvalListener.ssc - (c) rohan drape, 2004-2005 - hunk ./util/ssc3/EvalListener.ssc3 3 - (add - (new OSCresponder - nil - "/eval" + (add + (new OSCresponder + nil + "/eval"