osc-examples.lisp

@@ -19,69 +19,69 @@
 ;;
 ;;  eg. listen on port 6667 for incoming msgs
 ;;
-;;   (osc-listen 6667) 
+;;   (osc-receive-test 6667)
+;;  eg. send a test message to localhost port 6668
+;;
+;;   (osc-send-test "localhost" 6668)
 ;;
 ;;  eg. listen on port 6667 and send to 10.0.89:6668
 ;;     note the ip# is formatted as a vector
 ;;
-;;   (osc-reflector 6667 #(10 0 0 89) 6668)
+;;   (osc-reflector-test 6667 #(10 0 0 89) 6668)
 ;;
 ;;;;;:::;;: ;     ; ;::: ;     ;; ;;     ;        ;;      ;
 
-(require :sb-bsd-sockets)
+(eval-when (:compile-toplevel :load-toplevel)
-(use-package :osc)
+  (ql:quickload :osc)
-(use-package :sb-bsd-sockets)
+  (ql:quickload :usocket)
+  (use-package :osc)
+  (use-package :usocket))
 
-
+(defun osc-listen-test (port)
-(defun osc-listen (port) 
   "a basic test function which attempts to decode an osc message a given port."
-  (let ((s (make-udp-socket))
+  (let ((s (socket-connect nil nil
+			   :local-port port
+			   :protocol :datagram
+			   :element-type '(unsigned-byte 8)))
 	(buffer (make-sequence '(vector (unsigned-byte 8)) 1024)))
-    (socket-bind s #(0 0 0 0) port)
     (format t "listening on localhost port ~A~%~%" port)
     (unwind-protect
 	 (loop do
-	      (socket-receive s buffer nil)
+	      (socket-receive s buffer (length buffer))
-	      (format t "receiveded -=> ~S~%" (osc:decode-bundle buffer)))
+	      (format t "received -=> ~S~%" (osc:decode-bundle buffer)))
       (when s (socket-close s)))))
 
+(defun osc-send-test (host port)
+  "a basic test function which sends osc test message to a given port/hostname."
+  (let ((s (socket-connect host port
+			   :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)
+    (unwind-protect
+	 (socket-send s b (length b))
+      (when s (socket-close s)))))
 
-(defun osc-reflector (listen-port send-ip 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 (make-udp-socket))
+			    :local-port listen-port
-        (out (make-udp-socket))
+			    :protocol :datagram
-	(buffer (make-sequence '(vector (unsigned-byte 8)) 512)))
+			    :element-type '(unsigned-byte 8)))
-    (socket-bind in #(0 0 0 0) listen-port)
+	(out (socket-connect send-host send-port
-    (socket-connect out send-ip send-port)
+			     :protocol :datagram
-    (let ((stream 
+			     :element-type '(unsigned-byte 8)))
-	   (socket-make-stream
+	(buffer (make-sequence '(vector (unsigned-byte 8)) 1024)))
-	    out :input t :output t 
-	    :element-type '(unsigned-byte 8) :buffering :full)))
     (unwind-protect
 	 (loop do
-		(socket-receive in buffer nil)
+	      (socket-receive in buffer (length buffer))
-		(let ((oscuff (osc:decode-bundle buffer)))
+	      (format t "glonked -=> message: ~{~A, ~}~%"
-		  (format t "glonked -=> message with ~S~% arg(s)" (length oscuff))
+		      (osc:decode-bundle buffer))
-		  (write-stream-t1 stream oscuff)))
+	      (let ((mess (apply #'osc:encode-message
+				 (cons "/echo"
+				       (osc:decode-message buffer)))))
+		(socket-send out mess (length mess))))
       (when in (socket-close in))
- 	(when out (socket-close out)))))) 
+      (when out (socket-close out)))))
-
-
-(defun make-udp-socket()
-  (make-instance 'inet-socket :type :datagram :protocol :udp))
-
-(defun write-stream-t1 (stream osc-message) 
-  "writes a given message to a stream. keep in mind that when using a buffered 
-   stream any funtion writing to the stream should  call (finish-output stream)
-   after it sends the mesages,. ."
-  (write-sequence 
-   (osc:encode-message "/bzzp" "got" "it" )
-   stream)
-  (finish-output stream))
-
-(defmacro osc-write-to-stream (stream &body args)
-  `(progn (write-sequence (osc:encode-message ,@args) ,stream)
-	  (finish-output ,stream)))
 
 ;end