1 #!/usr/bin/perl

     2 

     3 # Copyright (c) 2009 Symbian Foundation Ltd

     4 # This component and the accompanying materials are made available

     5 # under the terms of the License "Eclipse Public License v1.0"

     6 # which accompanies this distribution, and is available

     7 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     8 #

     9 # Initial Contributors:

    10 # Symbian Foundation Ltd - initial contribution.

    11 # 

    12 # Contributors:

    13 #

    14 # Description:

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

    16 

    17 use strict;

    18 

    19 my %sfl_files;

    20 my $line;

    21 

    22 while ($line = <>)

    23   {

    24   chomp $line;

    25   

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

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

    28   if ($line =~ /^epoc32/)

    29     {

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

    31     $sfl_files{$line} = "unknown";

    32     next;

    33     }

    34   

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

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

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

    38   # export,

    39   # epoc32/include/wins/winscomm.h,

    40   # h

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

    42 

    43   if (defined $sfl_files{$epocfile})

    44     {

    45     if ($type eq "export")

    46       {

    47       # direct export - should be easy to fix

    48       $sfl_files{$epocfile} = $srcfile;

    49       next;

    50       }

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

    52     next;

    53     }

    54   }

    55 

    56 foreach my $epocfile (sort keys %sfl_files)

    57   {

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

    59   }