Do not generate by TableGen the hard-coded standard, target-independent part of
[oota-llvm.git] / utils / parseNLT.pl
1 #!/usr/bin/perl
2 # a first attempt to parse the nightly tester pages into something
3 # one can reason about, namely import into a database
4 # USE: perl parseNLT.pl <2005-03-31.html
5 # for example
6
7 while(<>)
8   {
9     if (/LLVM Test Results for (\w+) (\d+), (\d+)</)
10       {
11         $mon = $1;
12         $day = $2;
13         $year = $3;
14       }
15     if (/<td>([^<]+)<\/td>/)
16       {
17         if ($prefix)
18           { $output .= "$1 "; $count++; }
19       }
20     if (/<tr/)
21       {
22         if ($output and $count > 3)
23           { print "\n$day $mon $year $prefix/$output"; }
24         $output = "";
25         $count = 0;
26       }
27     if (/<h2>(Programs.+)<\/h2>/)
28       {
29         $prefix = $1;
30       }
31   }
32
33 if ($output)
34   { print "\n$day $mon $year $prefix/$output"; $output = ""; }