Prior to release verify that the exported functions in the .map file match the headers.

diff --git a/Makefile.am b/Makefile.am
index 30ed1fb38e200b3a35cfac87d54c7cb12ce24558..c524bc0e65e8052b010f2dc5ad820236d1fb709d 100644 (file)
--- 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 64bbb818c9077a0f6bea1d8dcfeb34a0e61db9ee..97eb7942e095d0483060866e564009b07cf49df6 100644 (file)
--- 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 (executable)
index 0000000..9e5bb7e
--- /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";
+}