Revision: 10731
http://pure-data.svn.sourceforge.net/pure-data/?rev=10731&view=rev
Author: eighthave
Date: 2009-02-04 06:01:57 +0000 (Wed, 04 Feb 2009)
Log Message:
-----------
cleaned up comments to be current and removed some debug puts
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-02-04 04:37:32 UTC (rev 10730)
+++ branches/pd-devel/0.41.4/src/pd_connect.tcl 2009-02-04 06:01:57 UTC (rev 10731)
@@ -30,12 +30,10 @@
# if pd-gui opens first, it creates socket and requests a port. The function
# then returns the portnumber it receives. pd then connects to that port.
proc ::pd_connect::create_socket {} {
- puts "::pd_connect::create_socket"
if {[catch {set sock [socket -server ::pd_connect::from_pd -myaddr localhost 0]}]} {
puts stderr "ERROR: failed to allocate port, exiting!"
exit 3
}
- puts "sock $sock"
return [lindex [fconfigure $sock -sockname] 2]
}
@@ -47,8 +45,9 @@
}
# 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
+# [; message( in Pd. Basically, whatever is in quotes after the proc name
+# will be sent as if it was sent from a message box with a leading semi-colon
+proc ::pd_connect::pdsend {message} {
variable pd_socket
append message \;
if {[catch {puts $pd_socket $message} errorname]} {
@@ -57,12 +56,10 @@
}
}
-# TODO exit if the other side drops the socket
-# 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
+ # if we lose the socket connection, that means pd quit, so we quit
close $pd_socket
exit
}
@@ -73,7 +70,6 @@
switch -regexp -- $errorname {
"missing close-brace" {
# TODO consider using [info complete $cmd_from_pd] in a loop
- puts stderr "appending another line"
pd_readsocket $cmd_from_pd
} "^invalid command name" {
puts stderr "INVALID COMMAND NAME: $errorInfo"
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
allhammers.c:75: error: previous declaration of 'universal_setup' was here
allhammers.c:156: error: conflicting types for 'urn_setup'
allhammers.c:76: error: previous declaration of 'urn_setup' was here
allhammers.c:157: error: conflicting types for 'xbendin_setup'
allhammers.c:77: error: previous declaration of 'xbendin_setup' was here
allhammers.c:158: error: conflicting types for 'xbendin2_setup'
allhammers.c:78: error: previous declaration of 'xbendin2_setup' was here
allhammers.c:159: error: conflicting types for 'xbendout_setup'
allhammers.c:79: error: previous declaration of 'xbendout_setup' was here
allhammers.c:160: error: conflicting types for 'xbendout2_setup'
allhammers.c:80: error: previous declaration of 'xbendout2_setup' was here
allhammers.c:161: error: conflicting types for 'xnotein_setup'
allhammers.c:81: error: previous declaration of 'xnotein_setup' was here
allhammers.c:162: error: conflicting types for 'xnoteout_setup'
allhammers.c:82: error: previous declaration of 'xnoteout_setup' was here
allhammers.c:163: error: conflicting types for 'zl_setup'
allhammers.c:83: error: previous declaration of 'zl_setup' was here
allhammers.c:164: error: syntax error before '}' token
rsync error: errors selecting input/output files, dirs (code 3) at main.c(565) [receiver=2.6.9]
rsync error: error in rsync protocol data stream (code 12) at /SourceCache/rsync/rsync-35.2/rsync/io.c(452) [sender=2.6.9]
the full logfile - if it has been succesfully uploaded - can be viewed at:
http://autobuild.puredata.info/auto-build/2009-02-03/logs/2009-02-03_01.00.…