mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-11-13 21:05:16 +00:00
6e92729e98
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@21591 91177308-0d34-0410-b5e6-96231b3b80d8
35 lines
747 B
Perl
35 lines
747 B
Perl
#!/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 "; $count++; }
|
|
}
|
|
if (/<tr/)
|
|
{
|
|
if ($output and $count > 3)
|
|
{ print "\n$day $mon $year $prefix/$output"; }
|
|
$output = "";
|
|
$count = 0;
|
|
}
|
|
if (/<h2>(Programs.+)<\/h2>/)
|
|
{
|
|
$prefix = $1;
|
|
}
|
|
}
|
|
|
|
if ($output)
|
|
{ print "\n$day $mon $year $prefix/$output"; $output = ""; }
|