Changeset 637 for trunk/gui/scripts

Timestamp:

Mar 21, 2007 3:02:42 PM (17 years ago)

Author:

mmc

Message:

Fixed the way that tools are launched so that any "MiddlewareTime:"
statements that appear in the stdout from the underlying tool process
are extracted and fed up to the stderr of the overall Rappture job.
This allows us to take information from jobs farmed out to the grid
and report the information back up through Rappture to the middleware.

Start times reported by the underlying jobs are automatically offset
by the start time of the tool, and job numbers are offset by the job
number of the tool. So the tool should report job numbers and start
times relative to its own start, and Rappture will handle the rest.

File:

• trunk/gui/scripts/tool.tcl (modified) (1 diff)

trunk/gui/scripts/tool.tcl

@@ -157 +157 @@
         puts stderr "MiddlewareTime: job=[incr jobnum] event=simulation start=$times(start) walltime=$times(walltime) cputime=$times(cputime) status=$status"
 
+        #
+        # Scan through stderr channel and look for statements that
+        # represent grid jobs that were executed.  The statements
+        # look like this:
+        #
+        # MiddlewareTime: job=1 event=simulation start=3.001094 ...
+        #
+        set subjobs 0
+        while {[regexp -indices {(^|\n)MiddlewareTime:( +[a-z]+=[^ \n]+)+(\n|$)} $job(error) match]} {
+            foreach {p0 p1} $match break
+            if {[string index $job(error) $p0] == "\n"} { incr p0 }
+
+            catch {unset data}
+            array set data {
+                job 1
+                event simulation
+                start 0
+                walltime 0
+                cputime 0
+                status 0
+            }
+            foreach arg [lrange [string range $job(error) $p0 $p1] 1 end] {
+                foreach {key val} [split $arg =] break
+                set data($key) $val
+            }
+
+            puts stderr "MiddlewareTime: job=[expr {$jobnum+$data(job)}] event=subsimulation start=[expr {$times(start)+$data(start)}] walltime=$data(walltime) cputime=$data(cputime) status=$data(status)"
+            incr subjobs
+
+            # done -- remove this statement
+            set job(error) [string replace $job(error) $p0 $p1]
+        }
+        incr jobnum $subjobs
+
     } else {
         set job(error) "$result\n$errorInfo"