initial commit

tcl/drivers/dtm.tcl

@@ -0,0 +1,24 @@
+# DTM pressure sensors
+namespace eval dtm {} {
+}
+
+proc stdConfig::dtm {fact} {
+  controller std "\r" 5
+  prop startcmd "IDN?"
+
+  pollperiod 1
+  obj dtm rd -float
+  prop read dtm::read $fact
+  
+} 
+
+proc dtm::read {fact} {
+  sct send "PRES?"
+  return "dtm::update $fact" 
+}
+
+proc dtm::update {fact} {
+  sct update [expr [sct result] * $fact]
+  return idle
+}
+