ncurses-4.2-990116

1 files changed, 245 insertions, 0 deletions

diff --git a/lib/libcurses/tinfo/lib_tputs.c b/lib/libcurses/tinfo/lib_tputs.c
new file mode 100644
index 00000000000..e4c778332df
--- /dev/null
+++ b/lib/libcurses/tinfo/lib_tputs.c
@@ -0,0 +1,245 @@
+/*	$OpenBSD: lib_tputs.c,v 1.1 1999/01/18 19:10:20 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>                         *
+ ****************************************************************************/
+
+
+/*
+ *	tputs.c
+ *		delay_output()
+ *		_nc_outch()
+ *		tputs()
+ *
+ */
+
+#include <curses.priv.h>
+#include <ctype.h>
+#include <term.h>	/* padding_baud_rate, xon_xoff */
+#include <termcap.h>	/* ospeed */
+#include <tic.h>
+
+MODULE_ID("$From: lib_tputs.c,v 1.38 1999/01/10 00:57:41 tom Exp $")
+
+#define OUTPUT ((SP != 0) ? SP->_ofp : stdout)
+
+char PC;		/* used by termcap library */
+speed_t ospeed;		/* used by termcap library */
+
+int _nc_nulls_sent;	/* used by 'tack' program */
+
+static int (*my_outch)(int c) = _nc_outch;
+
+int delay_output(int ms)
+{
+	T((T_CALLED("delay_output(%d)"), ms));
+
+	if (no_pad_char)
+		napms(ms);
+	else {
+		register int	nullcount;
+
+		nullcount = (ms * _nc_baudrate(ospeed)) / 10000;
+		for (_nc_nulls_sent += nullcount; nullcount > 0; nullcount--)
+			my_outch(PC);
+		if (my_outch == _nc_outch)
+			(void) fflush(OUTPUT);
+	}
+
+	returnCode(OK);
+}
+
+int _nc_outch(int ch)
+{
+#ifdef TRACE
+    	_nc_outchars++;
+#endif /* TRACE */
+
+	putc(ch, OUTPUT);
+	return OK;
+}
+
+int putp(const char *string)
+{
+	return tputs(string, 1, _nc_outch);
+}
+
+int tputs(const char *string, int affcnt, int (*outc)(int))
+{
+bool	always_delay;
+bool	normal_delay;
+int	number;
+#ifdef BSD_TPUTS
+int	trailpad;
+#endif /* BSD_TPUTS */
+
+#ifdef TRACE
+char	addrbuf[32];
+
+	if (_nc_tracing & TRACE_TPUTS)
+	{
+		if (outc == _nc_outch)
+			(void) strcpy(addrbuf, "_nc_outch");
+		else
+			(void) sprintf(addrbuf, "%p", outc);
+		if (_nc_tputs_trace) {
+			TR(TRACE_MAXIMUM, ("tputs(%s = %s, %d, %s) called", _nc_tputs_trace, _nc_visbuf(string), affcnt, addrbuf));
+		}
+		else {
+			TR(TRACE_MAXIMUM, ("tputs(%s, %d, %s) called", _nc_visbuf(string), affcnt, addrbuf));
+		}
+		_nc_tputs_trace = (char *)NULL;
+	}
+#endif /* TRACE */
+	
+	if (string == ABSENT_STRING || string == CANCELLED_STRING)
+		return ERR;
+
+	if (cur_term == 0) {
+		always_delay = FALSE;
+		normal_delay = TRUE;
+	} else {
+		always_delay = (string == bell) || (string == flash_screen);
+		normal_delay =
+		 !xon_xoff
+		 && padding_baud_rate
+#ifdef NCURSES_NO_PADDING
+		 && (SP == 0 || !(SP->_no_padding))
+#endif
+		 && (_nc_baudrate(ospeed) >= padding_baud_rate);
+	}
+
+#ifdef BSD_TPUTS
+	/*
+	 * This ugly kluge deals with the fact that some ancient BSD programs
+	 * (like nethack) actually do the likes of tputs("50") to get delays.
+	 */
+	trailpad = 0;
+	if (isdigit(*string)) {
+		while (isdigit(*string)) {
+			trailpad = trailpad * 10 + (*string - '0');
+			string++;
+		}
+		trailpad *= 10;
+		if (*string == '.') {
+			string++;
+			if (isdigit(*string)) {
+				trailpad += (*string - '0');
+				string++;
+			}
+			while (isdigit(*string))
+				string++;
+		}
+
+		if (*string == '*') {
+			trailpad *= affcnt;
+			string++;
+		}
+	}
+#endif /* BSD_TPUTS */
+
+	my_outch = outc;	/* redirect delay_output() */
+	while (*string) {
+		if (*string != '$')
+			(*outc)(*string);
+		else {
+			string++;
+			if (*string != '<') {
+				(*outc)('$');
+				if (*string)
+				    (*outc)(*string);
+			} else {
+				bool mandatory;
+
+				string++;
+				if ((!isdigit(*string) && *string != '.') || !strchr(string, '>')) {
+					(*outc)('$');
+					(*outc)('<');
+					continue;
+				}
+
+				number = 0;
+				while (isdigit(*string)) {
+					number = number * 10 + (*string - '0');
+					string++;
+				}
+				number *= 10;
+				if (*string == '.') {
+					string++;
+					if (isdigit(*string)) {
+						number += (*string - '0');
+						string++;
+					}
+					while (isdigit(*string))
+						string++;
+				}
+
+				mandatory = FALSE;
+				while (*string == '*' || *string == '/')
+				{
+					if (*string == '*') {
+						number *= affcnt;
+						string++;
+					}
+					else /* if (*string == '/') */ {
+						mandatory = TRUE;
+						string++;
+					}
+				}
+
+				if (number > 0
+				 && (always_delay
+				  || normal_delay
+				  || mandatory))
+					delay_output(number/10);
+
+			} /* endelse (*string == '<') */
+		} /* endelse (*string == '$') */
+
+		if (*string == '\0')
+			break;
+
+		string++;
+	}
+
+#ifdef BSD_TPUTS
+	/*
+	 * Emit any BSD-style prefix padding that we've accumulated now.
+	 */
+	if (trailpad > 0
+	 && (always_delay || normal_delay))
+		delay_output(trailpad/10);
+#endif /* BSD_TPUTS */
+
+	my_outch = _nc_outch;
+	return OK;
+}