williamr/sfl_exports.pl
author Simon Howkins <simonh@symbian.org>
Wed, 14 Apr 2010 12:58:22 +0100
changeset 219 d57b367400c0
parent 2 a600c1a596f7
permissions -rw-r--r--
Updated release notes generation: Added copyright message Proper command line parsing Usage message if inputs are not right Added explanatory preamble to output "NEW" FCLs are marked as such Merge changesets are included in output

#!/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";
  }