zzkt/osc
1
0
Fork 0
Code Issues 7 Pull requests Projects Releases Activity Actions

toscanite

Browse source 
darcs-hash:20060405103333-2648a-eb806b6fcd6ccccc51457ffc3fb418fbba4b4c7c.gz
This commit is contained in:
nik gaffney 2006-04-05 18:33:33 +08:00
parent a7a6d742f6
commit 8f887a7c3b
3 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
README.txt
View file

@ -1,17 +1,15 @@
Open Sound Control 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 . ., more details about OSC can be found at . .,
http://www.cnmat.berkeley.edu/OpenSoundControl/ http://www.cnmat.berkeley.edu/OpenSoundControl/

4
osc-dispatch.lisp
View file

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

2
osc.lisp
View file

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