sergiotarxz/nuttx-apps
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
69bea27b20
nuttx-apps/graphics/pdcurs34/pdcurses/pdc_insch.c

343 lines
8.9 KiB
C
Raw Blame History

/****************************************************************************
* apps/graphics/pdcurses/pdc_insch.c
* Public Domain Curses
* RCSID("$Id: insch.c,v 1.44 2008/07/13 16:08:18 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: insch
*
* Synopsis:
* int insch(chtype ch);
* int winsch(WINDOW *win, chtype ch);
* int mvinsch(int y, int x, chtype ch);
* int mvwinsch(WINDOW *win, int y, int x, chtype ch);
*
* int insrawch(chtype ch);
* int winsrawch(WINDOW *win, chtype ch);
* int mvinsrawch(int y, int x, chtype ch);
* int mvwinsrawch(WINDOW *win, int y, int x, chtype ch);
*
* int ins_wch(const cchar_t *wch);
* int wins_wch(WINDOW *win, const cchar_t *wch);
* int mvins_wch(int y, int x, const cchar_t *wch);
* int mvwins_wch(WINDOW *win, int y, int x, const cchar_t *wch);
*
* Description:
* The insch() functions insert a chtype into the window at the
* current or specified cursor position. The cursor is NOT
* advanced. A newline is equivalent to clrtoeol(); tabs are
* expanded; other control characters are converted as with
* unctrl().
*
* The ins_wch() functions are the wide-character
* equivalents, taking cchar_t pointers rather than chtypes.
*
* Video attributes can be combined with a character by ORing
* them into the parameter. Text, including attributes, can be
* copied from one place to another using inch() and insch().
*
* insrawch() etc. are PDCurses-specific wrappers for insch() etc.
* that disable the translation of control characters.
*
* Return Value:
* All functions return OK on success and ERR on error.
*
* Portability X/Open BSD SYS V
* insch Y Y Y
* winsch Y Y Y
* mvinsch Y Y Y
* mvwinsch Y Y Y
* insrawch - - -
* winsrawch - - -
* ins_wch Y
* wins_wch Y
* mvins_wch Y
* mvwins_wch Y
*/
/****************************************************************************
* Included Files
****************************************************************************/
#include <string.h>
#include "curspriv.h"
/****************************************************************************
* Public Functions
****************************************************************************/
int winsch(WINDOW * win, chtype ch)
{
chtype attr;
bool xlat;
int x;
int y;
PDC_LOG(("winsch() - called: win=%p ch=%x (text=%c attr=0x%x)\n",
win, ch, ch & A_CHARTEXT, ch & A_ATTRIBUTES));
if (!win)
{
return ERR;
}
x = win->_curx;
y = win->_cury;
if (y > win->_maxy || x > win->_maxx || y < 0 || x < 0)
{
return ERR;
}
xlat = !SP->raw_out && !(ch & A_ALTCHARSET);
attr = ch & A_ATTRIBUTES;
ch &= A_CHARTEXT;
if (xlat && (ch < ' ' || ch == 0x7f))
{
int x2;
switch (ch)
{
case '\t':
for (x2 = ((x / TABSIZE) + 1) * TABSIZE; x < x2; x++)
{
if (winsch(win, attr | ' ') == ERR)
return ERR;
}
return OK;
case '\n':
wclrtoeol(win);
break;
case 0x7f:
if (winsch(win, attr | '?') == ERR)
{
return ERR;
}
return winsch(win, attr | '^');
default:
/* handle control chars */
if (winsch(win, attr | (ch + '@')) == ERR)
{
return ERR;
}
return winsch(win, attr | '^');
}
}
else
{
int maxx;
chtype *temp;
/* If the incoming character doesn't have its own attribute, then use the
* current attributes for the window. If it has attributes but not a
* color component, OR the attributes to the current attributes for the
* window. If it has a color component, use the attributes solely from
* the incoming character. */
if (!(attr & A_COLOR))
{
attr |= win->_attrs;
}
/* wrs (4/10/93): Apply the same sort of logic for the window background,
* in that it only takes precedence if other color attributes are not
* there and that the background character will only print if the
* printing character is blank. */
if (!(attr & A_COLOR))
{
attr |= win->_bkgd & A_ATTRIBUTES;
}
else
{
attr |= win->_bkgd & (A_ATTRIBUTES ^ A_COLOR);
}
if (ch == ' ')
{
ch = win->_bkgd & A_CHARTEXT;
}
/* Add the attribute back into the character. */
ch |= attr;
maxx = win->_maxx;
temp = &win->_y[y][x];
memmove(temp + 1, temp, (maxx - x - 1) * sizeof(chtype));
win->_lastch[y] = maxx - 1;
if ((win->_firstch[y] == _NO_CHANGE) || (win->_firstch[y] > x))
{
win->_firstch[y] = x;
}
*temp = ch;
}
PDC_sync(win);
return OK;
}
int insch(chtype ch)
{
PDC_LOG(("insch() - called\n"));
return winsch(stdscr, ch);
}
int mvinsch(int y, int x, chtype ch)
{
PDC_LOG(("mvinsch() - called\n"));
if (move(y, x) == ERR)
{
return ERR;
}
return winsch(stdscr, ch);
}
int mvwinsch(WINDOW * win, int y, int x, chtype ch)
{
PDC_LOG(("mvwinsch() - called\n"));
if (wmove(win, y, x) == ERR)
{
return ERR;
}
return winsch(win, ch);
}
int winsrawch(WINDOW * win, chtype ch)
{
PDC_LOG(("winsrawch() - called: win=%p ch=%x "
"(char=%c attr=0x%x)\n", win, ch,
ch & A_CHARTEXT, ch & A_ATTRIBUTES));
if ((ch & A_CHARTEXT) < ' ' || (ch & A_CHARTEXT) == 0x7f)
{
ch |= A_ALTCHARSET;
}
return winsch(win, ch);
}
int insrawch(chtype ch)
{
PDC_LOG(("insrawch() - called\n"));
return winsrawch(stdscr, ch);
}
int mvinsrawch(int y, int x, chtype ch)
{
PDC_LOG(("mvinsrawch() - called\n"));
if (move(y, x) == ERR)
{
return ERR;
}
return winsrawch(stdscr, ch);
}
int mvwinsrawch(WINDOW * win, int y, int x, chtype ch)
{
PDC_LOG(("mvwinsrawch() - called\n"));
if (wmove(win, y, x) == ERR)
{
return ERR;
}
return winsrawch(win, ch);
}
#ifdef CONFIG_PDCURSES_WIDE
int wins_wch(WINDOW * win, const cchar_t * wch)
{
PDC_LOG(("wins_wch() - called\n"));
return wch ? winsch(win, *wch) : ERR;
}
int ins_wch(const cchar_t * wch)
{
PDC_LOG(("ins_wch() - called\n"));
return wins_wch(stdscr, wch);
}
int mvins_wch(int y, int x, const cchar_t * wch)
{
PDC_LOG(("mvins_wch() - called\n"));
if (move(y, x) == ERR)
{
return ERR;
}
return wins_wch(stdscr, wch);
}
int mvwins_wch(WINDOW * win, int y, int x, const cchar_t * wch)
{
PDC_LOG(("mvwins_wch() - called\n"));
if (wmove(win, y, x) == ERR)
{
return ERR;
}
return wins_wch(win, wch);
}
#endif
Reference in New Issue View Git Blame Copy Permalink