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

Added getinfo proc to return scan command variables

Browse Source 
Depends on renamed sicslist command. (update ofac.c)

r1647 | ffr | 2007-03-14 08:27:28 +1100 (Wed, 14 Mar 2007) | 3 lines
This commit is contained in:
Ferdi Franceschini
2007-03-14 08:27:28 +11:00
committed by Douglas Clowes
parent 1adad6351f
commit 3fdf28282a
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,7 +1,7 @@
# Some useful functions for SICS configuration. # Some useful functions for SICS configuration.
# $Revision: 1.1 $ # $Revision: 1.2 $
# $Date: 2007-02-16 05:36:38 $ # $Date: 2007-03-13 21:27:28 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au) # Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $ # Last revision by $Author: ffr $
@@ -49,3 +49,12 @@ proc setpos {motor pos} {
} }
publish setpos user publish setpos user
publish SplitReply user publish SplitReply user
proc getinfo {object} {
set wc [format "%s_*" $object];
set objlist [sicslist match $wc];
foreach v $objlist {
clientput [$v];
}
}
publish getinfo spy