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

SICS-780 Set attributes on environment control objects even if there are errors setting up other objects.

Browse Source
This commit is contained in:
Ferdi Franceschini
2014-09-18 17:01:30 +10:00
parent 0ba5045fd9
commit e31737379c
1 changed files with 14 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
site_ansto/instrument/server_config.tcl
View File

@ -254,25 +254,20 @@ proc waitaction {obj action args} {
publish waitaction user publish waitaction user
proc server_set_sobj_attributes {} { proc server_set_sobj_attributes {} {
if [ catch { if [ catch { motor_set_sobj_attributes } msg ] { puts $msg }
motor_set_sobj_attributes if [ catch { ::utility::set_motor_attributes } msg ] { puts $msg }
::utility::set_motor_attributes
#XXX::utility::set_histomem_attributes #XXX::utility::set_histomem_attributes
::utility::set_sobj_attributes if [ catch { ::utility::set_sobj_attributes } msg ] { puts $msg }
::utility::set_envcontrol_attributes if [ catch { ::utility::set_envcontrol_attributes } msg ] { puts $msg }
::plc::set_sobj_attributes if [ catch { ::plc::set_sobj_attributes } msg ] { puts $msg }
::counter::set_sobj_attributes if [ catch { ::counter::set_sobj_attributes } msg ] { puts $msg }
::nexus::set_sobj_attributes if [ catch { ::nexus::set_sobj_attributes } msg ] { puts $msg }
::histogram_memory::set_sobj_attributes if [ catch { ::histogram_memory::set_sobj_attributes } msg ] { puts $msg }
::utility::set_chopper_attributes if [ catch { ::utility::set_chopper_attributes } msg ] { puts $msg }
::utility::set_sct_object_attributes if [ catch { ::utility::set_sct_object_attributes } msg ] { puts $msg }
## TODO move the following to the new ansto gumxml.tcl ## TODO move the following to the new ansto gumxml.tcl
sicslist setatt getgumtreexml privilege internal if [ catch { sicslist setatt getgumtreexml privilege internal } msg ] { puts $msg }
clientput "serverport $::serverport" clientput "serverport $::serverport"
} message ] {
if {$::errorCode=="NONE"} {return $message}
return -code error $message
}
} }
proc server_init {} { proc server_init {} {