Import unmodified (but trimmed) ncurses 5.0 prerelease 990821.

This contains the full eti (panel, form, menu) extensions.
bmake glue to follow.

Obtained from:	ftp://ftp.clark.net/pub/dickey/ncurses

1 files changed, 219 insertions, 0 deletions

diff --git a/contrib/ncurses/test/hashtest.c b/contrib/ncurses/test/hashtest.c
new file mode 100644
index 0000000..514ac89
--- /dev/null
+++ b/contrib/ncurses/test/hashtest.c
@@ -0,0 +1,219 @@
+/*
+ * hashtest.c -- test hash mapping
+ *
+ * Generate timing statistics for vertical-motion optimization.
+ *
+ * $Id: hashtest.c,v 1.14 1998/06/13 22:45:39 tom Exp $
+ */
+
+#ifdef TRACE
+#define Trace(p) _tracef p
+#define USE_TRACE 1
+#else
+#define Trace(p) /* nothing */
+#endif
+
+#include <test.priv.h>
+
+#include <string.h>
+#include <ctype.h>
+#include <signal.h>
+
+#define LO_CHAR ' '
+#define HI_CHAR '~'
+
+static bool continuous = FALSE;
+static bool reverse_loops = FALSE;
+static bool single_step = FALSE;
+static bool extend_corner = FALSE;
+static int foot_lines = 0;
+static int head_lines = 0;
+
+static void cleanup(void)
+{
+	move(LINES-1,0);
+	clrtoeol();
+	refresh();
+	endwin();
+}
+
+static RETSIGTYPE finish(int sig GCC_UNUSED)
+{
+	cleanup();
+	exit(EXIT_FAILURE);
+}
+
+static void genlines(int base)
+{
+	int i, j;
+
+#if USE_TRACE
+	if (base == 'a')
+		Trace(("Resetting screen"));
+	else
+		Trace(("Painting `%c' screen", base));
+#endif
+
+	/* Do this so writes to lower-right corner don't cause a spurious
+	 * scrolling operation.  This _shouldn't_ break the scrolling
+	 * optimization, since that's computed in the refresh() call.
+	 */
+	scrollok(stdscr, FALSE);
+
+	move(0,0);
+	for (i = 0; i < head_lines; i++)
+		for (j = 0; j < COLS; j++)
+			addch((j % 8 == 0) ? ('A' + j/8) : '-');
+
+	move(head_lines, 0);
+	for (i = head_lines; i < LINES - foot_lines; i++) {
+		int c = (base - LO_CHAR + i) % (HI_CHAR - LO_CHAR + 1) + LO_CHAR;
+		int hi = (extend_corner || (i < LINES - 1)) ? COLS : COLS - 1;
+		for (j = 0; j < hi; j++)
+			addch(c);
+	}
+
+	for (i = LINES - foot_lines; i < LINES; i++) {
+		move(i, 0);
+		for (j = 0; j < (extend_corner ? COLS : COLS - 1); j++)
+			addch((j % 8 == 0) ? ('A' + j/8) : '-');
+	}
+
+	scrollok(stdscr, TRUE);
+	if (single_step) {
+		move(LINES-1, 0);
+		getch();
+	} else
+		refresh();
+}
+
+static void one_cycle(int ch)
+{
+	if (continuous) {
+		genlines(ch);
+	} else if (ch != 'a') {
+		genlines('a');
+		genlines(ch);
+	}
+}
+
+static void run_test(bool optimized)
+{
+	char	ch;
+	int	lo = continuous ? LO_CHAR : 'a' - LINES;
+	int	hi = continuous ? HI_CHAR : 'a' + LINES;
+
+	if (lo < LO_CHAR)
+		lo = LO_CHAR;
+	if (hi > HI_CHAR)
+		hi = HI_CHAR;
+
+#if defined(TRACE) || defined(NCURSES_TEST)
+	if (optimized) {
+		Trace(("With hash mapping"));
+		_nc_optimize_enable |= OPTIMIZE_HASHMAP;
+	} else {
+		Trace(("Without hash mapping"));
+		_nc_optimize_enable &= ~OPTIMIZE_HASHMAP;
+	}
+#endif
+
+	if (reverse_loops)
+		for (ch = hi; ch >= lo; ch--)
+			one_cycle(ch);
+	else
+		for (ch = lo; ch <= hi; ch++)
+			one_cycle(ch);
+}
+
+static void usage(void)
+{
+	static const char *const tbl[] = {
+		 "Usage: hashtest [options]"
+		,""
+		,"Options:"
+		,"  -c      continuous (don't reset between refresh's)"
+		,"  -f num  leave 'num' lines constant for footer"
+		,"  -h num  leave 'num' lines constant for header"
+		,"  -l num  repeat test 'num' times"
+		,"  -n      test the normal optimizer"
+		,"  -o      test the hashed optimizer"
+		,"  -r      reverse the loops"
+		,"  -s      single-step"
+		,"  -x      assume lower-right corner extension"
+	};
+	size_t n;
+
+	for (n = 0; n < sizeof(tbl)/sizeof(tbl[0]); n++)
+		fprintf(stderr, "%s\n", tbl[n]);
+	exit(EXIT_FAILURE);
+}
+
+int main(int argc, char *argv[])
+{
+	int c;
+	int test_loops = 1;
+	int test_normal = FALSE;
+	int test_optimize = FALSE;
+
+	while ((c = getopt(argc, argv, "cf:h:l:norsx")) != EOF) {
+		switch (c) {
+		case 'c':
+			continuous = TRUE;
+			break;
+		case 'f':
+			foot_lines = atoi(optarg);
+			break;
+		case 'h':
+			head_lines = atoi(optarg);
+			break;
+		case 'l':
+			test_loops = atoi(optarg);
+			break;
+		case 'n':
+			test_normal = TRUE;
+			break;
+		case 'o':
+			test_optimize = TRUE;
+			break;
+		case 'r':
+			reverse_loops = TRUE;
+			break;
+		case 's':
+			single_step = TRUE;
+			break;
+		case 'x':
+			extend_corner = TRUE;
+			break;
+		default:
+			usage();
+		}
+	}
+	if (!test_normal && !test_optimize) {
+		test_normal = TRUE;
+		test_optimize = TRUE;
+	}
+#if USE_TRACE
+	trace(TRACE_TIMES);
+#endif
+
+	(void) signal(SIGINT, finish);  /* arrange interrupts to terminate */
+
+	(void) initscr();      /* initialize the curses library */
+	keypad(stdscr, TRUE);  /* enable keyboard mapping */
+	(void) nonl();         /* tell curses not to do NL->CR/NL on output */
+	(void) cbreak();       /* take input chars one at a time, no wait for \n */
+	(void) noecho();       /* don't echo input */
+	scrollok(stdscr, TRUE);
+
+	while (test_loops-- > 0) {
+		if (test_normal)
+			run_test(FALSE);
+		if (test_optimize)
+			run_test(TRUE);
+	}
+
+	cleanup();               /* we're done */
+	return(EXIT_SUCCESS);
+}
+/* hashtest.c ends here */