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 +6 -3
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit ab0e2a0d3b - Show all commits

9
osc-examples.lisp
View file

@ -38,7 +38,8 @@
(in-package :osc-examples) (in-package :osc-examples)
(defun osc-receive-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 on given port.
note ip#s need to be in the format #(127 0 0 1) for now.. ."
(let ((s (socket-connect nil nil (let ((s (socket-connect nil nil
:local-port port :local-port port
:local-host #(127 0 0 1) :local-host #(127 0 0 1)
@ -53,7 +54,8 @@
(when s (socket-close s))))) (when s (socket-close s)))))
(defun osc-send-test (host port) (defun osc-send-test (host port)
"a basic test function which sends osc test message to a given port/hostname." "a basic test function which sends osc test message to a given port/hostname.
note ip#s need to be in the format #(127 0 0 1) for now.. ."
(let ((s (socket-connect host port (let ((s (socket-connect host port
:protocol :datagram :protocol :datagram
:element-type '(unsigned-byte 8))) :element-type '(unsigned-byte 8)))
@ -64,7 +66,8 @@
(when s (socket-close s))))) (when s (socket-close s)))))
(defun osc-reflector-test (listen-port send-host send-port) (defun osc-reflector-test (listen-port send-host send-port)
"reflector.. . listens on a given port and sends out on another" "reflector.. . listens on a given port and sends out on another
note ip#s need to be in the format #(127 0 0 1) for now.. ."
(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) :local-host #(127 0 0 1)