#! 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 recipes which match a specified RE+
−
+
−
use strict;+
−
use Getopt::Long;+
−
+
−
my $sort_recipes = 0;+
−
GetOptions(+
−
  "s|sort" => \$sort_recipes,   # sort output by <recipe> line+
−
  );+
−
+
−
my $expression = shift @ARGV;+
−
my $line;+
−
my $skipping = 1;+
−
my $current_target = "";+
−
my @buffer = ();+
−
my %recipes;+
−
+
−
@ARGV = map {glob} @ARGV;+
−
+
−
sub save_buffer+
−
  {+
−
  return if (scalar @buffer == 0);+
−
  if ($sort_recipes)+
−
    {+
−
    my $recipe = shift @buffer;+
−
    $recipes{$recipe} = join("",@buffer);+
−
    }+
−
  else+
−
    {+
−
    print @buffer;+
−
    }+
−
  @buffer = ();+
−
  }+
−
  +
−
while ($line =<>)+
−
  {+
−
  if (substr($line,0,9) eq "</recipe>")+
−
    {+
−
    push @buffer, $line if ($skipping == 0);  +
−
    $skipping = 1;    # set this to 0 to get the "between recipes" stuff+
−
    next;+
−
    }+
−
  if (substr($line,0,8) eq "<recipe ")+
−
    {+
−
    save_buffer();+
−
    if ($line =~ /$expression/io)+
−
      {+
−
      $skipping = 0;+
−
      $current_target = "";+
−
      if ($line =~ /(target='[^']+') /)+
−
        {+
−
        $current_target = $1;+
−
        }+
−
      }+
−
    else+
−
      {+
−
      $skipping = 1;+
−
      }+
−
    }+
−
  next if ($skipping == 1);  +
−
  if (substr($line,0,8) eq "<status ")+
−
    {+
−
    substr($line,-3) = "$current_target />\n";+
−
    }+
−
  push @buffer, $line;+
−
  }+
−
+
−
save_buffer();+
−
+
−
if ($sort_recipes)+
−
  {+
−
  foreach my $recipe (sort keys %recipes)+
−
    {+
−
    print $recipe, $recipes{$recipe};+
−
    }+
−
  }+
−