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

acroscopic

Browse source 
darcs-hash:20050126151943-2648a-fa2e062470c777a1b3cd7b5874e0d0bfeab979d3.gz
This commit is contained in:
nik gaffney 2005-01-26 23:19:43 +08:00
parent 371b1f650e
commit d22ba88cc5
2 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
osc-examples.lisp
View file

@ -30,6 +30,8 @@
(require :sb-bsd-sockets) (require :sb-bsd-sockets)
;(require :osc) ;(require :osc)
(use-package :sb-bsd-sockets)
(defun osc-listen (port) (defun osc-listen (port)
"a basic test function which attempts to decode osc stuff a "a basic test function which attempts to decode osc stuff a
given port. default ogreOSC port is 4178" given port. default ogreOSC port is 4178"

19
osc.lisp
View file

@ -16,7 +16,7 @@
;; ;;
;; requirements ;; requirements
;; ;;
;; dependent on sbcl for sb-bsd-sockets and float encoding ;; dependent on sbcl for float encoding, other suggestions welcome.
;; ;;
;; commentary ;; commentary
;; ;;
@ -42,9 +42,7 @@
;; - blobs ;; - blobs
;; known BUGS ;; known BUGS
;; ;; - only unknown for now.. .
;; - multiple arg messages containing strings can corrupt further output. .
;; probably need to collect a few more testcases. .
;; changes ;; changes
;; ;;
@ -53,7 +51,8 @@
;; Mon, 24 Jan 2005 15:43:20 +0100 ;; Mon, 24 Jan 2005 15:43:20 +0100
;; - sends and receives multiple arguments ;; - sends and receives multiple arguments
;; - tests in osc-test.lisp ;; - tests in osc-test.lisp
;; ;; Wed, 26 Jan 2005 16:18:36 +0100
;; - fixed string handling bug
;;;;;; ; ;; ; ; ; ; ; ; ; ;;;;;; ; ;; ; ; ; ; ; ; ;
@ -160,12 +159,12 @@
result) result)
(setf acc (subseq acc 4))) (setf acc (subseq acc 4)))
((eq x (char-code #\s)) ((eq x (char-code #\s))
(push (decode-string (let ((pointer (+ (osc-padding-length (position 0 acc))
(subseq acc 0
(+ (osc-padding-length (position 0 acc))
(position 0 acc)))) (position 0 acc))))
result) (push (decode-string
(setf acc (subseq acc (position 0 acc)))) (subseq acc 0 pointer))
result)
(setf acc (subseq acc pointer))))
((eq x (char-code #\b)) (decode-blob x)) ((eq x (char-code #\b)) (decode-blob x))
(t (error "unrecognised typetag")))) (t (error "unrecognised typetag"))))
tags) tags)