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

Make osc-examples use usocket for portability #4

Merged
boqs merged 3 commits from master into master 2017-12-10 12:42:02 +00:00
Conversation 1 Commits 3 Files changed 1 +7 -5
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit e1f055a828 - Show all commits

12
osc-examples.lisp
View file

@ -22,7 +22,7 @@
;; (osc-receive-test 6667) ;; (osc-receive-test 6667)
;; eg. send a test message to localhost port 6668 ;; eg. send a test message to localhost port 6668
;; ;;
;; (osc-send-test "localhost" 6668) ;; (osc-send-test #(127 0 0 1) 6668)
;; ;;
;; eg. listen on port 6667 and send to 10.0.89:6668 ;; eg. listen on port 6667 and send to 10.0.89:6668
;; note the ip# is formatted as a vector ;; note the ip# is formatted as a vector
@ -34,13 +34,14 @@
(eval-when (:compile-toplevel :load-toplevel) (eval-when (:compile-toplevel :load-toplevel)
(ql:quickload :osc) (ql:quickload :osc)
(ql:quickload :usocket) (ql:quickload :usocket)
(use-package :osc) (defpackage osc-examples (:use :cl :osc :usocket)))
(use-package :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." "a basic test function which attempts to decode an osc message a given port."
(let ((s (socket-connect nil nil (let ((s (socket-connect nil nil
:local-port port :local-port port
:local-host #(127 0 0 1)
:protocol :datagram :protocol :datagram
:element-type '(unsigned-byte 8))) :element-type '(unsigned-byte 8)))
(buffer (make-sequence '(vector (unsigned-byte 8)) 1024))) (buffer (make-sequence '(vector (unsigned-byte 8)) 1024)))
@ -57,7 +58,7 @@
:protocol :datagram :protocol :datagram
:element-type '(unsigned-byte 8))) :element-type '(unsigned-byte 8)))
(b (osc:encode-message "/foo/bar" "baz" 1 2 3 (coerce PI 'single-float)))) (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 (unwind-protect
(socket-send s b (length b)) (socket-send s b (length b))
(when s (socket-close s))))) (when s (socket-close s)))))
@ -66,6 +67,7 @@
"reflector.. . listens on a given port and sends out on another" "reflector.. . listens on a given port and sends out on another"
(let ((in (socket-connect nil nil (let ((in (socket-connect nil nil
:local-port listen-port :local-port listen-port
:local-host #(127 0 0 1)
:protocol :datagram :protocol :datagram
:element-type '(unsigned-byte 8))) :element-type '(unsigned-byte 8)))
(out (socket-connect send-host send-port (out (socket-connect send-host send-port