Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16303
Modified Files: Tag: desiredata desire.tk Log Message: removed old socket code
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.4 retrieving revision 1.1.2.600.2.5 diff -C2 -d -r1.1.2.600.2.4 -r1.1.2.600.2.5 *** desire.tk 2 Dec 2006 23:48:28 -0000 1.1.2.600.2.4 --- desire.tk 3 Dec 2006 00:11:24 -0000 1.1.2.600.2.5 *************** *** 717,741 **** }
- # this is becoming obsolete (2006.12.01) - proc accept_pd {s addr port} { - global sock - if {[llength $sock]==0} { - set sock $s - puts "accepting connection from pd kernel" - fconfigure $sock -blocking 0 -buffering line - poll_sock - pd pd init - foreach f $::files_to_open { - set ff [file split [file normalize $f]] - set ffl [llength $ff] - set file [lindex $ff [expr $ffl-1]] - set dir [join [lrange $ff 0 [expr $ffl-2]] [file separator]] - pd pd open $file $dir - } - } { - puts "WTF, two pd kernels for one gui?" - } - } - proc poll_gdb {} { global gdb --- 717,720 ---- *************** *** 785,789 ****
set server_port 13666 - #set server_sock [socket -server accept_pd $server_port] after 1000 pd_connect
--- 764,767 ----