SICS-587 Setup hostport dictionary based configuration for Echidna.

site_ansto/instrument/hrpd/hostport_config.tcl

@@ -0,0 +1,29 @@
+# MOTOR HOST AND PORT
+foreach {mc host port} {
+  MC1 mc1-echidna pmc1-echidna
+  MC2 mc2-echidna pmc2-echidna
+  MC3 mc3-echidna pmc3-echidna
+  MC4 mc4-echidna pmc4-echidna
+} {
+  dict set MOTOR_HOSTPORT $mc HOST $host
+  dict set MOTOR_HOSTPORT $mc PORT $port
+}
+
+# BEAM MONITOR HOST AND PORT
+foreach {bm host port} {
+  MONITOR_1 das1-echidna 30000
+  MONITOR_2 das1-echidna 30001
+  MONITOR_3 das1-echidna 30002
+} {
+  dict set MONITOR_HOSTPORT $bm HOST $host
+  dict set MONITOR_HOSTPORT $bm PORT $port
+}
+
+# HISTOGRAM SERVER HOST AND PORT
+foreach {key host port} {
+  HMM das1-echidna.nbi.ansto.gov.au 8080
+  HMSTAT das1-echidna.nbi.ansto.gov.au 8081
+} {
+  dict set HISTMEM_HOSTPORT $key HOST $host
+  dict set HISTMEM_HOSTPORT $key PORT $port
+}