/*      $NetBSD: background.c,v 1.34 2024/12/23 02:58:03 blymn Exp $    */

/*-
 * Copyright (c) 2000 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by Julian Coleman.
 *
 * 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.
 *
 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. 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 FOUNDATION 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>
#ifndef lint
__RCSID("$NetBSD: background.c,v 1.34 2024/12/23 02:58:03 blymn Exp $");
#endif                          /* not lint */

#include <stdlib.h>
#include "curses.h"
#include "curses_private.h"

/*
 * bkgdset
 *      Set new background attributes on stdscr.
 */
void
bkgdset(chtype ch)
{
        wbkgdset(stdscr, ch);
}

/*
 * bkgd --
 *      Set new background attributes on stdscr and apply them to its
 *      contents.
 */
int
bkgd(chtype ch)
{
        return(wbkgd(stdscr, ch));
}

/*
 * wbkgdset
 *      Set new background attributes on the specified window.
 */
void
wbkgdset(WINDOW *win, chtype ch)
{
        __CTRACE(__CTRACE_ATTR, "wbkgdset: (%p), '%s', %08x\n",
            win, unctrl(ch & __CHARTEXT), ch & __ATTRIBUTES);

        if (__predict_false(win == NULL))
                return;

        /* Background character. */
        if (ch & __CHARTEXT)
                win->bch = (wchar_t) ch & __CHARTEXT;

        /* Background attributes (check colour). */
        if (__using_color && !(ch & __COLOR))
                ch |= __default_color;
        win->battr = (attr_t) ch & __ATTRIBUTES;
}

/*
 * wbkgd --
 *      Set new background attributes on the specified window and
 *      apply them to its contents.
 */
int
wbkgd(WINDOW *win, chtype ch)
{
        int y, x;

        __CTRACE(__CTRACE_ATTR, "wbkgd: (%p), '%s', %08x\n",
            win, unctrl(ch & __CHARTEXT), ch & __ATTRIBUTES);

        if (__predict_false(win == NULL))
                return ERR;

        wbkgdset(win, ch);

        for (y = 0; y < win->maxy; y++) {
                for (x = 0; x < win->maxx; x++) {
                        __LDATA *cp = &win->alines[y]->line[x];

                        /* Update/switch background characters */
                        if (cp->cflags & CA_BACKGROUND)
                                cp->ch = win->bch;

                        /* Update/merge attributes */
                        cp->attr = win->battr | (cp->attr & __ALTCHARSET);
#ifdef HAVE_WCHAR
                        cp->wcols = 1;
#endif
                }
        }
        __touchwin(win, 1);
        return OK;
}

/*
 * getbkgd --
 *      Get current background attributes.
 */
chtype
getbkgd(WINDOW *win)
{
        attr_t  battr;

        if (__predict_false(win == NULL))
                return ERR;

        /* Background attributes (check colour). */
        battr = win->battr & A_ATTRIBUTES;
        if (__using_color && ((battr & __COLOR) == __default_color))
                battr &= ~__COLOR;

        return ((chtype) ((win->bch & A_CHARTEXT) | battr));
}


#ifdef HAVE_WCHAR

void
bkgrndset(const cchar_t *wch)
{
        wbkgrndset(stdscr, wch);
}


int
bkgrnd(const cchar_t *wch)
{
        return wbkgrnd(stdscr, wch);
}


int
getbkgrnd(cchar_t *wch)
{
        return wgetbkgrnd(stdscr, wch);
}


void
wbkgrndset(WINDOW *win, const cchar_t *wch)
{
        attr_t battr;
        nschar_t *np, *tnp;
        int i, wy, wx;
        __LDATA obkgrnd, nbkgrnd;
        __LINE *wlp;

        __CTRACE(__CTRACE_ATTR, "wbkgrndset: (%p), '%s', %x\n",
            win, (const char *)wunctrl(wch), wch->attributes);

        if (__predict_false(win == NULL))
                return;

        /* ignore multi-column characters */
        if (!wch->elements || wcwidth(wch->vals[0]) > 1)
                return;

        /* get a copy of the old background, we will need it. */
        obkgrnd.ch = win->bch;
        obkgrnd.attr = win->battr;
        obkgrnd.cflags = CA_BACKGROUND;
        obkgrnd.wcols = win->wcols;
        obkgrnd.nsp = NULL;
        _cursesi_copy_nsp(win->bnsp, &obkgrnd);

        /* Background character. */
        tnp = np = win->bnsp;
        if (wcwidth( wch->vals[0]))
                win->bch = wch->vals[0];
        else {
                if (!np) {
                        np = malloc(sizeof(nschar_t));
                        if (!np)
                                return;
                        np->next = NULL;
                        win->bnsp = np;
                }
                np->ch = wch->vals[0];
                tnp = np;
                np = np->next;
        }
        /* add non-spacing characters */
        if (wch->elements > 1) {
                for (i = 1; i < wch->elements; i++) {
                        if ( !np ) {
                                np = malloc(sizeof(nschar_t));
                                if (!np)
                                        return;
                                np->next = NULL;
                                if (tnp)
                                        tnp->next = np;
                                else
                                        win->bnsp = np;
                        }
                        np->ch = wch->vals[i];
                        tnp = np;
                        np = np->next;
                }
        }
        /* clear the old non-spacing characters */
        __cursesi_free_nsp(np);

        /* Background attributes (check colour). */
        battr = wch->attributes & WA_ATTRIBUTES;
        if (__using_color && !( battr & __COLOR))
                battr |= __default_color;
        win->battr = battr;
        win->wcols = 1;

        nbkgrnd.ch = win->bch;
        nbkgrnd.attr = win->battr;
        nbkgrnd.cflags = CA_BACKGROUND;
        nbkgrnd.wcols = win->wcols;
        nbkgrnd.nsp = NULL;
        _cursesi_copy_nsp(win->bnsp, &nbkgrnd);

        /* if the background is already this char then skip updating */
        if (_cursesi_celleq(&obkgrnd, &nbkgrnd))
                return;

        /*
         * Now do the dirty work of updating all the locations
         * that have the old background character with the new.
         */

        for (wy = 0; wy < win->maxy; wy++) {
                wlp = win->alines[wy];
                for (wx = 0; wx < win->maxx; wx++) {
                        if (wlp->line[wx].cflags & CA_BACKGROUND) {
                                _cursesi_copy_wchar(&nbkgrnd, &wlp->line[wx]);
                        }
                }
        }
        __touchwin(win, 0);

}


int
wbkgrnd(WINDOW *win, const cchar_t *wch)
{
        __CTRACE(__CTRACE_ATTR, "wbkgrnd: (%p), '%s', %x\n",
            win, (const char *)wunctrl(wch), wch->attributes);

        if (__predict_false(win == NULL))
                return ERR;

        /* ignore multi-column characters */
        if (!wch->elements || wcwidth( wch->vals[ 0 ]) > 1)
                return ERR;

        wbkgrndset(win, wch);
        __touchwin(win, 1);
        return OK;
}


int
wgetbkgrnd(WINDOW *win, cchar_t *wch)
{
        nschar_t *np;

        if (__predict_false(win == NULL))
                return ERR;

        /* Background attributes (check colour). */
        wch->attributes = win->battr & WA_ATTRIBUTES;
        if (__using_color && ((wch->attributes & __COLOR) == __default_color))
                wch->attributes &= ~__COLOR;
        wch->vals[0] = win->bch;
        wch->elements = 1;
        np = win->bnsp;
        if (np) {
                while (np && wch->elements < CURSES_CCHAR_MAX) {
                        wch->vals[wch->elements++] = np->ch;
                        np = np->next;
                }
        }

        return OK;
}

#else  /* !HAVE_WCHAR */

void
bkgrndset(const cchar_t *wch)
{
        return;
}

int
bkgrnd(const cchar_t *wch)
{
        return ERR;
}


int
getbkgrnd(cchar_t *wch)
{
        return ERR;
}


void
wbkgrndset(WINDOW *win, const cchar_t *wch)
{
        return;
}


int
wbkgrnd(WINDOW *win, const cchar_t *wch)
{
        return ERR;
}


int
wgetbkgrnd(WINDOW *win, cchar_t *wch)
{
        return ERR;
}

#endif /* !HAVE_WCHAR */