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

If a setup file is used, warn the user if the netgen 

commands "permute default" and/or "property default"
are not contained in the setup file
This commit is contained in:
Dan Moore 2021-07-25 14:35:19 -07:00
parent a332c23524
commit 06c6b23ba4
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

@ -484,9 +484,17 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
set perrors 0
if {![catch {open $setupfile r} fsetup]} {
set sline 0
set has_permute_default 0
set has_property_default 0
set command {}
while {[gets $fsetup line] >= 0} {
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"
if {[info complete $command]} {
if {[catch {uplevel 1 [list namespace eval netgen $command]} msg]} {
@ -498,6 +506,9 @@ proc netgen::lvs { name1 name2 {setupfile setup.tcl} {logfile comp.out} args} {
}
}
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 {
puts stdout "Error: Cannot read the setup file $setupfile"
}