59 lines
1.1 KiB
C
59 lines
1.1 KiB
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[] = "@(#)clear.c 1.1 92/07/30 SMI"; /* from UCB 5.1 5/31/85 */
|
|
#endif not lint
|
|
/* load me with -ltermlib */
|
|
/* #include <retrofit.h> on version 6 */
|
|
/*
|
|
* clear - clear the screen
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <sgtty.h>
|
|
|
|
char *getenv();
|
|
char *tgetstr();
|
|
char PC;
|
|
short ospeed;
|
|
#undef putchar
|
|
int putchar();
|
|
|
|
main()
|
|
{
|
|
char *cp = getenv("TERM");
|
|
char clbuf[20];
|
|
char pcbuf[20];
|
|
char *clbp = clbuf;
|
|
char *pcbp = pcbuf;
|
|
char *clear;
|
|
char buf[1024];
|
|
char *pc;
|
|
struct sgttyb tty;
|
|
|
|
gtty(1, &tty);
|
|
ospeed = tty.sg_ospeed;
|
|
if (cp == (char *) 0)
|
|
exit(1);
|
|
if (tgetent(buf, cp) != 1)
|
|
exit(1);
|
|
pc = tgetstr("pc", &pcbp);
|
|
if (pc)
|
|
PC = *pc;
|
|
clear = tgetstr("cl", &clbp);
|
|
if (clear)
|
|
tputs(clear, tgetnum("li"), putchar);
|
|
exit (clear == (char *) 0);
|
|
/* NOTREACHED */
|
|
}
|