From 6d87ae05cb926162291bd923a5cf0c0f25173de7 Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Thu, 12 Mar 2015 10:21:15 +1100
Subject: [PATCH] Add some configuration files which might be useful later.

---
 .../instrument/emu/config/INSTCFCOMMON.TXT    | 17 ++++++++++
 .../emu/config/anticollider/anticollider.tcl  |  4 +++
 .../emu/config/commands/commands.tcl          |  1 +
 .../instrument/emu/config/counter/counter.tcl | 32 +++++++++++++++++++
 site_ansto/instrument/emu/config/plc/plc.tcl  |  7 ++++
 .../instrument/emu/config/scan/scan.tcl       |  6 ++++
 6 files changed, 67 insertions(+)
 create mode 100644 site_ansto/instrument/emu/config/INSTCFCOMMON.TXT
 create mode 100644 site_ansto/instrument/emu/config/anticollider/anticollider.tcl
 create mode 100644 site_ansto/instrument/emu/config/commands/commands.tcl
 create mode 100644 site_ansto/instrument/emu/config/counter/counter.tcl
 create mode 100644 site_ansto/instrument/emu/config/plc/plc.tcl
 create mode 100644 site_ansto/instrument/emu/config/scan/scan.tcl

diff --git a/site_ansto/instrument/emu/config/INSTCFCOMMON.TXT b/site_ansto/instrument/emu/config/INSTCFCOMMON.TXT
new file mode 100644
index 00000000..763d4365
--- /dev/null
+++ b/site_ansto/instrument/emu/config/INSTCFCOMMON.TXT
@@ -0,0 +1,17 @@
+config/source
+config/anticollider
+config/plc
+config/counter
+config/hipadaba
+config/hmm/hmm_configuration_common_1.tcl
+config/hmm/hmm_object.tcl
+config/scan
+config/nexus
+config/commands
+config/motors
+config/environment/
+config/environment/he3
+config/environment/magneticField
+config/environment/pressure
+config/environment/temperature
+config/motors
diff --git a/site_ansto/instrument/emu/config/anticollider/anticollider.tcl b/site_ansto/instrument/emu/config/anticollider/anticollider.tcl
new file mode 100644
index 00000000..6489dad8
--- /dev/null
+++ b/site_ansto/instrument/emu/config/anticollider/anticollider.tcl
@@ -0,0 +1,4 @@
+fileeval $cfPath(anticollider)/anticollider_common.tcl
+
+::anticollider::loadscript acscript.txt
+
diff --git a/site_ansto/instrument/emu/config/commands/commands.tcl b/site_ansto/instrument/emu/config/commands/commands.tcl
new file mode 100644
index 00000000..1251d4b5
--- /dev/null
+++ b/site_ansto/instrument/emu/config/commands/commands.tcl
@@ -0,0 +1 @@
+source $cfPath(commands)/commands_common.tcl
diff --git a/site_ansto/instrument/emu/config/counter/counter.tcl b/site_ansto/instrument/emu/config/counter/counter.tcl
new file mode 100644
index 00000000..2d3f0254
--- /dev/null
+++ b/site_ansto/instrument/emu/config/counter/counter.tcl
@@ -0,0 +1,32 @@
+source $cfPath(counter)/counter_common_1.tcl
+
+## TODO Put all the counter macros in the counter namespace
+namespace eval counter {
+  variable isc_numchannels
+  variable isc_monitor_address
+  variable isc_portlist
+  variable isc_beam_monitor_list
+  proc set_sobj_attributes {} {
+  }
+}
+
+proc ::counter::isc_initialize {} {
+  if [catch {
+    variable isc_numchannels
+    variable isc_monitor_address
+    variable isc_portlist
+
+    dict for {k v} $::MONITOR_HOSTPORT {
+      lappend monlist $k
+      lappend hostlist [dict get $v HOST]
+      lappend isc_portlist [dict get $v PORT]
+    }
+    variable isc_beam_monitor_list $monlist
+    set isc_monitor_address [lindex $hostlist 0]
+    set isc_numchannels [llength $isc_beam_monitor_list]
+    ::counter::ic_initialize MONITOR_SOURCE "HISTOGRAM_SERVER"
+  } message ] {
+    if {$::errorCode=="NONE"} {return $message}
+    return -code error "$message"
+  }
+}
diff --git a/site_ansto/instrument/emu/config/plc/plc.tcl b/site_ansto/instrument/emu/config/plc/plc.tcl
new file mode 100644
index 00000000..7ce59e90
--- /dev/null
+++ b/site_ansto/instrument/emu/config/plc/plc.tcl
@@ -0,0 +1,7 @@
+set sim_mode [SplitReply [plc_simulation]]
+if {$sim_mode == "false"} {
+  MakeAsyncQueue plc_chan SafetyPLC [dict get $::PLC_HOSTPORT HOST] [dict get $::PLC_HOSTPORT PORT]
+  MakeSafetyPLC plc plc_chan 0
+}
+source $cfPath(plc)/plc_common_1.tcl
+
diff --git a/site_ansto/instrument/emu/config/scan/scan.tcl b/site_ansto/instrument/emu/config/scan/scan.tcl
new file mode 100644
index 00000000..dd396f62
--- /dev/null
+++ b/site_ansto/instrument/emu/config/scan/scan.tcl
@@ -0,0 +1,6 @@
+source $cfPath(scan)/scan_common_1.tcl
+proc ::scan::pre_hmm_scan_prepare {} {}
+
+proc ::scan::isc_initialize {} {
+  ::scan::ic_initialize
+}