williamr/find_public_apis.pl
author Dario Sestito <darios@symbian.org>
Tue, 29 Jun 2010 11:58:24 +0100
changeset 295 a215187752cf
parent 9 b40f95834f85
permissions -rw-r--r--
Allow shell wildcards in input file names
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
     1
#!/usr/bin/perl
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
     2
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
     3
# Copyright (c) 2009 Symbian Foundation Ltd
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
     4
# This component and the accompanying materials are made available
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
     5
# under the terms of the License "Eclipse Public License v1.0"
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
     6
# which accompanies this distribution, and is available
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
     7
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
     8
#
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
     9
# Initial Contributors:
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    10
# Symbian Foundation Ltd - initial contribution.
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    11
# 
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    12
# Contributors:
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    13
#
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    14
# Description:
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    15
# Identify "Public APIs" - defined as
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    16
# 1. Files in epoc32\include which are not in epoc32\include\platform, 
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    17
# 2. And contain either no Symbian API classification doxygen tags (Public by export)
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    18
# 3. Or contain @publishedAll (Public by tag - now deprecated)
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    19
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    20
use strict;
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    21
my $debug = 0;
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    22
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    23
my @public_included = ();
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    24
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
    25
sub analyse_api($$$)
2
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    26
  {
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
    27
  my ($file,$name,$includelistref) = @_;
2
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    28
  
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    29
  if ($name =~ /^epoc32\/include\/platform\//)
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    30
    {
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    31
    # /epoc32/include/platform files are "Platform by export"
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
    32
    return "Platform by export";
2
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    33
    }
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    34
  
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    35
  if ($name =~ /\./ && $name !~ /\.(h|rh|hrh|inl|c|hpp)$/i)
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    36
    {
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    37
    # Not a file which contains APIs anyway
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
    38
    return "Non-API extension";
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    39
    }
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    40
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
    41
  open FILE, "<$file" or print "ERROR: Cannot open $file: $!\n" and return "Cannot open";
2
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    42
  my @lines = <FILE>; # they are all of a modest size
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    43
  close FILE;
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    44
  
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    45
  my @includelines = grep /^\s*#include\s+/, @lines;
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    46
  my @includefiles = ();
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    47
  foreach my $includeline (@includelines)
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    48
    {
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    49
    if ($includeline =~ /^\s*#include\s+["<](.*\.([^.]+))[">]/)
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    50
      {
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    51
      my $filename = $1;
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    52
      my $extension = $2;
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    53
      
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    54
      # print "++ $filename ($extension)\n";
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
    55
      if ($extension =~ /mbg|rsg/i)
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    56
        {
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    57
        # generated file referenced by #include
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
    58
        push @{$includelistref}, $filename; 
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    59
        print STDERR "** $file - $includeline";
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    60
        }
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    61
      }
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    62
    }
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    63
  
2
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    64
  my @apitaglines = grep /\@published|\@internal/, @lines;
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    65
  if (scalar @apitaglines == 0)
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    66
    {
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    67
    # no API classification tags - must be "Public by export" 
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
    68
    return "Public by export";
2
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    69
    }
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    70
  else
2
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    71
    {
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    72
    if ($debug)
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    73
      {
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    74
      print join("\n\t", $file, @apitaglines), "\n";
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    75
      }
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    76
    my @publishedAll = grep /\@publishedAll/, @apitaglines;
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    77
    if (scalar @publishedAll == 0)
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    78
      {
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    79
      # the API classification tags are all @publishedPartner or @internal
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
    80
      return "Platform by tag";
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    81
      }
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    82
    # contains at least one @publishedAll element - must be "Public by tag"
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
    83
    return "Public by tag";
2
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    84
    }
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    85
  }
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    86
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
    87
# Process epoc32\include tree
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
    88
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
    89
my %rationale;
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    90
my %ignoring_case;
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
    91
2
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    92
sub scan_directory($$)
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    93
  {
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    94
  my ($path, $name) = @_;
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    95
  
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    96
  opendir DIR, $path;
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    97
  my @files = grep !/^\.\.?$/, readdir DIR;
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    98
  closedir DIR;
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
    99
  
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
   100
  foreach my $file (@files)
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
   101
    {
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
   102
    my $newpath = "$path/$file";
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
   103
    my $newname = "$name/$file";
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
   104
    
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
   105
    if (-d $newpath)
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
   106
      {
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
   107
      scan_directory($newpath, $newname);
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
   108
      next;
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
   109
      }
a600c1a596f7 Create "williamr" directory in utilities, and add an assortment of Perl scripts
William Roberts <williamr@symbian.org>
parents:
diff changeset
   110
    
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   111
    $ignoring_case{lc $newname} = $newname;
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   112
    
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   113
    my @includefiles = ();
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   114
    my $reason = analyse_api($newpath,$newname, \@includefiles);
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   115
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   116
    $rationale{$newname} = $reason;
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   117
 
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   118
    if ($reason =~ /Public/)
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   119
      {
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   120
      push @public_included, @includefiles;   # #included files are therefore also public
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   121
      }
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   122
    }
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   123
  }
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   124
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   125
scan_directory("/epoc32/include", "epoc32/include");
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   126
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   127
# Add the generated files which are included in public API files
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   128
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   129
foreach my $file (@public_included)
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   130
  {
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   131
  # print "PUBLIC\tepoc32/include/$file\tIncluded\n";
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   132
  my $newname = "epoc32/include/$file";
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   133
  $newname = $ignoring_case{lc $newname};
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   134
  $rationale{$newname} = "Public by Inclusion";
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   135
  }
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   136
9
b40f95834f85 Remove the "Public by precedent" analysis and the assumed Symbian^1 list
William Roberts <williamr@symbian.org>
parents: 4
diff changeset
   137
print "Filename\tClassification\tReason\n";
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   138
foreach my $file (sort keys %rationale)
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   139
  {
4
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   140
  my $reason = $rationale{$file};
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   141
  my $classification = "Platform";
60053dab7e2a Update scan_antlogs.pl to use "No rule to make" lines to infer more missing things
William Roberts <williamr@symbian.org>
parents: 3
diff changeset
   142
  $classification = "Public" if ($reason =~ /Public/);
9
b40f95834f85 Remove the "Public by precedent" analysis and the assumed Symbian^1 list
William Roberts <williamr@symbian.org>
parents: 4
diff changeset
   143
  print "$file\t$classification\t$reason\n";
3
8b87ea768cb8 Add a utility to convert raptor timestamps back into localtime.
William Roberts <williamr@symbian.org>
parents: 2
diff changeset
   144
  }