summaryrefslogtreecommitdiff
path: root/gl/tests/strerror_r.c
diff options
context:
space:
mode:
Diffstat (limited to 'gl/tests/strerror_r.c')
-rw-r--r--gl/tests/strerror_r.c326
1 files changed, 0 insertions, 326 deletions
diff --git a/gl/tests/strerror_r.c b/gl/tests/strerror_r.c
deleted file mode 100644
index 4aa96cbbcf..0000000000
--- a/gl/tests/strerror_r.c
+++ /dev/null
@@ -1,326 +0,0 @@
-/* strerror_r.c --- POSIX compatible system error routine
-
- Copyright (C) 2010-2014 Free Software Foundation, Inc.
-
- This program is free software: you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 3 of the License, or
- (at your option) any later version.
-
- This program 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 General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>. */
-
-/* Written by Bruno Haible <bruno@clisp.org>, 2010. */
-
-#include <config.h>
-
-/* Enable declaration of sys_nerr and sys_errlist in <errno.h> on NetBSD. */
-#define _NETBSD_SOURCE 1
-
-/* Specification. */
-#include <string.h>
-
-#include <errno.h>
-#include <stdio.h>
-#include <stdlib.h>
-
-#include "strerror-override.h"
-
-#if (__GLIBC__ >= 2 || defined __UCLIBC__ || defined __CYGWIN__) && HAVE___XPG_STRERROR_R /* glibc >= 2.3.4, cygwin >= 1.7.9 */
-
-# define USE_XPG_STRERROR_R 1
-extern int __xpg_strerror_r (int errnum, char *buf, size_t buflen);
-
-#elif HAVE_DECL_STRERROR_R && !(__GLIBC__ >= 2 || defined __UCLIBC__ || defined __CYGWIN__)
-
-/* The system's strerror_r function is OK, except that its third argument
- is 'int', not 'size_t', or its return type is wrong. */
-
-# include <limits.h>
-
-# define USE_SYSTEM_STRERROR_R 1
-
-#else /* (__GLIBC__ >= 2 || defined __UCLIBC__ || defined __CYGWIN__ ? !HAVE___XPG_STRERROR_R : !HAVE_DECL_STRERROR_R) */
-
-/* Use the system's strerror(). Exclude glibc and cygwin because the
- system strerror_r has the wrong return type, and cygwin 1.7.9
- strerror_r clobbers strerror. */
-# undef strerror
-
-# define USE_SYSTEM_STRERROR 1
-
-# if defined __NetBSD__ || defined __hpux || ((defined _WIN32 || defined __WIN32__) && !defined __CYGWIN__) || defined __sgi || (defined __sun && !defined _LP64) || defined __CYGWIN__
-
-/* No locking needed. */
-
-/* Get catgets internationalization functions. */
-# if HAVE_CATGETS
-# include <nl_types.h>
-# endif
-
-/* Get sys_nerr, sys_errlist on HP-UX (otherwise only declared in C++ mode).
- Get sys_nerr, sys_errlist on IRIX (otherwise only declared with _SGIAPI). */
-# if defined __hpux || defined __sgi
-extern int sys_nerr;
-extern char *sys_errlist[];
-# endif
-
-/* Get sys_nerr on Solaris. */
-# if defined __sun && !defined _LP64
-extern int sys_nerr;
-# endif
-
-# else
-
-# include "glthread/lock.h"
-
-/* This lock protects the buffer returned by strerror(). We assume that
- no other uses of strerror() exist in the program. */
-gl_lock_define_initialized(static, strerror_lock)
-
-# endif
-
-#endif
-
-/* On MSVC, there is no snprintf() function, just a _snprintf().
- It is of lower quality, but sufficient for the simple use here.
- We only have to make sure to NUL terminate the result (_snprintf
- does not NUL terminate, like strncpy). */
-#if !HAVE_SNPRINTF
-static int
-local_snprintf (char *buf, size_t buflen, const char *format, ...)
-{
- va_list args;
- int result;
-
- va_start (args, format);
- result = _vsnprintf (buf, buflen, format, args);
- va_end (args);
- if (buflen > 0 && (result < 0 || result >= buflen))
- buf[buflen - 1] = '\0';
- return result;
-}
-# define snprintf local_snprintf
-#endif
-
-/* Copy as much of MSG into BUF as possible, without corrupting errno.
- Return 0 if MSG fit in BUFLEN, otherwise return ERANGE. */
-static int
-safe_copy (char *buf, size_t buflen, const char *msg)
-{
- size_t len = strlen (msg);
- int ret;
-
- if (len < buflen)
- {
- /* Although POSIX allows memcpy() to corrupt errno, we don't
- know of any implementation where this is a real problem. */
- memcpy (buf, msg, len + 1);
- ret = 0;
- }
- else
- {
- memcpy (buf, msg, buflen - 1);
- buf[buflen - 1] = '\0';
- ret = ERANGE;
- }
- return ret;
-}
-
-
-int
-strerror_r (int errnum, char *buf, size_t buflen)
-#undef strerror_r
-{
- /* Filter this out now, so that rest of this replacement knows that
- there is room for a non-empty message and trailing NUL. */
- if (buflen <= 1)
- {
- if (buflen)
- *buf = '\0';
- return ERANGE;
- }
- *buf = '\0';
-
- /* Check for gnulib overrides. */
- {
- char const *msg = strerror_override (errnum);
-
- if (msg)
- return safe_copy (buf, buflen, msg);
- }
-
- {
- int ret;
- int saved_errno = errno;
-
-#if USE_XPG_STRERROR_R
-
- {
- ret = __xpg_strerror_r (errnum, buf, buflen);
- if (ret < 0)
- ret = errno;
- if (!*buf)
- {
- /* glibc 2.13 would not touch buf on err, so we have to fall
- back to GNU strerror_r which always returns a thread-safe
- untruncated string to (partially) copy into our buf. */
- safe_copy (buf, buflen, strerror_r (errnum, buf, buflen));
- }
- }
-
-#elif USE_SYSTEM_STRERROR_R
-
- if (buflen > INT_MAX)
- buflen = INT_MAX;
-
-# ifdef __hpux
- /* On HP-UX 11.31, strerror_r always fails when buflen < 80; it
- also fails to change buf on EINVAL. */
- {
- char stackbuf[80];
-
- if (buflen < sizeof stackbuf)
- {
- ret = strerror_r (errnum, stackbuf, sizeof stackbuf);
- if (ret == 0)
- ret = safe_copy (buf, buflen, stackbuf);
- }
- else
- ret = strerror_r (errnum, buf, buflen);
- }
-# else
- ret = strerror_r (errnum, buf, buflen);
-
- /* Some old implementations may return (-1, EINVAL) instead of EINVAL. */
- if (ret < 0)
- ret = errno;
-# endif
-
-# ifdef _AIX
- /* AIX returns 0 rather than ERANGE when truncating strings; try
- again until we are sure we got the entire string. */
- if (!ret && strlen (buf) == buflen - 1)
- {
- char stackbuf[STACKBUF_LEN];
- size_t len;
- strerror_r (errnum, stackbuf, sizeof stackbuf);
- len = strlen (stackbuf);
- /* STACKBUF_LEN should have been large enough. */
- if (len + 1 == sizeof stackbuf)
- abort ();
- if (buflen <= len)
- ret = ERANGE;
- }
-# else
- /* Solaris 10 does not populate buf on ERANGE. OpenBSD 4.7
- truncates early on ERANGE rather than return a partial integer.
- We prefer the maximal string. We set buf[0] earlier, and we
- know of no implementation that modifies buf to be an
- unterminated string, so this strlen should be portable in
- practice (rather than pulling in a safer strnlen). */
- if (ret == ERANGE && strlen (buf) < buflen - 1)
- {
- char stackbuf[STACKBUF_LEN];
-
- /* STACKBUF_LEN should have been large enough. */
- if (strerror_r (errnum, stackbuf, sizeof stackbuf) == ERANGE)
- abort ();
- safe_copy (buf, buflen, stackbuf);
- }
-# endif
-
-#else /* USE_SYSTEM_STRERROR */
-
- /* Try to do what strerror (errnum) does, but without clobbering the
- buffer used by strerror(). */
-
-# if defined __NetBSD__ || defined __hpux || ((defined _WIN32 || defined __WIN32__) && !defined __CYGWIN__) || defined __CYGWIN__ /* NetBSD, HP-UX, native Windows, Cygwin */
-
- /* NetBSD: sys_nerr, sys_errlist are declared through _NETBSD_SOURCE
- and <errno.h> above.
- HP-UX: sys_nerr, sys_errlist are declared explicitly above.
- native Windows: sys_nerr, sys_errlist are declared in <stdlib.h>.
- Cygwin: sys_nerr, sys_errlist are declared in <errno.h>. */
- if (errnum >= 0 && errnum < sys_nerr)
- {
-# if HAVE_CATGETS && (defined __NetBSD__ || defined __hpux)
-# if defined __NetBSD__
- nl_catd catd = catopen ("libc", NL_CAT_LOCALE);
- const char *errmsg =
- (catd != (nl_catd)-1
- ? catgets (catd, 1, errnum, sys_errlist[errnum])
- : sys_errlist[errnum]);
-# endif
-# if defined __hpux
- nl_catd catd = catopen ("perror", NL_CAT_LOCALE);
- const char *errmsg =
- (catd != (nl_catd)-1
- ? catgets (catd, 1, 1 + errnum, sys_errlist[errnum])
- : sys_errlist[errnum]);
-# endif
-# else
- const char *errmsg = sys_errlist[errnum];
-# endif
- if (errmsg == NULL || *errmsg == '\0')
- ret = EINVAL;
- else
- ret = safe_copy (buf, buflen, errmsg);
-# if HAVE_CATGETS && (defined __NetBSD__ || defined __hpux)
- if (catd != (nl_catd)-1)
- catclose (catd);
-# endif
- }
- else
- ret = EINVAL;
-
-# elif defined __sgi || (defined __sun && !defined _LP64) /* IRIX, Solaris <= 9 32-bit */
-
- /* For a valid error number, the system's strerror() function returns
- a pointer to a not copied string, not to a buffer. */
- if (errnum >= 0 && errnum < sys_nerr)
- {
- char *errmsg = strerror (errnum);
-
- if (errmsg == NULL || *errmsg == '\0')
- ret = EINVAL;
- else
- ret = safe_copy (buf, buflen, errmsg);
- }
- else
- ret = EINVAL;
-
-# else
-
- gl_lock_lock (strerror_lock);
-
- {
- char *errmsg = strerror (errnum);
-
- /* For invalid error numbers, strerror() on
- - IRIX 6.5 returns NULL,
- - HP-UX 11 returns an empty string. */
- if (errmsg == NULL || *errmsg == '\0')
- ret = EINVAL;
- else
- ret = safe_copy (buf, buflen, errmsg);
- }
-
- gl_lock_unlock (strerror_lock);
-
-# endif
-
-#endif
-
- if (ret == EINVAL && !*buf)
- snprintf (buf, buflen, "Unknown error %d", errnum);
-
- errno = saved_errno;
- return ret;
- }
-}
View Lorry Controller Status