Add new reactor status object to instruments.
This commit is contained in:
@ -1,4 +1,5 @@
|
|||||||
config/source/source_common.tcl
|
config/source/sct_reactor_status.tcl
|
||||||
|
config/source/source.tcl
|
||||||
config/anticollider/anticollider_common.tcl
|
config/anticollider/anticollider_common.tcl
|
||||||
config/plc/plc_common_1.tcl
|
config/plc/plc_common_1.tcl
|
||||||
config/counter/counter_common_1.tcl
|
config/counter/counter_common_1.tcl
|
||||||
|
@ -1,6 +0,0 @@
|
|||||||
source $cfPath(source)/source_common.tcl
|
|
||||||
|
|
||||||
proc ::source::isc_initialize {} {
|
|
||||||
::source::ic_initialize "cold"
|
|
||||||
}
|
|
||||||
|
|
16
site_ansto/instrument/config/source/source.tcl
Normal file
16
site_ansto/instrument/config/source/source.tcl
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
fileeval $cfPath(source)/sct_reactor_status.tcl
|
||||||
|
|
||||||
|
if {[SplitReply [opal_simulation]]=="false"} {
|
||||||
|
MakeAsyncProtocol std
|
||||||
|
std sendterminator \r\n\r\n
|
||||||
|
std replyterminator 0x03
|
||||||
|
MakeAsyncQueue aqreactor std neutron.ansto.gov.au 80
|
||||||
|
aqreactor timeout 2000
|
||||||
|
}
|
||||||
|
add_reactor_status source aqadapter aqreactor
|
||||||
|
|
||||||
|
namespace eval ::source {
|
||||||
|
proc isc_initialize {} {
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -1,4 +1,5 @@
|
|||||||
config/source/source_common.tcl
|
config/source/sct_reactor_status.tcl
|
||||||
|
config/source/source.tcl
|
||||||
config/anticollider/anticollider_common.tcl
|
config/anticollider/anticollider_common.tcl
|
||||||
config/plc/plc_common_1.tcl
|
config/plc/plc_common_1.tcl
|
||||||
config/counter/counter_common_1.tcl
|
config/counter/counter_common_1.tcl
|
||||||
|
@ -1,8 +0,0 @@
|
|||||||
# Author Jing Chen (jgn@ansto.gov.au)
|
|
||||||
|
|
||||||
source $cfPath(source)/source_common.tcl
|
|
||||||
|
|
||||||
proc ::source::isc_initialize {} {
|
|
||||||
::source::ic_initialize "thermal"
|
|
||||||
}
|
|
||||||
|
|
@ -1,4 +1,5 @@
|
|||||||
config/source/source_common.tcl
|
config/source/sct_reactor_status.tcl
|
||||||
|
config/source/source.tcl
|
||||||
config/anticollider/anticollider_common.tcl
|
config/anticollider/anticollider_common.tcl
|
||||||
config/plc/plc_common_1.tcl
|
config/plc/plc_common_1.tcl
|
||||||
config/counter/counter_common_1.tcl
|
config/counter/counter_common_1.tcl
|
||||||
|
@ -1,5 +0,0 @@
|
|||||||
source $cfPath(source)/source_common.tcl
|
|
||||||
|
|
||||||
proc ::source::isc_initialize {} {
|
|
||||||
::source::ic_initialize "thermal"
|
|
||||||
}
|
|
@ -1,4 +1,5 @@
|
|||||||
config/source/source_common.tcl
|
config/source/sct_reactor_status.tcl
|
||||||
|
config/source/source.tcl
|
||||||
config/anticollider/anticollider_common.tcl
|
config/anticollider/anticollider_common.tcl
|
||||||
config/plc/plc_common_1.tcl
|
config/plc/plc_common_1.tcl
|
||||||
config/counter/counter_common_1.tcl
|
config/counter/counter_common_1.tcl
|
||||||
|
@ -1,5 +0,0 @@
|
|||||||
source $cfPath(source)/source_common.tcl
|
|
||||||
|
|
||||||
proc ::source::isc_initialize {} {
|
|
||||||
::source::ic_initialize "thermal"
|
|
||||||
}
|
|
@ -1,4 +1,5 @@
|
|||||||
config/source/source_common.tcl
|
config/source/sct_reactor_status.tcl
|
||||||
|
config/source/source.tcl
|
||||||
config/anticollider/anticollider_common.tcl
|
config/anticollider/anticollider_common.tcl
|
||||||
config/plc/plc_common_1.tcl
|
config/plc/plc_common_1.tcl
|
||||||
config/counter/counter_common_1.tcl
|
config/counter/counter_common_1.tcl
|
||||||
|
@ -1,8 +0,0 @@
|
|||||||
# Author Jing Chen (jgn@ansto.gov.au)
|
|
||||||
|
|
||||||
source $cfPath(source)/source_common.tcl
|
|
||||||
|
|
||||||
proc ::source::isc_initialize {} {
|
|
||||||
::source::ic_initialize "thermal"
|
|
||||||
}
|
|
||||||
|
|
@ -1,4 +1,5 @@
|
|||||||
config/source/source_common.tcl
|
config/source/sct_reactor_status.tcl
|
||||||
|
config/source/source.tcl
|
||||||
config/anticollider/anticollider_common.tcl
|
config/anticollider/anticollider_common.tcl
|
||||||
config/plc/plc_common_1.tcl
|
config/plc/plc_common_1.tcl
|
||||||
config/counter/counter_common_1.tcl
|
config/counter/counter_common_1.tcl
|
||||||
|
@ -1,6 +0,0 @@
|
|||||||
source $cfPath(source)/source_common.tcl
|
|
||||||
|
|
||||||
proc ::source::isc_initialize {} {
|
|
||||||
::source::ic_initialize "thermal"
|
|
||||||
}
|
|
||||||
|
|
@ -1,7 +0,0 @@
|
|||||||
source $cfPath(source)/source_common.tcl
|
|
||||||
|
|
||||||
proc ::source::isc_initialize {} {
|
|
||||||
::source::ic_initialize "cold"
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
@ -1,4 +1,5 @@
|
|||||||
config/source/source_common.tcl
|
config/source/sct_reactor_status.tcl
|
||||||
|
config/source/source.tcl
|
||||||
config/anticollider/anticollider_common.tcl
|
config/anticollider/anticollider_common.tcl
|
||||||
config/plc/plc_common_1.tcl
|
config/plc/plc_common_1.tcl
|
||||||
config/counter/counter_common_1.tcl
|
config/counter/counter_common_1.tcl
|
||||||
|
@ -1,8 +0,0 @@
|
|||||||
# Author Jing Chen (jgn@ansto.gov.au)
|
|
||||||
|
|
||||||
source $cfPath(source)/source_common.tcl
|
|
||||||
|
|
||||||
proc ::source::isc_initialize {} {
|
|
||||||
::source::ic_initialize "thermal"
|
|
||||||
}
|
|
||||||
|
|
@ -1,4 +1,5 @@
|
|||||||
config/source/source_common.tcl
|
config/source/sct_reactor_status.tcl
|
||||||
|
config/source/source.tcl
|
||||||
config/anticollider/anticollider_common.tcl
|
config/anticollider/anticollider_common.tcl
|
||||||
config/plc/plc_common_1.tcl
|
config/plc/plc_common_1.tcl
|
||||||
config/counter/counter_common_1.tcl
|
config/counter/counter_common_1.tcl
|
||||||
|
@ -1,7 +0,0 @@
|
|||||||
source $cfPath(source)/source_common.tcl
|
|
||||||
|
|
||||||
proc ::source::isc_initialize {} {
|
|
||||||
::source::ic_initialize "cold"
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
@ -1,4 +1,5 @@
|
|||||||
config/source/source_common.tcl
|
config/source/sct_reactor_status.tcl
|
||||||
|
config/source/source.tcl
|
||||||
config/anticollider/anticollider_common.tcl
|
config/anticollider/anticollider_common.tcl
|
||||||
config/plc/plc_common_1.tcl
|
config/plc/plc_common_1.tcl
|
||||||
config/counter/counter_common_1.tcl
|
config/counter/counter_common_1.tcl
|
||||||
|
@ -1,6 +0,0 @@
|
|||||||
source $cfPath(source)/source_common.tcl
|
|
||||||
|
|
||||||
proc ::source::isc_initialize {} {
|
|
||||||
::source::ic_initialize "thermal"
|
|
||||||
}
|
|
||||||
|
|
@ -1,4 +1,5 @@
|
|||||||
config/source/source_common.tcl
|
config/source/sct_reactor_status.tcl
|
||||||
|
config/source/source.tcl
|
||||||
config/anticollider/anticollider_common.tcl
|
config/anticollider/anticollider_common.tcl
|
||||||
config/plc/plc_common_1.tcl
|
config/plc/plc_common_1.tcl
|
||||||
config/counter/counter_common_1.tcl
|
config/counter/counter_common_1.tcl
|
||||||
|
@ -1,6 +0,0 @@
|
|||||||
source $cfPath(source)/source_common.tcl
|
|
||||||
|
|
||||||
proc ::source::isc_initialize {} {
|
|
||||||
::source::ic_initialize "cold"
|
|
||||||
}
|
|
||||||
|
|
@ -1,5 +1,6 @@
|
|||||||
config/load_setup.tcl
|
config/load_setup.tcl
|
||||||
config/source/source_common.tcl
|
config/source/sct_reactor_status.tcl
|
||||||
|
config/source/source.tcl
|
||||||
config/anticollider/anticollider_common.tcl
|
config/anticollider/anticollider_common.tcl
|
||||||
config/plc/plc_common_1.tcl
|
config/plc/plc_common_1.tcl
|
||||||
config/counter/counter_common_1.tcl
|
config/counter/counter_common_1.tcl
|
||||||
|
@ -1,8 +0,0 @@
|
|||||||
# Author Jing Chen (jgn@ansto.gov.au)
|
|
||||||
|
|
||||||
source $cfPath(source)/source_common.tcl
|
|
||||||
|
|
||||||
proc ::source::isc_initialize {} {
|
|
||||||
::source::ic_initialize "thermal"
|
|
||||||
}
|
|
||||||
|
|
Reference in New Issue
Block a user