#!/usr/bin/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:

# Match list of "sfl" files in epoc32 tree with whatlog information

use strict;

my %sfl_files;

my $line;

while ($line = <>)

  {

  chomp $line;

  # output of findstr /m /s /C:"www.symbianfoundation.org/legal/sfl-v" epoc32\*

  # epoc32\data\z\private\101f7989\backup_registration.xml

  if ($line =~ /^epoc32/)

    {

    $line =~ s/\\/\//g;   # Unix directory separators please

    $sfl_files{$line} = "unknown";

    next;

    }

  # ..\/platform_MCL.PDK-3.8__winscw.whatlog_armv5.whatlog_multiple_threadWHAT_GT_tb91sf_compile.log(6824),

  # sf/os/boardsupport/emulator/emulatorbsp/bld.inf,

  # sf/os/boardsupport/emulator/emulatorbsp/specific/winscomm.h,

  # export,

  # epoc32/include/wins/winscomm.h,

  # h

  my ($log, $bldinf, $srcfile, $type, $epocfile, $extn) = split /,/, $line;

  if (defined $sfl_files{$epocfile})

    {

    if ($type eq "export")

      {

      # direct export - should be easy to fix

      $sfl_files{$epocfile} = $srcfile;

      next;

      }

    $sfl_files{$epocfile} = "generated - $type";

    next;

    }

  }

foreach my $epocfile (sort keys %sfl_files)

  {

  print "$epocfile\t$sfl_files{$epocfile}\n";

  }