common/tools/analysis/scan_antlogs.pl
changeset 164 9a13f5f790ee
parent 97 4f54ca96b7e8
--- a/common/tools/analysis/scan_antlogs.pl	Thu Jun 18 13:29:37 2009 +0100
+++ b/common/tools/analysis/scan_antlogs.pl	Thu Jun 18 13:42:29 2009 +0100
@@ -19,7 +19,6 @@
 my %missing_files;
 my %damaged_components;
 my %excluded_things;
-my %abld_import;
 my %damaged_bldinfs;
 
 sub canonical_path($)
@@ -107,17 +106,6 @@
   my $line;
   while ($line = <FILE>)
     {
-    # Could not export s:/sf/mw/classicui/commonuisupport/uikon/docs/Uikon_1.2_Caps_Lock_Extension.doc to s:/epoc32/engdoc/application_framework/uikon/uikon_1.2_caps_lock_extension.doc
-    if ($line =~ /^Could not export .*\/(sf\/.*) to .:\/(epoc32\/.*)$/)
-      {
-      my $source = $1;
-      my $exported = $2;
-      if (-e "m:/$exported")
-        {
-        $abld_import{$source} = $exported;
-        }
-      next;
-      }
     # Source of export does not exist:  s:/sf/mw/messagingmw/messagingfw/msgtests/group/msgerr.ra
     # Source zip for export does not exist: s:/sf/os/deviceplatformrelease/S60LocFiles/data/96.zip
     if ($line =~ /^Source (of|zip for) export does not exist.\s+.*\/(sf\/.*)$/)
@@ -149,6 +137,19 @@
       do_missing_file("$parent/../$relative", $parent, "#include");
       next;  
       }
+    # make.exe: *** No rule to make target `m:/sf/os/security/crypto/weakcrypto/source/symmetric/des.cpp', needed by `m:/epoc32/build/weakcrypto/c_126994d895f12d1a/weak_cryptography_dll/winscw/udeb/des.o'.
+    if ($line =~ /No rule to make target .*(sf\/.*)', needed by .*(epoc32\/.*)'/)
+      {
+      my $missing = $1;
+      my $impact = "building $2";
+      # epoc32/build/weakcrypto/c_126994d895f12d1a/weak_cryptography_dll
+      if ($impact =~ /epoc32\/build\/[^\/]+\/[^\/]+\/([^\/]+)\//)
+        {
+        $impact = "building $1";
+        }
+      do_missing_file($missing, "??", $impact);
+      next;
+      }
     }
     close FILE;
   }
@@ -187,8 +188,6 @@
   print "\nMissing files\n";
   foreach my $missing (sort keys %missing_files)
     {
-    my $exported = $abld_import{$missing};
-    $exported = "(not in PDK)" if (!defined $exported);
     my $reason = $missing_files{$missing};
     my @dirs = split /\//, $missing;
     my $path = shift @dirs;
@@ -202,7 +201,7 @@
         $path .= "/$dir";
         next;
         }
-      print "\t$reason\t$path\t\t", join("/", $dir,@dirs), "\t$exported\n";
+      print "\t$reason\t$path\t\t", join("/", $dir,@dirs), "\n";
       last;
       }    
     }