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

better tilde substitution in some tcl procedures

This commit is contained in:
stefan schippers 2023-03-24 00:49:44 +01:00
parent 2725e0c533
commit e7b4dcfaae
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/xschem.tcl
View File

@ -6193,7 +6193,8 @@ proc set_paths {} {
set pathlist_orig [split $XSCHEM_LIBRARY_PATH :] set pathlist_orig [split $XSCHEM_LIBRARY_PATH :]
} }
foreach i $pathlist_orig { foreach i $pathlist_orig {
regsub {^~} $i $env(HOME) i regsub {^~$} $i ${env(HOME)} i
regsub {^~/} $i ${env(HOME)}/ i
if { ![string compare $i .] } { if { ![string compare $i .] } {
lappend pathlist $i lappend pathlist $i
} elseif { [ regexp {\.\.\/} $i] } { } elseif { [ regexp {\.\.\/} $i] } {