update for Lyrebird deployment

r3105 | jgn | 2011-04-20 08:48:12 +1000 (Wed, 20 Apr 2011) | 1 line

site_ansto/instrument/lyrebird/config/tasmad/sicscommon/batch.tcl

@@ -0,0 +1,29 @@
+#--------------------------------------------
+# The old batchrun, batchroot pair
+# Mark Koennecke, since 1996
+#--------------------------------------------
+
+if { [info exists batchinit] == 0 } {
+    set batchinit 1
+    Publish batchroot Spy
+    Publish batchrun User 
+}
+
+proc SplitReply { text } {
+     set l [split $text =]
+     return [lindex $l 1]
+}
+#---------------------
+proc batchrun file {
+   exe [string trim [SplitReply [batchroot]]/$file]
+}
+#---------------------
+proc batchroot args {
+  if {[llength $args] > 1} {
+    exe batchpath [lindex $args 0]
+    return OK
+  } else {
+    set bp [SplitReply [exe batchpath]]
+    return "batchroot = $bp"
+  }
+}