usr/src/lib/libc/port/gen/err.c

   1 /*
   2  * CDDL HEADER START
   3  *
   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.
   7  *
   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.
  12  *
  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]
  18  *
  19  * CDDL HEADER END
  20  */
  21
  22 /*
  23  * Copyright (c) 2003, 2010, Oracle and/or its affiliates. All rights reserved.
  24  */
  25
  26 #include "lint.h"
  27 #include "file64.h"
  28 #include "mtlib.h"
  29 #include "thr_uberdata.h"
  30 #include <sys/types.h>
  31 #include <err.h>
  32 #include <stdio.h>
  33 #include <stdlib.h>
  34 #include <stdarg.h>
  35 #include <string.h>
  36 #include <errno.h>
  37 #include <dlfcn.h>
  38 #include "stdiom.h"
  39
  40 /* Function exit/warning functions and global variables. */
  41
  42 const char *__progname;         /* GNU/Linux/BSD compatibility */
  43
  44 #define PROGNAMESIZE    128     /* buffer size for __progname */
  45
  46 const char *
  47 getprogname(void)
  48 {
  49         return (__progname);
  50 }
  51
  52 void
  53 setprogname(const char *argv0)
  54 {
  55         uberdata_t *udp = curthread->ul_uberdata;
  56         const char *progname;
  57
  58         if ((progname = strrchr(argv0, '/')) == NULL)
  59                 progname = argv0;
  60         else
  61                 progname++;
  62
  63         if (udp->progname == NULL)
  64                 udp->progname = lmalloc(PROGNAMESIZE);
  65         (void) strlcpy(udp->progname, progname, PROGNAMESIZE);
  66         __progname = udp->progname;
  67 }
  68
  69 /* called only from libc_init() */
  70 void
  71 init_progname(void)
  72 {
  73         Dl_argsinfo_t args;
  74         const char *argv0;
  75
  76         if (dlinfo(RTLD_SELF, RTLD_DI_ARGSINFO, &args) < 0 ||
  77             args.dla_argc <= 0 ||
  78             (argv0 = args.dla_argv[0]) == NULL)
  79                 argv0 = "UNKNOWN";
  80
  81         setprogname(argv0);
  82 }
  83
  84 /*
  85  * warncore() is the workhorse of these functions.  Everything else has
  86  * a warncore() component in it.
  87  */
  88 static rmutex_t *
  89 warncore(FILE *fp, const char *fmt, va_list args)
  90 {
  91         rmutex_t *lk;
  92
  93         FLOCKFILE(lk, fp);
  94
  95         if (__progname != NULL)
  96                 (void) fprintf(fp, "%s: ", __progname);
  97
  98         if (fmt != NULL) {
  99                 (void) vfprintf(fp, fmt, args);
 100         }
 101
 102         return (lk);
 103 }
 104
 105 /* Finish a warning with a newline and a flush of stderr. */
 106 static void
 107 warnfinish(FILE *fp, rmutex_t *lk)
 108 {
 109         (void) fputc('\n', fp);
 110         (void) fflush(fp);
 111         FUNLOCKFILE(lk);
 112 }
 113
 114 void
 115 _vwarnxfp(FILE *fp, const char *fmt, va_list args)
 116 {
 117         rmutex_t *lk;
 118
 119         lk = warncore(fp, fmt, args);
 120         warnfinish(fp, lk);
 121 }
 122
 123 void
 124 vwarnx(const char *fmt, va_list args)
 125 {
 126         _vwarnxfp(stderr, fmt, args);
 127 }
 128
 129 void
 130 _vwarnfp(FILE *fp, int code, const char *fmt, va_list args)
 131 {
 132         rmutex_t *lk;
 133
 134         lk = warncore(fp, fmt, args);
 135         if (fmt != NULL) {
 136                 (void) fputc(':', fp);
 137                 (void) fputc(' ', fp);
 138         }
 139         (void) fputs(strerror(code), fp);
 140         warnfinish(fp, lk);
 141 }
 142
 143 void
 144 vwarn(const char *fmt, va_list args)
 145 {
 146         _vwarnfp(stderr, errno, fmt, args);
 147 }
 148
 149 /* PRINTFLIKE1 */
 150 void
 151 warnx(const char *fmt, ...)
 152 {
 153         va_list args;
 154
 155         va_start(args, fmt);
 156         vwarnx(fmt, args);
 157         va_end(args);
 158 }
 159
 160 void
 161 _warnfp(FILE *fp, const char *fmt, ...)
 162 {
 163         va_list args;
 164
 165         va_start(args, fmt);
 166         _vwarnfp(fp, errno, fmt, args);
 167         va_end(args);
 168 }
 169
 170 void
 171 _warnxfp(FILE *fp, const char *fmt, ...)
 172 {
 173         va_list args;
 174
 175         va_start(args, fmt);
 176         _vwarnxfp(fp, fmt, args);
 177         va_end(args);
 178 }
 179
 180 /* PRINTFLIKE1 */
 181 void
 182 warn(const char *fmt, ...)
 183 {
 184         va_list args;
 185
 186         va_start(args, fmt);
 187         vwarn(fmt, args);
 188         va_end(args);
 189 }
 190
 191 void
 192 warnc(int code, const char *fmt, ...)
 193 {
 194         va_list args;
 195         va_start(args, fmt);
 196         vwarnc(code, fmt, args);
 197         va_end(args);
 198 }
 199
 200 void
 201 vwarnc(int code, const char *fmt, va_list args)
 202 {
 203         _vwarnfp(stderr, code, fmt, args);
 204 }
 205
 206 /* PRINTFLIKE2 */
 207 void
 208 err(int status, const char *fmt, ...)
 209 {
 210         va_list args;
 211
 212         va_start(args, fmt);
 213         vwarn(fmt, args);
 214         va_end(args);
 215         exit(status);
 216 }
 217
 218 void
 219 errc(int status, int code, const char *fmt, ...)
 220 {
 221         va_list args;
 222         va_start(args, fmt);
 223         vwarnc(code, fmt, args);
 224         va_end(args);
 225         exit(status);
 226 }
 227
 228 void
 229 verrc(int status, int code, const char *fmt, va_list args)
 230 {
 231         vwarnc(code, fmt, args);
 232         exit(status);
 233 }
 234
 235 void
 236 _errfp(FILE *fp, int status, const char *fmt, ...)
 237 {
 238         va_list args;
 239
 240         va_start(args, fmt);
 241         _vwarnfp(fp, errno, fmt, args);
 242         va_end(args);
 243         exit(status);
 244 }
 245
 246 void
 247 verr(int status, const char *fmt, va_list args)
 248 {
 249         vwarn(fmt, args);
 250         exit(status);
 251 }
 252
 253
 254 void
 255 _verrfp(FILE *fp, int status, const char *fmt, va_list args)
 256 {
 257         _vwarnfp(fp, errno, fmt, args);
 258         exit(status);
 259 }
 260
 261 /* PRINTFLIKE2 */
 262 void
 263 errx(int status, const char *fmt, ...)
 264 {
 265         va_list args;
 266
 267         va_start(args, fmt);
 268         vwarnx(fmt, args);
 269         va_end(args);
 270         exit(status);
 271 }
 272
 273 void
 274 _errxfp(FILE *fp, int status, const char *fmt, ...)
 275 {
 276         va_list args;
 277
 278         va_start(args, fmt);
 279         _vwarnxfp(fp, fmt, args);
 280         va_end(args);
 281         exit(status);
 282 }
 283
 284 void
 285 verrx(int status, const char *fmt, va_list args)
 286 {
 287         vwarnx(fmt, args);
 288         exit(status);
 289 }
 290
 291 void
 292 _verrxfp(FILE *fp, int status, const char *fmt, va_list args)
 293 {
 294         _vwarnxfp(fp, fmt, args);
 295         exit(status);
 296 }