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

store server socket descriptors so they can be closed at will

This commit is contained in:
Stefan Frederik 2021-11-29 14:56:34 +01:00
parent 887c546d00
commit d4fb14a0bb
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/xschem.tcl
View File

@ -4426,23 +4426,31 @@ proc source_user_tcl_files {} {
} }
proc setup_tcp_xschem {} { proc setup_tcp_xschem {} {
global xschem_listen_port global xschem_listen_port xschem_server_getdata
if { [info exists xschem_listen_port] && ($xschem_listen_port ne {}) } { if { [info exists xschem_listen_port] && ($xschem_listen_port ne {}) } {
if {[catch {socket -server xschem_server $xschem_listen_port} err]} { if {[catch {socket -server xschem_server $xschem_listen_port} err]} {
puts "problems listening to TCP port: $xschem_listen_port" puts "problems listening to TCP port: $xschem_listen_port"
puts $err puts $err
return 0
} else {
set xschem_server_getdata(server) $err
} }
} }
return 1
} }
proc setup_tcp_bespice {} { proc setup_tcp_bespice {} {
global bespice_listen_port global bespice_listen_port bespice_server_getdata
if { [info exists bespice_listen_port] && ($bespice_listen_port ne {}) } { if { [info exists bespice_listen_port] && ($bespice_listen_port ne {}) } {
if {[catch {socket -server bespice_server $bespice_listen_port} err]} { if {[catch {socket -server bespice_server $bespice_listen_port} err]} {
puts "problems listening to TCP port: $bespice_listen_port" puts "problems listening to TCP port: $bespice_listen_port"
puts $err puts $err
return 0
} else {
set bespice_server_getdata(server) $err
} }
} }
return 1
} }
### ###