xref: /netbsd/src/lib/libcurses/line.c

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

/*-
 * Copyright (c) 1998-1999 Brett Lymn
 *                         (blymn@baea.com.au, brett_lymn@yahoo.com.au)
 * 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 */
}