luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

xschem tcp connections: print in/out data on console only if in tcl debug mode

This commit is contained in:
stefan schippers 2023-09-10 08:00:26 +02:00
parent 045edb5e10
commit 4bd758bee7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/xschem.tcl
View File

@ -1272,13 +1272,13 @@ proc xschem_getdata {sock} {
append xschem_server_getdata(line,$sock) $line \n append xschem_server_getdata(line,$sock) $line \n
} }
} }
puts "tcp<-- $xschem_server_getdata(line,$sock)" if {$debug_var<=-1} {puts "tcp<-- $xschem_server_getdata(line,$sock)"}
# xschem command must be executed at global scope... # xschem command must be executed at global scope...
redef_puts redef_puts
uplevel #0 [list catch $xschem_server_getdata(line,$sock) tclcmd_puts] uplevel #0 [list catch $xschem_server_getdata(line,$sock) tclcmd_puts]
rename puts {} rename puts {}
rename ::tcl::puts puts rename ::tcl::puts puts
puts "tcp--> $tclcmd_puts" if {$debug_var<=-1} {puts "tcp--> $tclcmd_puts"}
set xschem_server_getdata(res,$sock) "$tclcmd_puts" set xschem_server_getdata(res,$sock) "$tclcmd_puts"
puts -nonewline $sock "$xschem_server_getdata(res,$sock)" puts -nonewline $sock "$xschem_server_getdata(res,$sock)"
flush $sock flush $sock