Script Context driver generator files for Hiden XCS and Isotech Power Supply

site_ansto/instrument/config/environment/isotech_ps.sct

@@ -0,0 +1,57 @@
+# Simple driver generator for the ISOTECH Power Supply
+# vim: ts=8 sts=2 sw=2 expandtab autoindent smartindent
+#
+driver isotech_ps = {
+  vendor = isotech; device = ps; protocol = std;
+  class = environment;
+  simulation_group = environment_simulation;
+  protocol_args = '"\r"';
+  group = {
+    readable = 5
+    mutable = true
+    var relay = {
+      type = int;
+      read_command = 'F';
+      read_function = read_relay;
+      writeable = 1
+      write_command = 'KO';
+      write_function = write_relay;
+    }
+    var amps = {
+      type = float;
+      read_command = 'A';
+      units = 'A'
+    }
+    var volts = {
+      type = float;
+      read_command = 'V';
+      writeable = 1;
+      write_command = 'SV';
+      write_function = write_voltage;
+      units = 'V'
+    }
+  }
+  code read_function rdValue = {
+    @  set data [string range [sct result] 1 end]
+  }
+  code read_function read_relay = {
+    @  if { [string equal -nocase -length 2 "F1" "${data}"] } {
+    @    set data 1
+    @  } elseif { [string equal -nocase -length 2 "F0" "${data}"] } {
+    @    set data 0
+    @  } else {
+    @    sct geterror "Unexpected response '${data}' not 'F1' nor 'F0'"
+    @  }
+  }
+  code write_function write_relay = {
+    @  if { ${par} == 0 } {
+    @    set cmd "KOD"
+    @  } else {
+    @    set cmd "KOE"
+    @  }
+  }
+  code write_function write_voltage = {
+    @  set par "[format "%05.2f" [sct target]]"
+    @  set cmd "SV ${par}"
+  }
+}