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

Add new reactor status object to instruments.

Browse Source
This commit is contained in:
Ferdi Franceschini
2014-03-25 09:23:57 +11:00
parent a3e975457b
commit bea943ddf2
24 changed files with 38 additions and 91 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
site_ansto/instrument/bilby/config/INSTCFCOMMON.TXT
View File

@ -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

6
site_ansto/instrument/bilby/config/source/source.tcl
View File

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

3
site_ansto/instrument/dingo/config/INSTCFCOMMON.TXT
View File

@ -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

8
site_ansto/instrument/dingo/config/source/source.tcl
View File

@ -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"
}

3
site_ansto/instrument/hipd/config/INSTCFCOMMON.TXT
View File

@ -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

5
site_ansto/instrument/hipd/config/source/source.tcl
View File

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

3
site_ansto/instrument/hrpd/config/INSTCFCOMMON.TXT
View File

@ -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

5
site_ansto/instrument/hrpd/config/source/source.tcl
View File

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

3
site_ansto/instrument/kookaburra/config/INSTCFCOMMON.TXT
View File

@ -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

8
site_ansto/instrument/kookaburra/config/source/source.tcl
View File

@ -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"
}

3
site_ansto/instrument/lyrebird/config/INSTCFCOMMON.TXT
View File

@ -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

6
site_ansto/instrument/lyrebird/config/source/source.tcl
View File

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

7
site_ansto/instrument/pas/config/source/source.tcl
View File

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

3
site_ansto/instrument/pelican/config/INSTCFCOMMON.TXT
View File

@ -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

8
site_ansto/instrument/pelican/config/source/source.tcl
View File

@ -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"
}

3
site_ansto/instrument/reflectometer/config/INSTCFCOMMON.TXT
View File

@ -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

7
site_ansto/instrument/reflectometer/config/source/source.tcl
View File

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

3
site_ansto/instrument/rsd/config/INSTCFCOMMON.TXT
View File

@ -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

6
site_ansto/instrument/rsd/config/source/source.tcl
View File

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

3
site_ansto/instrument/sans/config/INSTCFCOMMON.TXT
View File

@ -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

6
site_ansto/instrument/sans/config/source/source.tcl
View File

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

3
site_ansto/instrument/tas/config/INSTCFCOMMON.TXT
View File

@ -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

8
site_ansto/instrument/tas/config/source/source.tcl
View File

@ -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"
}