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

changed tcl procedure `setup_tcp_xschem` to allow setting a different port number for further tcp commuication (and freeing the original port number)

This commit is contained in:
stefan schippers 2023-06-26 00:08:13 +02:00
parent 5d9e0d3d8a
commit 4ec80d850b
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/xschem.tcl
View File

@ -6436,18 +6436,28 @@ proc source_user_tcl_files {} {
}
}
proc setup_tcp_xschem {} {
proc setup_tcp_xschem { {port_number {}} } {
global xschem_listen_port xschem_server_getdata
# if a server socket was already set close it.
if {[info exists xschem_server_getdata(server)]} { close $xschem_server_getdata(server) }
if {$port_number ne {}} { set xschem_listen_port $port_number}
if { [info exists xschem_listen_port] && ($xschem_listen_port ne {}) } {
if {[catch {socket -server xschem_server $xschem_listen_port} err]} {
puts "setup_tcp_xschem: problems listening to TCP port: $xschem_listen_port"
puts $err
return 0
} else {
set xschem_server_getdata(server) $err
set chan $err
set xschem_server_getdata(server) $chan
# this piece of code deals with automatic port number selection (port_number argument set to 0)
# tcl will automatically choose a free tcp port.
set assigned_port [lindex [chan configure $chan -sockname] end]
set xschem_listen_port $assigned_port
return $assigned_port
}
}
return 1
return 0
}
proc setup_tcp_bespice {} {