pd/src desire.tk,1.1.2.600.2.33,1.1.2.600.2.34 - Pd-cvs

7 Dec 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31642
Modified Files:
      Tag: desiredata
    desire.tk 
Log Message:
better logging of two-argument netsend
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.33
retrieving revision 1.1.2.600.2.34
diff -C2 -d -r1.1.2.600.2.33 -r1.1.2.600.2.34
*** desire.tk	7 Dec 2006 02:27:57 -0000	1.1.2.600.2.33
--- desire.tk	7 Dec 2006 02:55:29 -0000	1.1.2.600.2.34
***************
*** 251,263 ****
  #   obj, msg, floatatom, symbolatom, text, connect, text_setto, array.
  # this does NOT happen with #X coords/restore/pop.
! proc* netsend {message {callback noserial}} {
    global serial replyset sock
    if {$sock == ""} {error "connection to server needed for doing this"}
    if {[string compare $callback noserial]} {
    	set replyset($serial) $callback
    	incr serial
    }
    puts $sock "$message;"
- 	if {$::debug} {puts "<- $message;"}
  }
--- 251,265 ----
  #   obj, msg, floatatom, symbolatom, text, connect, text_setto, array.
  # this does NOT happen with #X coords/restore/pop.
! proc netsend {message {callback noserial}} {
    global serial replyset sock
    if {$sock == ""} {error "connection to server needed for doing this"}
    if {[string compare $callback noserial]} {
    	set replyset($serial) $callback
+ 		if {$::debug} {puts "<- $message; [VTgreen]serial #$serial will do: $callback $new[VTgrey]"}
    	incr serial
+ 	} else {
+ 		if {$::debug} {puts "<- $message;"}
    }
    puts $sock "$message;"
  }