initial commit

tcl/drivers/fluke45.tcl

@@ -0,0 +1,31 @@
+namespace eval fluke45 {} {
+}
+
+proc stdConfig::fluke45 {{expr {X * 1}} {unit V}} {
+  variable name
+
+  controller std "\n" 5 ">"
+  prop startcmd "*IDN?"
+
+  GraphAdd $name $unit $name auto
+
+  obj Fluke45 rd
+  prop readcmd "MEAS?"
+  prop update fluke45::update
+  prop readfmt "%g"
+  prop expr $expr
+
+  kids "$name (fluke 45)" {
+    node raw upd
+  }
+}
+
+
+proc fluke45::update {} {
+  scan [sct result] "%f" x
+  updateval [sct]/raw $x
+  set cmd [string map {X $x} "expr [sct expr]"]
+  sct update [eval $cmd]
+  return idle
+}
+