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

Merged Release 1.2

Browse Source 
r1897 | ffr | 2007-04-20 11:53:31 +1000 (Fri, 20 Apr 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-04-20 11:53:31 +10:00
committed by Douglas Clowes
parent d0957b18d5
commit ade5216ea9
22 changed files with 901 additions and 182 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,7 +1,7 @@
# Some useful functions for SICS configuration.
# $Revision: 1.2 $
# $Date: 2007-03-13 21:27:28 $
# $Revision: 1.3 $
# $Date: 2007-04-20 01:53:31 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $
@@ -54,7 +54,9 @@ proc getinfo {object} {
set wc [format "%s_*" $object];
set objlist [sicslist match $wc];
foreach v $objlist {
clientput [$v];
if { [SplitReply [sicslist $v type]]== "SicsVariable"} {
clientput [$v];
}
}
}
publish getinfo spy