wget_wch(WINDOW *win, wint_t *result)
{
int code;
char buffer[(MB_LEN_MAX * 9) + 1]; /* allow some redundant shifts */
int status;
size_t count = 0;
unsigned long value;
wchar_t wch;
#ifndef state_unused
mbstate_t state;
#endif
T((T_CALLED("wget_wch(%p)"), win));
/*
* We can get a stream of single-byte characters and KEY_xxx codes from
* _nc_wgetch(), while we want to return a wide character or KEY_xxx code.
*/
for (;;) {
T(("reading %d of %d", count + 1, sizeof(buffer)));
code = _nc_wgetch(win, &value, TRUE);
if (code == ERR) {
break;
} else if (code == KEY_CODE_YES) {
/*
* If we were processing an incomplete multibyte character, return
* an error since we have a KEY_xxx code which interrupts it. For
* some cases, we could improve this by writing a new version of
* lib_getch.c(!), but it is not clear whether the improvement
* would be worth the effort.
*/
if (count != 0) {
ungetch((int) value);
code = ERR;
}
break;
} else if (count + 1 >= sizeof(buffer)) {
ungetch((int) value);
code = ERR;
break;
} else {
buffer[count++] = UChar(value);
reset_mbytes(state);
status = count_mbytes(buffer, count, state);
if (status >= 0) {
reset_mbytes(state);
if (check_mbytes(wch, buffer, count, state) != status) {
code = ERR; /* the two calls should match */
ungetch((int) value);
}
value = wch;
break;
}
}
}
*result = value;
T(("result %#lo", value));
returnCode(code);
}
wgetch(WINDOW *win)
{
int code;
unsigned long value;
T((T_CALLED("wgetch(%p)"), win));
code = _nc_wgetch(win,
&value,
(SP ? SP->_use_meta : 0)
EVENTLIST_2nd((_nc_eventlist *) 0));
if (code != ERR)
code = value;
returnCode(code);
}
wgetch_events(WINDOW *win, _nc_eventlist * evl)
{
int code;
unsigned long value;
T((T_CALLED("wgetch_events(%p,%p)"), win, evl));
code = _nc_wgetch(win,
&value,
SP->_use_meta
EVENTLIST_2nd(evl));
if (code != ERR)
code = value;
returnCode(code);
}
wget_wch(WINDOW *win, wint_t *result)
{
SCREEN *sp;
int code;
char buffer[(MB_LEN_MAX * 9) + 1]; /* allow some redundant shifts */
int status;
size_t count = 0;
int value = 0;
wchar_t wch;
#ifndef state_unused
mbstate_t state;
#endif
T((T_CALLED("wget_wch(%p)"), (void *) win));
/*
* We can get a stream of single-byte characters and KEY_xxx codes from
* _nc_wgetch(), while we want to return a wide character or KEY_xxx code.
*/
_nc_lock_global(curses);
sp = _nc_screen_of(win);
if (sp != 0) {
for (;;) {
T(("reading %d of %d", (int) count + 1, (int) sizeof(buffer)));
code = _nc_wgetch(win, &value, TRUE EVENTLIST_2nd((_nc_eventlist
*) 0));
if (code == ERR) {
break;
} else if (code == KEY_CODE_YES) {
/*
* If we were processing an incomplete multibyte character,
* return an error since we have a KEY_xxx code which
* interrupts it. For some cases, we could improve this by
* writing a new version of lib_getch.c(!), but it is not clear
* whether the improvement would be worth the effort.
*/
if (count != 0) {
safe_ungetch(SP_PARM, value);
code = ERR;
}
break;
} else if (count + 1 >= sizeof(buffer)) {
safe_ungetch(SP_PARM, value);
code = ERR;
break;
} else {
buffer[count++] = (char) UChar(value);
reset_mbytes(state);
status = count_mbytes(buffer, count, state);
if (status >= 0) {
reset_mbytes(state);
if (check_mbytes(wch, buffer, count, state) != status) {
code = ERR; /* the two calls should match */
safe_ungetch(SP_PARM, value);
}
value = wch;
break;
}
}
}
} else {
code = ERR;
}
*result = (wint_t) value;
_nc_unlock_global(curses);
T(("result %#o", value));
returnCode(code);
}
