Return to ansi.c CVS log

Up to [MW Coherent from dump] / coherent / g / usr / bin / me

Annotation of coherent/g/usr/bin/me/ansi.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * The routines in this file
                      3:  * provide support for ANSI style terminals
                      4:  * over a serial line. The serial I/O services are
                      5:  * provided by routines in "termio.c". It compiles
                      6:  * into nothing if not an ANSI device.
                      7:  */
                      8: #include       <stdio.h>
                      9: #include       "ed.h"
                     10: 
                     11: #if    ANSI
                     12: 
                     13: #define        NROW    24                      /* Screen size.                 */
                     14: #define        NCOL    80                      /* Edit if you want to.         */
                     15: #define        BEL             0x07            /* BEL character.               */
                     16: #define        ESC             0x1B            /* ESC character.               */
                     17: 
                     18: extern int     ttopen();               /* Forward references.          */
                     19: extern int     ttgetc();
                     20: extern int     ttputc();
                     21: extern int     ttflush();
                     22: extern int     ttclose();
                     23: extern int     ansimove();
                     24: extern int     ansieeol();
                     25: extern int     ansieeop();
                     26: extern int     ansibeep();
                     27: extern int     ansiopen();
                     28: extern int     ansistand();
                     29: 
                     30: /*
                     31:  * Standard terminal interface
                     32:  * dispatch table. Most of the fields
                     33:  * point into "termio" code.
                     34:  */
                     35: TERM   term    = {
                     36:        NROW-1,
                     37:        NCOL,
                     38:        ansiopen,
                     39:        ttclose,
                     40:        ttgetc,
                     41:        ttputc,
                     42:        ttflush,
                     43:        ansimove,
                     44:        ansieeol,
                     45:        ansieeop,
                     46:        ansibeep,
                     47:        ansistand
                     48: };
                     49: 
                     50: ansimove(row, col)
                     51: {
                     52:        ttputc(ESC);
                     53:        ttputc('[');
                     54:        ansiparm(row+1);
                     55:        ttputc(';');
                     56:        ansiparm(col+1);
                     57:        ttputc('H');
                     58: }
                     59: 
                     60: ansieeol()
                     61: {
                     62:        ttputc(ESC);
                     63:        ttputc('[');
                     64:        ttputc('K');
                     65: }
                     66: 
                     67: ansieeop()
                     68: {
                     69:        ttputc(ESC);
                     70:        ttputc('[');
                     71:        ttputc('J');
                     72: }
                     73: 
                     74: ansibeep()
                     75: {
                     76:        ttputc(BEL);
                     77:        ttflush();
                     78: }
                     79: 
                     80: ansiparm(n)
                     81: register int   n;
                     82: {
                     83:        register int    q;
                     84: 
                     85:        q = n/10;
                     86:        if (q != 0)
                     87:                ansiparm(q);
                     88:        ttputc((n%10) + '0');
                     89: }
                     90: 
                     91: ansistand(f)
                     92: {
                     93:        ttputc(ESC);                    /* <ESC> [ Ps m -- Select graphics rendition */
                     94:        ttputc('[');                    /* (SGR)                                */
                     95:        ttputc(!f ? '0' : '7'); /* 7 = Reverse video */
                     96:        ttputc('m');
                     97: }
                     98: 
                     99: #endif
                    100: 
                    101: ansiopen()
                    102: {
                    103: #if    V7
                    104:        register uchar *cp;
                    105:        char *getenv();
                    106: 
                    107:        if ((cp = getenv("TERM")) == NULL) {
                    108:                puts("Shell variable TERM not defined!");
                    109:                exit(1);
                    110:        }
                    111:        if (strcmp(cp, "vt100") != 0) {
                    112:                puts("Terminal type not 'vt100'!");
                    113:                exit(1);
                    114:        }
                    115: #endif
                    116:        ttopen();
                    117: }

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