Return to clear.c CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb

Annotation of 43BSD/ucb/clear.c, revision 1.1.1.1

1.1       root        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: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.