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

set_initial_dirs: do not reset INITIAL*DIR if already set

This commit is contained in:
stefan schippers 2025-09-30 09:38:19 +02:00
parent 15c141a480
commit b2e12251dc
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/xschem.tcl
View File

@ -9888,17 +9888,17 @@ tclcommand=\"xschem raw_read \$netlist_dir/[file tail [file rootname [xschem get
proc set_initial_dirs {} {
global INITIALLOADDIR INITIALINSTDIR INITIALPROPDIR pathlist
set INITIALLOADDIR {}
set INITIALINSTDIR {}
set INITIALPROPDIR {}
foreach i $pathlist {
if { [file exists $i] } {
set INITIALLOADDIR $i
set INITIALINSTDIR $i
set INITIALPROPDIR $i
if {![info exists INITIALLOADDIR]} {set INITIALLOADDIR $i}
if {![info exists INITIALINSTDIR]} {set INITIALINSTDIR $i}
if {![info exists INITIALPROPDIR]} {set INITIALPROPDIR $i}
break
}
}
if {![info exists INITIALLOADDIR]} {set INITIALLOADDIR {}}
if {![info exists INITIALINSTDIR]} {set INITIALINSTDIR {}}
if {![info exists INITIALPROPDIR]} {set INITIALPROPDIR {}}
}
# called whenever XSCHEM_LUBRARY_PATH changes (see trace command at end)