#! perl

# Copyright (c) 2009 Symbian Foundation Ltd

# 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:

# Symbian Foundation Ltd - initial contribution.

# 

# Contributors:

#

# Description:

# Filter an SBSv2 log to keep only status lines, with added target and recipe names

use strict;

my $line;

my $current_target = "";

my $recipe_name = "";

@ARGV = map {glob} @ARGV;

while ($line =<>)

  {

  my $prefix = substr($line,0,8);

  if ($prefix eq "<recipe ")

    {

    $current_target = "";

    if ($line =~ /(name='[^']+').*(target='[^']+')/)

      {

      $recipe_name = $1;

      $current_target = $2;

      }

    next;

    }

  if ($prefix eq "+ EXTMAK")

    {

    if ($line =~ / (EXTMAKEFILENAME=.*)$/)

      {

      $current_target = "comment='$1'";  # target for EXTMAKEFILE is not interesting

      }

    next;

    }

  if ($prefix eq "+ TEMPLA") 

    {

    if ($line =~ / (TEMPLATE_EXTENSION_MAKEFILE=.*)$/)

      {

      $current_target = "comment='$1'";  # target for templated extensions is not interesting

      }

    next;

    }

  if ($prefix eq "<status ")

    {

    substr($line,-3) = "$recipe_name $current_target />\n";

    print $line;

    next;

    }

  }