2 # Copyright 2016 The OpenSSL Project Authors. All Rights Reserved.
4 # Licensed under the OpenSSL license (the "License"). You may not use
5 # this file except in compliance with the License. You can obtain a copy
6 # in the file LICENSE in the source distribution or at
7 # https://www.openssl.org/source/license.html
12 use File::Spec::Functions;
16 use lib catdir(dirname($0), "perl");
17 use OpenSSL::Util::Pod;
26 open my $IN, '<', $file
27 or die "Can't open $file, $!, stopped";
31 next if /EXPORT_VAR_AS_FUNC/;
32 push @apis, $1 if /([^\s]+).\s/;
37 print "# Found ", scalar(@apis), " in $file\n";
46 foreach my $pod ( glob("$dir/*.pod") ) {
47 my %podinfo = extract_pod_info($pod);
48 foreach my $n ( @{$podinfo{names}} ) {
50 print "# Duplicate $n in $pod and $dups{$n}\n"
51 if defined $dups{$n} && $dups{$n} ne $pod;
59 my %docced = &getdocced('doc/man3');
66 foreach my $func ( &parsenum($numfile) ) {
67 next if $docced{$func};
70 next if $func =~ /^ASN1_/;
75 print "# Found $count missing from $numfile\n\n";
78 &printem('util/libcrypto.num');
79 &printem('util/libssl.num');