Return to clear.c CVS log

Up to [MW Coherent from dump] / coherent / d / bin

Annotation of coherent/d/bin/clear.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * clear.c
                      3:  * 3/18/91
                      4:  * Usage: clear
                      5:  * cc -o clear clear.c -lterm
                      6:  * Clear the screen (stdout) using termcap.
                      7:  */
                      8: 
                      9: #include <stdio.h>
                     10: 
                     11: #define        TCBUFLEN        1024
                     12: #define TCAPSLEN       315
                     13: #define        NLINES          22
                     14: 
                     15: extern char    *getenv();
                     16: extern int     tgetent();
                     17: extern char    *tgetstr();
                     18: extern char    *tgoto();
                     19: extern int     ttputc();
                     20: 
                     21: void   fatal();
                     22: int    ttputc();
                     23: 
                     24: char   tcbuf[TCBUFLEN];
                     25: char   tcapbuf[TCAPSLEN];
                     26: 
                     27: main()
                     28: {
                     29:        register char *clear, *move, *tv_stype, *p;
                     30: 
                     31:        p = tcapbuf;
                     32:        if ((tv_stype=getenv("TERM")) == NULL)
                     33:                fatal("enviroment variable TERM not defined");
                     34:        else if (tgetent(tcbuf, tv_stype) != 1)
                     35:                fatal("unknown terminal type \"%s\"", tv_stype);
                     36:        else if ((clear=tgetstr("cd", &p)) == NULL
                     37:              || (move =tgetstr("cm", &p)) == NULL)
                     38:                fatal("incomplete termcap entry");
                     39:        tputs(tgoto(move, 0, 0), 1, ttputc);
                     40:        tputs(clear, 1, ttputc);
                     41:        exit(0);
                     42: }
                     43: 
                     44: /* VARARGS */
                     45: void
                     46: fatal(x) char *x;
                     47: {
                     48:        register int i;
                     49: 
                     50:        fprintf(stderr, "clear: %r\n", &x);
                     51:        for (i = 1; i <= NLINES; i++)
                     52:                putchar('\n');
                     53:        exit(1);
                     54: }
                     55: 
                     56: int
                     57: ttputc(c) int c;
                     58: {
                     59:        return fputc(c, stdout);
                     60: }
                     61: 
                     62: /* end of clear.c */

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