![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tinytcap.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / g / usr / bin / vi|
Return to tinytcap.c CVS log | Up to [MW Coherent from dump] / coherent / g / usr / bin / vi |
1.1 ! root 1: /* tinytcap.c */ ! 2: ! 3: /* This file contains functions which simulate the termcap functions. ! 4: * ! 5: * It doesn't access a "termcap" file. Instead, it uses an initialized array ! 6: * of strings to store the entries. Any string that doesn't start with a ':' ! 7: * is taken to be the name of a type of terminal. Any string that does start ! 8: * with a ':' is interpretted as the list of fields describing all of the ! 9: * terminal types that precede it. ! 10: * ! 11: * Note: since these are C strings, you can't use special sequences like ! 12: * ^M or \E in the fields; your C compiler won't understand them. Also, ! 13: * at run time there is no way to tell the difference between ':' and '\072' ! 14: * so I sure hope your terminal definition doesn't require a ':' character. ! 15: * ! 16: * getenv(TERM) on VMS checks the SET TERM device setting. To implement ! 17: * non-standard terminals set the logical ELVIS_TERM in VMS. (jdc) ! 18: * ! 19: * Other possible terminal types are... ! 20: * TERM_WYSE925 - "wyse925", a Wyse 50 terminal emulating Televideo 925 ! 21: * ... or you could set $TERMCAP to the terminal's description string, which ! 22: * $TERM set up to match it. ! 23: * ! 24: * Note that you can include several terminal types at the same time. Elvis ! 25: * chooses which entry to use at runtime, based primarily on the value of $TERM. ! 26: */ ! 27: ! 28: ! 29: #include "config.h" ! 30: extern char *getenv(); ! 31: ! 32: /* decide which terminal descriptions should *always* be included. */ ! 33: #if MSDOS ! 34: # define TERM_NANSI ! 35: # define TERM_DOSANSI ! 36: # if RAINBOW ! 37: # define TERM_RAINBOW ! 38: # endif ! 39: #endif ! 40: ! 41: #if VMS ! 42: # define TERM_VT100 ! 43: # define TERM_VT100W ! 44: # define TERM_VT52 ! 45: #endif ! 46: ! 47: #if AMIGA ! 48: # define TERM_AMIGA /* Internal Amiga termcap entry */ ! 49: /* # define TERM_VT52 /* The rest of these are here for those */ ! 50: # define TERM_VT100 /* people who want to use elvis over an */ ! 51: /* # define TERM_NANSI /* AUX: port (serial.device). */ ! 52: /* # define TERM_DOSANSI /* Take out all but AMIGA to save memory. */ ! 53: /* # define TERM_MINIX /* Vanilla ANSI? */ ! 54: /* # define TERM_925 /* Hang a terminal off your Amiga */ ! 55: #endif ! 56: ! 57: #if MINIX || UNIXV ! 58: # define TERM_MINIX ! 59: #endif ! 60: ! 61: #if COHERENT ! 62: # define TERM_COHERENT ! 63: #endif ! 64: ! 65: #if TOS ! 66: # define TERM_ATARI ! 67: #endif ! 68: ! 69: static char *termcap[] = ! 70: { ! 71: #ifdef TERM_AMIGA ! 72: "AA", ! 73: "amiga", ! 74: "Amiga ANSI", ! 75: /* Amiga termcap modified from version 1.3 by Kent Polk */ ! 76: ":co#80:li#24:am:bs:bw:xn:\ ! 77: :AL=\233%dL:DC=\233%dP:DL=\233%dM:DO=\233%dB:\ ! 78: :LE=\233%dD:RI=\233%dC:SF=\233%dS:SR=\233%dT:UP=\233%dA:IC=\233%d@:\ ! 79: :ae=\2330m:al=\233L:as=\2333m:bl=\007:bt=\233Z:cd=\233J:\ ! 80: :ce=\233K:cl=\013:cm=\233%i%d;%dH:dc=\233P:dl=\233M:do=\233B:\ ! 81: :kb=^H:ho=\233H:ic=\233@:is=\23320l:\ ! 82: :mb=\2337;2m:md=\2331m:me=\2330m:mh=\2332m:mk=\2338m:mr=\2337m:nd=\233C:\ ! 83: :rs=\033c:se=\2330m:sf=\233S:so=\2337m:sb=\233T:sr=\233T:ue=\23323m:\ ! 84: :up=\233A:us=\2334m:vb=\007:ve=\233\040p:vi=\2330\040p:\ ! 85: :k1=\2330~:k2=\2331~:k3=\2332~:k4=\2333~:k5=\2334~:\ ! 86: :k6=\2335~:k7=\2336~:k8=\2337~:k9=\2338~:k0=\2339~:\ ! 87: :s1=\23310~:s2=\23311~:s3=\23312~:s4=\23313~:s5=\23314~:\ ! 88: :s6=\23315~:s7=\23316~:s8=\23317~:s9=\23318~:s0=\23319~:\ ! 89: :kd=\233B:kl=\233D:kn#10:kr=\233C:ku=\233A:le=\233D:\ ! 90: :kP=\233T:kN=\233S:kh=\233\040A:kH=\233\040@:", ! 91: #endif ! 92: ! 93: #ifdef TERM_NANSI ! 94: "fansi", ! 95: "nnansi", ! 96: "nansi", ! 97: "pcbios", ! 98: ":al=\033[L:dl=\033[M:am:bs:ce=\033[K:cl=\033[2J:\ ! 99: :cm=\033[%i%d;%dH:co#80:do=\033[B:\ ! 100: :k1=#;:k2=#<:k3=#=:k4=#>:k5=#?:k6=#@:k7=#A:k8=#B:k9=#C:k0=#D:\ ! 101: :s1=#T:s2=#U:s3=#V:s4=#W:s5=#X:s6=#Y:s7=#Z:s8=#[:s9=#\\:s0=#]:\ ! 102: :c1=#^:c2=#_:c3=#`:c4=#a:c5=#b:c6=#c:c7=#d:c8=#e:c9=#f:c0=#g:\ ! 103: :a1=#h:a2=#i:a3=#j:a4=#k:a5=#l:a6=#m:a7=#n:a8=#o:a9=#p:a0=#q:\ ! 104: :kd=#P:kh=#G:kH=#O:kI=#R:kl=#K:kN=#Q:kP=#I:kr=#M:ku=#H:\ ! 105: :li#25:md=\033[1m:me=\033[m:nd=\033[C:se=\033[m:so=\033[7m:\ ! 106: :ue=\033[m:up=\033[A:us=\033[4m:", ! 107: #endif ! 108: ! 109: #ifdef TERM_DOSANSI ! 110: #if !ANY_UNIX ! 111: "ansi", ! 112: #endif ! 113: "dosansi", ! 114: ":am:bs:ce=\033[K:cl=\033[2J:\ ! 115: :cm=\033[%i%d;%dH:co#80:do=\033[B:\ ! 116: :k1=#;:k2=#<:k3=#=:k4=#>:k5=#?:k6=#@:k7=#A:k8=#B:k9=#C:k0=#D:\ ! 117: :s1=#T:s2=#U:s3=#V:s4=#W:s5=#X:s6=#Y:s7=#Z:s8=#[:s9=#\\:s0=#]:\ ! 118: :c1=#^:c2=#_:c3=#`:c4=#a:c5=#b:c6=#c:c7=#d:c8=#e:c9=#f:c0=#g:\ ! 119: :a1=#h:a2=#i:a3=#j:a4=#k:a5=#l:a6=#m:a7=#n:a8=#o:a9=#p:a0=#q:\ ! 120: :kd=#P:kh=#G:kH=#O:kI=#R:kl=#K:kN=#Q:kP=#I:kr=#M:ku=#H:\ ! 121: :li#25:md=\033[1m:me=\033[m:nd=\033[C:se=\033[m:so=\033[7m:\ ! 122: :ue=\033[m:up=\033[A:us=\033[4m:", ! 123: #endif ! 124: ! 125: #ifdef TERM_RAINBOW ! 126: "vt220", ! 127: "rainbow", ! 128: ":al=\033[L:dl=\033[M:am:bs:ce=\033[K:cl=\033[2J:\ ! 129: :cm=\033[%i%d;%dH:co#80:do=\033[B:kd=\033[B:kl=\033[D:\ ! 130: :kr=\033[C:ku=\033[A:kP=\033[5~:kN=\033[6~:kI=\033[2~:\ ! 131: :li#24:md=\033[1m:me=\033[m:nd=\033[C:se=\033[m:so=\033[7m:\ ! 132: :ue=\033[m:up=\033[A:us=\033[4m:xn:", ! 133: #endif ! 134: ! 135: #ifdef TERM_VT100 ! 136: "vt100-80", ! 137: "vt200-80", ! 138: "vt300-80", ! 139: "vt101-80", ! 140: "vt102-80", ! 141: ":al=\033[L:am:bs:ce=\033[K:cl=\033[2J:cm=\033[%i%d;%dH:\ ! 142: :co#80:dl=\033[M:do=\033[B:k0=\033[20~:k1=\033[1~:\ ! 143: :k2=\033[2~:k3=\033[3~:k4=\033[4~:k5=\033[5~:k6=\033[6~:\ ! 144: :k7=\033[17~:k8=\033[18~:k9=\033[19~:kd=\033[B:kh=\033[H:\ ! 145: :kH=\033[Y:kI=\033[I:kl=\033[D:kN=\033[U:kP=\033[V:\ ! 146: :kr=\033[C:ku=\033[A:li#24:md=\033[1m:me=\033[m:nd=\033[C:\ ! 147: :se=\033[m:so=\033[7m:ti=\033[1;24r\033[24;1H:\ ! 148: :ue=\033[m:up=\033[A:us=\033[4m:xn:", ! 149: #endif ! 150: ! 151: #ifdef TERM_VT100W ! 152: "vt100-w", ! 153: "vt200-w", ! 154: "vt300-w", ! 155: "vt101-w", ! 156: "vt102-w", ! 157: "vt100-132", ! 158: "vt200-132", ! 159: "vt300-132", ! 160: "vt101-132", ! 161: "vt102-132", ! 162: ":al=\033[L:am:bs:ce=\033[K:cl=\033[2J:cm=\033[%i%d;%dH:\ ! 163: :co#132:dl=\033[M:do=\033[B:k0=\033[20~:k1=\033[1~:\ ! 164: :k2=\033[2~:k3=\033[3~:k4=\033[4~:k5=\033[5~:k6=\033[6~:\ ! 165: :k7=\033[17~:k8=\033[18~:k9=\033[19~:kd=\033[B:kh=\033[H:\ ! 166: :kH=\033[Y:kI=\033[I:kl=\033[D:kN=\033[U:kP=\033[V:\ ! 167: :kr=\033[C:ku=\033[A:li#24:md=\033[1m:me=\033[m:nd=\033[C:\ ! 168: :se=\033[m:so=\033[7m:ti=\033[1;24r\033[24;1H:\ ! 169: :ue=\033[m:up=\033[A:us=\033[4m:xn:", ! 170: #endif ! 171: ! 172: #ifdef TERM_VT52 ! 173: "vt52", ! 174: ":do=\n:le=\b:up=\033A:nd=\033C:cm=\033Y%+ %+ :ti=\033e\033v:\ ! 175: :sr=\033I:cd=\033J:ce=\033K:cl=\033H\033J:co#80:li#24:\ ! 176: :ku=\033A:kd=\033B:kr=\033C:kl=\033D:kb=\b:pt:am:xn:bs:", ! 177: #endif ! 178: ! 179: #ifdef TERM_MINIX ! 180: "minix", ! 181: "ansi", ! 182: "AT386", ! 183: ":al=\033[L:am:bs:ce=\033[K:cl=\033[2J:cm=\033[%i%d;%dH:\ ! 184: :co#80:dl=\033[M:do=\033[B:k0=\033[20~:k1=\033[1~:\ ! 185: :k2=\033[2~:k3=\033[3~:k4=\033[4~:k5=\033[5~:k6=\033[6~:\ ! 186: :k7=\033[17~:k8=\033[18~:k9=\033[19~:kd=\033[B:kh=\033[H:\ ! 187: :kH=\033[Y:kI=\033[I:kl=\033[D:kN=\033[U:kP=\033[V:\ ! 188: :kr=\033[C:ku=\033[A:li#25:md=\033[1m:me=\033[m:nd=\033[C:\ ! 189: :se=\033[m:so=\033[7m:ue=\033[m:up=\033[A:us=\033[4m:", ! 190: #endif /* MINIX */ ! 191: ! 192: #ifdef TERM_COHERENT ! 193: "coherent", ! 194: "ansipc", ! 195: ":al=\033[L:am:bs:ce=\033[K:cl=\033[2J:cm=\033[%i%d;%dH:\ ! 196: :co#80:dl=\033[M:do=\033[B:k0=\033[0x:k1=\033[1x:k2=\033[2x:\ ! 197: :k3=\033[3x:k4=\033[4x:k5=\033[5x:k6=\033[6x:\ ! 198: :k7=\033[7x:k8=\033[8x:k9=\033[9x:kd=\033[B:kh=\033[H:\ ! 199: :kH=\033[24H:kI=\033[@:kl=\033[D:kN=\033[U:kP=\033[V:\ ! 200: :kr=\033[C:ku=\033[A:li#24:md=\033[1m:me=\033[m:\ ! 201: :nd=\033[C:se=\033[m:so=\033[7m:ue=\033[m:up=\033[A:\ ! 202: :us=\033[4m:", ! 203: #endif /* COHERENT */ ! 204: ! 205: #ifdef TERM_ATARI ! 206: "atari-st", ! 207: "vt52", ! 208: ":al=\033L:am:bs:ce=\033K:cl=\033E:cm=\033Y%i%+ %+ :\ ! 209: :co#80:dl=\033M:do=\033B:\ ! 210: :k1=#;:k2=#<:k3=#=:k4=#>:k5=#?:k6=#@:k7=#A:k8=#B:k9=#C:k0=#D:\ ! 211: :s1=#T:s2=#U:s3=#V:s4=#W:s5=#X:s6=#Y:s7=#Z:s8=#[:s9=#\\:s0=#]:\ ! 212: :c1=#^:c2=#_:c3=#`:c4=#a:c5=#b:c6=#c:c7=#d:c8=#e:c9=#f:c0=#g:\ ! 213: :a1=#h:a2=#i:a3=#j:a4=#k:a5=#l:a6=#m:a7=#n:a8=#o:a9=#p:a0=#q:\ ! 214: kd=#P:kh=#G:kI=#R:kl=#K:kr=#M:ku=#H:li#25:nd=\033C:se=\033q:\ ! 215: :so=\033p:te=:ti=\033e\033v:up=\033A:", ! 216: #endif ! 217: ! 218: #ifdef TERM_925 ! 219: "wyse925", ! 220: ":xn@:\ ! 221: :hs:am:bs:co#80:li#24:cm=\033=%+ %+ :cl=\033*:cd=\033y:\ ! 222: :ce=\033t:is=\033l\033\":\ ! 223: :al=\033E:dl=\033R:im=:ei=:ic=\033Q:dc=\033W:\ ! 224: :ho=\036:nd=\014:bt=\033I:pt:so=\033G4:se=\033G0:sg#1:us=\033G8:ue=\033G0:ug#1:\ ! 225: :up=\013:do=\026:kb=\010:ku=\013:kd=\026:kl=\010:kr=\014:\ ! 226: :kh=\036:ma=\026\012\014 :\ ! 227: :k1=\001@\r:k2=\001A\r:k3=\001B\r:k4=\001C\r:k5=\001D\r:k6=\001E\r:k7=\001F\r:\ ! 228: :k8=\001G\r:k9=\001H\r:k0=\001I\r:ko=ic,dc,al,dl,cl,ce,cd,bt:\ ! 229: :ts=\033f:fs=\033g:ds=\033h:sr=\033j:", /* was :xn: for tvi925 alone*/ ! 230: #endif ! 231: ! 232: (char *)0 ! 233: }; ! 234: ! 235: ! 236: static char *fields; ! 237: ! 238: ! 239: /*ARGSUSED*/ ! 240: int tgetent(bp, name) ! 241: char *bp; /* buffer for storing the entry -- ignored */ ! 242: char *name; /* name of the entry */ ! 243: { ! 244: int i; ! 245: ! 246: /* if TERMCAP is defined, and seems to match, then use it */ ! 247: fields = getenv("TERMCAP"); ! 248: if (fields) ! 249: { ! 250: for (i = 0; fields[i] && fields[i] != ':'; i++) ! 251: { ! 252: if (!strncmp(fields + i, name, strlen(name))) ! 253: { ! 254: return 1; ! 255: } ! 256: } ! 257: } ! 258: ! 259: /* locate the entry in termcap[] */ ! 260: for (i = 0; termcap[i] && strcmp(termcap[i], name); i++) ! 261: { ! 262: } ! 263: if (!termcap[i]) ! 264: { ! 265: return 0; ! 266: } ! 267: ! 268: /* search forward for fields */ ! 269: while (termcap[i][0] != ':') ! 270: { ! 271: i++; ! 272: } ! 273: fields = termcap[i]; ! 274: return 1; ! 275: } ! 276: ! 277: ! 278: static char *find(id, vtype) ! 279: char *id; /* name of a value to locate */ ! 280: int vtype; /* '=' for strings, '#' for numbers, or 0 for bools */ ! 281: { ! 282: int i; ! 283: ! 284: /* search for a ':' followed by the two-letter id */ ! 285: for (i = 0; fields[i]; i++) ! 286: { ! 287: if (fields[i] == ':' ! 288: && fields[i + 1] == id[0] ! 289: && fields[i + 2] == id[1]) ! 290: { ! 291: /* if correct type, then return its value */ ! 292: if (fields[i + 3] == vtype) ! 293: return &fields[i + 4]; ! 294: else ! 295: return (char *)0; ! 296: } ! 297: } ! 298: return (char *)0; ! 299: } ! 300: ! 301: int tgetnum(id) ! 302: char *id; ! 303: { ! 304: char * temp; ! 305: int ret = -1; ! 306: #if COHERENT ! 307: if (strcmp(id, "co") == 0) { ! 308: temp = getenv("COLUMNS"); ! 309: if (temp) { ! 310: ret = atoi(temp); ! 311: goto tgetnumdone; ! 312: } ! 313: ! 314: if (strcmp(id, "li") == 0) { ! 315: temp = getenv("LINES"); ! 316: if (temp) { ! 317: ret = atoi(temp); ! 318: goto tgetnumdone; ! 319: } ! 320: #endif ! 321: ! 322: temp = find(id, '#'); ! 323: if (temp) { ! 324: ret = atoi(temp); ! 325: } ! 326: ! 327: tgetnumdone: ! 328: return ret; ! 329: } ! 330: ! 331: int tgetflag(id) ! 332: char *id; ! 333: { ! 334: if (find(id, ':')) { ! 335: return 1; ! 336: } ! 337: return 0; ! 338: } ! 339: ! 340: /*ARGSUSED*/ ! 341: char *tgetstr(id, bp) ! 342: char *id; ! 343: char **bp; /* pointer to pointer to buffer - ignored */ ! 344: { ! 345: char *cpy; ! 346: ! 347: /* find the string */ ! 348: id = find(id, '='); ! 349: if (!id) ! 350: { ! 351: return (char *)0; ! 352: } ! 353: ! 354: /* copy it into the buffer, and terminate it with NUL */ ! 355: for (cpy = *bp; *id != ':'; ) ! 356: { ! 357: if (id[0] == '\\' && id[1] == 'E') ! 358: *cpy++ = '\033', id += 2; ! 359: else ! 360: *cpy++ = *id++; ! 361: } ! 362: *cpy++ = '\0'; ! 363: ! 364: /* update the bp pointer */ ! 365: id = *bp; ! 366: *bp = cpy; ! 367: ! 368: /* return a pointer to the copy of the string */ ! 369: return id; ! 370: } ! 371: ! 372: /*ARGSUSED*/ ! 373: char *tgoto(cm, destcol, destrow) ! 374: char *cm; /* cursor movement string -- ignored */ ! 375: int destcol;/* destination column, 0 - 79 */ ! 376: int destrow;/* destination row, 0 - 24 */ ! 377: { ! 378: static char buf[30]; ! 379: ! 380: #ifdef CRUNCH ! 381: # if TOS ! 382: sprintf(buf, "\033Y%c%c", ' ' + destrow, ' ' + destcol); ! 383: # else ! 384: sprintf(buf, "\033[%d;%dH", destrow + 1, destcol + 1); ! 385: # endif ! 386: #else ! 387: if (cm[1] == 'Y' || cm[1] == '=') ! 388: sprintf(buf, "\033%c%c%c", cm[1], ' ' + destrow, ' ' + destcol); ! 389: else ! 390: sprintf(buf, "\033[%d;%dH", destrow + 1, destcol + 1); ! 391: #endif ! 392: return buf; ! 393: } ! 394: ! 395: /*ARGSUSED*/ ! 396: void tputs(cp, affcnt, outfn) ! 397: char *cp; /* the string to output */ ! 398: int affcnt; /* number of affected lines -- ignored */ ! 399: int (*outfn)(); /* the output function */ ! 400: { ! 401: while (*cp) ! 402: { ! 403: (*outfn)(*cp); ! 404: cp++; ! 405: } ! 406: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.