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

##################################

Browse Source 
SICS-226

util/utility.tcl
Added set_chopper_attributes to set hdb metadata on chopperadapters

server_config.tcl
Set hdb metadata on chopperadapters

hipadaba_configuration_common.tcl
:hdb::sobjadd can now add chopperadapters to the hdb tree
::hdb::cmd_par now preserves case when adding command parameters.

instdict_specification.tcl
Added chopperadapter sicstype and disk_chopper class

nxscripts_common_1.tcl
Added chopperadapter save and sdsinfo commands.

reflectometer/config/chopper/chopper.tcl
Set units on chopperadapters.

 ##################################

hipd,hrpd,rsd, /config/commands.tcl
Add instrument specific initialisation procedure for commands

reflectometer/config/commands.tcl
Created omega_2theta and set_mode commands from Andrew Nelson's procs in extraconfig.tcl

reflectometer/.../motor_configuration.tcl
Added ds and rs prefix to the two_theta drive and read scripts to prevent name collision with the two_theta procs in commans.tcl

SICS-108 reflectometer/../parameters.tcl
Added parameters for guide, slit and chopper distances and elements.

SICS-108 common_instrument_dictionary.tcl
Make parameters saveable

r2678 | ffr | 2008-08-18 13:01:29 +1000 (Mon, 18 Aug 2008) | 40 lines
This commit is contained in:
Ferdi Franceschini
2008-08-18 13:01:29 +10:00
committed by Douglas Clowes
parent 348bd3aed1
commit 8090104407
13 changed files with 429 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
site_ansto/instrument/util/utility.tcl
View File

@@ -1,7 +1,7 @@
# Some useful functions for SICS configuration.
# $Revision: 1.14 $
# $Date: 2008-07-11 01:09:57 $
# $Revision: 1.15 $
# $Date: 2008-08-18 03:01:29 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by $Author: ffr $
@@ -484,6 +484,19 @@ proc ::utility::set_motor_attributes {} {
sicslist setatt $m mutable true
}
}
proc ::utility::set_chopper_attributes {} {
foreach ch [lrange [sicslist type chopperadapter] 1 end] {
sicslist setatt $ch kind hobj
sicslist setatt $ch data true
sicslist setatt $ch control true
sicslist setatt $ch nxsave true
sicslist setatt $ch privilege user
sicslist setatt $ch nxalias $ch
sicslist setatt $ch long_name $ch
sicslist setatt $ch mutable true
sicslist setatt $ch klass disk_chopper
}
}
proc ::utility::set_envcontrol_attributes {} {
if [ catch {
foreach ec [sicslist type environment_controller] {