56 lines
800 B
C
Executable File
56 lines
800 B
C
Executable File
#pragma ident "@(#)error.c 1.5 94/10/13 SMI"
|
|
|
|
/*
|
|
* Copyright 1989, Sun Microsystems, Inc.
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdarg.h>
|
|
|
|
#define NO_PERROR 0
|
|
#define PERROR 1
|
|
|
|
static char *progname;
|
|
|
|
void
|
|
setprogname(char *name)
|
|
{
|
|
register char *p = name, c;
|
|
|
|
if (p)
|
|
while (c = *p++)
|
|
if (c == '/')
|
|
name = p;
|
|
|
|
progname = name;
|
|
}
|
|
|
|
/* _error([no_perror, ] fmt [, arg ...]) */
|
|
/*VARARGS*/
|
|
int
|
|
_error(int do_perror, char *fmt, ...)
|
|
{
|
|
int saved_errno;
|
|
va_list ap;
|
|
extern int errno;
|
|
|
|
saved_errno = errno;
|
|
|
|
if (progname)
|
|
(void) fprintf(stderr, "%s: ", progname);
|
|
|
|
va_start(ap, fmt);
|
|
(void) vfprintf(stderr, fmt, ap);
|
|
va_end(ap);
|
|
|
|
if (do_perror == NO_PERROR)
|
|
(void) fprintf(stderr, "\n");
|
|
else {
|
|
(void) fprintf(stderr, ": ");
|
|
errno = saved_errno;
|
|
perror("");
|
|
}
|
|
|
|
return (1);
|
|
}
|