/*      $NetBSD: curses.c,v 1.31 2022/10/19 06:09:27 blymn Exp $        */

/*
 * Copyright (c) 1981, 1993, 1994
 *      The 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. 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.
 */

#include <sys/cdefs.h>
#include <stdlib.h>
#ifndef lint
#if 0
static char sccsid[] = "@(#)curses.c    8.3 (Berkeley) 5/4/94";
#else
__RCSID("$NetBSD: curses.c,v 1.31 2022/10/19 06:09:27 blymn Exp $");
#endif
#endif                          /* not lint */

#include "curses.h"
#include "curses_private.h"

/* Private. */
int     __echoit = 1;                    /* If stty indicates ECHO. */
int     __pfast;
int     __rawmode = 0;                   /* If stty indicates RAW mode. */
int     __noqch = 0;
                                         /* If terminal doesn't have
                                         * insert/delete line capabilities
                                         * for quick change on refresh.
                                         */
char    __CA;

/*
 * Public.
 *
 * XXX
 * UPPERCASE isn't used by libcurses, and is left for backward
 * compatibility only.
 */
WINDOW  *curscr;                        /* Current screen. */
WINDOW  *stdscr;                        /* Standard screen. */
WINDOW  *__virtscr;                     /* Virtual screen (for doupdate()). */
SCREEN  *_cursesi_screen;               /* the current screen we are using */
volatile bool    _reentrant;            /* If true, some global vars are ro. */
int      COLS;                          /* Columns on the screen. */
int      LINES;                         /* Lines on the screen. */
int      ESCDELAY;                      /* ms delay between keys for esc seq */
int      TABSIZE;                       /* Size of a tab. */
int      COLORS;                        /* Maximum colors on the screen */
int      COLOR_PAIRS = 0;               /* Maximum color pairs on the screen */
int      My_term = 0;                   /* Use Def_term regardless. */
const char      *Def_term = "unknown";  /* Default terminal type. */
char     __GT;                          /* Gtty indicates tabs. */
char     __NONL;                        /* Term can't hack LF doing a CR. */
char     __UPPERCASE;                   /* Terminal is uppercase only. */

/* compare two cells on screen, must have the same foreground/background,
 * and for wide characters the same sequence of non-spacing characters
 */
int
_cursesi_celleq(__LDATA *x, __LDATA *y)
{
#ifdef HAVE_WCHAR
        nschar_t *xnp = x->nsp, *ynp = y->nsp;
#endif /* HAVE_WCHAR */
        int ret = ( x->ch == y->ch ) && ( x->attr == y->attr );

#ifdef HAVE_WCHAR
        if (!ret)
                return 0;

        if ((x->cflags & CA_CONTINUATION) != (y->cflags & CA_CONTINUATION))
                return 0;

        if (!xnp && !ynp)
                return 1;

        if ((xnp && !ynp) || (!xnp && ynp))
                return 0;

        while (xnp && ynp) {
                if (xnp->ch != ynp->ch)
                        return 0;
                xnp = xnp->next;
                ynp = ynp->next;
        }

        return !xnp && !ynp;
#else
        return ret;
#endif /* HAVE_WCHAR */
}

#ifdef HAVE_WCHAR
/*
 * Copy a complex character from source to destination.
 *
 */
void
_cursesi_copy_wchar(__LDATA *src, __LDATA *dest)
{
        dest->ch = src->ch;
        dest->attr = src->attr;
        dest->cflags = src->cflags;
        dest->wcols = src->wcols;
        _cursesi_copy_nsp(src->nsp, dest);
}

/*
 * Copy the non-spacing character list (src_nsp) to the given character,
 * allocate or free storage as required.
 */
int
_cursesi_copy_nsp(nschar_t *src_nsp, struct __ldata *ch)
{
        nschar_t *np, *tnp, *pnp;

        pnp = NULL;
        np = src_nsp;
        if (np) {
                tnp = ch->nsp;
                while (np) {
                        if (tnp) {
                                tnp->ch = np->ch;
                                pnp = tnp;
                                tnp = tnp->next;
                        } else {
                                tnp = malloc(sizeof(nschar_t));
                                if (!tnp)
                                        return ERR;
                                tnp->ch = np->ch;
                                pnp->next = tnp;
                                tnp->next = NULL;
                                pnp = tnp;
                                tnp = NULL;
                        }
                        np = np->next;
                }
                np = tnp;
                if (np) {
                        pnp->next = NULL;
                        __cursesi_free_nsp(np);
                }
        } else {
                if (ch->nsp) {
                        __cursesi_free_nsp(ch->nsp);
                        ch->nsp = NULL;
                }
        }

        return OK;
}

/*
 * Free the storage associated with a non-spacing character - traverse the
 * linked list until all storage is done.
 */
void
__cursesi_free_nsp(nschar_t *inp)
{
        nschar_t *tnp, *np;

        np = inp;
        if (np) {
                while (np) {
                        tnp = np->next;
                        free(np);
                        np = tnp;
                }
        }
}

/*
 * Traverse all the cells in the given window free'ing the non-spacing
 * character storage.
 */
void
__cursesi_win_free_nsp(WINDOW *win)
{
        int     i, j;
        __LDATA *sp;

        for (i = 0; i < win->maxy; i++) {
                for (sp = win->alines[i]->line, j = 0; j < win->maxx;
                     j++, sp++) {
                        __cursesi_free_nsp(sp->nsp);
                }
        }
}

#endif