/* * CDDL HEADER START * * The contents of this file are subject to the terms of the * Common Development and Distribution License, Version 1.0 only * (the "License"). You may not use this file except in compliance * with the License. * * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE * or http://www.opensolaris.org/os/licensing. * See the License for the specific language governing permissions * and limitations under the License. * * When distributing Covered Code, include this CDDL HEADER in each * file and include the License file at usr/src/OPENSOLARIS.LICENSE. * If applicable, add the following below this CDDL HEADER, with the * fields enclosed by brackets "[]" replaced with your own identifying * information: Portions Copyright [yyyy] [name of copyright owner] * * CDDL HEADER END */ /* * Copyright (c) 1995, by Sun Microsystems, Inc. * All rights reserved. */ /* * wgetch.c * * XCurses Library * * Copyright 1990, 1995 by Mortice Kern Systems Inc. All rights reserved. * */ #ifdef M_RCSID #ifndef lint static char rcsID[] = "$Header: /rd/src/libc/xcurses/rcs/wgetch.c 1.5 1995/06/19 16:12:13 ant Exp $"; #endif #endif #include <private.h> /* * Push single-byte character back onto the input queue. * * MKS EXTENSION permits the return value of wgetch(), which * can be a KEY_ value, to be pushed back. */ int ungetch(ch) int ch; { int code; #ifdef M_CURSES_TRACE __m_trace("ungetch(%d)", ch); #endif code = __xc_ungetc(ch, (WINDOW *) 0) == EOF ? ERR : OK; return __m_return_code("ungetch", code); } /* * Push a single-byte character or KEY_ value but onto the * input queue. Ignore the window parameter. */ int __xc_ungetc(int ch, void *w) { if (ISFULL()) return EOF; PUSH(ch); return 0; } /* * Return true if the SCREEN's stream has an I/O error. * Ignore the window parameter. */ int __xc_ferror(void *w) { return ferror(__m_screen->_if); } /* * Return true if the SCREEN's stream has seen EOF. * Ignore the window parameter. */ int __xc_feof(void *w) { return feof(__m_screen->_if); } /* * Clear the error and eof flags of the SCREEN's stream. * Ignore the window parameter. */ void __xc_clearerr(void *w) { clearerr(__m_screen->_if); } int wgetch(w) WINDOW *w; { t_decode *node; int ch, i, j, timeout; #ifdef M_CURSES_TRACE __m_trace("wgetch(%p) at (%d, %d).", w, w->_cury, w->_curx); #endif (void) wrefresh(w); if (!ISEMPTY()) return __m_return_int("wgetch", POP()); /* Only change the terminal's input method if the window * requires different settings from what is currently set. * We do this because tcsetattr() on some systems can be * _really_ slow to do for each character. * * NOTE that halfdelay() overrides nodelay() and wtimeout(). */ if (!(cur_term->_flags & __TERM_HALF_DELAY) && (cur_term->_prog.c_cc[VMIN] != w->_vmin || cur_term->_prog.c_cc[VTIME] != w->_vtime)) { cur_term->_prog.c_cc[VMIN] = w->_vmin; cur_term->_prog.c_cc[VTIME] = w->_vtime; if (__m_tty_set(&cur_term->_prog) == ERR) return __m_return_int("wgetch", EOF); } if (req_for_input != (char *) 0) (void) tputs(req_for_input, 1, __m_outc); clearerr(__m_screen->_if); ch = fgetc(__m_screen->_if); /* Only check for function keys if keypad is true and we * did not read a KEY_ value (which are < 0), nor EOF. * It is conceivable that a KEY_ was pushed back with * ungetch(). */ if ((w->_flags & W_USE_KEYPAD) && 0 <= ch && ch != EOF) { /* Treat the termios ERASE key the same as key_backspace. * * We used to change the key_backspace entry to be a string * containing the ERASE key in setupterm(), but this would * then disable the real terminfo entry for the backspace key. * Apparently VT300 terminals change the key code/sequence * of the backspace key in application keypad mode. * See SR 6014. * * Refer to _shell instead of _prog, since _shell will * correctly reflect the user's prefered settings, whereas * _prog may not have been initialised if both input and * output have been redirected. */ #ifdef _POSIX_VDISABLE if (cur_term->_shell.c_cc[VERASE] != _POSIX_VDISABLE) #endif if (ch == cur_term->_shell.c_cc[VERASE]) return __m_return_int("wgetch", KEY_BACKSPACE); /* Begin check for function key. */ node = (t_decode *) __m_screen->_decode; /* Use input stack as a queue. */ timeout = w->_flags & W_USE_TIMEOUT; for (RESET(); !ISFULL(); ) { PUSH(ch); while (node->ch != ch) { node = node->sibling; if (node == (t_decode *) 0) goto invalid; } /* Found funuction key? */ if (node->key != 0) { RESET(); return __m_return_int("wgetch", node->key); } /* Setup interbyte timer (once only). fgetc() will * return EOF if no input received, which may not be * a true EOF. */ if (timeout) { cur_term->_prog.c_cc[VMIN] = 0; cur_term->_prog.c_cc[VTIME] = M_CURSES_INTERBYTE_TIME; (void) __m_tty_set(&cur_term->_prog); } timeout = 0; if ((ch = fgetc(__m_screen->_if)) == EOF) /* Timeout or real eof. */ break; /* Incomplete sequence, continue. */ node = node->child; } invalid: /* Reverse contents of the input queue to form a stack. */ for (i = 0, j = __m_screen->_unget._count; i < --j; ++i) { ch = __m_screen->_unget._stack[i]; __m_screen->_unget._stack[i] = __m_screen->_unget._stack[j]; __m_screen->_unget._stack[j] = ch; } /* Return first byte received or EOF. */ ch = POP(); } if ((__m_screen->_flags & S_ECHO) && 0 <= ch && ch != EOF) { (void) waddch(w, ch); (void) wrefresh(w); } return __m_return_int("wgetch", ch); }
