home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / APPS / elvis_1.4.tar.Z / elvis_1.4.tar / tinytcap.c < prev    next >
C/C++ Source or Header  |  1990-12-06  |  4KB  |  155 lines
  1. /* tinytcap.c */
  2.  
  3. /* This file contains functions which simulate the termcap functions, but which
  4.  * can only describe the capabilities of the ANSI.SYS and NANSI.SYS drivers on
  5.  * an MS-DOS system or the VT-52 emulator of an Atari-ST.  These functions
  6.  * do *NOT* access a "termcap" database file.
  7.  */
  8.  
  9. #include "config.h"
  10. #if MSDOS || TOS || MINIX || COHERENT
  11.  
  12. #define CAP(str) CAP2((str)[0], (str)[1])
  13. #define CAP2(a,b) (((a) << 8) + ((b) & 0xff))
  14.  
  15. #if MSDOS
  16. # define VAL2(v,a)    (a)
  17. # define VAL3(v,a,n)    (nansi ? (n) : (a))
  18. static int    nansi;
  19. #endif
  20.  
  21. #if TOS
  22. # define VAL2(v,a)    (v)
  23. # define VAL3(v,a,n)    (v)
  24. #endif
  25.  
  26. #if MINIX || COHERENT
  27. # define VAL2(v,a)    (a)
  28. # define VAL3(v,a,n)    (n)
  29. #endif
  30.  
  31.  
  32. /*ARGSUSED*/
  33. int tgetent(bp, name)
  34.     char    *bp;    /* buffer for storing the entry -- ignored */
  35.     char    *name;    /* name of the entry */
  36. {
  37. #if MSDOS
  38.     nansi = strcmp(name, "ansi");
  39. #endif
  40.     return 1;
  41. }
  42.  
  43. int tgetnum(id)
  44.     char    *id;
  45. {
  46.     switch (CAP(id))
  47.     {
  48.       case CAP2('l','i'):    return 25;
  49.       case CAP2('c','o'):    return 80;
  50.       case CAP2('s','g'):    return 0;
  51.       case CAP2('u','g'):    return 0;
  52.       default:        return -1;
  53.     }
  54. }
  55.  
  56. int tgetflag(id)
  57.     char    *id;
  58. {
  59.     switch (CAP(id))
  60.     {
  61. #if !MINIX || COHERENT
  62.       case CAP2('a','m'):    return 1;
  63. #endif
  64.       case CAP2('b','s'):    return 1;
  65.       case CAP2('m','i'):    return 1;
  66.       default:        return 0;
  67.     }
  68. }
  69.  
  70. /*ARGSUSED*/
  71. char *tgetstr(id, bp)
  72.     char    *id;
  73.     char    **bp;    /* pointer to pointer to buffer - ignored */
  74. {
  75.     switch (CAP(id))
  76.     {
  77.       case CAP2('c','e'):    return VAL2("\033K", "\033[K");
  78.       case CAP2('c','l'):    return VAL2("\033E", "\033[2J");
  79.  
  80.       case CAP2('a','l'):    return VAL3("\033L", (char *)0, "\033[L");
  81.       case CAP2('d','l'):    return VAL3("\033M", (char *)0, "\033[M");
  82.  
  83.       case CAP2('c','m'):    return VAL2("\033Y%i%+ %+ ", "\033[%i%d;%dH");
  84.       case CAP2('d','o'):    return VAL2("\033B", "\033[B");
  85.       case CAP2('n','d'):    return VAL2("\033C", "\033[C");
  86.       case CAP2('u','p'):    return VAL2("\033A", "\033[A");
  87.       case CAP2('t','i'):    return VAL2("\033e", "");
  88.       case CAP2('t','e'):    return VAL2("", "");
  89.  
  90.       case CAP2('s','o'):    return VAL2("\033p", "\033[7m");
  91.       case CAP2('s','e'):    return VAL2("\033q", "\033[m");
  92.       case CAP2('u','s'):    return VAL2((char *)0, "\033[4m");
  93.       case CAP2('u','e'):    return VAL2((char *)0, "\033[m");
  94.       case CAP2('m','d'):    return VAL2((char *)0, "\033[1m");
  95.       case CAP2('m','e'):    return VAL2((char *)0, "\033[m");
  96.  
  97. #if MINIX || COHERENT
  98.       case CAP2('k','u'):    return "\033[A";
  99.       case CAP2('k','d'):    return "\033[B";
  100.       case CAP2('k','l'):    return "\033[D";
  101.       case CAP2('k','r'):    return "\033[C";
  102.       case CAP2('k','P'):    return "\033[V";
  103.       case CAP2('k','N'):    return "\033[U";
  104.       case CAP2('k','h'):    return "\033[H";
  105. # if MINIX
  106.       case CAP2('k','H'):    return "\033[Y";
  107. # else /* COHERENT */
  108.       case CAP2('k','H'):    return "\033[24H";
  109. # endif
  110. #else /* MS-DOS or TOS */
  111.       case CAP2('k','u'):    return "#H";
  112.       case CAP2('k','d'):    return "#P";
  113.       case CAP2('k','l'):    return "#K";
  114.       case CAP2('k','r'):    return "#M";
  115.       case CAP2('k','h'):    return "#G";
  116.       case CAP2('k','H'):    return "#O";
  117.       case CAP2('k','P'):    return "#I";
  118.       case CAP2('k','N'):    return "#Q";
  119. #endif
  120.  
  121.       default:        return (char *)0;
  122.     }
  123. }
  124.  
  125. /*ARGSUSED*/
  126. char *tgoto(cm, destcol, destrow)
  127.     char    *cm;    /* cursor movement string -- ignored */
  128.     int    destcol;/* destination column, 0 - 79 */
  129.     int    destrow;/* destination row, 0 - 24 */
  130. {
  131.     static char buf[30];
  132.  
  133. #if MSDOS || MINIX || COHERENT
  134.     sprintf(buf, "\033[%d;%dH", destrow + 1, destcol + 1);
  135. #endif
  136. #if TOS
  137.     sprintf(buf, "\033Y%c%c", ' ' + destrow, ' ' + destcol);
  138. #endif
  139.     return buf;
  140. }
  141.  
  142. /*ARGSUSED*/
  143. void tputs(cp, affcnt, outfn)
  144.     char    *cp;        /* the string to output */
  145.     int    affcnt;        /* number of affected lines -- ignored */
  146.     int    (*outfn)();    /* the output function */
  147. {
  148.     while (*cp)
  149.     {
  150.         (*outfn)(*cp);
  151.         cp++;
  152.     }
  153. }
  154. #endif
  155.