;; EvalListener.ssc - (c) rohan drape, 2004-2005

(class (EvalListener)
  (classmethod (init)
    (add 
     (new OSCresponder 
	  nil 
	  "/eval" 
	  (lambda (time theResponder message addr)
	    (let ((expr (asString (at message 1)))
		  (result (interpret expr)))
	      (sendMsg addr "/result" (asString result))))))))