386BSD 0.1 development

[unix-history] / usr / src / lib / libcurses / cr_tty.c

diff --git a/usr/src/lib/libcurses/cr_tty.c b/usr/src/lib/libcurses/cr_tty.c
index 562a1b3..c67b076 100644 (file)
--- a/usr/src/lib/libcurses/cr_tty.c
+++ b/usr/src/lib/libcurses/cr_tty.c
@@ -1,21 +1,70 @@
+/*
+ * Copyright (c) 1981 Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)cr_tty.c   5.8 (Berkeley) 6/1/90";
+#endif /* not lint */
+
+/*
+ * Terminal initialization routines.
+ *
+ */
+

 # include      "curses.ext"
 # include      "curses.ext"

-# include      "cr_ex.h"

 
 

-static bool    *sflags[]       = {
-                       &AM, &BS, &EO, &HZ, &IN, &MI, &NC, &OS, &UL, &XN
+static bool    *sflags[] = {
+                       &AM, &BS, &DA, &DB, &EO, &HC, &HZ, &IN, &MI,
+                       &MS, &NC, &NS, &OS, &UL, &XB, &XN, &XT, &XS,
+                       &XX

                };
 
                };
 

-static char    *xPC,
-               **sstrs[]       = {
-                       &AL, &BC, &BT, &CD, &CE, &CL, &CM, &DC, &DL,  &DM, &DO,
-                       &ED, &EI, &HO, &IC, &IM, &IP, &LL, &MA, &ND, &xPC, &SE,
-                       &SF, &SO, &SR, &TA, &TE, &TI, &UE, &UP, &US,  &VB, &VS,
-                       &VE
-               },
-               *longname(), *tgoto();
+static char    *_PC,
+               **sstrs[] = {
+                       &AL, &BC, &BT, &CD, &CE, &CL, &CM, &CR, &CS,
+                       &DC, &DL, &DM, &DO, &ED, &EI, &K0, &K1, &K2,
+                       &K3, &K4, &K5, &K6, &K7, &K8, &K9, &HO, &IC,
+                       &IM, &IP, &KD, &KE, &KH, &KL, &KR, &KS, &KU,
+                       &LL, &MA, &ND, &NL, &_PC, &RC, &SC, &SE, &SF,
+                       &SO, &SR, &TA, &TE, &TI, &UC, &UE, &UP, &US,
+                       &VB, &VS, &VE, &AL_PARM, &DL_PARM, &UP_PARM,
+                       &DOWN_PARM, &LEFT_PARM, &RIGHT_PARM,
+               };
+
+extern char    *tgoto();
+
+char           _tspace[2048];          /* Space for capability strings */

 
 

-static char    tspace[128],            /* Space for capability strings */
-               *aoftspace;             /* Address of tspace for relocation */
+static char    *aoftspace;             /* Address of _tspace for relocation */

 
 static int     destcol, destline;
 
 
 static int     destcol, destline;
 


@@ -24,20 +73,22 @@ static int  destcol, destline;
  * calculation of flags at entry.  It is almost entirely stolen from
  * Bill Joy's ex version 2.6.
  */
  * calculation of flags at entry.  It is almost entirely stolen from
  * Bill Joy's ex version 2.6.
  */

-short  ospeed  = -1;
+short  ospeed = -1;

 
 gettmode() {
 
 
 gettmode() {
 

-       if (gtty(_tty_ch, &_tty) < 0)
+       if (ioctl(_tty_ch, TIOCGETP, &_tty) < 0)

                return;
        savetty();
                return;
        savetty();

-       if (stty(_tty_ch, &_tty) < 0)
+       if (ioctl(_tty_ch, TIOCSETP, &_tty) < 0)

                _tty.sg_flags = _res_flg;
        ospeed = _tty.sg_ospeed;
        _res_flg = _tty.sg_flags;
        UPPERCASE = (_tty.sg_flags & LCASE) != 0;
        GT = ((_tty.sg_flags & XTABS) == 0);
        NONL = ((_tty.sg_flags & CRMOD) == 0);
                _tty.sg_flags = _res_flg;
        ospeed = _tty.sg_ospeed;
        _res_flg = _tty.sg_flags;
        UPPERCASE = (_tty.sg_flags & LCASE) != 0;
        GT = ((_tty.sg_flags & XTABS) == 0);
        NONL = ((_tty.sg_flags & CRMOD) == 0);

+       _tty.sg_flags &= ~XTABS;
+       ioctl(_tty_ch, TIOCSETP, &_tty);

 # ifdef DEBUG
        fprintf(outf, "GETTMODE: UPPERCASE = %s\n", UPPERCASE ? "TRUE":"FALSE");
        fprintf(outf, "GETTMODE: GT = %s\n", GT ? "TRUE" : "FALSE");
 # ifdef DEBUG
        fprintf(outf, "GETTMODE: UPPERCASE = %s\n", UPPERCASE ? "TRUE":"FALSE");
        fprintf(outf, "GETTMODE: GT = %s\n", GT ? "TRUE" : "FALSE");


@@ -49,8 +100,11 @@ gettmode() {
 setterm(type)
 reg char       *type; {
 
 setterm(type)
 reg char       *type; {
 

-       reg int unknown;
-       char    genbuf[1024];
+       reg int         unknown;
+       static char     genbuf[1024];
+# ifdef TIOCGWINSZ
+       struct winsize win;
+# endif

 
 # ifdef DEBUG
        fprintf(outf, "SETTERM(\"%s\")\n", type);
 
 # ifdef DEBUG
        fprintf(outf, "SETTERM(\"%s\")\n", type);


@@ -66,77 +120,120 @@ reg char  *type; {
 # ifdef DEBUG
        fprintf(outf, "SETTERM: tty = %s\n", type);
 # endif
 # ifdef DEBUG
        fprintf(outf, "SETTERM: tty = %s\n", type);
 # endif

+# ifdef TIOCGWINSZ
+       if (ioctl(_tty_ch, TIOCGWINSZ, &win) >= 0) {
+               if (LINES == 0)
+                       LINES = win.ws_row;
+               if (COLS == 0)
+                       COLS = win.ws_col;
+       }
+# endif
+

        if (LINES == 0)
                LINES = tgetnum("li");
        if (LINES <= 5)
                LINES = 24;
        if (LINES == 0)
                LINES = tgetnum("li");
        if (LINES <= 5)
                LINES = 24;

-       else if (LINES > 48)
-               LINES = 48;

 
        if (COLS == 0)
                COLS = tgetnum("co");
        if (COLS <= 4)
                COLS = 80;
 
        if (COLS == 0)
                COLS = tgetnum("co");
        if (COLS <= 4)
                COLS = 80;

-       else if (COLS > 1000)
-               COLS = 1000;
+

 # ifdef DEBUG
        fprintf(outf, "SETTERM: LINES = %d, COLS = %d\n", LINES, COLS);
 # endif
 # ifdef DEBUG
        fprintf(outf, "SETTERM: LINES = %d, COLS = %d\n", LINES, COLS);
 # endif

-       aoftspace = tspace;
+       aoftspace = _tspace;

        zap();                  /* get terminal description             */
        zap();                  /* get terminal description             */

+
+       /*
+        * Handle funny termcap capabilities
+        */
+       if (CS && SC && RC) AL=DL="";
+       if (AL_PARM && AL==NULL) AL="";
+       if (DL_PARM && DL==NULL) DL="";
+       if (IC && IM==NULL) IM="";
+       if (IC && EI==NULL) EI="";
+       if (!GT) BT=NULL;       /* If we can't tab, we can't backtab either */
+

        if (tgoto(CM, destcol, destline)[0] == 'O')
                CA = FALSE, CM = 0;
        else
                CA = TRUE;
        if (tgoto(CM, destcol, destline)[0] == 'O')
                CA = FALSE, CM = 0;
        else
                CA = TRUE;

-       PC = xPC ? xPC[0] : FALSE;
-       aoftspace = tspace;
-       strcpy(ttytype, longname(genbuf, type));
+
+       PC = _PC ? _PC[0] : FALSE;
+       aoftspace = _tspace;
+       {
+               /* xtype should be the same size as genbuf for longname(). */
+               static char xtype[1024];
+
+               (void)strcpy(xtype,type);
+               strncpy(ttytype, longname(genbuf, xtype), sizeof(ttytype) - 1);
+       }
+       ttytype[sizeof(ttytype) - 1] = '\0';

        if (unknown)
                return ERR;
        return OK;
 }
        if (unknown)
                return ERR;
        return OK;
 }

+

 /*
 /*

- *     This routine gets all the terminal falgs from the termcap database
+ *     This routine gets all the terminal flags from the termcap database

  */
  */

-zap() {

 
 

-       reg bool        **fp;
-       reg char        *namp, ***sp;
+zap()
+{
+       register char   *namp;
+       register bool   **fp;
+       register char   ***sp;
+#ifdef DEBUG
+       register char   *cp;
+#endif

        extern char     *tgetstr();
 
        extern char     *tgetstr();
 

-       /*
-        * get boolean flags
-        */
-       namp = "ambseohzinmincosulxn\0\0";
-# ifdef FULLDEBUG
-       fprintf(outf, "ZAP: namp = \"%s\"\n", namp);
-# endif
+       namp = "ambsdadbeohchzinmimsncnsosulxbxnxtxsxx";

        fp = sflags;
        do {
                *(*fp++) = tgetflag(namp);
        fp = sflags;
        do {
                *(*fp++) = tgetflag(namp);

-# ifdef FULLDEBUG
-               fprintf(outf, "ZAP: %.2s = %d", namp, *(*(fp - 1)));
-# endif
+#ifdef DEBUG
+               fprintf(outf, "%2.2s = %s\n", namp, *fp[-1] ? "TRUE" : "FALSE");
+#endif

                namp += 2;
        } while (*namp);
                namp += 2;
        } while (*namp);

-
-       /*
-        * get string values
-        */
-       namp = "albcbtcdceclcmdcdldmdoedeihoicimipllmandpcsesfsosrtatetiueupusvbvsve";
-# ifdef FULLDEBUG
-       fprintf(outf, "ZAP: namp = \"%s\"\n", namp);
-# endif
+       namp = "albcbtcdceclcmcrcsdcdldmdoedeik0k1k2k3k4k5k6k7k8k9hoicimipkdkekhklkrkskullmandnlpcrcscsesfsosrtatetiucueupusvbvsveALDLUPDOLERI";

        sp = sstrs;
        do {
                *(*sp++) = tgetstr(namp, &aoftspace);
        sp = sstrs;
        do {
                *(*sp++) = tgetstr(namp, &aoftspace);

-# ifdef FULLDEBUG
-               fprintf(outf, "ZAP: %.2s = \"%s\"\n", namp, *(*(sp-1)));
-# endif
+#ifdef DEBUG
+               fprintf(outf, "%2.2s = %s", namp, *sp[-1] == NULL ? "NULL\n" : "\"");
+               if (*sp[-1] != NULL) {
+                       for (cp = *sp[-1]; *cp; cp++)
+                               fprintf(outf, "%s", unctrl(*cp));
+                       fprintf(outf, "\"\n");
+               }
+#endif

                namp += 2;
        } while (*namp);
                namp += 2;
        } while (*namp);

-       if (!SO && US) {
-               SO = US;
-               SE = UE;
+       if (XS)
+               SO = SE = NULL;
+       else {
+               if (tgetnum("sg") > 0)
+                       SO = NULL;
+               if (tgetnum("ug") > 0)
+                       US = NULL;
+               if (!SO && US) {
+                       SO = US;
+                       SE = UE;
+               }

        }
 }
        }
 }

+
+/*
+ * return a capability from termcap
+ */
+char *
+getcap(name)
+char *name;
+{
+       char *tgetstr();
+
+       return tgetstr(name, &aoftspace);
+}