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/sans/config/commands/commands.tcl

@@ -1,5 +1,10 @@
 source $cfPath(commands)/commands_common.tcl
 
+namespace eval motor {
+# is_homing_list = comma separated list of motors which are safe to send "home"
+    variable is_homing_list ""
+}
+
 namespace eval sample {
   command select {int=0:8 sampid} {
     SampleNum $sampid
@@ -72,3 +77,7 @@ namespace eval optics {
   ::optics::guide -addfb text status
   ::optics::guide -set feedback status IDLE
 }
+
+proc ::commands::isc_initialize {} {
+  ::commands::ic_initialize
+}