Load environment configuration file taipan_setup.txt if it exists.

site_ansto/instrument/config/load_setup.tcl

@@ -0,0 +1,16 @@
+proc load_setup {fpath} {
+# restore ../log/default_status.tcl
+  if {[file exists $fpath] == 0} {
+    clientput "WARNING: Environment configuration file $fpath doesn't exist"
+    return
+  }
+  set ch [open $fpath r]
+    set setup [read $ch]
+    foreach {s f} $setup {
+      if {$f} {
+        set fn config/setup/${s}_setup.tcl
+          fileeval $fn
+      }
+    }
+}
+

site_ansto/instrument/tas/config/INSTCFCOMMON.TXT

@@ -1,3 +1,4 @@
+config/load_setup.tcl
 config/source/source_common.tcl
 config/anticollider/anticollider_common.tcl
 config/plc/plc_common_1.tcl