[PD-cvs] SF.net SVN: pure-data:[10648] branches/pd-devel/0.41.4/src/pd_connect.tcl
eighthave at users.sourceforge.net
eighthave at users.sourceforge.net
Mon Jan 26 06:27:12 CET 2009
Revision: 10648
http://pure-data.svn.sourceforge.net/pure-data/?rev=10648&view=rev
Author: eighthave
Date: 2009-01-26 05:27:12 +0000 (Mon, 26 Jan 2009)
Log Message:
-----------
added check for eof so that pd-gui will exit once pd drops the socket connection
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-26 04:47:09 UTC (rev 10647)
+++ branches/pd-devel/0.41.4/src/pd_connect.tcl 2009-01-26 05:27:12 UTC (rev 10648)
@@ -61,6 +61,11 @@
# TODO this currently drops leading whitespace, like tabs
proc ::pd_connect::pd_readsocket {cmd_from_pd} {
variable pd_socket
+ if {[eof $pd_socket]} {
+ # if we lose the socket connection, that means pd quit
+ close $pd_socket
+ exit
+ }
append cmd_from_pd [read $pd_socket]
puts stderr "cmd_from_pd: $cmd_from_pd"
if {[catch {uplevel #0 $cmd_from_pd} errorname]} {
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