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

llvm-svn: 21584

1 files changed, 32 insertions, 0 deletions

diff --git a/llvm/utils/parseNLT.pl b/llvm/utils/parseNLT.pl
new file mode 100644
index 00000000000..3a2e82e1e02
--- /dev/null
+++ b/llvm/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 = ""; }