mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-11-01 15:11:24 +00:00
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
This commit is contained in:
parent
026a87a868
commit
4430e3a4a8
32
utils/parseNLT.pl
Normal file
32
utils/parseNLT.pl
Normal file
@ -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 = ""; }
|
Loading…
Reference in New Issue
Block a user