linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SICS-776 Close the anti-collider file

Browse Source
This commit is contained in:
Douglas Clowes
2014-09-12 10:35:33 +10:00
parent 00f4dfe588
commit e8ec81ad5d
1 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
site_ansto/instrument/config/anticollider/anticollider_common.tcl
View File

@ -45,13 +45,18 @@ proc handle_acscript_exception {status message args} {
proc ::anticollider::loadscript {args} { proc ::anticollider::loadscript {args} {
variable veto_rules variable veto_rules
set fh [open $::cfPath(anticollider)/[lindex $args 0] RDONLY ] catch {
while {[gets $fh line] >= 0} { set fh [open $::cfPath(anticollider)/[lindex $args 0] RDONLY ]
# Skip empty lines and comments while {[gets $fh line] >= 0} {
if [regexp {^\s*$|^ *#} $line] { # Skip empty lines and comments
continue if [regexp {^\s*$|^ *#} $line] {
continue
}
lappend veto_rules $line
} }
lappend veto_rules $line }
catch {
close $fh
} }
} }