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

Integrate Dingo Camera Server Stuffs

Browse Source
This commit is contained in:
Jing Chen
2013-05-22 10:57:11 +10:00
parent 9b35fc13ed
commit 951f9f40ee
1 changed files with 60 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
site_ansto/instrument/dingo/config/counter/counter.tcl
View File

@@ -6,10 +6,62 @@ namespace eval counter {
variable isc_monitor_address variable isc_monitor_address
variable isc_portlist variable isc_portlist
variable isc_beam_monitor_list variable isc_beam_monitor_list
variable isc_cm_address
variable isc_cm_port
proc set_sobj_attributes {} { proc set_sobj_attributes {} {
} }
} }
proc ::counter::cm_initialize {} {
if [ catch {
variable isc_cm_address
variable isc_cm_port
set isc_cm_address 137.157.204.193
#set isc_cm_address localhost
set isc_cm_port 33000
MakeAsyncQueue cmserver CAMERA $isc_cm_address $isc_cm_port
MakeCounter cm1 anstocamera cmserver
sicslist setatt cm1 privilege internal
::utility::macro::getset text cm1_mode {} {
return [cm1 getmode]
}
sicslist setatt cm1_mode klass monitor
sicslist setatt cm1_mode long_name mode
sicslist setatt cm1_mode mutable false
::utility::macro::getset float cm1_preset {} {
return [cm1 getpreset]
}
sicslist setatt cm1_preset klass monitor
sicslist setatt cm1_preset long_name preset
sicslist setatt cm1_preset mutable false
::utility::macro::getset int cm1_counts {} [subst -nocommands {
return "[cm1 getcounts]"
}]
sicslist setatt cm1_counts klass monitor
sicslist setatt cm1_counts long_name cm1_counts
sicslist setatt cm1_counts mutable true
::utility::macro::getset float cm1_time {} [subst -nocommands {
return "[cm1 gettime]"
}]
sicslist setatt cm1_time klass monitor
sicslist setatt cm1_time long_name cm1_time
sicslist setatt cm1_time mutable true
} message ] {
if {$::errorCode=="NONE"} {return $message}
return -code error $message
}
}
publish ::counter::cm_initialize user
proc ::counter::isc_initialize {} { proc ::counter::isc_initialize {} {
if [catch { if [catch {
variable isc_numchannels variable isc_numchannels
@@ -17,10 +69,14 @@ proc ::counter::isc_initialize {} {
variable isc_portlist variable isc_portlist
variable isc_beam_monitor_list {MONITOR_1 MONITOR_2 MONITOR_3} variable isc_beam_monitor_list {MONITOR_1 MONITOR_2 MONITOR_3}
set isc_monitor_address "das1-[SplitReply [instrument]]" #set isc_monitor_address "das1-[SplitReply [instrument]]"
set isc_portlist [list 33000 33001 33002 33003 33004 33005 33006 33007] #set isc_portlist [list 33000 33001 33002 33003 33004 33005 33006 33007]
set isc_numchannels [llength $isc_beam_monitor_list] #set isc_numchannels [llength $isc_beam_monitor_list]
::counter::ic_initialize #::counter::ic_initialize
set isc_cm_address 137.157.204.193
set isc_cm_port 33000
::counter::cm_initialize
} message ] { } message ] {
if {$::errorCode=="NONE"} {return $message} if {$::errorCode=="NONE"} {return $message}
return -code error "$message" return -code error "$message"