[PD-cvs] extensions/gui/ix osc.tcl,NONE,1.1

[carmen rocco]

Update of /cvsroot/pure-data/extensions/gui/ix
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23840

Added Files:
	osc.tcl 
Log Message:
tcl's first OSC implementation? pathetic!


--- NEW FILE: osc.tcl ---
#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
    }

}