17 lines
366 B
Tcl
17 lines
366 B
Tcl
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 {} {
|
|
}
|
|
}
|
|
|