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

simpler glob expressions in xschem.tcl

This commit is contained in:
Stefan Schippers 2020-11-09 11:49:24 +01:00
parent e6808f844a
commit f837353429
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/xschem.tcl
View File

@ -1053,11 +1053,11 @@ proc myload_set_home {dir} {
}
proc setglob {dir} {
global globfilter myload_files2
set myload_files2 [lsort [glob -nocomplain -directory $dir -tails -type d \{.*,*\}]]
set myload_files2 [lsort [glob -nocomplain -directory $dir -tails -type d .* *]]
if { $globfilter eq {*}} {
set myload_files2 ${myload_files2}\ [lsort [glob -nocomplain -directory $dir -tails -type {f} \{.*,$globfilter\}]]
set myload_files2 ${myload_files2}\ [lsort [glob -nocomplain -directory $dir -tails -type {f} .* $globfilter]]
} else {
set myload_files2 ${myload_files2}\ [lsort [glob -nocomplain -directory $dir -tails -type {f} \{$globfilter\}]]
set myload_files2 ${myload_files2}\ [lsort [glob -nocomplain -directory $dir -tails -type {f} $globfilter]]
}
}