Mercurial > vim
view src/termlib.c @ 2628:5c4b2fc4f067 v7.3.049
updated for version 7.3.049
Problem: PLT has rebranded their Scheme to Racket.
Solution: Add support for Racket 5.x. (Sergey Khorev)
author | Bram Moolenaar <bram@vim.org> |
---|---|
date | Wed, 03 Nov 2010 21:59:30 +0100 |
parents | 82b5078be2dd |
children | 8bd38abda314 |
line wrap: on
line source
/* vi:set ts=8 sts=4 sw=4: */ /* * The following software is (C) 1984 Peter da Silva, the Mad Australian, in * the public domain. It may be re-distributed for any purpose with the * inclusion of this notice. */ /* Modified by Bram Moolenaar for use with VIM - Vi Improved. */ /* A few bugs removed by Olaf 'Rhialto' Seibert. */ /* TERMLIB: Terminal independent database. */ #include "vim.h" #include "termlib.pro" #if !defined(AMIGA) && !defined(VMS) && !defined(MACOS) && !defined(RISCOS) # include <sgtty.h> #endif static int getent __ARGS((char *, char *, FILE *, int)); static int nextent __ARGS((char *, FILE *, int)); static int _match __ARGS((char *, char *)); static char *_addfmt __ARGS((char *, char *, int)); static char *_find __ARGS((char *, char *)); /* * Global variables for termlib */ char *tent; /* Pointer to terminal entry, set by tgetent */ char PC = 0; /* Pad character, default NULL */ char *UP = 0, *BC = 0; /* Pointers to UP and BC strings from database */ short ospeed; /* Baud rate (1-16, 1=300, 16=19200), as in stty */ /* * Module: tgetent * * Purpose: Get termcap entry for <term> into buffer at <tbuf>. * * Calling conventions: char tbuf[TBUFSZ+], term=canonical name for terminal. * * Returned values: 1 = success, -1 = can't open file, * 0 = can't find terminal. * * Notes: * - Should probably supply static buffer. * - Uses environment variables "TERM" and "TERMCAP". If TERM = term (that is, * if the argument matches the environment) then it looks at TERMCAP. * - If TERMCAP begins with a slash, then it assumes this is the file to * search rather than /etc/termcap. * - If TERMCAP does not begin with a slash, and it matches TERM, then this is * used as the entry. * - This could be simplified considerably for non-UNIX systems. */ #ifndef TERMCAPFILE # ifdef AMIGA # define TERMCAPFILE "s:termcap" # else # ifdef VMS # define TERMCAPFILE "VIMRUNTIME:termcap" # else # define TERMCAPFILE "/etc/termcap" # endif # endif #endif int tgetent(tbuf, term) char *tbuf; /* Buffer to hold termcap entry, TBUFSZ bytes max */ char *term; /* Name of terminal */ { char tcbuf[32]; /* Temp buffer to handle */ char *tcptr = tcbuf; /* extended entries */ char *tcap = TERMCAPFILE; /* Default termcap file */ char *tmp; FILE *termcap; int retval = 0; int len; if ((tmp = (char *)mch_getenv((char_u *)"TERMCAP")) != NULL) { if (*tmp == '/') /* TERMCAP = name of termcap file */ { tcap = tmp ; #if defined(AMIGA) /* Convert /usr/share/lib/termcap to usr:share/lib/termcap */ tcap++; tmp = strchr(tcap, '/'); if (tmp) *tmp = ':'; #endif } else /* TERMCAP = termcap entry itself */ { int tlen = strlen(term); while (*tmp && *tmp != ':') /* Check if TERM matches */ { char *nexttmp; while (*tmp == '|') tmp++; nexttmp = _find(tmp, ":|"); /* Rhialto */ if (tmp+tlen == nexttmp && _match(tmp, term) == tlen) { strcpy(tbuf, tmp); tent = tbuf; return 1; } else tmp = nexttmp; } } } if (!(termcap = mch_fopen(tcap, "r"))) { strcpy(tbuf, tcap); return -1; } len = 0; while (getent(tbuf + len, term, termcap, TBUFSZ - len)) { tcptr = tcbuf; /* Rhialto */ if ((term = tgetstr("tc", &tcptr))) /* extended entry */ { rewind(termcap); len = strlen(tbuf); } else { retval = 1; tent = tbuf; /* reset it back to the beginning */ break; } } fclose(termcap); return retval; } static int getent(tbuf, term, termcap, buflen) char *tbuf, *term; FILE *termcap; int buflen; { char *tptr; int tlen = strlen(term); while (nextent(tbuf, termcap, buflen)) /* For each possible entry */ { tptr = tbuf; while (*tptr && *tptr != ':') /* : terminates name field */ { char *nexttptr; while (*tptr == '|') /* | separates names */ tptr++; nexttptr = _find(tptr, ":|"); /* Rhialto */ if (tptr + tlen == nexttptr && _match(tptr, term) == tlen) /* FOUND! */ { tent = tbuf; return 1; } else /* Look for next name */ tptr = nexttptr; } } return 0; } static int nextent(tbuf, termcap, buflen) /* Read 1 entry from TERMCAP file */ char *tbuf; FILE *termcap; int buflen; { char *lbuf = tbuf; /* lbuf=line buffer */ /* read lines straight into buffer */ while (lbuf < tbuf+buflen && /* There's room and */ fgets(lbuf, (int)(tbuf+buflen-lbuf), termcap)) /* another line */ { int llen = strlen(lbuf); if (*lbuf == '#') /* eat comments */ continue; if (lbuf[-1] == ':' && /* and whitespace */ lbuf[0] == '\t' && lbuf[1] == ':') { STRMOVE(lbuf, lbuf + 2); llen -= 2; } if (lbuf[llen-2] == '\\') /* and continuations */ lbuf += llen-2; else { lbuf[llen-1]=0; /* no continuation, return */ return 1; } } return 0; /* ran into end of file */ } /* * Module: tgetflag * * Purpose: returns flag true or false as to the existence of a given entry. * used with 'bs', 'am', etc... * * Calling conventions: id is the 2 character capability id. * * Returned values: 1 for success, 0 for failure. */ int tgetflag(id) char *id; { char buf[256], *ptr = buf; return tgetstr(id, &ptr) ? 1 : 0; } /* * Module: tgetnum * * Purpose: get numeric value such as 'li' or 'co' from termcap. * * Calling conventions: id = 2 character id. * * Returned values: -1 for failure, else numerical value. */ int tgetnum(id) char *id; { char *ptr, buf[256]; ptr = buf; if (tgetstr(id, &ptr)) return atoi(buf); else return 0; } /* * Module: tgetstr * * Purpose: get terminal capability string from database. * * Calling conventions: id is the two character capability id. * (*buf) points into a hold buffer for the * id. the capability is copied into the buffer * and (*buf) is advanced to point to the next * free byte in the buffer. * * Returned values: 0 = no such entry, otherwise returns original * (*buf) (now a pointer to the string). * * Notes * It also decodes certain escape sequences in the buffer. * they should be obvious from the code: * \E = escape. * \n, \r, \t, \f, \b match the 'c' escapes. * ^x matches control-x (^@...^_). * \nnn matches nnn octal. * \x, where x is anything else, matches x. I differ * from the standard library here, in that I allow ^: to match * :. * */ char * tgetstr(id, buf) char *id, **buf; { int len = strlen(id); char *tmp=tent; char *hold; int i; do { tmp = _find(tmp, ":"); /* For each field */ while (*tmp == ':') /* skip empty fields */ tmp++; if (!*tmp) break; if (_match(id, tmp) == len) { tmp += len; /* find '=' '@' or '#' */ if (*tmp == '@') /* :xx@: entry for tc */ return 0; /* deleted entry */ hold= *buf; while (*++tmp && *tmp != ':') { /* not at end of field */ switch(*tmp) { case '\\': /* Expand escapes here */ switch(*++tmp) { case 0: /* ignore backslashes */ tmp--; /* at end of entry */ break; /* shouldn't happen */ case 'e': case 'E': /* ESC */ *(*buf)++ = ESC; break; case 'n': /* \n */ *(*buf)++ = '\n'; break; case 'r': /* \r */ *(*buf)++ = '\r'; break; case 't': /* \t */ *(*buf)++ = '\t'; break; case 'b': /* \b */ *(*buf)++ = '\b'; break; case 'f': /* \f */ *(*buf)++ = '\f'; break; case '0': /* \nnn */ case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': **buf = 0; /* get up to three digits */ for (i = 0; i < 3 && VIM_ISDIGIT(*tmp); ++i) **buf = **buf * 8 + *tmp++ - '0'; (*buf)++; tmp--; break; default: /* \x, for all other x */ *(*buf)++= *tmp; } break; case '^': /* control characters */ ++tmp; *(*buf)++ = Ctrl_chr(*tmp); break; default: *(*buf)++ = *tmp; } } *(*buf)++ = 0; return hold; } } while (*tmp); return 0; } /* * Module: tgoto * * Purpose: decode cm cursor motion string. * * Calling conventions: cm is cursor motion string. line, col, are the * desired destination. * * Returned values: a string pointing to the decoded string, or "OOPS" if it * cannot be decoded. * * Notes * The accepted escapes are: * %d as in printf, 0 origin. * %2, %3 like %02d, %03d in printf. * %. like %c * %+x adds <x> to value, then %. * %>xy if value>x, adds y. No output. * %i increments line& col, no output. * %r reverses order of line&col. No output. * %% prints as a single %. * %n exclusive or row & col with 0140. * %B BCD, no output. * %D reverse coding (x-2*(x%16)), no output. */ char * tgoto(cm, col, line) char *cm; /* cm string, from termcap */ int col, /* column, x position */ line; /* line, y position */ { char gx, gy, /* x, y */ *ptr, /* pointer in 'cm' */ reverse = 0, /* reverse flag */ *bufp, /* pointer in returned string */ addup = 0, /* add upline */ addbak = 0, /* add backup */ c; static char buffer[32]; if (!cm) return "OOPS"; /* Kludge, but standard */ bufp = buffer; ptr = cm; while (*ptr) { if ((c = *ptr++) != '%') { /* normal char */ *bufp++ = c; } else { /* % escape */ switch(c = *ptr++) { case 'd': /* decimal */ bufp = _addfmt(bufp, "%d", line); line = col; break; case '2': /* 2 digit decimal */ bufp = _addfmt(bufp, "%02d", line); line = col; break; case '3': /* 3 digit decimal */ bufp = _addfmt(bufp, "%03d", line); line = col; break; case '>': /* %>xy: if >x, add y */ gx = *ptr++; gy = *ptr++; if (col>gx) col += gy; if (line>gx) line += gy; break; case '+': /* %+c: add c */ line += *ptr++; case '.': /* print x/y */ if (line == '\t' || /* these are */ line == '\n' || /* chars that */ line == '\004' || /* UNIX hates */ line == '\0') { line++; /* so go to next pos */ if (reverse == (line == col)) addup=1; /* and mark UP */ else addbak=1; /* or BC */ } *bufp++=line; line = col; break; case 'r': /* r: reverse */ gx = line; line = col; col = gx; reverse = 1; break; case 'i': /* increment (1-origin screen) */ col++; line++; break; case '%': /* %%=% literally */ *bufp++='%'; break; case 'n': /* magic DM2500 code */ line ^= 0140; col ^= 0140; break; case 'B': /* bcd encoding */ line = line/10<<4+line%10; col = col/10<<4+col%10; break; case 'D': /* magic Delta Data code */ line = line-2*(line&15); col = col-2*(col&15); break; default: /* Unknown escape */ return "OOPS"; } } } if (addup) /* add upline */ if (UP) { ptr=UP; while (VIM_ISDIGIT(*ptr) || *ptr == '.') ptr++; if (*ptr == '*') ptr++; while (*ptr) *bufp++ = *ptr++; } if (addbak) /* add backspace */ if (BC) { ptr=BC; while (VIM_ISDIGIT(*ptr) || *ptr == '.') ptr++; if (*ptr == '*') ptr++; while (*ptr) *bufp++ = *ptr++; } else *bufp++='\b'; *bufp = 0; return(buffer); } /* * Module: tputs * * Purpose: decode padding information * * Calling conventions: cp = string to be padded, affcnt = # of items affected * (lines, characters, whatever), outc = routine to output 1 character. * * Returned values: none * * Notes * cp has padding information ahead of it, in the form * nnnTEXT or nnn*TEXT. nnn is the number of milliseconds to delay, * and may be a decimal (nnn.mmm). If the asterisk is given, then * the delay is multiplied by afcnt. The delay is produced by outputting * a number of nulls (or other padding char) after printing the * TEXT. * */ long _bauds[16]={ 0, 50, 75, 110, 134, 150, 200, 300, 600, 1200, 1800, 2400, 4800, 9600, 19200, 19200 }; int tputs(cp, affcnt, outc) char *cp; /* string to print */ int affcnt; /* Number of lines affected */ void (*outc) __ARGS((unsigned int));/* routine to output 1 character */ { long frac, /* 10^(#digits after decimal point) */ counter, /* digits */ atol __ARGS((const char *)); if (VIM_ISDIGIT(*cp)) { counter = 0; frac = 1000; while (VIM_ISDIGIT(*cp)) counter = counter * 10L + (long)(*cp++ - '0'); if (*cp == '.') while (VIM_ISDIGIT(*++cp)) { counter = counter * 10L + (long)(*cp++ - '0'); frac = frac * 10; } if (*cp!='*') { /* multiply by affected lines */ if (affcnt>1) affcnt = 1; } else cp++; /* Calculate number of characters for padding counter/frac ms delay */ if (ospeed) counter = (counter * _bauds[ospeed] * (long)affcnt) / frac; while (*cp) /* output string */ (*outc)(*cp++); if (ospeed) while (counter--) /* followed by pad characters */ (*outc)(PC); } else while (*cp) (*outc)(*cp++); return 0; } /* * Module: tutil.c * * Purpose: Utility routines for TERMLIB functions. * */ static int _match(s1, s2) /* returns length of text common to s1 and s2 */ char *s1, *s2; { int i = 0; while (s1[i] && s1[i] == s2[i]) i++; return i; } /* * finds next c in s that's a member of set, returns pointer */ static char * _find(s, set) char *s, *set; { for(; *s; s++) { char *ptr = set; while (*ptr && *s != *ptr) ptr++; if (*ptr) return s; } return s; } /* * add val to buf according to format fmt */ static char * _addfmt(buf, fmt, val) char *buf, *fmt; int val; { sprintf(buf, fmt, val); while (*buf) buf++; return buf; }