From: Andrew Lenharth <andrewl@lenharth.org>
Date: Wed, 27 Apr 2005 02:13:20 +0000 (+0000)
Subject: A first step towards being able to do more interesting things with the nightly tester... 
X-Git-Url: http://demsky.eecs.uci.edu/git/?a=commitdiff_plain;h=4430e3a4a87fc90473226e372cfba96119701fc5;p=oota-llvm.git

A first step towards being able to do more interesting things with the nightly tester data.  Moreinteresting things will come soon, so tune in


git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@21584 91177308-0d34-0410-b5e6-96231b3b80d8
---

diff --git a/utils/parseNLT.pl b/utils/parseNLT.pl
new file mode 100644
index 00000000000..3a2e82e1e02
--- /dev/null
+++ b/utils/parseNLT.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+# a first attempt to parse the nightly tester pages into something
+# one can reason about, namely import into a database
+# USE: perl parseNLT.pl <2005-03-31.html
+# for example
+
+while(<>)
+  {
+    if (/LLVM Test Results for (\w+) (\d+), (\d+)</)
+      {
+        $mon = $1;
+        $day = $2;
+        $year = $3;
+      }
+    if (/<td>([^<]+)<\/td>/)
+      {
+        if ($prefix)
+          { $output .= "$1 "; }
+      }
+    if (/<tr/)
+      {
+        if ($output)
+          { print "\n$day $mon $year $prefix/$output"; $output = ""; }
+      }
+    if (/<h2>(Programs.+)<\/h2>/)
+      {
+        $prefix = $1;
+      }
+  }
+
+if ($output)
+  { print "\n$day $mon $year $prefix/$output"; $output = ""; }