From 59bc5841c63961260c70979877df3fc781f8cf30 Mon Sep 17 00:00:00 2001
From: carmen rocco <ix9@users.sourceforge.net>
Date: Wed, 23 Nov 2005 23:19:42 +0000
Subject: tcl's first OSC implementation? pathetic!

svn path=/trunk/; revision=4027
---
 extensions/gui/ix/osc.tcl | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 extensions/gui/ix/osc.tcl

(limited to 'extensions')

diff --git a/extensions/gui/ix/osc.tcl b/extensions/gui/ix/osc.tcl
new file mode 100644
index 00000000..e5830ec4
--- /dev/null
+++ b/extensions/gui/ix/osc.tcl
@@ -0,0 +1,43 @@
+#OSC tcl 2005 ix
+package require udp
+namespace eval osc {
+    proc encode {type data} {
+	switch $type {
+	    i {set format I }
+	    f {set format R }
+	    s {set len [string length $data]
+		set format a[expr $len + 4 - $len % 4]}
+	}
+	return [binary format $format $data]
+    }
+    proc message {args} {
+	set path [encode s [lindex $args 0]]
+	set typetags ","
+	set body ""
+	foreach arg [lrange $args 1 end] {
+	    if [string is integer $arg] {
+		set type i
+	    } elseif [string is double $arg] {
+		set type f
+	    } else {
+		set type s
+	    }
+	    append typetags $type
+	    append body [encode $type $arg]
+	}
+	set typetags [encode s $typetags]
+	return $path$typetags$body
+    }
+    proc connect {host port} {
+	set s [udp_open]
+	fconfigure $s -remote [list $host $port] -buffering none -translation binary
+	return $s
+    }
+    proc disconnect {socket} {
+	close $socket
+    }
+    proc send {socket msg} {
+	puts -nonewline $socket $msg
+    }
+
+}
-- 
cgit v1.2.1