diff options
Diffstat (limited to 'conform/GlibcConform.pm')
-rw-r--r-- | conform/GlibcConform.pm | 74 |
1 files changed, 74 insertions, 0 deletions
diff --git a/conform/GlibcConform.pm b/conform/GlibcConform.pm new file mode 100644 index 0000000000..2735f4e340 --- /dev/null +++ b/conform/GlibcConform.pm @@ -0,0 +1,74 @@ +#! /usr/bin/perl + +# Shared code for glibc conformance tests. + +# Copyright (C) 2014 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/>. + +package GlibcConform; +require Exporter; +@ISA = qw(Exporter); +@EXPORT = qw(%CFLAGS list_exported_functions); + +# Compiler options for each standard. +$CFLAGS{"ISO"} = "-ansi"; +$CFLAGS{"ISO99"} = "-std=c99"; +$CFLAGS{"ISO11"} = "-std=c1x -D_ISOC11_SOURCE"; +$CFLAGS{"POSIX"} = "-D_POSIX_C_SOURCE=199912 -ansi"; +$CFLAGS{"XPG3"} = "-ansi -D_XOPEN_SOURCE"; +$CFLAGS{"XPG4"} = "-ansi -D_XOPEN_SOURCE -D_XOPEN_SOURCE_EXTENDED"; +$CFLAGS{"UNIX98"} = "-ansi -D_XOPEN_SOURCE=500"; +$CFLAGS{"XOPEN2K"} = "-std=c99 -D_XOPEN_SOURCE=600"; +$CFLAGS{"XOPEN2K8"} = "-std=c99 -D_XOPEN_SOURCE=700"; +$CFLAGS{"POSIX2008"} = "-std=c99 -D_POSIX_C_SOURCE=200809L"; + +# Return a list of functions exported by a header, empty if an include +# of the header does not compile. +sub list_exported_functions { + my ($cc, $standard, $header, $tmpdir) = @_; + my ($cc_all) = "$cc -D_ISOMAC $CFLAGS{$standard}"; + my ($tmpfile) = "$tmpdir/list-$$.c"; + my ($auxfile) = "$tmpdir/list-$$.c.aux"; + my ($ret); + my (%res) = (); + open (TMPFILE, ">$tmpfile") || die ("open $tmpfile: $!\n"); + print TMPFILE "#include <$header>\n"; + close (TMPFILE) || die ("close $tmpfile: $!\n"); + $ret = system "$cc_all -c $tmpfile -o /dev/null -aux-info $auxfile > /dev/null"; + unlink ($tmpfile) || die ("unlink $tmpfile: $!\n"); + if ($ret != 0) { + return; + } + open (AUXFILE, "<$auxfile") || die ("open $auxfile: $!\n"); + while (<AUXFILE>) { + s|/\*.*?\*/||g; + if (/^\s*$/) { + next; + } + # The word before a '(' that isn't '(*' is the function name + # before the argument list (not fully general, but sufficient for + # -aux-info output on standard headers). + if (/(\w+)\s*\([^*]/) { + $res{$1} = 1; + } else { + die ("couldn't parse -aux-info output: $_\n"); + } + } + close (AUXFILE) || die ("close $auxfile: $!\n"); + unlink ($auxfile) || die ("unlink $auxfile: $!\n"); + return sort keys %res; +} |