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

SICS-46

Browse Source 
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
This commit is contained in:
Ferdi Franceschini
2008-08-14 15:00:18 +10:00
committed by Douglas Clowes
parent f7c357a56d
commit 348bd3aed1
9 changed files with 73 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
site_ansto/instrument/server_config.tcl
View File

@@ -1,7 +1,7 @@
# SICS common configuration
# $Revision: 1.38 $
# $Date: 2008-07-18 04:33:38 $
# $Revision: 1.39 $
# $Date: 2008-08-14 05:00:18 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $
@@ -138,7 +138,7 @@ sics_release [lindex $tmpstr [expr [llength $tmpstr] - 1]]
sics_release lock
::utility::mkVar sics_revision_num Text internal
set tmpstr [string map {"$" ""} {$Revision: 1.38 $}]
set tmpstr [string map {"$" ""} {$Revision: 1.39 $}]
sics_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]]
sics_revision_num lock
@@ -187,6 +187,7 @@ proc server_init {} {
::counter::isc_initialize
::histogram_memory::isc_initialize
::scan::isc_initialize
::commands::isc_initialize
MakeStateMon hmscan
sicslist setatt sics_suid privilege readonly
sicslist setatt sics_suid klass data