Changeset 3501

Timestamp:

Mar 14, 2013, 6:27:53 PM (12 years ago)

Author:

mmc

Message:

Created a new "rptimes" script that ingests run.xml files and creates
an SQLite database of execution times that can be used for the "instant on"
time prediction.

Updated the tool invocation to store the cputime and walltime in the
output section, so we don't have to look at middleware log files. Each
run.xml file has all the info we need to extract execution time.

Location:

trunk/gui

Files:

• apps/Makefile.in (modified) (1 diff)
• apps/rptimes (added)
• scripts/tool.tcl (modified) (2 diffs)

trunk/gui/apps/Makefile.in

@@ -38 +38 @@
                 rappture-csh.env \
                 rappture.use \
+                rpdiff \
+                rptimes \
                 rerun \
                 simsim  \

trunk/gui/scripts/tool.tcl

@@ -324 +324 @@
         if {[regexp {=RAPPTURE-RUN=>([^\n]+)} $result match file]} {
             set status [catch {Rappture::library $file} result]
-            if {$status != 0} {
+            if {$status == 0} {
+                # add cputime info to run.xml file
+                $result put output.walltime $times(walltime)
+                $result put output.cputime $times(cputime)
+            } else {
                 global errorInfo
                 set result "$result\n$errorInfo"
@@ -331 +335 @@
             # if there's a results_directory defined in the resources
             # file, then move the run.xml file there for storage
-            if {[info exists _resources(-resultdir)]
-                  && "" != $_resources(-resultdir)} {
+            if {$status == 0 && [info exists _resources(-resultdir)]
+                  && $_resources(-resultdir) ne ""} {
                 catch {
                     if {![file exists $_resources(-resultdir)]} {
                         _mkdir $_resources(-resultdir)
                     }
-                    file rename -force -- $file $_resources(-resultdir)
+                    set tail [file tail $file]
+                    set fid [open [file join $_resources(-resultdir) $tail] w]
+                    puts $fid "<?xml version=\"1.0\"?>"
+                    puts $fid [$result xml]
+                    close $fid
+                    file delete -force -- $file
                 }
             }