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 open/close messages only if in tcl debug mode

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

8
src/xschem.tcl
View File

@ -1263,7 +1263,7 @@ proc bespice_getdata {sock} {
}
proc xschem_getdata {sock} {
global xschem_server_getdata tclcmd_puts
global xschem_server_getdata tclcmd_puts debug_var
while {1} {
if {[gets $sock line] < 0} {
@ -1283,7 +1283,7 @@ proc xschem_getdata {sock} {
puts -nonewline $sock "$xschem_server_getdata(res,$sock)"
flush $sock
close $sock ;# server closes
puts "Close $xschem_server_getdata(addr,$sock)"
if {$debug_var<=-1} {puts "Close $xschem_server_getdata(addr,$sock)"}
unset xschem_server_getdata(addr,$sock)
unset xschem_server_getdata(line,$sock)
unset xschem_server_getdata(res,$sock)
@ -1305,8 +1305,8 @@ proc bespice_server {sock addr port} {
}
proc xschem_server {sock addr port} {
global xschem_server_getdata
puts "Accept $sock from $addr port $port"
global xschem_server_getdata debug_var
if {$debug_var<=-1} {puts "Accept $sock from $addr port $port"}
fconfigure $sock -buffering line -blocking 0
set xschem_server_getdata(addr,$sock) [list $addr $port]
set xschem_server_getdata(line,$sock) {}