/*
 * Copyright 2001 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*      Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989 AT&T     */
/*        All Rights Reserved   */

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

/*LINTLIBRARY*/

#ifndef lint
static char
sccsid[] = "@(#)cr_tty.c 1.7 88/02/08 SMI"; /* from UCB 5.2 85/11/08 */
#endif /* not lint */

/*
 * Terminal initialization routines.
 */

#include        <unistd.h>
#include        <string.h>
#include        <sgtty.h>
#include        "curses.ext"
#include        <term.h>

/* forward declaration */
void zap(void);

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

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,
                };

char            _tspace[2048];          /* Space for capability strings */

static char     *aoftspace;             /* Address of _tspace for relocation */

static int      destcol, destline;

/*
 *      This routine does terminal type initialization routines, and
 * calculation of flags at entry.  It is almost entirely stolen from
 * Bill Joy's ex version 2.6.
 */
short   ospeed = -1;

int
gettmode(void)
{
        if (gtty(_tty_ch, &_tty) < 0)
                return (ERR);
        savetty();
        if (stty(_tty_ch, &_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 &= ~XTABS;
        (void) stty(_tty_ch, &_tty);
#ifdef DEBUG
        fprintf(outf, "GETTMODE: UPPERCASE = %s\n", UPPERCASE ? "TRUE":"FALSE");
        fprintf(outf, "GETTMODE: GT = %s\n", GT ? "TRUE" : "FALSE");
        fprintf(outf, "GETTMODE: NONL = %s\n", NONL ? "TRUE" : "FALSE");
        fprintf(outf, "GETTMODE: ospeed = %d\n", ospeed);
#endif
        return (OK);
}

int
setterm(char *type)
{
        int             unknown;
        static char     genbuf[1024];
#ifdef TIOCGWINSZ
        struct winsize win;
#endif

#ifdef DEBUG
        fprintf(outf, "SETTERM(\"%s\")\n", type);
        fprintf(outf, "SETTERM: LINES = %d, COLS = %d\n", LINES, COLS);
#endif
        if (type[0] == '\0')
                type = "xx";
        unknown = FALSE;
        if (tgetent(genbuf, type) != 1) {
                unknown++;
                (void) strcpy(genbuf, "xx|dumb:");
        }
#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 (COLS == 0)
                COLS = tgetnum("co");
        if (COLS <= 4)
                COLS = 80;

#ifdef DEBUG
        fprintf(outf, "SETTERM: LINES = %d, COLS = %d\n", LINES, COLS);
#endif
        aoftspace = _tspace;
        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;

        PC = _PC ? _PC[0] : FALSE;
        aoftspace = _tspace;
        (void) strncpy(ttytype, longname(genbuf, type), sizeof (ttytype) - 1);
        ttytype[sizeof (ttytype) - 1] = '\0';
        if (unknown)
                return (ERR);
        return (OK);
}

/*
 *      This routine gets all the terminal flags from the termcap database
 */

void
zap(void)
{
        char    *namp;
        bool    **fp;
        char    ***sp;
#ifdef  DEBUG
        char    *cp;
#endif

        namp = "ambsdadbeohchzinmimsncnsosulxbxnxtxsxx";
        fp = sflags;
        do {
                *(*fp++) = tgetflag(namp);
#ifdef DEBUG
                fprintf(outf, "%2.2s = %s\n", namp, *fp[-1] ? "TRUE" : "FALSE");
#endif
                namp += 2;
        } while (*namp);
        namp = "albcbtcdceclcmcrcsdcdldmdoedeik0k1k2k3k4k5k6k7k8k9"
                "hoicimipkdkekhklkrkskullmandnlpcrcscsesfsosrtatet"
                "iucueupusvbvsveALDLUPDOLERI";
        sp = sstrs;
        do {
                *(*sp++) = tgetstr(namp, &aoftspace);
#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);
        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(char *name)
{
        return (tgetstr(name, &aoftspace));
}