4.3BSD - /usr/src/ucb/clear.c

   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: 
  13: #ifndef lint
  14: static char sccsid[] = "@(#)clear.c	5.1 (Berkeley) 5/31/85";
  15: #endif not lint
  16: 
  17: /* load me with -ltermlib */
  18: /* #include <retrofit.h> on version 6 */
  19: /*
  20:  * clear - clear the screen
  21:  */
  22: 
  23: #include <stdio.h>
  24: #include <sgtty.h>
  25: 
  26: char    *getenv();
  27: char    *tgetstr();
  28: char    PC;
  29: short   ospeed;
  30: #undef  putchar
  31: int putchar();
  32: 
  33: main()
  34: {
  35:     char *cp = getenv("TERM");
  36:     char clbuf[20];
  37:     char pcbuf[20];
  38:     char *clbp = clbuf;
  39:     char *pcbp = pcbuf;
  40:     char *clear;
  41:     char buf[1024];
  42:     char *pc;
  43:     struct sgttyb tty;
  44: 
  45:     gtty(1, &tty);
  46:     ospeed = tty.sg_ospeed;
  47:     if (cp == (char *) 0)
  48:         exit(1);
  49:     if (tgetent(buf, cp) != 1)
  50:         exit(1);
  51:     pc = tgetstr("pc", &pcbp);
  52:     if (pc)
  53:         PC = *pc;
  54:     clear = tgetstr("cl", &clbp);
  55:     if (clear)
  56:         tputs(clear, tgetnum("li"), putchar);
  57:     exit (clear == (char *) 0);
  58: }

Defined functions

Defined variables