ncurses-4.2-990116

1 files changed, 194 insertions, 0 deletions

diff --git a/lib/libcurses/base/lib_getstr.c b/lib/libcurses/base/lib_getstr.c
new file mode 100644
index 00000000000..431a60cef5c
--- /dev/null
+++ b/lib/libcurses/base/lib_getstr.c
@@ -0,0 +1,194 @@
+/*	$OpenBSD: lib_getstr.c,v 1.1 1999/01/18 19:09:46 millert Exp $	*/
+
+/****************************************************************************
+ * Copyright (c) 1998 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>                         *
+ ****************************************************************************/
+
+
+/*
+**	lib_getstr.c
+**
+**	The routine wgetstr().
+**
+*/
+
+#include <curses.priv.h>
+#include <term.h>
+
+MODULE_ID("$From: lib_getstr.c,v 1.20 1998/12/20 00:16:01 tom Exp $")
+
+/*
+ * This wipes out the last character, no matter whether it was a tab, control
+ * or other character, and handles reverse wraparound.
+ */
+static char *WipeOut(WINDOW *win, int y, int x, char *first, char *last, bool echoed)
+{
+	if (last > first) {
+		*--last = '\0';
+		if (echoed) {
+			int y1 = win->_cury;
+			int x1 = win->_curx;
+
+			wmove(win, y, x);
+			waddstr(win, first);
+			getyx(win, y, x);
+			while (win->_cury < y1
+			   || (win->_cury == y1 && win->_curx < x1))
+				waddch(win, ' ');
+
+			wmove(win, y, x);
+		}
+	}
+	return last;
+}
+
+int wgetnstr(WINDOW *win, char *str, int maxlen)
+{
+TTY	buf;
+bool	oldnl, oldecho, oldraw, oldcbreak;
+char	erasec;
+char	killc;
+char	*oldstr;
+int ch;
+int	y, x;
+
+	T((T_CALLED("wgetnstr(%p,%p, %d)"), win, str, maxlen));
+
+	if (!win)
+	  returnCode(ERR);
+
+	_nc_get_tty_mode(&buf);
+
+	oldnl = SP->_nl;
+	oldecho = SP->_echo;
+	oldraw = SP->_raw;
+	oldcbreak = SP->_cbreak;
+	nl();
+	noecho();
+	noraw();
+	cbreak();
+
+	erasec = erasechar();
+	killc = killchar();
+
+	oldstr = str;
+	getyx(win, y, x);
+
+	if (is_wintouched(win) || (win->_flags & _HASMOVED))
+		wrefresh(win);
+
+	while ((ch = wgetch(win)) != ERR) {
+		/*
+		 * Some terminals (the Wyse-50 is the most common) generate
+		 * a \n from the down-arrow key.  With this logic, it's the
+		 * user's choice whether to set kcud=\n for wgetch();
+		 * terminating *getstr() with \n should work either way.
+		 */
+		if (ch == '\n'
+		 || ch == '\r'
+		 || ch == KEY_DOWN
+		 || ch == KEY_ENTER) {
+			if (oldecho == TRUE
+			 && win->_cury == win->_maxy
+			 && win->_scroll)
+				wechochar(win, '\n');
+			break;
+		}
+		if (ch == erasec || ch == KEY_LEFT || ch == KEY_BACKSPACE) {
+			if (str > oldstr) {
+				str = WipeOut(win, y, x, oldstr, str, oldecho);
+			}
+		} else if (ch == killc) {
+			while (str > oldstr) {
+				str = WipeOut(win, y, x, oldstr, str, oldecho);
+			}
+		} else if (ch >= KEY_MIN
+			   || (maxlen >= 0 && str - oldstr >= maxlen)) {
+			beep();
+		} else {
+			*str++ = ch;
+			if (oldecho == TRUE) {
+				int oldy = win->_cury;
+				if (waddch(win, ch) == ERR) {
+					/*
+					 * We can't really use the lower-right
+					 * corner for input, since it'll mess
+					 * up bookkeeping for erases.
+					 */
+					win->_flags &= ~_WRAPPED;
+					waddch(win, ' ');
+					str = WipeOut(win, y, x, oldstr, str, oldecho);
+					continue;
+				} else if (win->_flags & _WRAPPED) {
+					/*
+					 * If the last waddch forced a wrap &
+					 * scroll, adjust our reference point
+					 * for erasures.
+					 */
+					if (win->_scroll
+					 && oldy == win->_maxy
+					 && win->_cury == win->_maxy) {
+						if (--y <= 0) {
+							y = 0;
+						}
+					}
+					win->_flags &= ~_WRAPPED;
+				}
+				wrefresh(win);
+			}
+		}
+	}
+
+	win->_curx = 0;
+	win->_flags &= ~_WRAPPED;
+	if (win->_cury < win->_maxy)
+		win->_cury++;
+	wrefresh(win);
+
+	/* Restore with a single I/O call, to fix minor asymmetry between
+	 * raw/noraw, etc.
+	 */
+	SP->_nl = oldnl;
+	SP->_echo = oldecho;
+	SP->_raw = oldraw;
+	SP->_cbreak = oldcbreak;
+
+	_nc_set_tty_mode(&buf);
+
+	*str = '\0';
+	if (ch == ERR)
+		returnCode(ERR);
+
+	T(("wgetnstr returns %s", _nc_visbuf(oldstr)));
+
+	returnCode(OK);
+}