BSD 4_1c_2 release

[unix-history] / usr / src / ucb / clear.c

static char *sccsid = "@(#)clear.c      4.1 (Berkeley) 10/1/80";
/* 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);
}