/****************************************************************************
 * apps/graphics/pdcurses/pdc_attr.c
 * Public Domain Curses
 * RCSID("$Id: attr.c,v 1.41 2008/07/13 16:08:17 wmcbrine Exp $")
 *
 *   Copyright (C) 2017 Gregory Nutt. All rights reserved.
 *   Adapted by: Gregory Nutt <gnutt@nuttx.org>
 *
 * Adapted from the original public domain pdcurses by Gregory Nutt and
 * released as part of NuttX under the 3-clause BSD license:
 *
 * 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 NuttX 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 COPYRIGHT HOLDERS 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
 * COPYRIGHT OWNER 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.
 *
 ****************************************************************************/

/* Name: attr
 *
 * Synopsis:
 *       int attroff(chtype attrs);
 *       int wattroff(WINDOW *win, chtype attrs);
 *       int attron(chtype attrs);
 *       int wattron(WINDOW *win, chtype attrs);
 *       int attrset(chtype attrs);
 *       int wattrset(WINDOW *win, chtype attrs);
 *       int standend(void);
 *       int wstandend(WINDOW *win);
 *       int standout(void);
 *       int wstandout(WINDOW *win);
 *
 *       int color_set(short color_pair, void *opts);
 *       int wcolor_set(WINDOW *win, short color_pair, void *opts);
 *
 *       int attr_get(attr_t *attrs, short *color_pair, void *opts);
 *       int attr_off(attr_t attrs, void *opts);
 *       int attr_on(attr_t attrs, void *opts);
 *       int attr_set(attr_t attrs, short color_pair, void *opts);
 *       int wattr_get(WINDOW *win, attr_t *attrs, short *color_pair,
 *               void *opts);
 *       int wattr_off(WINDOW *win, attr_t attrs, void *opts);
 *       int wattr_on(WINDOW *win, attr_t attrs, void *opts);
 *       int wattr_set(WINDOW *win, attr_t attrs, short color_pair,
 *               void *opts);
 *
 *       int chgat(int n, attr_t attr, short color, const void *opts);
 *       int mvchgat(int y, int x, int n, attr_t attr, short color,
 *               const void *opts);
 *       int mvwchgat(WINDOW *win, int y, int x, int n, attr_t attr,
 *               short color, const void *opts);
 *       int wchgat(WINDOW *win, int n, attr_t attr, short color,
 *               const void *opts);
 *
 *       chtype getattrs(WINDOW *win);
 *
 * Description:
 *       These functions manipulate the current attributes and/or colors
 *       of the named window.  These attributes can be any combination
 *       of A_STANDOUT, A_REVERSE, A_BOLD, A_DIM, A_BLINK, A_UNDERLINE.
 *
 *       These constants are defined in curses.h and can be combined
 *       with the bitwise-OR operator (|).
 *
 *       The current attributes of a window are applied to all chtypes
 *       that are written into the window with waddch(). Attributes are
 *       a property of the chtype, and move with the character through
 *       any scrolling or insert/delete operations.
 *
 *       attrset() sets the current attributes of the given window to
 *       attrs. attroff() turns off the named attributes without
 *       affecting any other attributes; attron() turns them on.
 *       color_set() sets the window color to the value of color_pair.
 *
 *       standout() is the same as attron(A_STANDOUT). standend() is the
 *       same as attrset(A_NORMAL); that is, it turns off all attributes.
 *
 * Return Value:
 *       All functions return OK on success and ERR on error.
 *
 * Portability                                X/Open    BSD    SYS V
 *       attroff                                 Y       Y       Y
 *       wattroff                                Y       Y       Y
 *       attron                                  Y       Y       Y
 *       wattron                                 Y       Y       Y
 *       attrset                                 Y       Y       Y
 *       wattrset                                Y       Y       Y
 *       standend                                Y       Y       Y
 *       wstandend                               Y       Y       Y
 *       standout                                Y       Y       Y
 *       wstandout                               Y       Y       Y
 *       color_set                               Y
 *       wcolor_set                              Y
 *       attr_get                                Y
 *       wattr_get                               Y
 *       attr_on                                 Y
 *       wattr_on                                Y
 *       attr_off                                Y
 *       wattr_off                               Y
 *       attr_set                                Y
 *       wattr_set                               Y
 *       chgat                                   Y
 *       wchgat                                  Y
 *       mvchgat                                 Y
 *       mvwchgat                                Y
 *       getattrs                                -
 */

/****************************************************************************
 * Included Files
 ****************************************************************************/

#include "curspriv.h"

/****************************************************************************
 * Public Functions
 ****************************************************************************/

int wattroff(WINDOW *win, chtype attrs)
{
  PDC_LOG(("wattroff() - called\n"));

  if (!win)
    {
      return ERR;
    }

  win->_attrs &= (~attrs & A_ATTRIBUTES);

  return OK;
}

int attroff(chtype attrs)
{
  PDC_LOG(("attroff() - called\n"));

  return wattroff(stdscr, attrs);
}

int wattron(WINDOW *win, chtype attrs)
{
  chtype newcolr;
  chtype oldcolr;
  chtype newattr;
  chtype oldattr;

  PDC_LOG(("wattron() - called\n"));

  if (!win)
    {
      return ERR;
    }

  if ((win->_attrs & A_COLOR) && (attrs & A_COLOR))
    {
      oldcolr = win->_attrs & A_COLOR;
      oldattr = win->_attrs ^ oldcolr;
      newcolr = attrs & A_COLOR;
      newattr = (attrs & A_ATTRIBUTES) ^ newcolr;
      newattr |= oldattr;
      win->_attrs = newattr | newcolr;
    }
  else
    {
      win->_attrs |= (attrs & A_ATTRIBUTES);
    }

  return OK;
}

int attron(chtype attrs)
{
  PDC_LOG(("attron() - called\n"));

  return wattron(stdscr, attrs);
}

int wattrset(WINDOW *win, chtype attrs)
{
  PDC_LOG(("wattrset() - called\n"));

  if (!win)
    {
      return ERR;
    }

  win->_attrs = attrs & A_ATTRIBUTES;

  return OK;
}

int attrset(chtype attrs)
{
  PDC_LOG(("attrset() - called\n"));

  return wattrset(stdscr, attrs);
}

int standend(void)
{
  PDC_LOG(("standend() - called\n"));

  return wattrset(stdscr, A_NORMAL);
}

int standout(void)
{
  PDC_LOG(("standout() - called\n"));

  return wattrset(stdscr, A_STANDOUT);
}

int wstandend(WINDOW *win)
{
  PDC_LOG(("wstandend() - called\n"));

  return wattrset(win, A_NORMAL);
}

int wstandout(WINDOW *win)
{
  PDC_LOG(("wstandout() - called\n"));

  return wattrset(win, A_STANDOUT);
}

chtype getattrs(WINDOW *win)
{
  return win ? win->_attrs : 0;
}

int wcolor_set(WINDOW *win, short color_pair, void *opts)
{
  PDC_LOG(("wcolor_set() - called\n"));

  if (!win)
    {
      return ERR;
    }

  win->_attrs = (win->_attrs & ~A_COLOR) | COLOR_PAIR(color_pair);

  return OK;
}

int color_set(short color_pair, void *opts)
{
  PDC_LOG(("color_set() - called\n"));

  return wcolor_set(stdscr, color_pair, opts);
}

int wattr_get(WINDOW *win, attr_t *attrs, short *color_pair, void *opts)
{
  PDC_LOG(("wattr_get() - called\n"));

  if (!win)
    {
      return ERR;
    }

  if (attrs)
    {
      *attrs = win->_attrs & (A_ATTRIBUTES & ~A_COLOR);
    }

  if (color_pair)
    {
      *color_pair = PAIR_NUMBER(win->_attrs);
    }

  return OK;
}

int attr_get(attr_t *attrs, short *color_pair, void *opts)
{
  PDC_LOG(("attr_get() - called\n"));

  return wattr_get(stdscr, attrs, color_pair, opts);
}

int wattr_off(WINDOW *win, attr_t attrs, void *opts)
{
  PDC_LOG(("wattr_off() - called\n"));

  return wattroff(win, attrs);
}

int attr_off(attr_t attrs, void *opts)
{
  PDC_LOG(("attr_off() - called\n"));

  return wattroff(stdscr, attrs);
}

int wattr_on(WINDOW *win, attr_t attrs, void *opts)
{
  PDC_LOG(("wattr_off() - called\n"));

  return wattron(win, attrs);
}

int attr_on(attr_t attrs, void *opts)
{
  PDC_LOG(("attr_on() - called\n"));

  return wattron(stdscr, attrs);
}

int wattr_set(WINDOW *win, attr_t attrs, short color_pair, void *opts)
{
  PDC_LOG(("wattr_set() - called\n"));

  if (!win)
    {
      return ERR;
    }

  win->_attrs = (attrs & (A_ATTRIBUTES & ~A_COLOR)) | COLOR_PAIR(color_pair);

  return OK;
}

int attr_set(attr_t attrs, short color_pair, void *opts)
{
  PDC_LOG(("attr_get() - called\n"));

  return wattr_set(stdscr, attrs, color_pair, opts);
}

int wchgat(WINDOW *win, int n, attr_t attr, short color, const void *opts)
{
  chtype *dest;
  chtype newattr;
  int startpos;
  int endpos;

  PDC_LOG(("wchgat() - called\n"));

  if (!win)
    {
      return ERR;
    }

  newattr = (attr & A_ATTRIBUTES) | COLOR_PAIR(color);

  startpos = win->_curx;
  endpos = ((n < 0) ? win->_maxx : min(startpos + n, win->_maxx)) - 1;
  dest = win->_y[win->_cury];

  for (n = startpos; n <= endpos; n++)
    {
      dest[n] = (dest[n] & A_CHARTEXT) | newattr;
    }

  n = win->_cury;

  if (startpos < win->_firstch[n] || win->_firstch[n] == _NO_CHANGE)
    {
      win->_firstch[n] = startpos;
    }

  if (endpos > win->_lastch[n])
    {
      win->_lastch[n] = endpos;
    }

  PDC_sync(win);

  return OK;
}

int chgat(int n, attr_t attr, short color, const void *opts)
{
  PDC_LOG(("chgat() - called\n"));

  return wchgat(stdscr, n, attr, color, opts);
}

int mvchgat(int y, int x, int n, attr_t attr, short color, const void *opts)
{
  PDC_LOG(("mvchgat() - called\n"));

  if (move(y, x) == ERR)
    {
      return ERR;
    }

  return wchgat(stdscr, n, attr, color, opts);
}

int mvwchgat(WINDOW *win, int y, int x, int n, attr_t attr, short color,
             const void *opts)
{
  PDC_LOG(("mvwchgat() - called\n"));

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

  return wchgat(win, n, attr, color, opts);
}