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

Slight modification to print the list of cells being forced to 

match for both the filename option and immediate list.
This commit is contained in:
Tim Edwards 2021-03-19 10:51:42 -04:00
parent 62d0352149
commit 330b34139c
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tcltk/netgen.tcl.in
View File

@ -395,15 +395,21 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
# braces. # braces.
if {![catch {file exists $value}]} { if {![catch {file exists $value}]} {
if {![catch {open $value r} fnf]} { if {![catch {open $value r} fnf]} {
while {[gets $fnf line] >= 0} { while {[gets $fnf line] >= 0} {
lappend noflat $line if {[lindex $line 0] != "#"} {
} foreach cell $line {
close $fnf lappend noflat $cell
}
}
}
close $fnf
} else { } else {
puts stderr "Cannot open file $value for reading cell list." puts stderr "Cannot open file $value for reading cell list."
} }
} else { } else {
set noflat [string trim $value \"\{\}] set noflat [string trim $value \"\{\}]
}
if {[llength $noflat] > 0} {
puts stdout "Will not flatten these subcells: $noflat" puts stdout "Will not flatten these subcells: $noflat"
} }
} }