Return to termcap.form CVS log

Up to [Research Unix] / researchv10no / ncurses / screen

Annotation of researchv10no/ncurses/screen/termcap.form, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Simulation of termcap using terminfo.
                      3:  */
                      4: 
                      5: #include "curses.ext"
                      6: 
                      7: static char *sccsid = "@(#)termcap.form        1.1     1.8     3/6/83";
                      8: 
                      9: char *UP;
                     10: char *BC;
                     11: char PC;
                     12: short ospeed;
                     13: 
                     14: int
                     15: tgetent(bp, name)
                     16: char *bp, *name;
                     17: {
                     18:        int rv;
                     19: 
                     20:        if (setupterm(name, 1, &rv) >= 0)
                     21:                /* Leave things as they were (for compatibility) */
                     22:                reset_shell_mode();
                     23:        return rv;
                     24: }
                     25: 
                     26: /* Make a 2 letter code into an integer we can switch on easily */
                     27: #define two(s1, s2) (s1 + 256*s2)
                     28: #define twostr(str) two(*str, str[1])
                     29: 
                     30: int
                     31: tgetflag(id)
                     32: char *id;
                     33: {
                     34:        register int rv;
                     35:        register char *p;
                     36: 
                     37:        switch (twostr(id)) {
                     38:        BOOLS
                     39:        case two('b','s'):
                     40:                p = cursor_left;
                     41:                rv = p && *p==8 && p[1] == 0;
                     42:                break;
                     43:        case two('p','t'):
                     44:                p = tab;
                     45:                rv = p && *p==9 && p[1] == 0;
                     46:                break;
                     47:        case two('n','c'):
                     48:                p = carriage_return;
                     49:                rv = ! (p && *p==13 && p[1] == 0);
                     50:                break;
                     51:        case two('n','s'):
                     52:                p = scroll_forward;
                     53:                rv = ! (p && *p==10 && p[1] == 0);
                     54:                break;
                     55:        default: rv = 0;
                     56:        }
                     57:        return rv;
                     58: }
                     59: 
                     60: int
                     61: tgetnum(id)
                     62: char *id;
                     63: {
                     64:        int rv;
                     65: 
                     66:        switch (twostr(id)) {
                     67:        NUMS
                     68:        default: rv = -1;
                     69:        }
                     70:        return rv;
                     71: }
                     72: 
                     73: char *
                     74: tgetstr(id, area)
                     75: char *id, *area;
                     76: {
                     77:        char *rv;
                     78: 
                     79:        switch (twostr(id)) {
                     80:        STRS
                     81:        default: rv = NULL;
                     82:        }
                     83:        return rv;
                     84: }

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