toscanite

darcs-hash:20060405103333-2648a-eb806b6fcd6ccccc51457ffc3fb418fbba4b4c7c.gz

README.txt

@@ -1,17 +1,15 @@
 
-
 Open Sound Control
 
-This is a common-lisp implementation of the Open Sound Control
+This is a common lisp implementation of the Open Sound Control Protocol, aka
-Protocol, aka OSC. The code should be close to ansi standard, and does
+OSC. The code should be close to the ansi standard, and does not rely on any
-not rely on any external code/ffi/etc+ to do the basic encoding and
+external code/ffi/etc+ to do the basic encoding and decoding of packets. since
-decoding of packets. since OSC does not specify a transport layer,
+OSC does not specify a transport layer, messages can be send using TCP or UDP
-messages can be send using TCP or UDP (or carrier pigeons), however it
+(or carrier pigeons), however it seems UDP is more common amongst the programmes
-seems UDP is more common amongst the programmes that communicate using
+that communicate using the OSC protocol. the osc-examples.lisp file contains a
-the OSC protocol. the osc-examples.lisp file contains a few simple
+few simple examples of how to send and recieve OSC via UDP, and so far seems
-examples of how to send and recieve OSC via UDP, and so far seems
+reasonably compatible with the packets send from/to max-msp, pd, supercollider
-reasonably compatible with the packets send from/to max-msp, pd,
+and liblo.
-supercollider and liblo. . .
 
 more details about OSC can be found at . .,
     http://www.cnmat.berkeley.edu/OpenSoundControl/

osc-dispatch.lisp

@@ -68,5 +68,5 @@
   (let ((pattern (car osc-message)))
     (dolist (x (dp-match tree pattern))
       (unless (eq x NIL)
-        ;; (apply #'x '() (cdr osc-message))
+        (apply #'x (cdr osc-message))))))
-        (eval `(,x  ,@(cdr osc-message)))))))
+

osc.lisp

@@ -360,4 +360,6 @@
   (declare (type fixnum n))
   (make-array n :initial-element 0 :fill-pointer n))
 
+
+(provide :osc)
 ;; end