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

xschem tcp server: drop connection at end of response to make client reads easier (eof detection)

This commit is contained in:
stefan schippers 2023-04-07 11:46:27 +02:00
parent 07bdb94601
commit 34800870fe
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/xschem.tcl
View File

@ -1256,7 +1256,7 @@ proc bespice_getdata {sock} {
proc xschem_getdata {sock} { proc xschem_getdata {sock} {
global xschem_server_getdata tclcmd_puts global xschem_server_getdata tclcmd_puts
if {[eof $sock] || [catch {gets $sock xschem_server_getdata(line,$sock)}]} { if {[eof $sock] || [catch {gets $sock xschem_server_getdata(line,$sock)}]} {
close $sock close $sock ;# close due to client shutdown
puts "Close $xschem_server_getdata(addr,$sock)" puts "Close $xschem_server_getdata(addr,$sock)"
unset xschem_server_getdata(addr,$sock) unset xschem_server_getdata(addr,$sock)
unset xschem_server_getdata(line,$sock) unset xschem_server_getdata(line,$sock)
@ -1275,6 +1275,12 @@ proc xschem_getdata {sock} {
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
close $sock ;# server closes
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)
} }
} }