--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/williamr/sfl_exports.pl	Mon Jun 01 15:26:59 2009 +0100
@@ -0,0 +1,59 @@
+#!/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";
+  }