Changeset 5166 for branches/uq/gui/scripts/analyzer.tcl

Timestamp:

Mar 23, 2015, 10:48:24 AM (10 years ago)

Author:

mmh

Message:

snapshot of uq work

File:

• branches/uq/gui/scripts/analyzer.tcl (modified) (1 diff)

branches/uq/gui/scripts/analyzer.tcl

@@ -1103 +1103 @@
 
     #
+    # Now handle SUBMIT-PROGRESS
+    #
+    while {[regexp -indices {=SUBMIT-PROGRESS=> aborted=([0-9]+) finished=([0-9]+) failed=([0-9]+) executing=([0-9]+)\
+        waiting=([0-9]+) setting_up=([0-9]+) setup=([0-9]+) %done=([0-9.]+) timestamp=([0-9.]+)} $message \
+        match aborted finished failed executing waiting setting_up setup percent ts mesg]} {
+
+        set mesg ""
+        foreach {i0 i1} $percent break
+        set percent [string range $message $i0 $i1]
+        foreach {i0 i1} $failed break
+        set failed [string range $message $i0 $i1]
+        foreach {i0 i1} $match break
+        set message [string replace $message $i0 $i1]
+
+        if {$failed != 0} {set mesg "$failed jobs failed!"}
+        if {$percent >= 100} { set mesg "Jobs finished.  Analyzing results..."}
+
+        pack $itk_component(progress) -fill x -padx 10 -pady 10
+        $itk_component(progress) settings -percent $percent -message $mesg
+    }
+
+
+    #
     # Break up the remaining lines according to =RAPPTURE-ERROR=> messages.
     # Show errors in a special color.