[PD-cvs] SF.net SVN: pure-data:[10547] branches/pd-devel/0.41.4/src/pd_connect.tcl
eighthave at users.sourceforge.net
eighthave at users.sourceforge.net
Wed Jan 14 02:20:48 CET 2009
Revision: 10547
http://pure-data.svn.sourceforge.net/pure-data/?rev=10547&view=rev
Author: eighthave
Date: 2009-01-14 01:20:48 +0000 (Wed, 14 Jan 2009)
Log Message:
-----------
switched socket channel to non-blocking, and changed reading the socket channel from 'gets' to 'read'
Modified Paths:
--------------
branches/pd-devel/0.41.4/src/pd_connect.tcl
Modified: branches/pd-devel/0.41.4/src/pd_connect.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/pd_connect.tcl 2009-01-14 00:28:54 UTC (rev 10546)
+++ branches/pd-devel/0.41.4/src/pd_connect.tcl 2009-01-14 01:20:48 UTC (rev 10547)
@@ -10,7 +10,7 @@
}
proc ::pd_connect::configure_socket {sock} {
- fconfigure $sock -blocking 1 -buffering line
+ fconfigure $sock -blocking 0 -buffering line
fileevent $sock readable {::pd_connect::pd_readsocket ""}
}
@@ -49,7 +49,6 @@
# send a pd/FUDI message from Tcl to Pd. This function aims to behave like a
# [send] in Pd, except the first argument is the name to send to.
proc ::pd_connect::pdsend {message} { # 'args' is special, it gets everything
- puts "pdsend $message"
variable pd_socket
if {[catch {puts $pd_socket $message} errorname]} {
puts stderr "pdsend errorname: >>$errorname<<"
@@ -61,7 +60,7 @@
# TODO this currently drops leading whitespace, like tabs
proc ::pd_connect::pd_readsocket {cmd_from_pd} {
variable pd_socket
- append cmd_from_pd [gets $pd_socket]
+ append cmd_from_pd [read $pd_socket]
puts stderr "cmd_from_pd: $cmd_from_pd"
if {[catch {uplevel #0 $cmd_from_pd} errorname]} {
global errorInfo
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the Pd-cvs
mailing list