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

/*-
* Copyright (c) 1998-1999 Brett Lymn
*                         ([email protected], [email protected])
* All rights reserved.
*
* This code has been donated to The NetBSD Foundation by the Author.
*
* 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. The name of the author may not be used to endorse or promote products
*    derived from this software without specific prior written permission
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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: line.c,v 1.19 2024/12/23 02:58:03 blymn Exp $");
#endif                          /* not lint */

#include <string.h>

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

/*
* hline --
*      Draw a horizontal line of character c on stdscr.
*/
int
hline(chtype ch, int count)
{

       return whline(stdscr, ch, count);
}

/*
* mvhline --
*      Move to location (y, x) and draw a horizontal line of character c
*      on stdscr.
*/
int
mvhline(int y, int x, chtype ch, int count)
{

       return mvwhline(stdscr, y, x, ch, count);
}

/*
* mvwhline --
*      Move to location (y, x) and draw a horizontal line of character c
*      in the given window.
*/
int
mvwhline(WINDOW *win, int y, int x, chtype ch, int count)
{

       if (wmove(win, y, x) == ERR)
               return ERR;

       return whline(win, ch, count);
}

/*
* whline --
*      Draw a horizontal line of character c in the given window moving
*      towards the rightmost column.  At most count characters are drawn
*      or until the edge of the screen, whichever comes first.
*/
int
whline(WINDOW *win, chtype ch, int count)
{
#ifndef HAVE_WCHAR
       if (__predict_false(win == NULL))
               return ERR;

       int ocury, ocurx, n, i;

       n = min(count, win->maxx - win->curx);
       ocury = win->cury;
       ocurx = win->curx;

       if (!(ch & __CHARTEXT))
               ch |= ACS_HLINE;
       for (i = 0; i < n; i++)
               mvwaddch(win, ocury, ocurx + i, ch);

       wmove(win, ocury, ocurx);
       return OK;
#else
       cchar_t cch;

       __cursesi_chtype_to_cchar(ch, &cch);
       return whline_set(win, &cch, count);
#endif
}

/*
* vline --
*      Draw a vertical line of character ch on stdscr.
*/
int
vline(chtype ch, int count)
{

       return wvline(stdscr, ch, count);
}

/*
* mvvline --
*      Move to the given location and draw a vertical line of character ch.
*/
int
mvvline(int y, int x, chtype ch, int count)
{

       return mvwvline(stdscr, y, x, ch, count);
}

/*
* mvwvline --
*      Move to the given location and draw a vertical line of character ch
*      on the given window.
*/
int
mvwvline(WINDOW *win, int y, int x, chtype ch, int count)
{

       if (wmove(win, y, x) == ERR)
               return ERR;

       return wvline(win, ch, count);
}

/*
* wvline --
*      Draw a vertical line of character ch in the given window moving
*      towards the bottom of the screen.  At most count characters are drawn
*      or until the edge of the screen, whichever comes first.
*/
int
wvline(WINDOW *win, chtype ch, int count)
{
#ifndef HAVE_WCHAR
       int ocury, ocurx, n, i;

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

       n = min(count, win->maxy - win->cury);
       ocury = win->cury;
       ocurx = win->curx;

       if (!(ch & __CHARTEXT))
               ch |= ACS_VLINE;
       for (i = 0; i < n; i++)
               mvwaddch(win, ocury + i, ocurx, ch);

       wmove(win, ocury, ocurx);
       return OK;
#else
       cchar_t cch;

       __cursesi_chtype_to_cchar(ch, &cch);
       return wvline_set(win, &cch, count);
#endif
}

int hline_set(const cchar_t *wch, int n)
{
#ifndef HAVE_WCHAR
       return ERR;
#else
       return whline_set( stdscr, wch, n );
#endif /* HAVE_WCHAR */
}

int mvhline_set(int y, int x, const cchar_t *wch, int n)
{
#ifndef HAVE_WCHAR
       return ERR;
#else
       return mvwhline_set( stdscr, y, x, wch, n );
#endif /* HAVE_WCHAR */
}

int mvwhline_set(WINDOW *win, int y, int x, const cchar_t *wch, int n)
{
#ifndef HAVE_WCHAR
       return ERR;
#else
       if ( wmove( win, y , x ) == ERR )
               return ERR;

       return whline_set( win, wch, n );
#endif /* HAVE_WCHAR */
}

int whline_set(WINDOW *win, const cchar_t *wch, int n)
{
#ifndef HAVE_WCHAR
       return ERR;
#else
       int ocury, ocurx, wcn, i, cw;
       cchar_t cc;

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

       cc = *wch;
       if (!cc.vals[0]) {
               cc.vals[0] = WACS_HLINE->vals[0];
               cc.attributes |= WACS_HLINE->attributes;
       }

       cw = wcwidth(cc.vals[0]);
       if (cw <= 0)
               cw = 1;
       if ( ( win->maxx - win->curx ) < cw )
               return ERR;
       wcn = min( n, ( win->maxx - win->curx ) / cw );
       __CTRACE(__CTRACE_LINE, "whline_set: line of %d\n", wcn);
       ocury = win->cury;
       ocurx = win->curx;

       for (i = 0; i < wcn; i++ ) {
               __CTRACE(__CTRACE_LINE, "whline_set: (%d,%d)\n",
                  ocury, ocurx + i * cw);
               mvwadd_wch(win, ocury, ocurx + i * cw, &cc);
       }

       wmove(win, ocury, ocurx);
       __sync(win);
       return OK;
#endif /* HAVE_WCHAR */
}

int vline_set(const cchar_t *wch, int n)
{
#ifndef HAVE_WCHAR
       return ERR;
#else
       return wvline_set(stdscr, wch, n);
#endif /* HAVE_WCHAR */
}

int mvvline_set(int y, int x, const cchar_t *wch, int n)
{
#ifndef HAVE_WCHAR
       return ERR;
#else
       return mvwvline_set(stdscr, y, x, wch, n);
#endif /* HAVE_WCHAR */
}

int mvwvline_set(WINDOW *win, int y, int x, const cchar_t *wch, int n)
{
#ifndef HAVE_WCHAR
       return ERR;
#else
       if (wmove(win, y, x) == ERR)
               return ERR;

       return wvline_set(win, wch, n);
#endif /* HAVE_WCHAR */
}

int wvline_set(WINDOW *win, const cchar_t *wch, int n)
{
#ifndef HAVE_WCHAR
       return ERR;
#else
       int ocury, ocurx, wcn, i;
       cchar_t cc;

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

       wcn = min(n, win->maxy - win->cury);
       __CTRACE(__CTRACE_LINE, "wvline_set: line of %d\n", wcn);
       ocury = win->cury;
       ocurx = win->curx;

       cc = *wch;
       if (!cc.vals[0]) {
               cc.vals[0] = WACS_VLINE->vals[0];
               cc.attributes |= WACS_VLINE->attributes;
       }
       for (i = 0; i < wcn; i++) {
               mvwadd_wch(win, ocury + i, ocurx, &cc);
               __CTRACE(__CTRACE_LINE, "wvline_set: (%d,%d)\n",
                   ocury + i, ocurx);
       }

       wmove(win, ocury, ocurx);
       __sync(win);
       return OK;
#endif /* HAVE_WCHAR */
}