|
Packit |
aea12f |
#!/usr/bin/perl
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
# Copyright (C) 2011-2012 Free Software Foundation, Inc.
|
|
Packit |
aea12f |
# Copyright (C) 2013 Nikos Mavrogiannopoulos
|
|
Packit |
aea12f |
#
|
|
Packit |
aea12f |
# This file is part of GnuTLS.
|
|
Packit |
aea12f |
#
|
|
Packit |
aea12f |
# This file is free software; you can redistribute it and/or modify it
|
|
Packit |
aea12f |
# under the terms of the GNU General Public License as published by
|
|
Packit |
aea12f |
# the Free Software Foundation; either version 3 of the License, or
|
|
Packit |
aea12f |
# (at your option) any later version.
|
|
Packit |
aea12f |
#
|
|
Packit |
aea12f |
# This file is distributed in the hope that it will be useful, but
|
|
Packit |
aea12f |
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit |
aea12f |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Packit |
aea12f |
# General Public License for more details.
|
|
Packit |
aea12f |
#
|
|
Packit |
aea12f |
# You should have received a copy of the GNU General Public License
|
|
Packit |
aea12f |
# along with this file; if not, write to the Free Software Foundation,
|
|
Packit |
aea12f |
# Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
# This list contains exported values, but prototype isn't easy
|
|
Packit |
aea12f |
# to obtain (e.g., it's a pointer to a function or not a function).
|
|
Packit |
aea12f |
my %known_false_positives = (
|
|
Packit |
aea12f |
'gnutls_srp_1024_group_generator' => 1,
|
|
Packit |
aea12f |
'gnutls_srp_1024_group_prime' => 1,
|
|
Packit |
aea12f |
'gnutls_srp_1536_group_generator' => 1,
|
|
Packit |
aea12f |
'gnutls_srp_1536_group_prime' => 1,
|
|
Packit |
aea12f |
'gnutls_srp_2048_group_generator' => 1,
|
|
Packit |
aea12f |
'gnutls_srp_2048_group_prime' => 1,
|
|
Packit |
aea12f |
'gnutls_srp_3072_group_generator' => 1,
|
|
Packit |
aea12f |
'gnutls_srp_3072_group_prime' => 1,
|
|
Packit |
aea12f |
'gnutls_srp_4096_group_generator' => 1,
|
|
Packit |
aea12f |
'gnutls_srp_4096_group_prime' => 1,
|
|
Packit |
aea12f |
'gnutls_srp_8192_group_generator' => 1,
|
|
Packit |
aea12f |
'gnutls_srp_8192_group_prime' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_2048_group_generator' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_2048_group_prime' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_2048_group_q' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_2048_key_bits' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_3072_group_generator' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_3072_group_prime' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_3072_group_q' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_3072_key_bits' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_4096_group_generator' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_4096_group_prime' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_4096_group_q' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_4096_key_bits' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_6144_group_generator' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_6144_group_prime' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_6144_group_q' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_6144_key_bits' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_8192_group_generator' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_8192_group_prime' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_8192_group_q' => 1,
|
|
Packit |
aea12f |
'gnutls_ffdhe_8192_key_bits' => 1,
|
|
Packit |
aea12f |
'gnutls_transport_set_int' => 1,
|
|
Packit |
aea12f |
'gnutls_strdup' => 1,
|
|
Packit |
aea12f |
'gnutls_realloc' => 1,
|
|
Packit |
aea12f |
'gnutls_free' => 1,
|
|
Packit |
aea12f |
'gnutls_malloc' => 1,
|
|
Packit |
aea12f |
'gnutls_calloc' => 1,
|
|
Packit |
aea12f |
'gnutls_secure_malloc' => 1,
|
|
Packit |
aea12f |
'gnutls_realloc_fast' => 1,
|
|
Packit |
aea12f |
'gnutls_secure_calloc' => 1,
|
|
Packit |
aea12f |
'gnutls_pubkey_get_pk_dsa_raw' => 1,
|
|
Packit |
aea12f |
'gnutls_pubkey_get_pk_ecc_raw' => 1,
|
|
Packit |
aea12f |
'gnutls_pubkey_get_pk_ecc_x962' => 1,
|
|
Packit |
aea12f |
'gnutls_pubkey_get_pk_rsa_raw' => 1,
|
|
Packit |
aea12f |
);
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
# API functions that although documented as such, are simply
|
|
Packit |
aea12f |
# macros that expand to another function.
|
|
Packit |
aea12f |
my %known_false_negatives = (
|
|
Packit |
aea12f |
'gnutls_pkcs11_copy_x509_crt' => 1,
|
|
Packit |
aea12f |
'gnutls_pkcs11_copy_x509_privkey' => 1,
|
|
Packit |
aea12f |
'gnutls_pkcs11_privkey_generate' => 1,
|
|
Packit |
aea12f |
'gnutls_pkcs11_privkey_generate2' => 1,
|
|
Packit |
aea12f |
'gnutls_privkey_import_pkcs11_url' => 1,
|
|
Packit |
aea12f |
'gnutls_transport_set_int' => 1,
|
|
Packit |
aea12f |
);
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
sub function_print {
|
|
Packit |
aea12f |
my $func_name;
|
|
Packit |
aea12f |
my $prototype = shift @_;
|
|
Packit |
aea12f |
my $check;
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
#print STDERR $prototype;
|
|
Packit |
aea12f |
if ($prototype =~ m/^\s*([A-Za-z0-9_]+)\;$/) {
|
|
Packit |
aea12f |
# if ($prototype =~ m/^(.*)/) {
|
|
Packit |
aea12f |
$func_name = $1;
|
|
Packit |
aea12f |
} else {
|
|
Packit |
aea12f |
$func_name = '';
|
|
Packit |
aea12f |
}
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
$check = $known_false_positives{$func_name};
|
|
Packit |
aea12f |
return if (defined $check && $check == 1);
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
if ($func_name ne '' && ($func_name =~ m/^gnutls_.*/ || $func_name =~ m/^dane_.*/)) {
|
|
Packit |
aea12f |
print $func_name . "\n";
|
|
Packit |
aea12f |
}
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
return;
|
|
Packit |
aea12f |
}
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
my $line;
|
|
Packit |
aea12f |
my $lineno = 0;
|
|
Packit |
aea12f |
while ($line=<STDIN>) {
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
next if ($line eq '');
|
|
Packit |
aea12f |
# print STDERR "line($lineno): $line";
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
#skip comments
|
|
Packit |
aea12f |
# if ($line =~ m/^\s*/) {
|
|
Packit |
aea12f |
function_print($line);
|
|
Packit |
aea12f |
# }
|
|
Packit |
aea12f |
$lineno++;
|
|
Packit |
aea12f |
}
|
|
Packit |
aea12f |
|
|
Packit |
aea12f |
for (keys %known_false_negatives) {
|
|
Packit |
aea12f |
print $_ . "\n";
|
|
Packit |
aea12f |
}
|