Add new reactor status object to instruments.

site_ansto/instrument/bilby/config/INSTCFCOMMON.TXT

@@ -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/plc/plc_common_1.tcl
 config/counter/counter_common_1.tcl

site_ansto/instrument/bilby/config/source/source.tcl

@@ -1,6 +0,0 @@
-source $cfPath(source)/source_common.tcl
-
-proc ::source::isc_initialize {} {
-  ::source::ic_initialize "cold"
-}
-

site_ansto/instrument/config/source/source.tcl

@@ -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 {} {
+  }
+}
+

site_ansto/instrument/dingo/config/INSTCFCOMMON.TXT

@@ -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/plc/plc_common_1.tcl
 config/counter/counter_common_1.tcl

site_ansto/instrument/dingo/config/source/source.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"
-}
-

site_ansto/instrument/hipd/config/INSTCFCOMMON.TXT

@@ -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/plc/plc_common_1.tcl
 config/counter/counter_common_1.tcl

site_ansto/instrument/hipd/config/source/source.tcl

@@ -1,5 +0,0 @@
-source $cfPath(source)/source_common.tcl
-
-proc ::source::isc_initialize {} {
-  ::source::ic_initialize "thermal"
-}

site_ansto/instrument/hrpd/config/INSTCFCOMMON.TXT

@@ -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/plc/plc_common_1.tcl
 config/counter/counter_common_1.tcl

site_ansto/instrument/hrpd/config/source/source.tcl

@@ -1,5 +0,0 @@
-source $cfPath(source)/source_common.tcl
-
-proc ::source::isc_initialize {} {
-  ::source::ic_initialize "thermal"
-}

site_ansto/instrument/kookaburra/config/INSTCFCOMMON.TXT

@@ -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/plc/plc_common_1.tcl
 config/counter/counter_common_1.tcl

site_ansto/instrument/kookaburra/config/source/source.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"
-}
-

site_ansto/instrument/lyrebird/config/INSTCFCOMMON.TXT

@@ -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/plc/plc_common_1.tcl
 config/counter/counter_common_1.tcl

site_ansto/instrument/lyrebird/config/source/source.tcl

@@ -1,6 +0,0 @@
-source $cfPath(source)/source_common.tcl
-
-proc ::source::isc_initialize {} {
-  ::source::ic_initialize "thermal"
-}
-

site_ansto/instrument/pas/config/source/source.tcl

@@ -1,7 +0,0 @@
-source $cfPath(source)/source_common.tcl
-
-proc ::source::isc_initialize {} {
-  ::source::ic_initialize "cold"
-}
-
-

site_ansto/instrument/pelican/config/INSTCFCOMMON.TXT

@@ -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/plc/plc_common_1.tcl
 config/counter/counter_common_1.tcl

site_ansto/instrument/pelican/config/source/source.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"
-}
-

site_ansto/instrument/reflectometer/config/INSTCFCOMMON.TXT

@@ -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/plc/plc_common_1.tcl
 config/counter/counter_common_1.tcl

site_ansto/instrument/reflectometer/config/source/source.tcl

@@ -1,7 +0,0 @@
-source $cfPath(source)/source_common.tcl
-
-proc ::source::isc_initialize {} {
-  ::source::ic_initialize "cold"
-}
-
-

site_ansto/instrument/rsd/config/INSTCFCOMMON.TXT

@@ -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/plc/plc_common_1.tcl
 config/counter/counter_common_1.tcl

site_ansto/instrument/rsd/config/source/source.tcl

@@ -1,6 +0,0 @@
-source $cfPath(source)/source_common.tcl
-
-proc ::source::isc_initialize {} {
-  ::source::ic_initialize "thermal"
-}
-

site_ansto/instrument/sans/config/INSTCFCOMMON.TXT

@@ -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/plc/plc_common_1.tcl
 config/counter/counter_common_1.tcl

site_ansto/instrument/sans/config/source/source.tcl

@@ -1,6 +0,0 @@
-source $cfPath(source)/source_common.tcl
-
-proc ::source::isc_initialize {} {
-  ::source::ic_initialize "cold"
-}
-

site_ansto/instrument/tas/config/INSTCFCOMMON.TXT

@@ -1,5 +1,6 @@
 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/plc/plc_common_1.tcl
 config/counter/counter_common_1.tcl

site_ansto/instrument/tas/config/source/source.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"
-}
-