fixup after testing on ccl

This commit is contained in:
rick 2017-11-30 15:23:13 -08:00 committed by nik gaffney
parent 52040ea82a
commit 2b250fb46c
Signed by: nik
GPG key ID: 989F5E6EDB478160

View file

@ -23,7 +23,7 @@
;;
;; send a test message to localhost port 6668
;;
;; (osc-send-test "localhost" 6668)
;; (osc-send-test #(127 0 0 1) 6668)
;;
;; listen on port 6667 and send to 10.0.89:6668
;; (note the ip# is formatted as a vector)
@ -35,14 +35,14 @@
(eval-when (:compile-toplevel :load-toplevel)
(ql:quickload :osc)
(ql:quickload :usocket)
(use-package :osc)
(use-package :usocket))
(defpackage osc-examples (:use :cl :osc :usocket)))
(in-package :osc-examples)
(defun osc-listen-test (port)
(defun osc-receive-test (port)
"a basic test function which attempts to decode an osc message a given port."
(let ((s (socket-connect nil nil
:local-port port
:local-host #(127 0 0 1)
:protocol :datagram
:element-type '(unsigned-byte 8)))
(buffer (make-sequence '(vector (unsigned-byte 8)) 1024)))
@ -60,7 +60,7 @@
:protocol :datagram
:element-type '(unsigned-byte 8)))
(b (osc:encode-message "/foo/bar" "baz" 1 2 3 (coerce PI 'single-float))))
(format t "listening on localhost port ~A~%~%" port)
(format t "sending to ~a on port ~A~%~%" host port)
(unwind-protect
(socket-send s b (length b))
(when s (socket-close s)))))