1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
#!/usr/bin/perl
# Copyright (C) 2018 The Android Open Source Project
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
use strict;
use Getopt::Long;
use Pod::Usage;
=pod
=head1 DESCRIPTION
This script parses API violations from C<adb logcat>. Output is in CSV format
with columns C<package>, C<symbol>, C<list>.
The package name is mapped from a PID, parsed from the same log. To ensure you
get all packages names, you should process the logcat from device boot time.
=head1 SYNOPSIS
adb logcat | perl find_api_violations.pl > violations.csv
cat bugreport.txt | perl find_api_violations.pl --bugreport > violations.csv
=head1 OPTIONS
=over
=item --[no]lightgrey
(Don't) show light grey list accesses (default true)
=item --[no]darkgrey
(Don't) show dark grey list accesses (default true)
=item --[no]black
(Don't) show black list accesses (default true)
=item --bugreport|-b
Process a bugreport, rather than raw logcat
=item --short|-s
Output API signatures only, don't include CSV header/package names/list name.
=item --help
=back
=cut
my $lightgrey = 1;
my $darkgrey = 1;
my $black = 1;
my $bugreport = 0;
my $short = 0;
my $help = 0;
GetOptions("lightgrey!" => \$lightgrey,
"darkgrey!" => \$darkgrey,
"black!" => \$black,
"bugreport|b" => \$bugreport,
"short|s" => \$short,
"help" => \$help)
or pod2usage(q(-verbose) => 1);
pod2usage(q(-verbose) => 2) if ($help);
my $in;
if ($bugreport) {
my $found_main = 0;
while (my $line = <>) {
chomp $line;
if ($line =~ m/^------ SYSTEM LOG /) {
$found_main = 1;
last;
}
}
if (!$found_main) {
die "Couldn't find main log in bugreport\n";
}
}
my $procmap = {};
print "package,symbol,list\n" unless $short;
while (my $line = <>) {
chomp $line;
last if $bugreport and $line =~ m/^------ \d+\.\d+s was the duration of 'SYSTEM LOG' ------/;
next if $line =~ m/^--------- beginning of/;
unless ($line =~ m/^\d{2}-\d{2} \d{2}:\d{2}:\d{2}.\d{3}\s+(?:\w+\s+)?(\d+)\s+(\d+)\s+([VWIDE])\s+(.*?): (.*)$/) {
die "Cannot match line: $line\n";
next;
}
my ($pid, $tid, $class, $tag, $msg) = ($1, $2, $3, $4, $5);
if ($tag eq "ActivityManager" && $msg =~ m/^Start proc (\d+):(.*?) for /) {
my ($new_pid, $proc_name) = ($1, $2);
my $package;
if ($proc_name =~ m/^(.*?)(:.*?)?\/(.*)$/) {
$package = $1;
} else {
$package = $proc_name;
}
$procmap->{$new_pid} = $package;
}
if ($msg =~ m/Accessing hidden (\w+) (L.*?) \((.*list), (.*?)\)/) {
my ($member_type, $symbol, $list, $access_type) = ($1, $2, $3, $4);
my $package = $procmap->{$pid} || "unknown($pid)";
if (($list =~ m/light/ && $lightgrey)
|| ($list =~ m/dark/ && $darkgrey)
|| ($list =~ m/black/ && $black)) {
if ($short) {
print "$symbol\n";
} else {
print "$package,$symbol,$list\n"
}
}
}
}
|
