SICS-46

commands_common.tcl
Added ::motor::go_home command to run motors to their home positions.

hrpd,hipd,rsd,sans,reflectometer/commands.tcl
Initilise ::motor::is_homing_list for the ::motor::go_hom command

util/command.tcl
Allow an empty parameter list

server_config.tcl
Call the "commands" initilisation function on server init

motor_asim.c
Added the "home" parameter so we can test the go_home command

r2677 | ffr | 2008-08-14 15:00:18 +1000 (Thu, 14 Aug 2008) | 17 lines

site_ansto/instrument/util/command.tcl

@@ -19,6 +19,7 @@ proc command {acmdName arglist body} {
     unset ${cmdName}_feedback_list
   }
  # puts "cmdName: $cmdName"
+    set params ""
     foreach {type_spec var} $arglist {
       lappend params $var
       foreach {type domain} [split $type_spec "="] {}