home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / ex / ex_tty.c < prev    next >
C/C++ Source or Header  |  1980-02-17  |  2KB  |  121 lines
  1. /* Copyright (c) 1979 Regents of the University of California */
  2. #include "ex.h"
  3. #include "ex_tty.h"
  4.  
  5. /*
  6.  * Terminal type initialization routines,
  7.  * and calculation of flags at entry or after
  8.  * a shell escape which may change them.
  9.  */
  10. short    ospeed = -1;
  11.  
  12. gettmode()
  13. {
  14.  
  15.     if (gtty(1, &tty) < 0)
  16.         return;
  17.     if (ospeed != tty.sg_ospeed)
  18.         value(SLOWOPEN) = tty.sg_ospeed < B1200;
  19.     ospeed = tty.sg_ospeed;
  20.     normf = tty.sg_flags;
  21.     UPPERCASE = (tty.sg_flags & LCASE) != 0;
  22.     GT = (tty.sg_flags & XTABS) != XTABS;
  23.     NONL = (tty.sg_flags & CRMOD) == 0;
  24. }
  25.  
  26. char *xPC;
  27. char **sstrs[] = {
  28.     &AL, &BC, &CD, &CE, &CL, &CM, &DC, &DL, &DM, &DO, &ED, &EI, &HO,
  29.     &IC, &IM, &IP, &LL, &MA, &ND, &xPC, &SE, &SF, &SO, &SR, &TA, &UP,
  30.     &VB, &VS, &VE
  31. };
  32. bool *sflags[] = {
  33.     &AM, &BS, &DA, &DB, &EO, &HZ, &IN, &MI, &NC, &OS, &UL, &XN
  34. };
  35. setterm(type)
  36.     char *type;
  37. {
  38.     char *cgoto();
  39.     register int unknown, i;
  40.     register int l;
  41.  
  42.     if (type[0] == 0)
  43.         type = "xx";
  44.     unknown = 0;
  45.     if (tgetent(genbuf, type) != 1) {
  46.         unknown++;
  47.         CP(genbuf, "xx|dumb:");
  48.     }
  49.     i = LINES = tgetnum("li");
  50.     if (LINES <= 5)
  51.         LINES = 24;
  52.     if (LINES > 48)
  53.         LINES = 48;
  54.     l = LINES;
  55.     if (ospeed < B1200)
  56.         l /= 2;
  57.     else if (ospeed < B2400)
  58.         l = (l * 2) / 3;
  59.     options[WINDOW].ovalue = options[WINDOW].odefault = l - 1;
  60.     options[SCROLL].ovalue = options[SCROLL].odefault = l / 2;
  61.     COLUMNS = tgetnum("co");
  62.     if (COLUMNS <= 20)
  63.         COLUMNS = 1000;
  64.     aoftspace = tspace;
  65.     zap();
  66.     if (cgoto()[0] == 'O')
  67.         CA = 0, CM = 0;
  68.     else
  69.         CA = 1;
  70.     PC = xPC ? xPC[0] : 0;
  71.     aoftspace = tspace;
  72.     CP(ttytype, longname(genbuf, type));
  73.     if (i <= 0)
  74.         LINES = 2;
  75.     termreset();
  76.     value(REDRAW) = AL && DL;
  77.     value(OPTIMIZE) = !CA && !GT;
  78.     if (unknown)
  79.         serror("%s: Unknown terminal type", type);
  80. }
  81.  
  82. zap()
  83. {
  84.     register char *namp;
  85.     register bool **fp;
  86.     register char ***sp;
  87.  
  88.      namp = "ambsdadbeohzinmincosulxn";
  89.     fp = sflags;
  90.     do {
  91.         *(*fp++) = tgetflag(namp);
  92.         namp += 2;
  93.     } while (*namp);
  94.     namp = "albccdceclcmdcdldmdoedeihoicimipllmandpcsesfsosrtaupvbvsve";
  95.     sp = sstrs;
  96.     do {
  97.         *(*sp++) = tgetstr(namp, &aoftspace);
  98.         namp += 2;
  99.     } while (*namp);
  100. }
  101.  
  102. char *
  103. longname(bp, def)
  104.     register char *bp;
  105.     char *def;
  106. {
  107.     register char *cp;
  108.  
  109.     while (*bp && *bp != ':' && *bp != '|')
  110.         bp++;
  111.     if (*bp == '|') {
  112.         bp++;
  113.         cp = bp;
  114.         while (*cp && *cp != ':' && *cp != '|')
  115.             cp++;
  116.         *cp = 0;
  117.         return (bp);
  118.     }
  119.     return (def);
  120. }
  121.