author | asimpson@symbian.org |
Wed, 16 Sep 2009 12:00:21 +0100 | |
changeset 53 | 9f1f932c7b09 |
parent 8 | b40f95834f85 |
permissions | -rw-r--r-- |
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 |
|
8
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/); |
8
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 |
} |