diff options
author | Miller Puckette <millerpuckette@users.sourceforge.net> | 2009-09-01 18:22:23 +0000 |
---|---|---|
committer | Miller Puckette <millerpuckette@users.sourceforge.net> | 2009-09-01 18:22:23 +0000 |
commit | 22a829cb1907c79bfe68ad91314a1dddbf1beeb3 (patch) | |
tree | 510dcb1af070f5eac5b1192d9fffad2f3e431958 /pd/tcl/pd_connect.tcl | |
parent | 1cc6aed4bfdd84b06d418bc5198a0380479e639a (diff) |
merge in HC's new tcl code and start taking patches
svn path=/trunk/; revision=12166
Diffstat (limited to 'pd/tcl/pd_connect.tcl')
-rw-r--r-- | pd/tcl/pd_connect.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pd/tcl/pd_connect.tcl b/pd/tcl/pd_connect.tcl index 6d900068..cdd3d91d 100644 --- a/pd/tcl/pd_connect.tcl +++ b/pd/tcl/pd_connect.tcl @@ -9,6 +9,8 @@ namespace eval ::pd_connect:: { namespace export pdsend } +# TODO figure out how to escape { } properly + proc ::pd_connect::configure_socket {sock} { fconfigure $sock -blocking 0 -buffering line -encoding utf-8; fileevent $sock readable {::pd_connect::pd_readsocket ""} @@ -65,7 +67,7 @@ proc ::pd_connect::pd_readsocket {cmd_from_pd} { } append cmd_from_pd [read $pd_socket] while {![info complete $cmd_from_pd] || \ - [string index $cmd_from_pd end] != "\n"} { + [string index $cmd_from_pd end] ne "\n"} { append cmd_from_pd [read $pd_socket] if {[eof $pd_socket]} { close $pd_socket |