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

Merge 06c6b23ba4 into bbe645f0ab

This commit is contained in:
Dan Moore 2025-05-06 20:47:53 +00:00 committed by GitHub
parent bbe645f0ab 06c6b23ba4
commit 24a2fb9097
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tcltk/netgen.tcl.in
View File

@ -490,9 +490,17 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
set perrors 0 set perrors 0
if {![catch {open $setupfile r} fsetup]} { if {![catch {open $setupfile r} fsetup]} {
set sline 0 set sline 0
set has_permute_default 0
set has_property_default 0
set command {} set command {}
while {[gets $fsetup line] >= 0} { while {[gets $fsetup line] >= 0} {
incr sline incr sline
if {[regexp {^[[:space:]]*permute[[:space:]]+default} $line]} {
set has_permute_default 1
}
if {[regexp {^[[:space:]]*property[[:space:]]+default} $line]} {
set has_property_default 1
}
append command $line "\n" append command $line "\n"
if {[info complete $command]} { if {[info complete $command]} {
if {[catch {uplevel 1 [list namespace eval netgen $command]} msg]} { if {[catch {uplevel 1 [list namespace eval netgen $command]} msg]} {
@ -504,6 +512,9 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
} }
} }
close $fsetup close $fsetup
if {! $has_permute_default || ! $has_property_default} {
puts stdout "Warning: netgen commands \"permute default\" and \"property default\" should lead the setup file"
}
} else { } else {
puts stdout "Error: Cannot read the setup file $setupfile" puts stdout "Error: Cannot read the setup file $setupfile"
} }