[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.25 (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/stat.h>
#include <sys/user.h>
#include <sys/proc.h>
#include <sys/ioctl.h>
#include <machine/pte.h>
#include <sys/vm.h>
#include <sys/tty.h>
#include <nlist.h>
#include <kvm.h>
#include <ctype.h>
#include <paths.h>
#include <string.h>
#include <stdio.h>

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);
	}
}

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