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
|
eval '(exit $?0)' && eval 'exec perl -wST "$0" ${1+"$@"}'
& eval 'exec perl -wST "$0" $argv:q'
if 0;
# Copyright (C) 2011-2012 Free Software Foundation, Inc.
# Copyright (C) 2013 Nikos Mavrogiannopoulos
#
# This file is part of GnuTLS.
#
# This file is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This file is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this file; if not, write to the Free Software Foundation,
# Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
# This list contains exported values, but prototype isn't easy
# to obtain (e.g., it's a pointer to a function or not a function).
my %known_false_positives = (
);
# API functions that although documented as such, are simply
# macros that expand to another function.
my %known_false_negatives = (
);
sub function_print {
my $func_name;
my $prototype = shift @_;
my $check;
#print STDERR $prototype;
if ($prototype =~ m/^\s*([A-Za-z0-9_]+)\;$/) {
# if ($prototype =~ m/^(.*)/) {
$func_name = $1;
} else {
$func_name = '';
}
$check = $known_false_positives{$func_name};
return if (defined $check && $check == 1);
if ($func_name ne '' && ($func_name =~ m/^rc_.*/)) {
print $func_name . "\n";
}
return;
}
my $line;
my $lineno = 0;
while ($line=<STDIN>) {
next if ($line eq '');
# print STDERR "line($lineno): $line";
#skip comments
# if ($line =~ m/^\s*/) {
function_print($line);
# }
$lineno++;
}
for (keys %known_false_negatives) {
print $_ . "\n";
}
|
