4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License (the "License").
6 * You may not use this file except in compliance with the License.
8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
23 * Copyright (c) 2004, 2010, Oracle and/or its affiliates. All rights reserved.
26 #include "libuutil_common.h"
36 #include <sys/debug.h>
41 #if !defined(TEXT_DOMAIN)
42 #define TEXT_DOMAIN "SYS_TEST"
46 * All of the old code under !defined(PTHREAD_ONCE_KEY_NP)
47 * is here to enable the building of a native version of
48 * libuutil.so when the build machine has not yet been upgraded
49 * to a version of libc that provides pthread_key_create_once_np().
50 * It should all be deleted when solaris_nevada ships.
51 * The code is not MT-safe in a relaxed memory model.
54 #if defined(PTHREAD_ONCE_KEY_NP)
55 static pthread_key_t uu_error_key = PTHREAD_ONCE_KEY_NP;
56 #else /* PTHREAD_ONCE_KEY_NP */
57 static pthread_key_t uu_error_key = 0;
58 static pthread_mutex_t uu_key_lock = PTHREAD_MUTEX_INITIALIZER;
59 #endif /* PTHREAD_ONCE_KEY_NP */
61 static int uu_error_key_setup = 0;
63 static pthread_mutex_t uu_panic_lock = PTHREAD_MUTEX_INITIALIZER;
64 /* LINTED static unused */
65 static const char *uu_panic_format;
66 /* LINTED static unused */
67 static va_list uu_panic_args;
68 static pthread_t uu_panic_thread;
70 static uint32_t _uu_main_error;
73 uu_set_error(uint_t code)
75 if (thr_main() != 0) {
76 _uu_main_error = code;
79 #if defined(PTHREAD_ONCE_KEY_NP)
80 if (pthread_key_create_once_np(&uu_error_key, NULL) != 0)
81 uu_error_key_setup = -1;
83 uu_error_key_setup = 1;
84 #else /* PTHREAD_ONCE_KEY_NP */
85 if (uu_error_key_setup == 0) {
86 (void) pthread_mutex_lock(&uu_key_lock);
87 if (uu_error_key_setup == 0) {
88 if (pthread_key_create(&uu_error_key, NULL) != 0)
89 uu_error_key_setup = -1;
91 uu_error_key_setup = 1;
93 (void) pthread_mutex_unlock(&uu_key_lock);
95 #endif /* PTHREAD_ONCE_KEY_NP */
96 if (uu_error_key_setup > 0)
97 (void) pthread_setspecific(uu_error_key,
98 (void *)(uintptr_t)code);
105 return (_uu_main_error);
107 if (uu_error_key_setup < 0) /* can't happen? */
108 return (UU_ERROR_UNKNOWN);
111 * Because UU_ERROR_NONE == 0, if uu_set_error() was
112 * never called, then this will return UU_ERROR_NONE:
114 return ((uint32_t)(uintptr_t)pthread_getspecific(uu_error_key));
118 uu_strerror(uint32_t code)
124 str = dgettext(TEXT_DOMAIN, "No error");
127 case UU_ERROR_INVALID_ARGUMENT:
128 str = dgettext(TEXT_DOMAIN, "Invalid argument");
131 case UU_ERROR_UNKNOWN_FLAG:
132 str = dgettext(TEXT_DOMAIN, "Unknown flag passed");
135 case UU_ERROR_NO_MEMORY:
136 str = dgettext(TEXT_DOMAIN, "Out of memory");
139 case UU_ERROR_CALLBACK_FAILED:
140 str = dgettext(TEXT_DOMAIN, "Callback-initiated failure");
143 case UU_ERROR_NOT_SUPPORTED:
144 str = dgettext(TEXT_DOMAIN, "Operation not supported");
148 str = dgettext(TEXT_DOMAIN, "No value provided");
151 case UU_ERROR_UNDERFLOW:
152 str = dgettext(TEXT_DOMAIN, "Value too small");
155 case UU_ERROR_OVERFLOW:
156 str = dgettext(TEXT_DOMAIN, "Value too large");
159 case UU_ERROR_INVALID_CHAR:
160 str = dgettext(TEXT_DOMAIN,
161 "Value contains unexpected character");
164 case UU_ERROR_INVALID_DIGIT:
165 str = dgettext(TEXT_DOMAIN,
166 "Value contains digit not in base");
169 case UU_ERROR_SYSTEM:
170 str = dgettext(TEXT_DOMAIN, "Underlying system error");
173 case UU_ERROR_UNKNOWN:
174 str = dgettext(TEXT_DOMAIN, "Error status not known");
186 uu_panic(const char *format, ...)
190 va_start(args, format);
192 (void) pthread_mutex_lock(&uu_panic_lock);
193 if (uu_panic_thread == 0) {
194 uu_panic_thread = pthread_self();
195 uu_panic_format = format;
196 va_copy(uu_panic_args, args);
198 (void) pthread_mutex_unlock(&uu_panic_lock);
200 (void) vfprintf(stderr, format, args);
202 if (uu_panic_thread == pthread_self())
210 assfail(const char *astring, const char *file, int line)
212 #if defined(__STDC__) && __STDC_VERSION__ - 0 >= 199901L
213 __assert_c99(astring, file, line, "unknown func");
215 __assert(astring, file, line);
224 (void) pthread_mutex_lock(&uu_panic_lock);
225 #if !defined(PTHREAD_ONCE_KEY_NP)
226 (void) pthread_mutex_lock(&uu_key_lock);
235 (void) pthread_mutex_unlock(&uu_panic_lock);
236 #if !defined(PTHREAD_ONCE_KEY_NP)
237 (void) pthread_mutex_unlock(&uu_key_lock);
244 uu_release_child(void)
246 uu_panic_format = NULL;
254 uu_init(void) __attribute__((constructor));
256 #pragma init(uu_init)
262 (void) pthread_atfork(uu_lockup, uu_release, uu_release_child);
266 * Dump a block of memory in hex+ascii, for debugging
269 uu_dump(FILE *out, const char *prefix, const void *buf, size_t len)
271 const unsigned char *p = buf;
274 for (i = 0; i < len; i += 16) {
277 (void) fprintf(out, "%s", prefix);
278 for (j = 0; j < 16 && i + j < len; j++) {
279 (void) fprintf(out, "%2.2x ", p[i + j]);
281 for (; j < 16; j++) {
282 (void) fprintf(out, " ");
284 for (j = 0; j < 16 && i + j < len; j++) {
285 (void) fprintf(out, "%c",
286 isprint(p[i + j]) ? p[i + j] : '.');
288 (void) fprintf(out, "\n");