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

PSI UPDATE

Browse Source 
r2720 | ffr | 2008-10-13 15:40:07 +1100 (Mon, 13 Oct 2008) | 2 lines
This commit is contained in:
Ferdi Franceschini
2008-10-13 15:40:07 +11:00
committed by Douglas Clowes
parent f0973c6196 4baffb9b7a
commit 0adecdcec9
183 changed files with 20455 additions and 3661 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
site_ansto/instrument/util/extra_utility.tcl
View File

@@ -63,9 +63,18 @@ proc errorInfowrite {args} {
}
}
trace add variable errorInfo write errorInfowrite
trace add execution catch enter entercatch
trace add execution catch leave leavecatch
proc callStack {enable} {
if {$enable} {
set trace_opt "add"
} else {
set trace_opt "remove"
}
trace $trace_opt variable errorInfo write errorInfowrite
trace $trace_opt execution catch enter entercatch
trace $trace_opt execution catch leave leavecatch
}
publish callStack mugger
callStack true
# LIST FUNCTIONS

6
site_ansto/instrument/util/utility.tcl
View File

@@ -1,7 +1,7 @@
# Some useful functions for SICS configuration.
# $Revision: 1.18 $
# $Date: 2008-10-01 04:10:50 $
# $Revision: 1.19 $
# $Date: 2008-10-13 04:40:06 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $
@@ -512,7 +512,7 @@ proc ::utility::hgetplainprop {hpath prop} {
}
proc ::utility::hlistplainprop {hpath} {
if [ catch {
return [string trim [join [split [hlistprop $hpath] =] ]]
return [string trim [join [split [string map {" " _} [hlistprop $hpath]] =] ]]
} message ] {
if {$::errorCode=="NONE"} {return $message}
return -code error $message