diff options
| -rw-r--r-- | Makefile.am | 1 | ||||
| -rw-r--r-- | doc/Makefile.am | 14 | ||||
| -rwxr-xr-x | doc/scripts/getfuncs-map.pl | 90 |
3 files changed, 104 insertions, 1 deletions
diff --git a/Makefile.am b/Makefile.am index 30ed1fb38e..c524bc0e65 100644 --- a/Makefile.am +++ b/Makefile.am @@ -45,6 +45,7 @@ EXTRA_DIST = cfg.mk maint.mk .clcopying dist-hook: make -C doc/ compare-makefile + make -C doc/ compare-exported make -C doc/manpages compare-makefile rm -f ChangeLog make ChangeLog diff --git a/doc/Makefile.am b/doc/Makefile.am index 64bbb818c9..97eb7942e0 100644 --- a/doc/Makefile.am +++ b/doc/Makefile.am @@ -436,6 +436,18 @@ $(ENUMS): stamp_enums $(FUNCS): stamp_functions +compare-exported: + rm -f tmp-exp-$@ tmp-head-$@ + for i in ../libdane/includes/gnutls/*.h ../lib/includes/gnutls/*.h;do perl scripts/getfuncs.pl <$$i >>tmp-head-$@;done + sort -u tmp-head-$@|grep -v ^xssl > tmp2-head-$@ + mv tmp2-head-$@ tmp-head-$@ + scripts/getfuncs-map.pl <../lib/libgnutls.map >tmp-exp-$@ + scripts/getfuncs-map.pl <../libdane/libdane.map >>tmp-exp-$@ + sort -u tmp-exp-$@|grep -v ^xssl > tmp2-exp-$@ + mv tmp2-exp-$@ tmp-exp-$@ + diff -u tmp-exp-$@ tmp-head-$@ + rm -f tmp-exp-$@ tmp-head-$@ + compare-makefile: enums.texi ENUMS=`grep '^@c ' $(srcdir)/enums.texi | sed 's/@c //g' | sort -d`; \ STR=""; \ @@ -458,7 +470,7 @@ compare-makefile: enums.texi diff -u $(srcdir)/Makefile.am tmp-$@ >/dev/null rm -f tmp-$@ -.PHONY: compare-makefile +.PHONY: compare-makefile compare-exported # Guile texinfos. diff --git a/doc/scripts/getfuncs-map.pl b/doc/scripts/getfuncs-map.pl new file mode 100755 index 0000000000..9e5bb7e74a --- /dev/null +++ b/doc/scripts/getfuncs-map.pl @@ -0,0 +1,90 @@ +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. + +# given a header file in stdin it will print all functions + +my %known_false_positives = ( + 'gnutls_srp_1024_group_generator' => 1, + 'gnutls_srp_1024_group_prime' => 1, + 'gnutls_srp_1536_group_generator' => 1, + 'gnutls_srp_1536_group_prime' => 1, + 'gnutls_srp_2048_group_generator' => 1, + 'gnutls_srp_2048_group_prime' => 1, + 'gnutls_srp_3072_group_generator' => 1, + 'gnutls_srp_3072_group_prime' => 1, + 'gnutls_srp_4096_group_generator' => 1, + 'gnutls_srp_4096_group_prime' => 1, + 'gnutls_transport_set_int' => 1, + 'gnutls_strdup' => 1, + 'gnutls_realloc' => 1, + 'gnutls_free' => 1, + 'gnutls_malloc' => 1, + 'gnutls_calloc' => 1, + 'gnutls_secure_malloc' => 1, + 'gnutls_secure_calloc' => 1 +); + +my %known_false_negatives = ( + 'gnutls_transport_set_int' => 1, +); + +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/^gnutls_.*/ || $func_name =~ m/^dane_.*/)) { + 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"; +} |