--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/williamr/scan_sbs_makefile.pl	Mon Jun 01 15:26:59 2009 +0100
@@ -0,0 +1,121 @@
+#!/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:
+# Approximate "abld -what" from SBS Makefile.default and Makefile.export
+
+use strict;
+my $component = "";
+my $mmp = "";
+my $linkpath = "";
+my $target = "";
+my $targettype = "";
+my $exports = "";
+
+sub completed
+  {
+  if ($component ne "")
+    {
+    if ($exports eq "")
+      {
+      # Compilation makefile target
+      print "$component\t$mmp\t$linkpath/$target.$targettype\n";
+      }
+    else
+      {
+      # export makefile
+      my @exportpairs = split / /, $exports;
+      foreach my $pair (@exportpairs)
+        {
+        my ($dest,$src) = split /<-/, $pair;
+        $dest =~ s/^.:\///;
+        print "$component\texport\t$dest\n";
+        }
+      }
+    }
+  $component = "";
+  $mmp = "";
+  $linkpath = "";
+  $target = "";
+  $targettype = "";
+  $exports = "";
+  }
+
+sub scan_logfile($)
+  {
+  my ($logfile) = @_;
+  
+  open FILE, "<$logfile" or print "Error: cannot open $logfile: $!\n" and return;
+  
+  my $line;
+  while ($line = <FILE>)
+    {
+    # COMPONENT_META:=s:/sf/os/boardsupport/emulator/emulatorbsp/bld.inf
+    # PROJECT_META:=s:/sf/os/boardsupport/emulator/emulatorbsp/cakdwins.mmp
+    # LINKPATH:=winscw/udeb
+    # TARGET:=ekdata
+    # TARGETTYPE:=dll
+    # EXPORT:=s:/epoc32/tools/scanlog.pl<-s:/sf/os/buildtools/bldsystemtools/buildsystemtools/scanlog/scanlog.pl more...
+    # MAKEFILE_LIST:=
+    
+    if ($line =~ /^(COMPONENT_META|PROJECT_META|LINKPATH|TARGET|REQUESTEDTARGETEXT|EXPORT|MAKEFILE_LIST):=(.*)$/o)
+      {
+      my $variable = $1;
+      my $value = $2;
+      
+      if ($variable eq "MAKEFILE_LIST")
+        {
+        completed();
+        next;
+        }
+      if ($variable eq "COMPONENT_META")
+        {
+        $component = $value;
+        next;
+        }
+      if ($variable eq "PROJECT_META")
+        {
+        $mmp = $value;
+        next;
+        }
+      if ($variable eq "LINKPATH")
+        {
+        $linkpath = $value;
+        next;
+        }
+      if ($variable eq "TARGET")
+        {
+        $target = $value;
+        next;
+        }
+      if ($variable eq "REQUESTEDTARGETEXT")
+        {
+        $targettype = $value;
+        next;
+        }
+      if ($variable eq "EXPORT")
+        {
+        $exports = $value;
+        next;
+        }
+      }
+    }
+    close FILE;
+  }
+
+  my @logfiles = map(glob,@ARGV);
+  foreach my $logfile (@logfiles)
+    {
+    # print "Scanning $logfile...\n";
+    scan_logfile($logfile);
+    }