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

# Perl script to summarise the R&D binaries listing

use strict;

my %grouped_by_basename;

my $line;

while ($line=<>)

  {

  # 2009-04-30 11:26:58 D....            0            0  epoc32\cshlpcmp_template

  # 2009-03-20 22:22:18 .....        72192        16307  epoc32\cshlpcmp_template\cshelp2000.dot

  next if (length($line) < 54);

  my $dir_attribute = substr($line, 20, 1);  

  if ($dir_attribute eq ".")

    {

    chomp $line;

    my $fullpath = substr($line, 53);

    my $filename = substr($fullpath, rindex($fullpath,"\\")+1);

    my $basename = lc substr($filename, 0, index($filename,"."));

    if ($basename =~ /^(.*){[0-9a-f]+}$/)

      {

      # import library

      $basename = $1;

      }

    elsif ($basename =~ /^(.*)_\d+$/)

      {

      # language variant in basename rather than extension

      $basename = $1;

      }

    elsif ($basename =~ /^(.*)_(aif|reg)$/)

      {

      # Uikon file grouping

      $basename = $1;

      }

    if (!defined $grouped_by_basename{$basename})

      {

      $grouped_by_basename{$basename} = ();

      }

    push @{$grouped_by_basename{$basename}}, $fullpath;

    next;

    }

  }

sub summarise_extensions(@)

  {

  my @files = @_;

  my $resources = 0;

  my $exes = 0;

  my $dlls = 0;

  my $libs = 0;

  my $maps = 0;

  my $headers = 0;

  my $others = 0;

  my %what_others;

  foreach my $file (@files)

    {

    my $extension = substr($file,rindex($file, "."));

    if ($extension =~ /^.r\d+$/io)

      {

      $what_others{".rNN"} += 1;

      next;

      }

    if ($extension =~ /^.o\d+$/io)

      {

      $what_others{".oNNNN"} += 1;

      next;

      }

    $what_others{$extension} += 1;

    }

  foreach my $extension (sort keys %what_others)

    {

    printf "%d %s, ", $what_others{$extension}, $extension;

    }

  print "\n";

  }

my $count = 0;

foreach my $basename (sort keys %grouped_by_basename)

  {

  my @files = @{$grouped_by_basename{$basename}};

  next if (! grep /winscw|tools/, @files);  # ignore ARMV5 only for now...

  printf "%6d\t%s\t", scalar @files, $basename;

  summarise_extensions(@files);

  $count++;

  }

printf "%d distinct missing basenames (from %d total)\n", $count, scalar keys %grouped_by_basename;