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 next if $pod eq 'doc/crypto/crypto.pod';
48 next if $pod eq 'doc/ssl/ssl.pod';
49 my %podinfo = extract_pod_info($pod);
50 foreach my $n ( @{$podinfo{names}} ) {
52 print "# Duplicate $n in $pod and $dups{$n}\n"
65 my %docced = &getdocced($docdir);
68 foreach my $func ( &parsenum($numfile) ) {
69 next if $docced{$func};
72 next if $func =~ /^ASN1_/;
77 print "# Found $count missing from $numfile\n\n";
81 &printem('doc/crypto', 'util/libcrypto.num');
82 &printem('doc/ssl', 'util/libssl.num');