From 3fdf28282a1f708725031b7da69f1f69abe3411e Mon Sep 17 00:00:00 2001 From: Ferdi Franceschini Date: Wed, 14 Mar 2007 08:27:28 +1100 Subject: [PATCH] Added getinfo proc to return scan command variables Depends on renamed sicslist command. (update ofac.c) r1647 | ffr | 2007-03-14 08:27:28 +1100 (Wed, 14 Mar 2007) | 3 lines --- site_ansto/instrument/util/utility.tcl | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/site_ansto/instrument/util/utility.tcl b/site_ansto/instrument/util/utility.tcl index f6b52660..3e1fa5b3 100644 --- a/site_ansto/instrument/util/utility.tcl +++ b/site_ansto/instrument/util/utility.tcl @@ -1,7 +1,7 @@ # Some useful functions for SICS configuration. -# $Revision: 1.1 $ -# $Date: 2007-02-16 05:36:38 $ +# $Revision: 1.2 $ +# $Date: 2007-03-13 21:27:28 $ # Author: Ferdi Franceschini (ffr@ansto.gov.au) # Last revision by $Author: ffr $ @@ -49,3 +49,12 @@ proc setpos {motor pos} { } publish setpos 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