Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12848
Modified Files: Tag: desiredata poe.tcl desire.tk Log Message: server->client appears in magenta; client->server appears in cyan
Index: poe.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v retrieving revision 1.1.2.2.2.17 retrieving revision 1.1.2.2.2.18 diff -C2 -d -r1.1.2.2.2.17 -r1.1.2.2.2.18 *** poe.tcl 4 Aug 2007 06:11:18 -0000 1.1.2.2.2.17 --- poe.tcl 12 Aug 2007 20:06:46 -0000 1.1.2.2.2.18 *************** *** 208,215 **** #-----------------------------------------------------------------------------------#
! proc VTgreen {} {return "\x1b[0;1;32m"} ! proc VTred {} {return "\x1b[0;1;31m"} ! proc VTyellow {} {return "\x1b[0;1;33m"} ! proc VTgrey {} {return "\x1b[0m"}
proc error_text {} { --- 208,220 ---- #-----------------------------------------------------------------------------------#
! # this makes me think of Maximus-CBCS... ! proc VTgrey {} {return "\x1b[0m"} ! proc VTred {} {return "\x1b[0;1;31m"} ! proc VTgreen {} {return "\x1b[0;1;32m"} ! proc VTyellow {} {return "\x1b[0;1;33m"} ! proc VTblue {} {return "\x1b[0;1;34m"} ! proc VTmagenta {} {return "\x1b[0;1;35m"} ! proc VTcyan {} {return "\x1b[0;1;36m"} ! proc VTwhite {} {return "\x1b[0;1;37m"}
proc error_text {} {
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.355 retrieving revision 1.1.2.600.2.356 diff -C2 -d -r1.1.2.600.2.355 -r1.1.2.600.2.356 *** desire.tk 12 Aug 2007 18:45:35 -0000 1.1.2.600.2.355 --- desire.tk 12 Aug 2007 20:06:46 -0000 1.1.2.600.2.356 *************** *** 235,239 **** def Manager call {} { global poolset ! # if {[llength $@q]} {post "client queue %d" [llength $@q]}
for {set i 0} {$i < [llength $@q]} {incr i} { --- 235,239 ---- def Manager call {} { global poolset ! #if {[llength $@q]} {post "client queue %d" [llength $@q]}
for {set i 0} {$i < [llength $@q]} {incr i} { *************** *** 281,286 **** incr ::serial } ! if {$::debug} {puts "<- [join $message];"} ! puts $::sock "[join $message];" }
--- 281,287 ---- incr ::serial } ! set text "[join $message];" ! if {$::debug} {puts "[VTcyan]<- $text[VTgrey]"} ! puts $::sock $text }
*************** *** 958,962 **** } if {[fblocked $sock]} {break} ! if {$::debug} {if {[string first pdtk_post $cmd]!=0} {puts "-> $cmd"}} append sock_lobby "\n$cmd" if {[catch {eval $sock_lobby}]} { --- 959,963 ---- } if {[fblocked $sock]} {break} ! if {$::debug} {if {[string first pdtk_post $cmd]!=0} {puts "[VTmagenta]-> $cmd[VTgrey]"}} append sock_lobby "\n$cmd" if {[catch {eval $sock_lobby}]} {