mirror of
https://github.com/Aigor44/ncursesw-morphos.git
synced 2024-12-21 07:39:06 +08:00
03f728e5bb
+ correct logic for discarding mouse events, retaining the partial events used to build up click, double-click, etc, until needed (cf: 20110917). + fix configure script to avoid creating unused Ada95 makefile when gnat does not work. + cleanup width-related gcc 3.4.3 warnings for 64-bit platform, for the internal functions of libncurses. The external interface of courses uses bool, which still produces these warnings.
377 lines
9.7 KiB
C
377 lines
9.7 KiB
C
/****************************************************************************
|
|
* Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. *
|
|
* *
|
|
* Permission is hereby granted, free of charge, to any person obtaining a *
|
|
* copy of this software and associated documentation files (the *
|
|
* "Software"), to deal in the Software without restriction, including *
|
|
* without limitation the rights to use, copy, modify, merge, publish, *
|
|
* distribute, distribute with modifications, sublicense, and/or sell *
|
|
* copies of the Software, and to permit persons to whom the Software is *
|
|
* furnished to do so, subject to the following conditions: *
|
|
* *
|
|
* The above copyright notice and this permission notice shall be included *
|
|
* in all copies or substantial portions of the Software. *
|
|
* *
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
|
|
* OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
|
|
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
|
|
* IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
|
|
* DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
|
|
* OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
|
|
* THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
|
|
* *
|
|
* Except as contained in this notice, the name(s) of the above copyright *
|
|
* holders shall not be used in advertising or otherwise to promote the *
|
|
* sale, use or other dealings in this Software without prior written *
|
|
* authorization. *
|
|
****************************************************************************/
|
|
|
|
/****************************************************************************
|
|
* Author: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995 *
|
|
* and: Eric S. Raymond <esr@snark.thyrsus.com> *
|
|
* and: Thomas E. Dickey 1996-on *
|
|
* and: Juergen Pfeifer 2009 *
|
|
****************************************************************************/
|
|
|
|
/*
|
|
** lib_options.c
|
|
**
|
|
** The routines to handle option setting.
|
|
**
|
|
*/
|
|
|
|
#include <curses.priv.h>
|
|
|
|
#ifndef CUR
|
|
#define CUR SP_TERMTYPE
|
|
#endif
|
|
|
|
MODULE_ID("$Id: lib_options.c,v 1.72 2011/10/22 16:31:35 tom Exp $")
|
|
|
|
NCURSES_EXPORT(int)
|
|
idlok(WINDOW *win, bool flag)
|
|
{
|
|
int res = ERR;
|
|
T((T_CALLED("idlok(%p,%d)"), (void *) win, flag));
|
|
|
|
if (win) {
|
|
SCREEN *sp = _nc_screen_of(win);
|
|
if (sp && IsTermInfo(sp)) {
|
|
sp->_nc_sp_idlok =
|
|
win->_idlok = (flag && (NCURSES_SP_NAME(has_il) (NCURSES_SP_ARG)
|
|
|| change_scroll_region));
|
|
res = OK;
|
|
}
|
|
}
|
|
returnCode(res);
|
|
}
|
|
|
|
NCURSES_EXPORT(void)
|
|
idcok(WINDOW *win, bool flag)
|
|
{
|
|
T((T_CALLED("idcok(%p,%d)"), (void *) win, flag));
|
|
|
|
if (win) {
|
|
SCREEN *sp = _nc_screen_of(win);
|
|
sp->_nc_sp_idcok = win->_idcok = (flag && NCURSES_SP_NAME(has_ic) (NCURSES_SP_ARG));
|
|
}
|
|
returnVoid;
|
|
}
|
|
|
|
NCURSES_EXPORT(int)
|
|
NCURSES_SP_NAME(halfdelay) (NCURSES_SP_DCLx int t)
|
|
{
|
|
T((T_CALLED("halfdelay(%p,%d)"), (void *) SP_PARM, t));
|
|
|
|
if (t < 1 || t > 255 || !IsValidTIScreen(SP_PARM))
|
|
returnCode(ERR);
|
|
|
|
NCURSES_SP_NAME(cbreak) (NCURSES_SP_ARG);
|
|
SP_PARM->_cbreak = t + 1;
|
|
returnCode(OK);
|
|
}
|
|
|
|
#if NCURSES_SP_FUNCS
|
|
NCURSES_EXPORT(int)
|
|
halfdelay(int t)
|
|
{
|
|
return NCURSES_SP_NAME(halfdelay) (CURRENT_SCREEN, t);
|
|
}
|
|
#endif
|
|
|
|
NCURSES_EXPORT(int)
|
|
nodelay(WINDOW *win, bool flag)
|
|
{
|
|
T((T_CALLED("nodelay(%p,%d)"), (void *) win, flag));
|
|
|
|
if (win) {
|
|
if (flag == TRUE)
|
|
win->_delay = 0;
|
|
else
|
|
win->_delay = -1;
|
|
returnCode(OK);
|
|
} else
|
|
returnCode(ERR);
|
|
}
|
|
|
|
NCURSES_EXPORT(int)
|
|
notimeout(WINDOW *win, bool f)
|
|
{
|
|
T((T_CALLED("notimeout(%p,%d)"), (void *) win, f));
|
|
|
|
if (win) {
|
|
win->_notimeout = f;
|
|
returnCode(OK);
|
|
} else
|
|
returnCode(ERR);
|
|
}
|
|
|
|
NCURSES_EXPORT(void)
|
|
wtimeout(WINDOW *win, int delay)
|
|
{
|
|
T((T_CALLED("wtimeout(%p,%d)"), (void *) win, delay));
|
|
|
|
if (win) {
|
|
win->_delay = delay;
|
|
}
|
|
returnVoid;
|
|
}
|
|
|
|
NCURSES_EXPORT(int)
|
|
keypad(WINDOW *win, bool flag)
|
|
{
|
|
T((T_CALLED("keypad(%p,%d)"), (void *) win, flag));
|
|
|
|
if (win) {
|
|
win->_use_keypad = flag;
|
|
returnCode(_nc_keypad(_nc_screen_of(win), flag));
|
|
} else
|
|
returnCode(ERR);
|
|
}
|
|
|
|
NCURSES_EXPORT(int)
|
|
meta(WINDOW *win GCC_UNUSED, bool flag)
|
|
{
|
|
int result = ERR;
|
|
SCREEN *sp = (win == 0) ? CURRENT_SCREEN : _nc_screen_of(win);
|
|
|
|
/* Ok, we stay relaxed and don't signal an error if win is NULL */
|
|
T((T_CALLED("meta(%p,%d)"), (void *) win, flag));
|
|
|
|
/* Ok, we stay relaxed and don't signal an error if win is NULL */
|
|
|
|
if (sp != 0) {
|
|
sp->_use_meta = flag;
|
|
#ifdef USE_TERM_DRIVER
|
|
if (IsTermInfo(sp)) {
|
|
if (flag) {
|
|
NCURSES_SP_NAME(_nc_putp) (NCURSES_SP_ARGx "meta_on", meta_on);
|
|
} else {
|
|
NCURSES_SP_NAME(_nc_putp) (NCURSES_SP_ARGx "meta_off", meta_off);
|
|
}
|
|
}
|
|
#else
|
|
if (flag) {
|
|
NCURSES_SP_NAME(_nc_putp) (NCURSES_SP_ARGx "meta_on", meta_on);
|
|
} else {
|
|
NCURSES_SP_NAME(_nc_putp) (NCURSES_SP_ARGx "meta_off", meta_off);
|
|
}
|
|
#endif
|
|
result = OK;
|
|
}
|
|
returnCode(result);
|
|
}
|
|
|
|
/* curs_set() moved here to narrow the kernel interface */
|
|
|
|
NCURSES_EXPORT(int)
|
|
NCURSES_SP_NAME(curs_set) (NCURSES_SP_DCLx int vis)
|
|
{
|
|
int code = ERR;
|
|
T((T_CALLED("curs_set(%p,%d)"), (void *) SP_PARM, vis));
|
|
|
|
if (SP_PARM != 0 && vis >= 0 && vis <= 2) {
|
|
int cursor = SP_PARM->_cursor;
|
|
bool bBuiltIn = !IsTermInfo(SP_PARM);
|
|
if (vis == cursor) {
|
|
code = cursor;
|
|
} else {
|
|
if (!bBuiltIn) {
|
|
switch (vis) {
|
|
case 2:
|
|
code = NCURSES_SP_NAME(_nc_putp_flush) (NCURSES_SP_ARGx
|
|
"cursor_visible",
|
|
cursor_visible);
|
|
break;
|
|
case 1:
|
|
code = NCURSES_SP_NAME(_nc_putp_flush) (NCURSES_SP_ARGx
|
|
"cursor_normal",
|
|
cursor_normal);
|
|
break;
|
|
case 0:
|
|
code = NCURSES_SP_NAME(_nc_putp_flush) (NCURSES_SP_ARGx
|
|
"cursor_invisible",
|
|
cursor_invisible);
|
|
break;
|
|
}
|
|
} else
|
|
code = ERR;
|
|
if (code != ERR)
|
|
code = (cursor == -1 ? 1 : cursor);
|
|
SP_PARM->_cursor = vis;
|
|
}
|
|
}
|
|
returnCode(code);
|
|
}
|
|
|
|
#if NCURSES_SP_FUNCS
|
|
NCURSES_EXPORT(int)
|
|
curs_set(int vis)
|
|
{
|
|
return (NCURSES_SP_NAME(curs_set) (CURRENT_SCREEN, vis));
|
|
}
|
|
#endif
|
|
|
|
NCURSES_EXPORT(int)
|
|
NCURSES_SP_NAME(typeahead) (NCURSES_SP_DCLx int fd)
|
|
{
|
|
T((T_CALLED("typeahead(%p, %d)"), (void *) SP_PARM, fd));
|
|
if (IsValidTIScreen(SP_PARM)) {
|
|
SP_PARM->_checkfd = fd;
|
|
returnCode(OK);
|
|
} else {
|
|
returnCode(ERR);
|
|
}
|
|
}
|
|
|
|
#if NCURSES_SP_FUNCS
|
|
NCURSES_EXPORT(int)
|
|
typeahead(int fd)
|
|
{
|
|
return NCURSES_SP_NAME(typeahead) (CURRENT_SCREEN, fd);
|
|
}
|
|
#endif
|
|
|
|
/*
|
|
** has_key()
|
|
**
|
|
** Return TRUE if the current terminal has the given key
|
|
**
|
|
*/
|
|
|
|
#if NCURSES_EXT_FUNCS
|
|
static int
|
|
has_key_internal(int keycode, TRIES * tp)
|
|
{
|
|
if (tp == 0)
|
|
return (FALSE);
|
|
else if (tp->value == keycode)
|
|
return (TRUE);
|
|
else
|
|
return (has_key_internal(keycode, tp->child)
|
|
|| has_key_internal(keycode, tp->sibling));
|
|
}
|
|
|
|
#ifdef USE_TERM_DRIVER
|
|
NCURSES_EXPORT(int)
|
|
TINFO_HAS_KEY(SCREEN *sp, int keycode)
|
|
{
|
|
return IsValidTIScreen(sp) ?
|
|
has_key_internal(keycode, sp->_keytry) : 0;
|
|
}
|
|
#else
|
|
NCURSES_EXPORT(int)
|
|
NCURSES_SP_NAME(has_key) (NCURSES_SP_DCLx int keycode)
|
|
{
|
|
T((T_CALLED("has_key(%p,%d)"), (void *) SP_PARM, keycode));
|
|
returnCode(SP != 0 ? has_key_internal(keycode, SP_PARM->_keytry) : FALSE);
|
|
}
|
|
|
|
#if NCURSES_SP_FUNCS
|
|
NCURSES_EXPORT(int)
|
|
has_key(int keycode)
|
|
{
|
|
return NCURSES_SP_NAME(has_key) (CURRENT_SCREEN, keycode);
|
|
}
|
|
#endif
|
|
#endif
|
|
#endif /* NCURSES_EXT_FUNCS */
|
|
|
|
NCURSES_EXPORT(int)
|
|
NCURSES_SP_NAME(_nc_putp_flush) (NCURSES_SP_DCLx
|
|
const char *name, const char *value)
|
|
{
|
|
int rc = NCURSES_SP_NAME(_nc_putp) (NCURSES_SP_ARGx name, value);
|
|
if (rc != ERR) {
|
|
_nc_flush();
|
|
}
|
|
return rc;
|
|
}
|
|
|
|
#if 0 && NCURSES_SP_FUNCS
|
|
NCURSES_EXPORT(int)
|
|
_nc_putp_flush(const char *name, const char *value)
|
|
{
|
|
return NCURSES_SP_NAME(_nc_putp_flush) (CURRENT_SCREEN, name, value);
|
|
}
|
|
#endif
|
|
|
|
/* Turn the keypad on/off
|
|
*
|
|
* Note: we flush the output because changing this mode causes some terminals
|
|
* to emit different escape sequences for cursor and keypad keys. If we don't
|
|
* flush, then the next wgetch may get the escape sequence that corresponds to
|
|
* the terminal state _before_ switching modes.
|
|
*/
|
|
NCURSES_EXPORT(int)
|
|
_nc_keypad(SCREEN *sp, int flag)
|
|
{
|
|
int rc = ERR;
|
|
|
|
if (sp != 0) {
|
|
#ifdef USE_PTHREADS
|
|
/*
|
|
* We might have this situation in a multithreaded application that
|
|
* has wgetch() reading in more than one thread. putp() and below
|
|
* may use SP explicitly.
|
|
*/
|
|
if (_nc_use_pthreads && sp != CURRENT_SCREEN) {
|
|
SCREEN *save_sp;
|
|
|
|
/* cannot use use_screen(), since that is not in tinfo library */
|
|
_nc_lock_global(curses);
|
|
save_sp = CURRENT_SCREEN;
|
|
_nc_set_screen(sp);
|
|
rc = _nc_keypad(sp, flag);
|
|
_nc_set_screen(save_sp);
|
|
_nc_unlock_global(curses);
|
|
} else
|
|
#endif
|
|
{
|
|
#ifdef USE_TERM_DRIVER
|
|
rc = CallDriver_1(sp, kpad, flag);
|
|
if (rc == OK)
|
|
sp->_keypad_on = flag;
|
|
#else
|
|
if (flag) {
|
|
(void) NCURSES_SP_NAME(_nc_putp_flush) (NCURSES_SP_ARGx
|
|
"keypad_xmit",
|
|
keypad_xmit);
|
|
} else if (!flag && keypad_local) {
|
|
(void) NCURSES_SP_NAME(_nc_putp_flush) (NCURSES_SP_ARGx
|
|
"keypad_local",
|
|
keypad_local);
|
|
}
|
|
|
|
if (flag && !sp->_tried) {
|
|
_nc_init_keytry(sp);
|
|
sp->_tried = TRUE;
|
|
}
|
|
sp->_keypad_on = flag;
|
|
rc = OK;
|
|
#endif
|
|
}
|
|
}
|
|
return (rc);
|
|
}
|