add drivers from l_samenv@samenv

tcl/drivers/pfeiffermulti.tcl

@@ -0,0 +1,71 @@
+namespace eval pfeiffermulti {} {
+}
+
+proc stdConfig::pfeiffermulti {} {
+  variable node
+
+  controller std "" 5 
+  prop read pfeiffermulti::read
+  prop update pfeiffermulti::update
+
+  obj TPGM rd
+  prop cmd PR1
+  prop @errorcnt 0
+
+  kids TPG {
+    node p2 rd
+    prop cmd PR2
+
+    node p3 rd
+    prop cmd PR3
+
+    node p4 rd
+    prop cmd PR4
+
+    node p5 rd
+    prop cmd PR5
+
+    node p6 rd
+    prop cmd PR6
+
+    # node prx rd -text
+    # prop cmd PRX
+
+    # node sp1 rd -text
+    # prop cmd SP1
+
+    # node sp2 rd -text
+    # prop cmd SP2
+
+    # node sps rd -text
+    # prop cmd SPS
+  }
+}
+
+proc pfeiffermulti::read {} {
+  sct send "[sct cmd]\r\n"
+  return update
+}
+
+proc pfeiffermulti::update {} {
+  scan [sct result] %c ack
+  if {$ack == 6} {
+    sct send "\005"
+    return pfeiffermulti::update2
+  }
+  if {$ack == 21} {
+    error "NAK received on [sct cmd]"
+  }
+  return [pfeiffermulti::read]
+}
+
+proc pfeiffermulti::update2 {} {
+  if {[string match "PR*" [sct cmd]]} {
+    sct update [lindex [split [sct result] ,] 1]
+  } else {
+    sct update [sct result]
+  }
+  sct @errorcnt 0
+  return idle
+}
+