diff --git a/site_ansto/instrument/TEST_SICS/fakeDMC/mkSimAxes.tcl b/site_ansto/instrument/TEST_SICS/fakeDMC/mkSimAxes.tcl index f4398645..8a5e1e88 100755 --- a/site_ansto/instrument/TEST_SICS/fakeDMC/mkSimAxes.tcl +++ b/site_ansto/instrument/TEST_SICS/fakeDMC/mkSimAxes.tcl @@ -1,13 +1,21 @@ #!/usr/bin/tclsh -# $Revision: 1.2 $ -# $Date: 2006-10-15 23:38:34 $ +# $Revision: 1.3 $ +# $Date: 2006-11-12 23:19:36 $ # Author: Ferdi Franceschini (ffr@ansto.gov.au) # Last revision by: $Author: ffr $ # Creates fake DMC configuration files based on the instrument # configuration file. +# Use this to create an array of named parameters to initialise motors. +proc params {args} { + upvar 1 "" x; + if [info exists x] {unset x} + foreach {k v} $args {set x([string tolower $k]) $v} +} + + proc usage {} { puts "mkSimAxes.tcl INSTNAME"; puts "INSTNAME is the instrument name (eg wombat, echidna)" @@ -80,6 +88,6 @@ proc main {args} { } if {$tcl_interactive==0} { - main ${argv}_configuration.tcl; + main motor_configuration.tcl; }