move a lot of stuff to git

tcl/drivers/sdvm.tcl

@@ -0,0 +1,51 @@
+# software dvm
+
+
+namespace eval sdvm {
+}
+
+if {![namespace exists trun]} {
+  source drivers/trun.tcl
+}
+
+proc stdConfig::sdvm args {
+  variable name
+  variable path
+  variable node
+  
+  scanargs $args var -invar -outvar
+
+# custinp, custout:
+#   custom input / output function
+#   log: allow choice between linear and logarithmic
+#   none: only linear
+#   else: a custom function. the last arguments are either
+#      <value>                  forward conversion
+#      inv <value>              inverted conversion
+
+  variable hostport none
+  controller dumprot
+
+  }
+
+  obj dvm -upd out
+  prop lastinput 0
+  prop custinp $custinp1
+  prop custinp $custinp2
+
+  kids "$title settings" {
+    node dctime par $dctime
+    prop help {time held at one polarity [sec]}
+
+    node current par $current
+    prop help {set current in A}
+
+    node invar -text out
+    default 0
+    prop check piloop::setinvar
+    prop write stdSct::completeUpdate
+    prop visible false
+    
+    node outvar -text par $outvar
+    prop visible false
+    

tcl/drivers/srsbga244.tcl

@@ -0,0 +1,30 @@
+namespace eval srsbga244 {} {
+}
+
+proc stdConfig::srsbga244 {} {
+  controller std "" 5 
+  prop read srsbga244::read
+  prop update srsbga244::update
+
+  obj He3 rd
+  prop cmd RATO?1%
+  kids He3 {
+    # node prx rd -text
+    # prop cmd PRX
+
+    node press rd 
+    prop cmd PRES?bar
+
+  }
+}
+
+proc srsbga244::read {} {
+  sct send "[sct cmd]\r\n"
+  return update
+}
+
+proc srsbga244::update {} {
+    sct update [sct result]
+    return idle
+}
+