84 lines
3.5 KiB
Raku
84 lines
3.5 KiB
Raku
#!/usr/bin/perl
|
|
|
|
# Print a list of symbols exported by some headers that would
|
|
# otherwise be in the user's namespace.
|
|
|
|
# Copyright (C) 2014-2017 Free Software Foundation, Inc.
|
|
# This file is part of the GNU C Library.
|
|
|
|
# The GNU C Library is free software; you can redistribute it and/or
|
|
# modify it under the terms of the GNU Lesser General Public
|
|
# License as published by the Free Software Foundation; either
|
|
# version 2.1 of the License, or (at your option) any later version.
|
|
|
|
# The GNU C Library 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
|
|
# Lesser General Public License for more details.
|
|
|
|
# You should have received a copy of the GNU Lesser General Public
|
|
# License along with the GNU C Library; if not, see
|
|
# <http://www.gnu.org/licenses/>.
|
|
|
|
use GlibcConform;
|
|
use Getopt::Long;
|
|
|
|
GetOptions ('headers=s' => \$headers, 'standard=s' => \$standard,
|
|
'flags=s' => \$flags, 'cc=s' => \$CC, 'tmpdir=s' => \$tmpdir);
|
|
@headers = split (/\s+/, $headers);
|
|
|
|
# Extra symbols possibly not found through -aux-info but still
|
|
# reserved by the standard: either data symbols, or symbols where the
|
|
# standard leaves unspecified whether the identifier is a macro or
|
|
# defined with external linkage.
|
|
$extra_syms{"ISO"} = ["errno", "setjmp", "va_end"];
|
|
$extra_syms{"ISO99"} = ["errno", "math_errhandling", "setjmp", "va_end"];
|
|
# stdatomic.h not yet covered by conformance tests; as per DR#419, all
|
|
# the generic functions there or may not be defined with external
|
|
# linkage (but are reserved in any case).
|
|
$extra_syms{"ISO11"} = ["errno", "math_errhandling", "setjmp", "va_end"];
|
|
# The following lists may not be exhaustive.
|
|
$extra_syms{"POSIX"} = ["errno", "setjmp", "va_end", "environ", "sigsetjmp",
|
|
"optarg", "optind", "opterr", "optopt", "tzname"];
|
|
$extra_syms{"XPG4"} = ["errno", "setjmp", "va_end", "environ", "signgam",
|
|
"loc1", "loc2", "locs", "sigsetjmp", "optarg",
|
|
"optind", "opterr", "optopt", "daylight", "timezone",
|
|
"tzname"];
|
|
$extra_syms{"XPG42"} = ["errno", "setjmp", "va_end", "environ", "signgam",
|
|
"loc1", "loc2", "locs", "sigsetjmp", "optarg",
|
|
"optind", "opterr", "optopt", "daylight", "timezone",
|
|
"tzname", "getdate_err", "h_errno"];
|
|
$extra_syms{"UNIX98"} = ["errno", "setjmp", "va_end", "environ", "signgam",
|
|
"loc1", "loc2", "locs", "sigsetjmp", "optarg",
|
|
"optind", "opterr", "optopt", "daylight", "timezone",
|
|
"tzname", "getdate_err", "h_errno"];
|
|
$extra_syms{"XOPEN2K"} = ["errno", "setjmp", "va_end", "environ", "signgam",
|
|
"sigsetjmp", "optarg", "optind", "opterr", "optopt",
|
|
"daylight", "timezone", "tzname", "getdate_err",
|
|
"h_errno", "in6addr_any", "in6addr_loopback"];
|
|
$extra_syms{"XOPEN2K8"} = ["errno", "setjmp", "va_end", "environ", "signgam",
|
|
"sigsetjmp", "optarg", "optind", "opterr", "optopt",
|
|
"daylight", "timezone", "tzname", "getdate_err",
|
|
"in6addr_any", "in6addr_loopback"];
|
|
$extra_syms{"POSIX2008"} = ["errno", "setjmp", "va_end", "environ",
|
|
"sigsetjmp", "optarg", "optind", "opterr", "optopt",
|
|
"tzname", "in6addr_any", "in6addr_loopback"];
|
|
|
|
%user_syms = ();
|
|
|
|
foreach my $header (@headers) {
|
|
@syms = list_exported_functions ("$CC $flags", $standard, $header, $tmpdir);
|
|
foreach my $sym (@syms) {
|
|
if ($sym !~ /^_/) {
|
|
$user_syms{$sym} = 1;
|
|
}
|
|
}
|
|
}
|
|
foreach my $sym (@{$extra_syms{$standard}}) {
|
|
$user_syms{$sym} = 1;
|
|
}
|
|
|
|
foreach my $sym (sort keys %user_syms) {
|
|
print "$sym\n";
|
|
}
|