commands/elvis/tinytcap.c

   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         id = find(id, '#');
 305         if (id)
 306         {
 307                 return atoi(id);
 308         }
 309         return -1;
 310 }
 311
 312 int tgetflag(id)
 313         char    *id;
 314 {
 315         if (find(id, ':'))
 316         {
 317                 return 1;
 318         }
 319         return 0;
 320 }
 321
 322 /*ARGSUSED*/
 323 char *tgetstr(id, bp)
 324         char    *id;
 325         char    **bp;   /* pointer to pointer to buffer - ignored */
 326 {
 327         char    *cpy;
 328
 329         /* find the string */
 330         id = find(id, '=');
 331         if (!id)
 332         {
 333                 return (char *)0;
 334         }
 335
 336         /* copy it into the buffer, and terminate it with NUL */
 337         for (cpy = *bp; *id != ':'; )
 338         {
 339                 if (id[0] == '\\' && id[1] == 'E')
 340                         *cpy++ = '\033', id += 2;
 341                 else
 342                         *cpy++ = *id++;
 343         }
 344         *cpy++ = '\0';
 345
 346         /* update the bp pointer */
 347         id = *bp;
 348         *bp = cpy;
 349
 350         /* return a pointer to the copy of the string */
 351         return id;
 352 }
 353
 354 /*ARGSUSED*/
 355 char *tgoto(cm, destcol, destrow)
 356         char    *cm;    /* cursor movement string -- ignored */
 357         int     destcol;/* destination column, 0 - 79 */
 358         int     destrow;/* destination row, 0 - 24 */
 359 {
 360         static char buf[30];
 361
 362 #ifdef CRUNCH
 363 # if TOS
 364         sprintf(buf, "\033Y%c%c", ' ' + destrow, ' ' + destcol);
 365 # else
 366         sprintf(buf, "\033[%d;%dH", destrow + 1, destcol + 1);
 367 # endif
 368 #else
 369         if (cm[1] == 'Y' || cm[1] == '=')
 370                 sprintf(buf, "\033%c%c%c", cm[1], ' ' + destrow, ' ' + destcol);
 371         else
 372                 sprintf(buf, "\033[%d;%dH", destrow + 1, destcol + 1);
 373 #endif
 374         return buf;
 375 }
 376
 377 /*ARGSUSED*/
 378 void tputs(cp, affcnt, outfn)
 379         char    *cp;            /* the string to output */
 380         int     affcnt;         /* number of affected lines -- ignored */
 381         int     (*outfn)();     /* the output function */
 382 {
 383         while (*cp)
 384         {
 385                 (*outfn)(*cp);
 386                 cp++;
 387         }
 388 }