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 }
}