[unix-history] / usr / src / usr.bin / w / w.c

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#ifndef lint
char copyright[] =
"@(#) Copyright (c) 1980 Regents of the University of California.\n\
 All rights reserved.\n";
#endif not lint

#ifndef lint
static char sccsid[] = "@(#)w.c	5.27 (Berkeley) %G%";
#endif not lint

/*
 * w - print system status (who and what)
 *
 * This program is similar to the systat command on Tenex/Tops 10/20
 *
 */
#include <sys/param.h>
#include <utmp.h>
#include <sys/time.h>
#include <sys/stat.h>
#include <sys/proc.h>
#include <sys/user.h>
#include <sys/ioctl.h>
#include <sys/tty.h>
#include <nlist.h>
#include <kvm.h>
#include <ctype.h>
#include <paths.h>
#include <string.h>
#include <stdio.h>

#ifdef SPPWAIT
#define NEWVM
#endif
#ifndef NEWVM
#include <machine/pte.h>
#include <sys/vm.h>
#endif

char	*program;
int	ttywidth;		/* width of tty */
int	argwidth;		/* width of tty */
int	header = 1;		/* true if -h flag: don't print heading */
int	wcmd = 1;		/* true if this is w(1), and not uptime(1) */
int	nusers;			/* number of users logged in now */
char *	sel_user;		/* login of particular user selected */
time_t	now;			/* the current time of day */
struct	timeval boottime;
time_t	uptime;			/* time of last reboot & elapsed time since */
struct	utmp utmp;
struct	winsize ws;
int	sortidle;		/* sort bu idle time */


/*
 * One of these per active utmp entry.  
 */
struct	entry {
	struct	entry *next;
	struct	utmp utmp;
	dev_t	tdev;		/* dev_t of terminal */
	int	idle;		/* idle time of terminal in minutes */
	struct	proc *proc;	/* list of procs in foreground */
	char	*args;		/* arg list of interesting process */
} *ep, *ehead = NULL, **nextp = &ehead;

struct nlist nl[] = {
	{ "_boottime" },
#define X_BOOTTIME	0
#if defined(hp300)
	{ "_cn_tty" },
#define X_CNTTY		1
#endif
	{ "" },
};

#define USAGE "[ -hi ] [ user ]"
#define usage()	fprintf(stderr, "usage: %s: %s\n", program, USAGE)

main(argc, argv)
	char **argv;
{
	register int i;
	struct winsize win;
	register struct proc *p;
	struct eproc *e;
	struct stat *stp, *ttystat();
	FILE *ut;
	char *cp;
	int ch;
	extern char *optarg;
	extern int optind;
	char *attime();

	program = argv[0];
	/*
	 * are we w(1) or uptime(1)
	 */
	if ((cp = rindex(program, '/')) || *(cp = program) == '-')
		cp++;
	if (*cp == 'u')
		wcmd = 0;

	while ((ch = getopt(argc, argv, "hiflsuw")) != EOF)
		switch((char)ch) {
		case 'h':
			header = 0;
			break;
		case 'i':
			sortidle++;
			break;
		case 'f': case 'l': case 's': case 'u': case 'w':
			error("[-flsuw] no longer supported");
			usage();
			exit(1);
		case '?':
		default:
			usage();
			exit(1);
		}
	argc -= optind;
	argv += optind;
	if (argc == 1) {
		sel_user = argv[0];
		argv++, argc--;
	}
	if (argc) {
		usage();
		exit(1);
	}

	if (header && kvm_nlist(nl) != 0) {
		error("can't get namelist");
		exit (1);
	}
	time(&now);
	ut = fopen(_PATH_UTMP, "r");
	while (fread(&utmp, sizeof(utmp), 1, ut)) {
		if (utmp.ut_name[0] == '\0')
			continue;
		nusers++;
		if (wcmd == 0 || (sel_user && 
		    strncmp(utmp.ut_name, sel_user, UT_NAMESIZE) != 0))
			continue;
		if ((ep = (struct entry *)
		     calloc(1, sizeof (struct entry))) == NULL) {
			error("out of memory");
			exit(1);
		}
		*nextp = ep;
		nextp = &(ep->next);
		bcopy(&utmp, &(ep->utmp), sizeof (struct utmp));
		stp = ttystat(ep->utmp.ut_line);
		ep->tdev = stp->st_rdev;
#if defined(hp300)
		/*
		 * XXX  If this is the console device, attempt to ascertain
		 * the true console device dev_t.
		 */
		if (ep->tdev == 0) {
			static dev_t cn_dev;

			if (nl[X_CNTTY].n_value) {
				struct tty cn_tty, *cn_ttyp;
				
				if (kvm_read(nl[X_CNTTY].n_value,
					     &cn_ttyp, sizeof (cn_ttyp)) > 0) {
					(void)kvm_read(cn_ttyp, &cn_tty,
						       sizeof (cn_tty));
					cn_dev = cn_tty.t_dev;
				}
				nl[X_CNTTY].n_value = 0;
			}
			ep->tdev = cn_dev;
		}
#endif
		ep->idle = ((now - stp->st_atime) + 30) / 60; /* secs->mins */
		if (ep->idle < 0)
			ep->idle = 0;
	}
	fclose(ut);

	if (header || wcmd == 0) {
		double	avenrun[3];
		int days, hrs, mins;

		/*
		 * Print time of day 
		 */
		fputs(attime(&now), stdout);
		/*
		 * Print how long system has been up.
		 * (Found by looking for "boottime" in kernel)
		 */
		(void)kvm_read((off_t)nl[X_BOOTTIME].n_value, &boottime, 
			sizeof (boottime));
		uptime = now - boottime.tv_sec;
		uptime += 30;
		days = uptime / (60*60*24);
		uptime %= (60*60*24);
		hrs = uptime / (60*60);
		uptime %= (60*60);
		mins = uptime / 60;

		printf("  up");
		if (days > 0)
			printf(" %d day%s,", days, days>1?"s":"");
		if (hrs > 0 && mins > 0) {
			printf(" %2d:%02d,", hrs, mins);
		} else {
			if (hrs > 0)
				printf(" %d hr%s,", hrs, hrs>1?"s":"");
			if (mins > 0)
				printf(" %d min%s,", mins, mins>1?"s":"");
		}

		/* Print number of users logged in to system */
		printf("  %d user%s", nusers, nusers>1?"s":"");

		/*
		 * Print 1, 5, and 15 minute load averages.
		 */
		printf(",  load average:");
		(void)getloadavg(avenrun, sizeof(avenrun) / sizeof(avenrun[0]));
		for (i = 0; i < (sizeof(avenrun)/sizeof(avenrun[0])); i++) {
			if (i > 0)
				printf(",");
			printf(" %.2f", avenrun[i]);
		}
		printf("\n");
		if (wcmd == 0)		/* if uptime(1) then done */
			exit(0);
#define HEADER	"USER    TTY FROM              LOGIN@  IDLE WHAT\n"
#define WUSED	(sizeof (HEADER) - sizeof ("WHAT\n"))
		printf(HEADER);
	}

	while ((p = kvm_nextproc()) != NULL) {
		if (p->p_stat == SZOMB || (p->p_flag & SCTTY) == 0)
			continue;
		e = kvm_geteproc(p);
		for (ep = ehead; ep != NULL; ep = ep->next) {
			if (ep->tdev == e->e_tdev && e->e_pgid == e->e_tpgid) {
				/*
				 * Proc is in foreground of this terminal
				 */
				if (proc_compare(ep->proc, p))
					ep->proc = p;
				break;
			}
		}
	}
	if ((ioctl(1, TIOCGWINSZ, &ws) == -1 &&
	     ioctl(2, TIOCGWINSZ, &ws) == -1 &&
	     ioctl(0, TIOCGWINSZ, &ws) == -1) || ws.ws_col == 0)
	       ttywidth = 79;
        else
	       ttywidth = ws.ws_col - 1;
	argwidth = ttywidth - WUSED;
	if (argwidth < 4)
		argwidth = 8;
	for (ep = ehead; ep != NULL; ep = ep->next) {
		ep->args = strdup(kvm_getargs(ep->proc, kvm_getu(ep->proc)));
		if (ep->args == NULL) {
			error("out of memory");
			exit(1);
		}
	}
	/* sort by idle time */
	if (sortidle && ehead != NULL) {
		struct entry *from = ehead, *save;
		
		ehead = NULL;
		while (from != NULL) {
			for (nextp = &ehead; 
			    (*nextp) && from->idle >= (*nextp)->idle;
			    nextp = &(*nextp)->next)
				;
			save = from;
			from = from->next;
			save->next = *nextp;
			*nextp = save;
		}
	}
			
	for (ep = ehead; ep != NULL; ep = ep->next) {
		printf("%-*.*s %-2.2s %-*.*s %s",
			UT_NAMESIZE, UT_NAMESIZE, ep->utmp.ut_name,
			strncmp(ep->utmp.ut_line, "tty", 3) == 0 ? 
				ep->utmp.ut_line+3 : ep->utmp.ut_line,
			UT_HOSTSIZE, UT_HOSTSIZE, *ep->utmp.ut_host ?
				ep->utmp.ut_host : "-",
			attime(&ep->utmp.ut_time));
		if (ep->idle >= 36 * 60)
			printf(" %ddays ", (ep->idle + 12 * 60) / (24 * 60));
		else
			prttime(ep->idle, " ");
		printf("%.*s\n", argwidth, ep->args);
	}
	exit(0);
}

struct stat *
ttystat(line)
{
	static struct stat statbuf;
	char ttybuf[sizeof (_PATH_DEV) + UT_LINESIZE + 1];

	sprintf(ttybuf, "%s/%.*s", _PATH_DEV, UT_LINESIZE, line);
	(void) stat(ttybuf, &statbuf);

	return (&statbuf);
}

/*
 * prttime prints a time in hours and minutes or minutes and seconds.
 * The character string tail is printed at the end, obvious
 * strings to pass are "", " ", or "am".
 */
prttime(tim, tail)
	time_t tim;
	char *tail;
{

	if (tim >= 60) {
		printf(" %2d:", tim/60);
		tim %= 60;
		printf("%02d", tim);
	} else if (tim >= 0)
		printf("    %2d", tim);
	printf("%s", tail);
}

#include <varargs.h>

warning(va_alist)
	va_dcl
{
	char *fmt;
	va_list ap;

	fprintf(stderr, "%s: warning: ", program);
	va_start(ap);
	fmt = va_arg(ap, char *);
	(void) vfprintf(stderr, fmt, ap);
	va_end(ap);
	fprintf(stderr, "\n");
}

error(va_alist)
	va_dcl
{
	char *fmt;
	va_list ap;

	fprintf(stderr, "%s: ", program);
	va_start(ap);
	fmt = va_arg(ap, char *);
	(void) vfprintf(stderr, fmt, ap);
	va_end(ap);
	fprintf(stderr, "\n");
}

syserror(va_alist)
	va_dcl
{
	char *fmt;
	va_list ap;
	extern errno;

	fprintf(stderr, "%s: ", program);
	va_start(ap);
	fmt = va_arg(ap, char *);
	(void) vfprintf(stderr, fmt, ap);
	va_end(ap);
	fprintf(stderr, ": %s\n", strerror(errno));
}
Commit	Line	Data
f42904bc DF	1	/*
	2	* Copyright (c) 1980 Regents of the University of California.
	3	* All rights reserved. The Berkeley software License Agreement
	4	* specifies the terms and conditions for redistribution.
	5	*/
	6
	7	#ifndef lint
	8	char copyright[] =
	9	"@(#) Copyright (c) 1980 Regents of the University of California.\n\
	10	All rights reserved.\n";
	11	#endif not lint
	12
68d13ee3	13	#ifndef lint
76aee4b1	14	static char sccsid[] = "@(#)w.c 5.27 (Berkeley) %G%";
f42904bc DF	15	#endif not lint
f42904bc DF	16
76238d88 BJ	17	/*
	18	* w - print system status (who and what)
	19	*
	20	* This program is similar to the systat command on Tenex/Tops 10/20
134b296f	21	*
76238d88 BJ	22	*/
76238d88 BJ	23	#include <sys/param.h>
76238d88	24	#include <utmp.h>
76aee4b1	25	#include <sys/time.h>
76238d88	26	#include <sys/stat.h>
76238d88	27	#include <sys/proc.h>
76aee4b1	28	#include <sys/user.h>
3b8dff21	29	#include <sys/ioctl.h>
af08d75a	30	#include <sys/tty.h>
134b296f MT	31	#include <nlist.h>
	32	#include <kvm.h>
	33	#include <ctype.h>
57bb6ffa	34	#include <paths.h>
38dde0cd	35	#include <string.h>
134b296f	36	#include <stdio.h>
76238d88	37
76aee4b1 MK	38	#ifdef SPPWAIT
	39	#define NEWVM
	40	#endif
	41	#ifndef NEWVM
	42	#include <machine/pte.h>
	43	#include <sys/vm.h>
	44	#endif
	45
134b296f MT	46	char *program;
	47	int ttywidth; /* width of tty */
	48	int argwidth; /* width of tty */
76238d88	49	int header = 1; /* true if -h flag: don't print heading */
134b296f	50	int wcmd = 1; /* true if this is w(1), and not uptime(1) */
76238d88 BJ	51	int nusers; /* number of users logged in now */
76238d88 BJ	52	char * sel_user; /* login of particular user selected */
76238d88	53	time_t now; /* the current time of day */
a43be079 SL	54	struct timeval boottime;
a43be079 SL	55	time_t uptime; /* time of last reboot & elapsed time since */
76238d88	56	struct utmp utmp;
134b296f MT	57	struct winsize ws;
	58	int sortidle; /* sort bu idle time */
	59
	60
	61	/*
	62	* One of these per active utmp entry.
	63	*/
	64	struct entry {
	65	struct entry *next;
	66	struct utmp utmp;
	67	dev_t tdev; /* dev_t of terminal */
	68	int idle; /* idle time of terminal in minutes */
	69	struct proc proc; / list of procs in foreground */
	70	char args; / arg list of interesting process */
	71	} ep, ehead = NULL, **nextp = &ehead;
	72
	73	struct nlist nl[] = {
	74	{ "_boottime" },
	75	#define X_BOOTTIME 0
958d0e58 KB	76	#if defined(hp300)
	77	{ "_cn_tty" },
	78	#define X_CNTTY 1
	79	#endif
134b296f MT	80	{ "" },
	81	};
	82
ee8a3c9d	83	#define USAGE "[ -hi ] [ user ]"
134b296f	84	#define usage() fprintf(stderr, "usage: %s: %s\n", program, USAGE)
76238d88 BJ	85
	86	main(argc, argv)
	87	char **argv;
	88	{
134b296f	89	register int i;
3b8dff21	90	struct winsize win;
134b296f MT	91	register struct proc *p;
	92	struct eproc *e;
	93	struct stat stp, ttystat();
	94	FILE *ut;
	95	char *cp;
	96	int ch;
	97	extern char *optarg;
	98	extern int optind;
12bed5d4	99	char *attime();
76238d88	100
134b296f MT	101	program = argv[0];
	102	/*
	103	* are we w(1) or uptime(1)
	104	*/
	105	if ((cp = rindex(program, '/')) \|\| *(cp = program) == '-')
	106	cp++;
	107	if (*cp == 'u')
	108	wcmd = 0;
	109
ee8a3c9d	110	while ((ch = getopt(argc, argv, "hiflsuw")) != EOF)
134b296f MT	111	switch((char)ch) {
	112	case 'h':
	113	header = 0;
	114	break;
ee8a3c9d	115	case 'i':
134b296f MT	116	sortidle++;
	117	break;
	118	case 'f': case 'l': case 's': case 'u': case 'w':
	119	error("[-flsuw] no longer supported");
	120	usage();
	121	exit(1);
	122	case '?':
	123	default:
	124	usage();
	125	exit(1);
76238d88	126	}
134b296f MT	127	argc -= optind;
	128	argv += optind;
	129	if (argc == 1) {
	130	sel_user = argv[0];
	131	argv++, argc--;
76238d88	132	}
134b296f MT	133	if (argc) {
134b296f MT	134	usage();
76238d88 BJ	135	exit(1);
	136	}
	137
134b296f MT	138	if (header && kvm_nlist(nl) != 0) {
	139	error("can't get namelist");
	140	exit (1);
be7adcb6	141	}
80b96391	142	time(&now);
134b296f MT	143	ut = fopen(_PATH_UTMP, "r");
	144	while (fread(&utmp, sizeof(utmp), 1, ut)) {
	145	if (utmp.ut_name[0] == '\0')
	146	continue;
	147	nusers++;
	148	if (wcmd == 0 \|\| (sel_user &&
	149	strncmp(utmp.ut_name, sel_user, UT_NAMESIZE) != 0))
	150	continue;
	151	if ((ep = (struct entry *)
	152	calloc(1, sizeof (struct entry))) == NULL) {
	153	error("out of memory");
	154	exit(1);
	155	}
	156	*nextp = ep;
	157	nextp = &(ep->next);
	158	bcopy(&utmp, &(ep->utmp), sizeof (struct utmp));
	159	stp = ttystat(ep->utmp.ut_line);
	160	ep->tdev = stp->st_rdev;
958d0e58 KB	161	#if defined(hp300)
	162	/*
	163	* XXX If this is the console device, attempt to ascertain
	164	* the true console device dev_t.
	165	*/
	166	if (ep->tdev == 0) {
	167	static dev_t cn_dev;
	168
	169	if (nl[X_CNTTY].n_value) {
	170	struct tty cn_tty, *cn_ttyp;
	171
	172	if (kvm_read(nl[X_CNTTY].n_value,
	173	&cn_ttyp, sizeof (cn_ttyp)) > 0) {
	174	(void)kvm_read(cn_ttyp, &cn_tty,
	175	sizeof (cn_tty));
	176	cn_dev = cn_tty.t_dev;
	177	}
	178	nl[X_CNTTY].n_value = 0;
	179	}
	180	ep->tdev = cn_dev;
	181	}
	182	#endif
134b296f MT	183	ep->idle = ((now - stp->st_atime) + 30) / 60; /* secs->mins */
	184	if (ep->idle < 0)
	185	ep->idle = 0;
	186	}
	187	fclose(ut);
	188
	189	if (header \|\| wcmd == 0) {
	190	double avenrun[3];
	191	int days, hrs, mins;
76238d88	192
134b296f MT	193	/*
	194	* Print time of day
	195	*/
	196	fputs(attime(&now), stdout);
76238d88 BJ	197	/*
76238d88 BJ	198	* Print how long system has been up.
a43be079	199	* (Found by looking for "boottime" in kernel)
76238d88	200	*/
134b296f MT	201	(void)kvm_read((off_t)nl[X_BOOTTIME].n_value, &boottime,
134b296f MT	202	sizeof (boottime));
a43be079	203	uptime = now - boottime.tv_sec;
baaa0078	204	uptime += 30;
76238d88 BJ	205	days = uptime / (606024);
	206	uptime %= (606024);
	207	hrs = uptime / (60*60);
	208	uptime %= (60*60);
baaa0078	209	mins = uptime / 60;
76238d88 BJ	210
	211	printf(" up");
	212	if (days > 0)
	213	printf(" %d day%s,", days, days>1?"s":"");
	214	if (hrs > 0 && mins > 0) {
	215	printf(" %2d:%02d,", hrs, mins);
	216	} else {
	217	if (hrs > 0)
	218	printf(" %d hr%s,", hrs, hrs>1?"s":"");
	219	if (mins > 0)
	220	printf(" %d min%s,", mins, mins>1?"s":"");
	221	}
	222
	223	/* Print number of users logged in to system */
fddf7972	224	printf(" %d user%s", nusers, nusers>1?"s":"");
76238d88 BJ	225
	226	/*
	227	* Print 1, 5, and 15 minute load averages.
76238d88 BJ	228	*/
76238d88 BJ	229	printf(", load average:");
07c23b0d	230	(void)getloadavg(avenrun, sizeof(avenrun) / sizeof(avenrun[0]));
76238d88 BJ	231	for (i = 0; i < (sizeof(avenrun)/sizeof(avenrun[0])); i++) {
	232	if (i > 0)
	233	printf(",");
	234	printf(" %.2f", avenrun[i]);
	235	}
	236	printf("\n");
134b296f	237	if (wcmd == 0) /* if uptime(1) then done */
76238d88	238	exit(0);
134b296f MT	239	#define HEADER "USER TTY FROM LOGIN@ IDLE WHAT\n"
	240	#define WUSED (sizeof (HEADER) - sizeof ("WHAT\n"))
	241	printf(HEADER);
76238d88 BJ	242	}
76238d88 BJ	243
7a5744ec	244	while ((p = kvm_nextproc()) != NULL) {
134b296f MT	245	if (p->p_stat == SZOMB \|\| (p->p_flag & SCTTY) == 0)
	246	continue;
	247	e = kvm_geteproc(p);
	248	for (ep = ehead; ep != NULL; ep = ep->next) {
	249	if (ep->tdev == e->e_tdev && e->e_pgid == e->e_tpgid) {
	250	/*
	251	* Proc is in foreground of this terminal
	252	*/
	253	if (proc_compare(ep->proc, p))
	254	ep->proc = p;
	255	break;
76238d88 BJ	256	}
76238d88 BJ	257	}
76238d88	258	}
134b296f MT	259	if ((ioctl(1, TIOCGWINSZ, &ws) == -1 &&
	260	ioctl(2, TIOCGWINSZ, &ws) == -1 &&
	261	ioctl(0, TIOCGWINSZ, &ws) == -1) \|\| ws.ws_col == 0)
	262	ttywidth = 79;
	263	else
	264	ttywidth = ws.ws_col - 1;
	265	argwidth = ttywidth - WUSED;
	266	if (argwidth < 4)
	267	argwidth = 8;
	268	for (ep = ehead; ep != NULL; ep = ep->next) {
12bed5d4	269	ep->args = strdup(kvm_getargs(ep->proc, kvm_getu(ep->proc)));
134b296f MT	270	if (ep->args == NULL) {
	271	error("out of memory");
	272	exit(1);
	273	}
	274	}
	275	/* sort by idle time */
	276	if (sortidle && ehead != NULL) {
	277	struct entry from = ehead, save;
	278
	279	ehead = NULL;
	280	while (from != NULL) {
	281	for (nextp = &ehead;
	282	(nextp) && from->idle >= (nextp)->idle;
	283	nextp = &(*nextp)->next)
	284	;
	285	save = from;
	286	from = from->next;
	287	save->next = *nextp;
	288	*nextp = save;
	289	}
	290	}
	291
	292	for (ep = ehead; ep != NULL; ep = ep->next) {
	293	printf("%-.s %-2.2s %-.s %s",
	294	UT_NAMESIZE, UT_NAMESIZE, ep->utmp.ut_name,
	295	strncmp(ep->utmp.ut_line, "tty", 3) == 0 ?
	296	ep->utmp.ut_line+3 : ep->utmp.ut_line,
	297	UT_HOSTSIZE, UT_HOSTSIZE, *ep->utmp.ut_host ?
	298	ep->utmp.ut_host : "-",
	299	attime(&ep->utmp.ut_time));
	300	if (ep->idle >= 36 * 60)
	301	printf(" %ddays ", (ep->idle + 12 * 60) / (24 * 60));
	302	else
	303	prttime(ep->idle, " ");
	304	printf("%.*s\n", argwidth, ep->args);
	305	}
86858041	306	exit(0);
76238d88 BJ	307	}
76238d88 BJ	308
134b296f MT	309	struct stat *
	310	ttystat(line)
	311	{
	312	static struct stat statbuf;
	313	char ttybuf[sizeof (_PATH_DEV) + UT_LINESIZE + 1];
	314
	315	sprintf(ttybuf, "%s/%.*s", _PATH_DEV, UT_LINESIZE, line);
	316	(void) stat(ttybuf, &statbuf);
76238d88	317
134b296f	318	return (&statbuf);
76238d88 BJ	319	}
76238d88 BJ	320
76238d88	321	/*
80b96391	322	* prttime prints a time in hours and minutes or minutes and seconds.
76238d88 BJ	323	* The character string tail is printed at the end, obvious
	324	* strings to pass are "", " ", or "am".
	325	*/
	326	prttime(tim, tail)
	327	time_t tim;
	328	char *tail;
	329	{
76238d88 BJ	330
76238d88 BJ	331	if (tim >= 60) {
891d0483	332	printf(" %2d:", tim/60);
80b96391 MK	333	tim %= 60;
80b96391 MK	334	printf("%02d", tim);
891d0483	335	} else if (tim >= 0)
80b96391	336	printf(" %2d", tim);
76238d88 BJ	337	printf("%s", tail);
	338	}
	339
134b296f	340	#include <varargs.h>
76238d88	341
134b296f MT	342	warning(va_alist)
134b296f MT	343	va_dcl
76238d88	344	{
134b296f MT	345	char *fmt;
	346	va_list ap;
	347
	348	fprintf(stderr, "%s: warning: ", program);
	349	va_start(ap);
	350	fmt = va_arg(ap, char *);
	351	(void) vfprintf(stderr, fmt, ap);
	352	va_end(ap);
	353	fprintf(stderr, "\n");
76238d88 BJ	354	}
76238d88 BJ	355
134b296f MT	356	error(va_alist)
134b296f MT	357	va_dcl
76238d88	358	{
134b296f MT	359	char *fmt;
	360	va_list ap;
	361
	362	fprintf(stderr, "%s: ", program);
	363	va_start(ap);
	364	fmt = va_arg(ap, char *);
	365	(void) vfprintf(stderr, fmt, ap);
	366	va_end(ap);
	367	fprintf(stderr, "\n");
76238d88 BJ	368	}
76238d88 BJ	369
134b296f MT	370	syserror(va_alist)
134b296f MT	371	va_dcl
655ebcd5	372	{
134b296f MT	373	char *fmt;
	374	va_list ap;
	375	extern errno;
	376
	377	fprintf(stderr, "%s: ", program);
	378	va_start(ap);
	379	fmt = va_arg(ap, char *);
	380	(void) vfprintf(stderr, fmt, ap);
	381	va_end(ap);
	382	fprintf(stderr, ": %s\n", strerror(errno));
655ebcd5	383	}