Home | History | Annotate | Line # | Download | only in string 
      1 /*	$NetBSD: strerror_r.c,v 1.6 2024/06/08 21:35:18 joerg Exp $	*/
      2 
      3 /*
      4  * Copyright (c) 1988 Regents of the University of California.
      5  * All rights reserved.
      6  *
      7  * Redistribution and use in source and binary forms, with or without
      8  * modification, are permitted provided that the following conditions
      9  * are met:
     10  * 1. Redistributions of source code must retain the above copyright
     11  *    notice, this list of conditions and the following disclaimer.
     12  * 2. Redistributions in binary form must reproduce the above copyright
     13  *    notice, this list of conditions and the following disclaimer in the
     14  *    documentation and/or other materials provided with the distribution.
     15  * 3. Neither the name of the University nor the names of its contributors
     16  *    may be used to endorse or promote products derived from this software
     17  *    without specific prior written permission.
     18  *
     19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     29  * SUCH DAMAGE.
     30  */
     31 
     32 #include <sys/cdefs.h>
     33 __RCSID("$NetBSD: strerror_r.c,v 1.6 2024/06/08 21:35:18 joerg Exp $");
     34 
     35 #include "namespace.h"
     36 #include <assert.h>
     37 #include <atomic.h>
     38 #include <errno.h>
     39 #include <stdio.h>
     40 #include <stdlib.h>
     41 #include <string.h>
     42 #include <stdio.h>	/* for sys_nerr on FreeBSD */
     43 #ifdef NLS
     44 #include <limits.h>
     45 #include <nl_types.h>
     46 #define __SETLOCALE_SOURCE__
     47 #include <locale.h>
     48 #include "setlocale_local.h"
     49 #endif
     50 
     51 #include "extern.h"
     52 
     53 #define	UPREFIX	"Unknown error: %d"
     54 
     55 __weak_alias(strerror_r, _strerror_r)
     56 
     57 #ifdef NLS
     58 static void
     59 load_errlist(locale_t loc)
     60 {
     61 	const char **errlist;
     62 	char *errlist_prefix;
     63 	int i;
     64 	nl_catd catd;
     65 	catd = catopen_l("libc", NL_CAT_LOCALE, loc);
     66 
     67 	if (loc->cache->errlist_prefix == NULL) {
     68 		errlist_prefix = strdup(catgets(catd, 1, 0xffff, UPREFIX));
     69 		if (errlist_prefix == NULL)
     70 			goto cleanup2;
     71 
     72 		membar_release();
     73 		if (atomic_cas_ptr(__UNCONST(&loc->cache->errlist_prefix),
     74 				   NULL, errlist_prefix) != NULL)
     75 			free(errlist_prefix);
     76 	}
     77 
     78 	if (loc->cache->errlist)
     79 		goto cleanup2;
     80 
     81 	errlist = calloc(sys_nerr, sizeof(*errlist));
     82 	if (errlist == NULL)
     83 		goto cleanup2;
     84 	for (i = 0; i < sys_nerr; ++i) {
     85 		errlist[i] = strdup(catgets(catd, 1, i, sys_errlist[i]));
     86 		if (errlist[i] == NULL)
     87 			goto cleanup;
     88 	}
     89 	membar_release();
     90 	if (atomic_cas_ptr(__UNCONST(&loc->cache->errlist), NULL, errlist) != NULL)
     91 		goto cleanup;
     92 	goto cleanup2;
     93 
     94   cleanup:
     95 	for (i = 0; i < sys_nerr; ++i)
     96 		free(__UNCONST(errlist[i]));
     97 	free(errlist);
     98   cleanup2:
     99 	catclose(catd);
    100 }
    101 #endif
    102 
    103 int
    104 _strerror_lr(int num, char *buf, size_t buflen, locale_t loc)
    105 {
    106 	unsigned int errnum = num;
    107 	int retval = 0;
    108 	size_t slen;
    109 	int saved_errno = errno;
    110 #ifdef NLS
    111 	const char * const *errlist;
    112 	const char *errlist_prefix;
    113 #endif
    114 
    115 	_DIAGASSERT(buf != NULL);
    116 
    117 	if (errnum < (unsigned int) sys_nerr) {
    118 #ifdef NLS
    119 		errlist = *loc->cache->errlistp;
    120 		membar_datadep_consumer();
    121 		if (errlist == NULL) {
    122 			load_errlist(loc);
    123 			errlist = *loc->cache->errlistp;
    124 			membar_datadep_consumer();
    125 			if (errlist == NULL)
    126 				errlist = *LC_C_LOCALE->cache->errlistp;
    127 		}
    128 		slen = strlcpy(buf, errlist[errnum], buflen);
    129 #else
    130 		slen = strlcpy(buf, sys_errlist[errnum], buflen);
    131 #endif
    132 	} else {
    133 #ifdef NLS
    134 		errlist_prefix = loc->cache->errlist_prefix;
    135 		membar_datadep_consumer();
    136 		if (errlist_prefix == NULL) {
    137 			load_errlist(loc);
    138 			errlist_prefix = loc->cache->errlist_prefix;
    139 			membar_datadep_consumer();
    140 			if (errlist_prefix == NULL)
    141 				errlist_prefix = LC_C_LOCALE->cache->errlist_prefix;
    142 		}
    143 		slen = snprintf_l(buf, buflen, loc, errlist_prefix, num);
    144 #else
    145 		slen = snprintf(buf, buflen, UPREFIX, num);
    146 #endif
    147 		retval = EINVAL;
    148 	}
    149 
    150 	if (slen >= buflen)
    151 		retval = ERANGE;
    152 
    153 	errno = saved_errno;
    154 
    155 	return retval;
    156 }
    157 
    158 int
    159 strerror_r(int num, char *buf, size_t buflen)
    160 {
    161 #ifdef NLS
    162 	return _strerror_lr(num, buf, buflen, _current_locale());
    163 #else
    164 	return _strerror_lr(num, buf, buflen, NULL);
    165 #endif
    166 }
    167