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

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

@ -45,6 +45,7 @@ proc handle_acscript_exception {status message args} {
proc ::anticollider::loadscript {args} { proc ::anticollider::loadscript {args} {
variable veto_rules variable veto_rules
catch {
set fh [open $::cfPath(anticollider)/[lindex $args 0] RDONLY ] set fh [open $::cfPath(anticollider)/[lindex $args 0] RDONLY ]
while {[gets $fh line] >= 0} { while {[gets $fh line] >= 0} {
# Skip empty lines and comments # Skip empty lines and comments
@ -54,6 +55,10 @@ proc ::anticollider::loadscript {args} {
lappend veto_rules $line lappend veto_rules $line
} }
} }
catch {
close $fh
}
}
## ##
# @brief Compile compile an anticollider declaration into a veto region table # @brief Compile compile an anticollider declaration into a veto region table