summaryrefslogtreecommitdiff
path: root/conform
diff options
context:
space:
mode:
authorUlrich Drepper <drepper@redhat.com>2001-01-25 19:14:31 +0000
committerUlrich Drepper <drepper@redhat.com>2001-01-25 19:14:31 +0000
commit2eba94b2cb9180ea3e323ba17434b64cd5b632a5 (patch)
tree83a01e034a6bcd9a5d76b0e6a32d64d5fb6652c5 /conform
parent6b3e83338bc49345326790156a7a3498dfceee12 (diff)
Update.
* conform/conformtest.pl: Implement optional-constant. * conform/data/unistd.h-data: Use optional-constant wherever appropriate.
Diffstat (limited to 'conform')
-rw-r--r--conform/conformtest.pl117
-rw-r--r--conform/data/unistd.h-data150
2 files changed, 166 insertions, 101 deletions
diff --git a/conform/conformtest.pl b/conform/conformtest.pl
index 4353ffcdbd..8dde08c11d 100644
--- a/conform/conformtest.pl
+++ b/conform/conformtest.pl
@@ -83,7 +83,7 @@ sub poorfnmatch {
sub compiletest
{
- my($fnamebase, $msg, $errmsg, $skip) = @_;
+ my($fnamebase, $msg, $errmsg, $skip, $optional) = @_;
my($result) = $skip;
my($printlog) = 0;
@@ -96,13 +96,18 @@ sub compiletest
} else {
$ret = system "$CC $CFLAGS -c $fnamebase.c -o $fnamebase.o > $fnamebase.out 2>&1";
if ($ret != 0) {
- printf (" FAIL\n");
- if ($verbose != 0) {
- printf (" $errmsg Compiler message:\n");
- $printlog = 1;
+ if ($optional != 0) {
+ printf (" $errmsg\n");
+ $result = 1;
+ } else {
+ printf (" FAIL\n");
+ if ($verbose != 0) {
+ printf (" $errmsg Compiler message:\n");
+ $printlog = 1;
+ }
+ ++$errors;
+ $result = 1;
}
- ++$errors;
- $result = 1;
} else {
printf (" OK\n");
if ($verbose > 1 && -s "$fnamebase.out") {
@@ -274,7 +279,7 @@ while ($#headers >= 0) {
close (TESTFILE);
$missing = compiletest ($fnamebase, "Checking whether <$h> is available",
- "Header <$h> not available", 0);
+ "Header <$h> not available", 0, 0);
printf ("\n");
@@ -307,7 +312,7 @@ while ($#headers >= 0) {
close (TESTFILE);
$res = compiletest ($fnamebase, "Testing for member $member",
- "Member \"$member\" not available.", $res);
+ "Member \"$member\" not available.", $res, 0);
# Test the types of the members.
@@ -321,6 +326,37 @@ while ($#headers >= 0) {
compiletest ($fnamebase, "Testing for type of member $member",
"Member \"$member\" does not have the correct type.", $res);
+ } elsif (/^optional-constant *([a-zA-Z0-9_]*) ([>=<]+) ([A-Za-z0-9_]*)/) {
+ my($const) = $1;
+ my($op) = $2;
+ my($value) = $3;
+ my($res) = $missing;
+
+ # Remember that this name is allowed.
+ push @allow, $const;
+
+ # Generate a program to test for the availability of this constant.
+ open (TESTFILE, ">$fnamebase.c");
+ print TESTFILE "$prepend";
+ print TESTFILE "#include <$h>\n";
+ print TESTFILE "__typeof__ ($const) a = $const;\n";
+ close (TESTFILE);
+
+ $res = compiletest ($fnamebase, "Testing for constant $const",
+ "NOT PRESENT", $res, 1);
+
+ if ($value ne "") {
+ # Generate a program to test for the value of this constant.
+ open (TESTFILE, ">$fnamebase.c");
+ print TESTFILE "$prepend";
+ print TESTFILE "#include <$h>\n";
+ # Negate the value since 0 means ok
+ print TESTFILE "int main (void) { return !($const $op $value); }\n";
+ close (TESTFILE);
+
+ $res = runtest ($fnamebase, "Testing for value of constant $const",
+ "Constant \"$const\" has not the right value.", $res);
+ }
} elsif (/^constant *([a-zA-Z0-9_]*) ([>=<]+) ([A-Za-z0-9_]*)/) {
my($const) = $1;
my($op) = $2;
@@ -338,7 +374,7 @@ while ($#headers >= 0) {
close (TESTFILE);
$res = compiletest ($fnamebase, "Testing for constant $const",
- "Constant \"$const\" not available.", $res);
+ "Constant \"$const\" not available.", $res, 0);
if ($value ne "") {
# Generate a program to test for the value of this constant.
@@ -369,7 +405,7 @@ while ($#headers >= 0) {
close (TESTFILE);
$res = compiletest ($fnamebase, "Testing for constant $const",
- "Constant \"$const\" not available.", $res);
+ "Constant \"$const\" not available.", $res, 0);
# Test the types of the members.
open (TESTFILE, ">$fnamebase.c");
@@ -381,7 +417,36 @@ while ($#headers >= 0) {
compiletest ($fnamebase, "Testing for type of constant $const",
"Constant \"$const\" does not have the correct type.",
- $res);
+ $res, 0);
+
+ if ($value ne "") {
+ # Generate a program to test for the value of this constant.
+ open (TESTFILE, ">$fnamebase.c");
+ print TESTFILE "$prepend";
+ print TESTFILE "#include <$h>\n";
+ print TESTFILE "int main (void) { return $const != $value; }\n";
+ close (TESTFILE);
+
+ $res = runtest ($fnamebase, "Testing for value of constant $const",
+ "Constant \"$const\" has not the right value.", $res);
+ }
+ } elsif (/^optional-constant *([a-zA-Z0-9_]*) *([A-Za-z0-9_]*)?/) {
+ my($const) = $1;
+ my($value) = $2;
+ my($res) = $missing;
+
+ # Remember that this name is allowed.
+ push @allow, $const;
+
+ # Generate a program to test for the availability of this constant.
+ open (TESTFILE, ">$fnamebase.c");
+ print TESTFILE "$prepend";
+ print TESTFILE "#include <$h>\n";
+ print TESTFILE "__typeof__ ($const) a = $const;\n";
+ close (TESTFILE);
+
+ $res = compiletest ($fnamebase, "Testing for constant $const",
+ "NOT PRESENT", $res, 1);
if ($value ne "") {
# Generate a program to test for the value of this constant.
@@ -410,7 +475,7 @@ while ($#headers >= 0) {
close (TESTFILE);
$res = compiletest ($fnamebase, "Testing for constant $const",
- "Constant \"$const\" not available.", $res);
+ "Constant \"$const\" not available.", $res, 0);
if ($value ne "") {
# Generate a program to test for the value of this constant.
@@ -440,7 +505,7 @@ while ($#headers >= 0) {
close (TESTFILE);
$res = compiletest ($fnamebase, "Testing for constant $const",
- "Constant \"$const\" not available.", $res);
+ "Constant \"$const\" not available.", $res, 0);
# Test the types of the members.
open (TESTFILE, ">$fnamebase.c");
@@ -452,7 +517,7 @@ while ($#headers >= 0) {
compiletest ($fnamebase, "Testing for type of constant $const",
"Constant \"$const\" does not have the correct type.",
- $res);
+ $res, 0);
if ($value ne "") {
# Generate a program to test for the value of this constant.
@@ -488,7 +553,7 @@ while ($#headers >= 0) {
close (TESTFILE);
compiletest ($fnamebase, "Testing for type $type",
- "Type \"$type\" not available.", $missing);
+ "Type \"$type\" not available.", $missing, 0);
} elsif (/^function *({([^}]*)}|([a-zA-Z0-9_]*)) [(][*]([a-zA-Z0-9_]*) ([(].*[)])/) {
my($rettype) = "$2$3";
my($fname) = "$4";
@@ -507,7 +572,7 @@ while ($#headers >= 0) {
close (TESTFILE);
$res = compiletest ($fnamebase, "Test availability of function $fname",
- "Function \"$fname\" is not available.", $res);
+ "Function \"$fname\" is not available.", $res, 0);
# Generate a program to test for the type of this function.
open (TESTFILE, ">$fnamebase.c");
@@ -519,7 +584,7 @@ while ($#headers >= 0) {
close (TESTFILE);
compiletest ($fnamebase, "Test for type of function $fname",
- "Function \"$fname\" has incorrect type.", $res);
+ "Function \"$fname\" has incorrect type.", $res, 0);
} elsif (/^function *({([^}]*)}|([a-zA-Z0-9_]*)) ([a-zA-Z0-9_]*) ([(].*[)])/) {
my($rettype) = "$2$3";
my($fname) = "$4";
@@ -538,7 +603,7 @@ while ($#headers >= 0) {
close (TESTFILE);
$res = compiletest ($fnamebase, "Test availability of function $fname",
- "Function \"$fname\" is not available.", $res);
+ "Function \"$fname\" is not available.", $res, 0);
# Generate a program to test for the type of this function.
open (TESTFILE, ">$fnamebase.c");
@@ -550,7 +615,7 @@ while ($#headers >= 0) {
close (TESTFILE);
compiletest ($fnamebase, "Test for type of function $fname",
- "Function \"$fname\" has incorrect type.", $res);
+ "Function \"$fname\" has incorrect type.", $res, 0);
} elsif (/^variable *({([^}]*)}|([a-zA-Z0-9_]*)) ([a-zA-Z0-9_]*)/) {
my($type) = "$2$3";
my($vname) = "$4";
@@ -568,7 +633,7 @@ while ($#headers >= 0) {
close (TESTFILE);
$res = compiletest ($fnamebase, "Test availability of variable $vname",
- "Variable \"$vname\" is not available.", $res);
+ "Variable \"$vname\" is not available.", $res, 0);
# Generate a program to test for the type of this function.
open (TESTFILE, ">$fnamebase.c");
@@ -579,7 +644,7 @@ while ($#headers >= 0) {
close (TESTFILE);
compiletest ($fnamebase, "Test for type of variable $fname",
- "Variable \"$vname\" has incorrect type.", $res);
+ "Variable \"$vname\" has incorrect type.", $res, 0);
} elsif (/^macro-function *({([^}]*)}|([a-zA-Z0-9_]*)) ([a-zA-Z0-9_]*) ([(].*[)])/) {
my($rettype) = "$2$3";
my($fname) = "$4";
@@ -599,7 +664,7 @@ while ($#headers >= 0) {
close (TESTFILE);
$res = compiletest ($fnamebase, "Test availability of function $fname",
- "Function \"$fname\" is not available.", $res);
+ "Function \"$fname\" is not available.", $res, 0);
# Generate a program to test for the type of this function.
open (TESTFILE, ">$fnamebase.c");
@@ -612,7 +677,7 @@ while ($#headers >= 0) {
close (TESTFILE);
compiletest ($fnamebase, "Test for type of function $fname",
- "Function \"$fname\" has incorrect type.", $res);
+ "Function \"$fname\" has incorrect type.", $res, 0);
} elsif (/^macro-str *([^ ]*)\s*(\".*\")/) {
# The above regex doesn't handle a \" in a string.
my($macro) = "$1";
@@ -632,7 +697,7 @@ while ($#headers >= 0) {
close (TESTFILE);
compiletest ($fnamebase, "Test availability of macro $macro",
- "Macro \"$macro\" is not available.", $missing);
+ "Macro \"$macro\" is not available.", $missing, 0);
# Generate a program to test for the value of this macro.
open (TESTFILE, ">$fnamebase.c");
@@ -661,7 +726,7 @@ while ($#headers >= 0) {
close (TESTFILE);
compiletest ($fnamebase, "Test availability of macro $macro",
- "Macro \"$macro\" is not available.", $missing);
+ "Macro \"$macro\" is not available.", $missing, 0);
} elsif (/^allow-header *(.*)/) {
my($pattern) = $1;
push @allowheader, $pattern;
diff --git a/conform/data/unistd.h-data b/conform/data/unistd.h-data
index 70f598b3e4..de880d3c1a 100644
--- a/conform/data/unistd.h-data
+++ b/conform/data/unistd.h-data
@@ -1,92 +1,92 @@
-constant _POSIX_VERSION
-constant _POSIX2_C_VERSION
-constant _XOPEN_VERSION
-constant _XOPEN_XCU_VERSION
+optional-constant _POSIX_VERSION
+optional-constant _POSIX2_C_VERSION
+optional-constant _XOPEN_VERSION
+optional-constant _XOPEN_XCU_VERSION
-constant _POSIX2_C_BIND
-constant _POSIX2_CHAR_TERM
-constant _POSIX2_LOCALEDEF
-constant _POSIX2_UPE
-constant _POSIX2_VERSION
+optional-constant _POSIX2_C_BIND
+optional-constant _POSIX2_CHAR_TERM
+optional-constant _POSIX2_LOCALEDEF
+optional-constant _POSIX2_UPE
+optional-constant _POSIX2_VERSION
-constant _XOPEN_XPG2
-constant _XOPEN_XPG3
-constant _XOPEN_XPG4
-constant _XOPEN_UNIX
+optional-constant _XOPEN_XPG2
+optional-constant _XOPEN_XPG3
+optional-constant _XOPEN_XPG4
+optional-constant _XOPEN_UNIX
-constant _POSIX_ADVISORY_INFO
-constant _POSIX_ASYNCHRONOUS_IO
-constant _POSIX_BARRIERS
-constant _POSIX_CHOWN_RESTRICTED
-constant _POSIX_CLOCK_SELECTION
-constant _POSIX_CPUTIME
-constant _POSIX_NO_TRUNC
-constant _POSIX_VDISABLE
-constant _POSIX_SAVED_IDS
-constant _POSIX_JOB_CONTROL
-constant _POSIX_MONOTONIC_CLOCK
-constant _POSIX_READER_WRITER_LOCKS
-constant _POSIX_SHELL
-constant _POSIX_SPAWN
-constant _POSIX_SPIN_LOCKS
-constant _POSIX_SPORADIC_SERVER
-constant _POSIX_THREAD_CPUTIME
-constant _POSIX_TYPED_MEMORY_OBJECTS
+optional-constant _POSIX_ADVISORY_INFO
+optional-constant _POSIX_ASYNCHRONOUS_IO
+optional-constant _POSIX_BARRIERS
+optional-constant _POSIX_CHOWN_RESTRICTED
+optional-constant _POSIX_CLOCK_SELECTION
+optional-constant _POSIX_CPUTIME
+optional-constant _POSIX_NO_TRUNC
+optional-constant _POSIX_VDISABLE
+optional-constant _POSIX_SAVED_IDS
+optional-constant _POSIX_JOB_CONTROL
+optional-constant _POSIX_MONOTONIC_CLOCK
+optional-constant _POSIX_READER_WRITER_LOCKS
+optional-constant _POSIX_SHELL
+optional-constant _POSIX_SPAWN
+optional-constant _POSIX_SPIN_LOCKS
+optional-constant _POSIX_SPORADIC_SERVER
+optional-constant _POSIX_THREAD_CPUTIME
+optional-constant _POSIX_TYPED_MEMORY_OBJECTS
-constant _POSIX_THREADS
-constant _POSIX_THREAD_ATTR_STACKADDR
-constant _POSIX_THREAD_ATTR_STACKSIZE
-constant _POSIX_THREAD_PROCESS_SHARED
-constant _POSIX_THREAD_SAFE_FUNCTIONS
-constant _POSIX_THREAD_SPORADIC_SERVER
+optional-constant _POSIX_THREADS
+optional-constant _POSIX_THREAD_ATTR_STACKADDR
+optional-constant _POSIX_THREAD_ATTR_STACKSIZE
+optional-constant _POSIX_THREAD_PROCESS_SHARED
+optional-constant _POSIX_THREAD_SAFE_FUNCTIONS
+optional-constant _POSIX_THREAD_SPORADIC_SERVER
-constant _POSIX2_C_DEV
-constant _POSIX2_FORT_DEV
-constant _POSIX2_FORT_RUN
-constant _POSIX2_SW_DEV
-constant _XOPEN_CRYPT
-constant _XOPEN_ENH_I18N
-constant _XOPEN_LEGACY
-constant _XOPEN_REALTIME
-constant _XOPEN_REALTIME_THREADS
-constant _XOPEN_SHM
-constant _XOPEN_STREAMS
+optional-constant _POSIX2_C_DEV
+optional-constant _POSIX2_FORT_DEV
+optional-constant _POSIX2_FORT_RUN
+optional-constant _POSIX2_SW_DEV
+optional-constant _XOPEN_CRYPT
+optional-constant _XOPEN_ENH_I18N
+optional-constant _XOPEN_LEGACY
+optional-constant _XOPEN_REALTIME
+optional-constant _XOPEN_REALTIME_THREADS
+optional-constant _XOPEN_SHM
+optional-constant _XOPEN_STREAMS
allow _XBS5_ILP32_OFF32
allow _XBS5_ILP32_OFBIG
allow _XBS5_LP64_OFF64
allow _XBS5_LPBIG_OFFBIG
-constant _POSIX_ASYNCHRONOUS_IO
-constant _POSIX_MEMLOCK
-constant _POSIX_MEMLOCK_RANGE
-constant _POSIX_MESSAGE_PASSING
-constant _POSIX_PRIORITY_SCHEDULING
-constant _POSIX_REALTIME_SIGNALS
-constant _POSIX_SEMAPHORES
-constant _POSIX_SHARED_MEMORY_OBJECTS
-constant _POSIX_SYNCHRONIZED_IO
-constant _POSIX_TIMERS
-constant _POSIX_TIMEOUTS
+optional-constant _POSIX_ASYNCHRONOUS_IO
+optional-constant _POSIX_MEMLOCK
+optional-constant _POSIX_MEMLOCK_RANGE
+optional-constant _POSIX_MESSAGE_PASSING
+optional-constant _POSIX_PRIORITY_SCHEDULING
+optional-constant _POSIX_REALTIME_SIGNALS
+optional-constant _POSIX_SEMAPHORES
+optional-constant _POSIX_SHARED_MEMORY_OBJECTS
+optional-constant _POSIX_SYNCHRONIZED_IO
+optional-constant _POSIX_TIMERS
+optional-constant _POSIX_TIMEOUTS
-constant _POSIX_FSYNC
-constant _POSIX_MAPPED_FILES
-constant _POSIX_MEMORY_PROTECTION
+optional-constant _POSIX_FSYNC
+optional-constant _POSIX_MAPPED_FILES
+optional-constant _POSIX_MEMORY_PROTECTION
-constant _POSIX_PRIORITIZED_IO
+optional-constant _POSIX_PRIORITIZED_IO
-constant _POSIX_THREAD_PRIORITY_SCHEDULING
-constant _POSIX_THREAD_PRIO_INHERIT
-constant _POSIX_THREAD_PRIO_PROTECT
+optional-constant _POSIX_THREAD_PRIORITY_SCHEDULING
+optional-constant _POSIX_THREAD_PRIO_INHERIT
+optional-constant _POSIX_THREAD_PRIO_PROTECT
-constant _POSIX_ASYNC_IO
-constant _POSIX_PRIO_IO
-constant _POSIX_SYNC_IO
+optional-constant _POSIX_ASYNC_IO
+optional-constant _POSIX_PRIO_IO
+optional-constant _POSIX_SYNC_IO
-constant _POSIX2_PBS
-constant _POSIX2_PBS_ACCOUNTING
-constant _POSIX2_PBS_CHECKPOINT
-constant _POSIX2_PBS_LOCATE
-constant _POSIX2_PBS_MESSAGE
-constant _POSIX2_PBS_TRACK
+optional-constant _POSIX2_PBS
+optional-constant _POSIX2_PBS_ACCOUNTING
+optional-constant _POSIX2_PBS_CHECKPOINT
+optional-constant _POSIX2_PBS_LOCATE
+optional-constant _POSIX2_PBS_MESSAGE
+optional-constant _POSIX2_PBS_TRACK
constant NULL