[unix-history] / usr / src / usr.sbin / lpr / lpq / lpq.c

/*
 * Copyright (c) 1983 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) 1983 Regents of the University of California.\n\
 All rights reserved.\n";
#endif not lint

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

/*
 * Spool Queue examination program
 *
 * lpq [+[n]] [-Pprinter] [user...] [job...]
 *
 * + means continually scan queue until empty
 * -P used to identify printer as per lpr/lprm
 */

#include "lp.h"

char	*user[MAXUSERS];	/* users to process */
int	users;			/* # of users in user array */
int	requ[MAXREQUESTS];	/* job number of spool entries */
int	requests;		/* # of spool requests */

static int	repeat;		/* + flag indicator */
static int	slptime = 30;	/* pause between screen refereshes */
static int	lflag;		/* long output option */

/*
 * Termcap stuff for fancy display
 */
#ifdef TERMCAP
struct sgttyb sbuf;
static unsigned ospeed;
static int	dumb;		/* whether to use capabilities */
static char	PC;		/* pad character for output */
static char	*UP;		/* up one line */
static char	*BC;		/* backspace character, other than \b */
static char	*CM;		/* cursor motion */
static char	*CL;		/* clear display */
static char	*TI;		/* terminal init for CM */
static char	*TE;		/* terminal clear for CM */
static char	*SO;		/* stand out start */
static char	*SE;		/* stand out end */

char	*tgetstr();
int	putch();		/* for tputs' */
#endif

main(argc, argv)
	char *argv[];
{
	register char *arg;
	register int n;

	name = argv[0];
	gethostname(host, sizeof(host));
	openlog("lpd", 0, LOG_LPR);

	while (--argc) {
		if ((arg = *++argv)[0] == '+') {
			if (arg[1] != '\0')
				if ((n = atoi(&arg[1])) > 0)
					slptime = n;
			repeat++;
		} else if (arg[0] == '-')
			switch (arg[1]) {
			case 'P':		/* printer name */
				if (arg[2])
					printer = &arg[2];
				else if (argc > 1) {
					argc--;
					printer = *++argv;
				}
				break;

			case 'l':		/* long output */
				lflag++;
				break;

			default:
				usage();
		} else {
			if (isdigit(arg[0])) {
				if (requests >= MAXREQUESTS)
					fatal("too many requests");
				requ[requests++] = atoi(arg);
			} else {
				if (users >= MAXUSERS)
					fatal("too many users");
				user[users++] = arg;
			}
		}
	}
	if (printer == NULL && (printer = getenv("PRINTER")) == NULL)
		printer = DEFLP;
#ifdef TERMCAP
	dumb = termcap();
#endif

	if (repeat) {
#ifdef TERMCAP
		if (TI)
			tputs(TI, 0, putch);
#endif
		do {
#ifdef TERMCAP
			if (!dumb) {
				tputs(CL, 0, putch);
				tputs(tgoto(CM, 0, 0), 0, putch);
			}
#endif
			if ((n = displayq(lflag)) > 0)
				sleep(slptime);
		} while (n > 0);
#ifdef TERMCAP
		if (!dumb) {
			standout(stdout, "Hit return to continue");
			while (getchar() != '\n');
			if (TE)
				tputs(TE, 0, putch);
		}
#endif
	} else
		displayq(lflag);
	exit(0);
}

static
usage()
{
	printf("usage: lpq [-Pprinter] [-l] [+[n]] [user...] [job...]\n");
	exit(1);
}

/*
 * If we have the capability, print this in standout mode
 */
static
standout(f, s, a1, a2)
	FILE *f;
	char *s;
{
#ifdef TERMCAP
	if (SO)
		tputs(SO, 0, putch);
	fprintf(f, s, a1, a2);
	if (SO && SE)
		tputs(SE, 0, putch);
#else
	fprintf(f, s, a1, a2);
#endif
}

#ifdef TERMCAP
static char *
capstrings[] = {
	"bc", "cl", "cm", "so", "se", "ti", "te", "up",
	0
};

static char **
caps[] = {
	&BC, &CL, &CM, &SO, &SE, &TI, &TE, &UP,
};

/*
 * All we need from termcap is to clear screen and
 *   position cursor at the top; if these aren't available
 *   we say the terminal is dumb and let things scroll
 */
static
termcap()
{
	char *term, tbuf[BUFSIZ];
	static char buf[BUFSIZ/2];
	register short columns;
	char *bp = buf;
	register char **p, ***q, *cp;

	ioctl(0, TIOCGETP, (char *)&sbuf);
	ospeed = sbuf.sg_ospeed;
	if ((term = getenv("TERM")) != NULL && tgetent(tbuf, term) > 0) {
		for (p = capstrings, q = caps; *p != NULL; p++, q++)
			**q = tgetstr(*p, &bp);
		if ((cp = tgetstr("pc", &bp)) != NULL)
			PC = *cp;
	}
	return(CL == NULL || CM == NULL);
}

/*
 * Putchar writearound for tputs
 */
static
putch(c)
	char c;
{
	putchar(c);
}
#endif
Commit	Line	Data
d0aeaf5a DF	1	/*
	2	* Copyright (c) 1983 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) 1983 Regents of the University of California.\n\
	10	All rights reserved.\n";
	11	#endif not lint
	12
5f84f8f0	13	#ifndef lint
126fc76f	14	static char sccsid[] = "@(#)lpq.c 5.2 (Berkeley) %G%";
d0aeaf5a	15	#endif not lint
5f84f8f0	16
dd8e3649 RC	17	/*
	18	* Spool Queue examination program
	19	*
	20	* lpq [+[n]] [-Pprinter] [user...] [job...]
	21	*
	22	* + means continually scan queue until empty
	23	* -P used to identify printer as per lpr/lprm
	24	*/
	25
	26	#include "lp.h"
	27
	28	char user[MAXUSERS]; / users to process */
	29	int users; /* # of users in user array */
	30	int requ[MAXREQUESTS]; /* job number of spool entries */
	31	int requests; /* # of spool requests */
	32
54266d1f RC	33	static int repeat; /* + flag indicator */
	34	static int slptime = 30; /* pause between screen refereshes */
	35	static int lflag; /* long output option */
dd8e3649 RC	36
	37	/*
	38	* Termcap stuff for fancy display
	39	*/
	40	#ifdef TERMCAP
	41	struct sgttyb sbuf;
54266d1f RC	42	static unsigned ospeed;
	43	static int dumb; /* whether to use capabilities */
	44	static char PC; /* pad character for output */
	45	static char UP; / up one line */
	46	static char BC; / backspace character, other than \b */
	47	static char CM; / cursor motion */
	48	static char CL; / clear display */
	49	static char TI; / terminal init for CM */
	50	static char TE; / terminal clear for CM */
	51	static char SO; / stand out start */
	52	static char SE; / stand out end */
dd8e3649 RC	53
	54	char *tgetstr();
	55	int putch(); /* for tputs' */
	56	#endif
	57
	58	main(argc, argv)
	59	char *argv[];
	60	{
	61	register char *arg;
	62	register int n;
	63
4d4caa50 RC	64	name = argv[0];
4d4caa50 RC	65	gethostname(host, sizeof(host));
126fc76f	66	openlog("lpd", 0, LOG_LPR);
4d4caa50	67
dd8e3649 RC	68	while (--argc) {
	69	if ((arg = *++argv)[0] == '+') {
	70	if (arg[1] != '\0')
	71	if ((n = atoi(&arg[1])) > 0)
	72	slptime = n;
	73	repeat++;
	74	} else if (arg[0] == '-')
	75	switch (arg[1]) {
	76	case 'P': /* printer name */
e5be50e6 RC	77	if (arg[2])
	78	printer = &arg[2];
	79	else if (argc > 1) {
	80	argc--;
	81	printer = *++argv;
	82	}
dd8e3649 RC	83	break;
	84
	85	case 'l': /* long output */
	86	lflag++;
	87	break;
	88
	89	default:
	90	usage();
	91	} else {
	92	if (isdigit(arg[0])) {
	93	if (requests >= MAXREQUESTS)
	94	fatal("too many requests");
	95	requ[requests++] = atoi(arg);
	96	} else {
	97	if (users >= MAXUSERS)
	98	fatal("too many users");
	99	user[users++] = arg;
	100	}
	101	}
	102	}
	103	if (printer == NULL && (printer = getenv("PRINTER")) == NULL)
	104	printer = DEFLP;
dd8e3649 RC	105	#ifdef TERMCAP
	106	dumb = termcap();
	107	#endif
	108
	109	if (repeat) {
	110	#ifdef TERMCAP
	111	if (TI)
	112	tputs(TI, 0, putch);
	113	#endif
	114	do {
	115	#ifdef TERMCAP
	116	if (!dumb) {
	117	tputs(CL, 0, putch);
	118	tputs(tgoto(CM, 0, 0), 0, putch);
	119	}
	120	#endif
	121	if ((n = displayq(lflag)) > 0)
	122	sleep(slptime);
	123	} while (n > 0);
	124	#ifdef TERMCAP
	125	if (!dumb) {
	126	standout(stdout, "Hit return to continue");
	127	while (getchar() != '\n');
	128	if (TE)
	129	tputs(TE, 0, putch);
	130	}
	131	#endif
	132	} else
	133	displayq(lflag);
1e7e612e	134	exit(0);
dd8e3649 RC	135	}
dd8e3649 RC	136
54266d1f	137	static
dd8e3649 RC	138	usage()
	139	{
	140	printf("usage: lpq [-Pprinter] [-l] [+[n]] [user...] [job...]\n");
	141	exit(1);
	142	}
	143
	144	/*
	145	* If we have the capability, print this in standout mode
	146	*/
54266d1f	147	static
dd8e3649 RC	148	standout(f, s, a1, a2)
	149	FILE *f;
	150	char *s;
	151	{
	152	#ifdef TERMCAP
	153	if (SO)
	154	tputs(SO, 0, putch);
	155	fprintf(f, s, a1, a2);
	156	if (SO && SE)
	157	tputs(SE, 0, putch);
	158	#else
	159	fprintf(f, s, a1, a2);
	160	#endif
	161	}
	162
	163	#ifdef TERMCAP
54266d1f	164	static char *
dd8e3649 RC	165	capstrings[] = {
	166	"bc", "cl", "cm", "so", "se", "ti", "te", "up",
	167	0
	168	};
	169
54266d1f	170	static char **
dd8e3649 RC	171	caps[] = {
	172	&BC, &CL, &CM, &SO, &SE, &TI, &TE, &UP,
	173	};
	174
	175	/*
	176	* All we need from termcap is to clear screen and
	177	* position cursor at the top; if these aren't available
	178	* we say the terminal is dumb and let things scroll
	179	*/
54266d1f	180	static
dd8e3649 RC	181	termcap()
	182	{
	183	char *term, tbuf[BUFSIZ];
	184	static char buf[BUFSIZ/2];
	185	register short columns;
	186	char *bp = buf;
	187	register char p, q, cp;
dd8e3649 RC	188
	189	ioctl(0, TIOCGETP, (char *)&sbuf);
	190	ospeed = sbuf.sg_ospeed;
	191	if ((term = getenv("TERM")) != NULL && tgetent(tbuf, term) > 0) {
	192	for (p = capstrings, q = caps; *p != NULL; p++, q++)
	193	*q = tgetstr(p, &bp);
	194	if ((cp = tgetstr("pc", &bp)) != NULL)
	195	PC = *cp;
dd8e3649 RC	196	}
	197	return(CL == NULL \|\| CM == NULL);
	198	}
	199
	200	/*
	201	* Putchar writearound for tputs
	202	*/
54266d1f	203	static
dd8e3649 RC	204	putch(c)
	205	char c;
	206	{
	207	putchar(c);
	208	}
	209	#endif