Return to escseq.c CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.lib / lib2648

Annotation of 42BSD/usr.lib/lib2648/escseq.c, revision 1.1.1.1

1.1       root        1: /*     escseq.c        4.1     83/03/09        */
                      2: /*
                      3:  * escseq: get us out of any escape sequence we are in the middle of
                      4:  * and put us into the requested kind of escape sequence.
                      5:  */
                      6: 
                      7: #include "2648.h"
                      8: 
                      9: escseq(mode)
                     10: int mode;
                     11: {
                     12:        if (mode == _escmode)
                     13:                return;
                     14:        /* Get out of previous mode */
                     15:        switch (_escmode) {
                     16:        case NONE:
                     17:                break;
                     18:        case ESCD:
                     19:                if (mode == TEXT) {
                     20:                        outchar('s');
                     21:                        _escmode = mode;
                     22:                        return;
                     23:                }
                     24:        case ESCP:
                     25:        case ESCM:
                     26:                outchar('Z');   /* no-op */
                     27:                break;
                     28:        case TEXT:
                     29:                outstr("\33*dT");
                     30:                break;
                     31:        }
                     32:        /* Get into new mode */
                     33:        switch (_escmode = mode) {
                     34:        case NONE:
                     35:                break;
                     36:        case ESCD:
                     37:                outstr("\33*d");
                     38:                break;
                     39:        case ESCP:
                     40:                outstr("\33*p");
                     41:                break;
                     42:        case ESCM:
                     43:                outstr("\33*m");
                     44:                break;
                     45:        case TEXT:
                     46:                outstr("\33*dS");
                     47:                break;
                     48:        }
                     49: }

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