date and time created 84/05/12 21:01:48 by sam

[unix-history] / usr / src / local / local.cmd / dis.c

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

/*
**	Dis -- VDU page display program
**
**	"dis [-t<timeout>] [-c<refresh count>] [-u]"
**
**	Bugs and comments to:	Piers Lauder
**				Dept of Comp Sci
**				Sydney University
**	May '80.
*/

/*
#include	<local-system>
*/
#include	<signal.h>
#include	<setjmp.h>
#include	<sgtty.h>
#include	<stdio.h>

/*
**	Parameters
*/

#define		MAXWID		132
#define		MAXLEN		80


/*
**	Screen buffer
*/

char *		Buf;

/*
**	Term Cap
*/

char		*CM, *CL;
short		amflag;

extern short	ospeed;
extern char	PC, *BC, *UP;

extern char *	tgoto();
extern char *	tgetstr();

/*
**	Screen macro
*/

#define		putcm(cp,p,c)		if(*cp++!=c){\
						if(move((--cp)-p))\
							putc(c,stdout);\
						*cp++=c;\
					}

/*
**	Miscellaneous
*/

jmp_buf		alrmbuf;
short		width;
short		Width;		/* width - 1 */
short		length;
short		Length;		/* length - 1 */
char *		name;
unsigned	timeout;
short		rcount;

void
		tcinit(),
		dis(),
		warn(),
		terror(),
		outc();

int		alrmcatch();

/*
**	Externals
*/

extern char	_sobuf[];
extern char *	tgetstr();
extern char *	malloc();
extern char *	getenv();



main(argc, argv)
	register int		argc;
	register char *		argv[];
{
	register char *		cp;
	register unsigned	size;

	name = *argv++;
	argc--;

	while ( argc )
	{
		switch( argv[0][0] )
		{
		 case '-':	argv[0]++;
				continue;
		 case 't':	timeout = atoi(&argv[0][1]);
				break;
		 case 'c':	rcount = atoi(&argv[0][1]);
				break;
		 case 'u':	setbuf(stdin, NULL);
				break;
		 default:	fprintf(stderr, "%s: bad arg - %s\n", name, argv[0] );
				return 1;
		}
		argc--;
		argv++;
	}

	setbuf(stdout, _sobuf);
	tcinit();
	size = length * width;
	if ( (Buf = malloc(size)) == (char *)0 )
	{
		fprintf(stderr, "No memory\n");
		exit(2);
	}
	bzero(Buf, size);

	Length = length - 1;
	Width = width - 1;
	dis(size);

	return 0;
}




void
dis(size)
	unsigned		size;
{
	register char *		ep;
	register char *		p = Buf;
	register int		c;
	register int		line;
	/** on stack to avoid setjmp **/
	char *			cp;
	char *			lastend;
	int			rc;

	lastend = p;
	rc = rcount;

	do
	{
		line = 0;
		cp = p;
		ep = cp+width;

		if ( timeout == 0 || setjmp(alrmbuf) == 0 )
		{
			if ( timeout )
			{
				signal(SIGALRM, alrmcatch);
				alarm(timeout);
			}
			while ( (c = getchar()) != EOF )
			{
				if ( rcount && !rc )
				{
					tputs(CL, 1, outc);
					bzero(p, size);
					rc = rcount;
				}
				if ( c < ' ' )
				{
					switch ( c )
					{
					 case '\f':	if ( cp != p )
								break;
							continue;
					 case '\t':	c = cp - &p[line*width] + 1;
							putcm(cp, p, ' ');
							while ( c++&7 )
								putcm(cp, p, ' ');
							continue;
					 case '\n':	while ( cp < ep )
								putcm(cp, p, ' ');
							if ( line < Length )
							{
								cp = &p[(++line)*width];
								ep = cp+width;
							}
							continue;
					 default:
							if ( cp < ep )
								putcm(cp, p, '?');
							continue;
					}
				}
				else
				{
					if ( cp < ep )
						putcm(cp, p, c);
					continue;
				}
				break;
			}
			if ( timeout )
				alarm(0);
		}
		ep = cp - 1;
		while ( cp < lastend )
			putcm(cp, p, ' ');
		lastend = ep;
		if ( (line = (ep-p)/width) < Length )
			line++;
		(void)move(line*width);
		fflush(stdout);
		if ( rcount )
			--rc;
	}
	while
		( c != EOF );
}




int
move(pos)
	register int	pos;
{
	register int	x = pos%width;
	register int	y = pos/width;
	register int	i;
	static int	oy, ox = -1;

	if ( oy == y )
	{
		if ( (i = x - ox) != 1 )
			if ( i <= 3 && i > 0 )
			{
				i--;
				pos -= i;
				do
					putc(Buf[pos++], stdout);
				while
					( --i > 0 );
			}
			else
				tputs(tgoto(CM, x, y), 1, outc);
	}
	else
		if ( oy == (y-1) && x == 0 )
		{
			if ( ox != Width || !amflag )
				putc('\n', stdout);
		}
		else
			tputs(tgoto(CM, x, y), oy<y?y-oy:oy-y, outc);

	ox = x; oy = y;
	if ( y==Length && x==Width && amflag )
		return 0;
	return 1;
}




int
alrmcatch()
{
	longjmp(alrmbuf, 1);
}




void
tcinit()
{
	register char *	cp;
	struct sgttyb	gb;
	char		bp[1024];
	static char	buf[100];
	char		*area = buf;

	if ( tgetent(bp, getenv("TERM")) != 1 )
		terror("no \"termcap\" entry");
	if ( (CL = tgetstr("cl", &area)) == (char *)0 )
		terror("not VDU");
	if ( (CM = tgetstr("cm", &area)) == (char *)0 )
		terror("no cursor addressing");
	UP = tgetstr("up", &area);
	BC = tgetstr("bc", &area);
	if ( tgetflag("am") == 1 )
		amflag++;
	if ( (cp = getenv("WIDTH")) != (char *)0 )
		width = atoi(cp);
	else
		width = tgetnum("co");
	if ( width > MAXWID )
	{
		width = MAXWID;
		warn("width truncated");
	}
	if ( (length = tgetnum("li")) > MAXLEN )
	{
		length = MAXLEN;
		warn("length truncated");
	}
	if ( (cp = tgetstr("pc", &area)) != (char *)0 )
		PC = *cp;
	gtty(1, &gb);
	ospeed = gb.sg_ospeed;

	tputs(CL, 1, outc);
	fflush(stdout);
}




void
outc(c)
{
	putc(c, stdout);
}




void
warn(s)
	char *	s;
{
	fprintf(stderr, "Warning: %s\n", s);
	sleep(2);
}




void
terror(s)
	char *	s;
{
	fprintf(stderr, "Terminal capability error - %s\n", s);
	exit(1);
}