- Updated GumTree support for most recent versions

mcstas/dmc/vdmccom.tcl

@@ -21,11 +21,14 @@ if { [info exists vdmcinit] == 0 } {
   Publish hdbscan User
   Publish hdbprepare User
   Publish hdbcollect User
+  Publish mgbatch Spy
+  Publish listbatchfiles Spy
 }
 source $home/log.tcl
 source $home/nxsupport.tcl
 source $home/nxdmc.tcl
 source $home/gumxml.tcl
+source $home/gumibatch.tcl
 #------------------------------------------------------------------------
 proc SplitReply { text } {
      set l [split $text =]
@@ -470,4 +473,31 @@ proc gethdbscancounts {} {
 	return "0 0 0"
     } 
 }
-
+#================= helper to get the list of batch files =================
+proc listbatchfiles {} {
+    set ext [list *.tcl *.job]
+    set txt [SplitReply [exe batchpath]]
+    set dirlist [split $txt :]
+    set txt [SplitReply [exe syspath]]
+    set dirlist [concat $dirlist [split $txt :]]
+    set result [list ""]
+    foreach dir $dirlist {
+	foreach e $ext {
+	    set status [catch {glob [string trim $dir]/$e} filetxt]
+	    if {$status == 0} {
+		set filelist [split $filetxt]
+		foreach f $filelist {
+		    set nam [file tail  $f]
+		    if { [lsearch $result $nam] < 0} {
+			lappend result $nam
+                    }
+		}
+            }
+        }
+    }
+    foreach bf $result {
+	append resulttxt $bf ,
+    }
+    return [string trim $resulttxt ,]
+}
+#-----------------------------------------------------------------------