buildframework/helium/tools/compile/scanbuildlog.pl
author Daniel Jacobs <daniel.jacobs@nokia.com>
Tue, 08 Dec 2009 16:03:30 +0000
branchwip
changeset 71 ba3ff6a1ecab
parent 1 be27ed110b50
permissions -rw-r--r--
Experimental combined linknpostlink.

#!perl -w

#============================================================================ 
#Name        : scanbuildlog.pl 
#Part of     : Helium 

#Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
#All rights reserved.
#This component and the accompanying materials are made available
#under the terms of the License "Eclipse Public License v1.0"
#which accompanies this distribution, and is available
#at the URL "http://www.eclipse.org/legal/epl-v10.html".
#
#Initial Contributors:
#Nokia Corporation - initial contribution.
#
#Contributors:
#
#Description: 
#============================================================================

# ==============================================================================
#  %name:          scanbuildlog.pl %
#  Part of:        juno_build
#
#  %version:	   1 %
#  %date_modified: Mon Feb 06 17:21:13 2006 %
#
#  See POD text at the end of this file for usage details.
# ==============================================================================

use strict;
use Getopt::Long;
use Pod::Usage;
use XML::Simple;
use lib "$ENV{'BUILD_DRIVE'}\\epoc32\\tools";
use Scanlog;
use XML::Parser::Expat;

my $help        = 0;
my $man         = 0;
my $unique      = 0;
my $logfilename = '';

GetOptions('unique' => \$unique,
           'log=s'  => \$logfilename,
           'man'    => \$man,
           'help|?' => \$help)
  or pod2usage(2);
pod2usage(1) if $help;
pod2usage(-exitstatus => 0, -verbose => 2) if $man;
$logfilename = shift unless $logfilename;
my $logfile;

if ($logfilename)
{
    open(LOGFILE, $logfilename) or die("Can't open '$logfilename': $!\n");
    $logfile = \*LOGFILE;
}
else
{
    $logfile = \*STDIN;
}

#<!DOCTYPE logfile SYSTEM "logfile.dtd">
#<?xml-stylesheet type="text/xsl" href="logfile.xsl"?>
print <<EOT;
<?xml version="1.0" encoding="ascii"?>
EOT
print("<logfile name=\"$logfilename\">\n");

my %logentry  = ();
my $phase     = '';
my $component = '';
my $parser = new XML::Parser::Expat;

while (<$logfile>)
{
    chomp;
    next if Scanlog::CheckForIgnore($_);

    ($phase = $1) =~ s/\\/\\\\/ and next
      if /^=== (.+) started ... ... .. (..):(..):(..)/;
    $phase = $1 and next if /^=== (.+) started ... ... .. (..):(..):(..)/;
    $component = $1 and next if $phase && /^=== $phase == (\S+)/;
    if ($phase && /^=== $phase finished ... ... .. (..):(..):(..)/)
    {
        $component = '';
        next;
    }

    my $logrec = {line    => $.,
                  content => $parser->xml_escape($_)};

    $logrec->{severity} = 'info'
      if Scanlog::CheckForMigrationNotes($_)
      or Scanlog::CheckForRemarks($_);

      if ( Scanlog::CheckForErrors($_)
      or Scanlog::CheckForNotBuilt($_)
      or Scanlog::CheckForMissing($_) )
    {
        $logrec->{severity} = 'error';
    }
    $logrec->{severity} = 'warn' if Scanlog::CheckForWarnings($_);
    next unless $logrec->{severity};

    print XMLout($logrec, rootname => 'logentry', noescape => 0);
}

print("</logfile>\n");

__END__

=head1 NAME

scanbuildlog - Scan EBS build log for errors and warnings

=head1 SYNOPSIS

perl scanbuildlog.pl [-h] | -l <log file>

=head1 OPTIONS

=over 8

=item B<-help>

Print a brief help message and exits.

=item B<-man>

Prints the manual page and exits.

=item B<-l>

Specify the log file to parse.

=back

=head1 DESCRIPTION

Prints out a summary of the errors, warnings and informational
messages found in the log file in an XML format conforming to the
following DTD:

 <!ELEMENT logfile (logentry*)>
 <!ELEMENT logentry (#PCDATA)>
 <!ATTLIST logentry
   severity (error|warn|info) #REQUIRED
   line     CDATA             #REQUIRED
   errfile  CDATA             #IMPLIED
   errline  CDATA             #IMPLIED>

=head1 SEE ALSO

=cut