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, 308 insertions, 0 deletions

diff --git a/contrib/ncurses/panel/panel.c b/contrib/ncurses/panel/panel.c
new file mode 100644
index 0000000..7496643
--- /dev/null
+++ b/contrib/ncurses/panel/panel.c
@@ -0,0 +1,308 @@
+/****************************************************************************
+ * 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> 1995                    *
+ *     and: Eric S. Raymond <esr@snark.thyrsus.com>                         *
+ ****************************************************************************/
+
+/* panel.c -- implementation of panels library, some core routines */
+#include "panel.priv.h"
+
+MODULE_ID("$Id: panel.c,v 1.16 1998/09/19 21:26:31 Todd.Miller Exp $")
+
+#ifdef TRACE
+#ifndef TRACE_TXT
+const char *_nc_my_visbuf(const void *ptr)
+{
+	char temp[32];
+	if (ptr != 0)
+		sprintf(temp, "ptr:%p", ptr);
+	else
+		strcpy(temp, "<null>");
+	return _nc_visbuf(temp);
+}
+#endif
+#endif
+
+
+/*+-------------------------------------------------------------------------
+	dPanel(text,pan)
+--------------------------------------------------------------------------*/
+#ifdef TRACE
+void
+_nc_dPanel(const char *text, const PANEL *pan)
+{
+	_tracef("%s id=%s b=%s a=%s y=%d x=%d",
+		text, USER_PTR(pan->user),
+		(pan->below) ?  USER_PTR(pan->below->user) : "--",
+		(pan->above) ?  USER_PTR(pan->above->user) : "--",
+		pan->wstarty, pan->wstartx);
+}
+#endif
+
+/*+-------------------------------------------------------------------------
+	dStack(fmt,num,pan)
+--------------------------------------------------------------------------*/
+#ifdef TRACE
+void
+_nc_dStack(const char *fmt, int num, const PANEL *pan)
+{
+  char s80[80];
+
+  sprintf(s80,fmt,num,pan);
+  _tracef("%s b=%s t=%s",s80,
+	  (_nc_bottom_panel) ?  USER_PTR(_nc_bottom_panel->user) : "--",
+	  (_nc_top_panel)    ?  USER_PTR(_nc_top_panel->user)    : "--");
+  if(pan)
+    _tracef("pan id=%s", USER_PTR(pan->user));
+  pan = _nc_bottom_panel;
+  while(pan)
+    {
+      dPanel("stk",pan);
+      pan = pan->above;
+    }
+}
+#endif
+
+/*+-------------------------------------------------------------------------
+	Wnoutrefresh(pan) - debugging hook for wnoutrefresh
+--------------------------------------------------------------------------*/
+#ifdef TRACE
+void
+_nc_Wnoutrefresh(const PANEL *pan)
+{
+  dPanel("wnoutrefresh",pan);
+  wnoutrefresh(pan->win);
+}
+#endif
+
+/*+-------------------------------------------------------------------------
+	Touchpan(pan)
+--------------------------------------------------------------------------*/
+#ifdef TRACE
+void
+_nc_Touchpan(const PANEL *pan)
+{
+  dPanel("Touchpan",pan);
+  touchwin(pan->win);
+}
+#endif
+
+/*+-------------------------------------------------------------------------
+	Touchline(pan,start,count)
+--------------------------------------------------------------------------*/
+#ifdef TRACE
+void
+_nc_Touchline(const PANEL *pan, int start, int count)
+{
+  char s80[80];
+  sprintf(s80,"Touchline s=%d c=%d",start,count);
+  dPanel(s80,pan);
+  touchline(pan->win,start,count);
+}
+#endif
+
+/*+-------------------------------------------------------------------------
+	__panels_overlapped(pan1,pan2) - check panel overlapped
+--------------------------------------------------------------------------*/
+static INLINE bool
+__panels_overlapped(register const PANEL *pan1, register const PANEL *pan2)
+{
+  if(!pan1 || !pan2)
+    return(FALSE);
+
+  dBug(("__panels_overlapped %s %s", USER_PTR(pan1->user), USER_PTR(pan2->user)));
+  /* pan1 intersects with pan2 ? */
+  if( (((pan1->wstarty >= pan2->wstarty) && (pan1->wstarty < pan2->wendy)) ||
+       ((pan2->wstarty >= pan1->wstarty) && (pan2->wstarty < pan1->wendy))) &&
+      (((pan1->wstartx >= pan2->wstartx) && (pan1->wstartx < pan2->wendx)) ||
+       ((pan2->wstartx >= pan1->wstartx) && (pan2->wstartx < pan1->wendx)))
+      ) return(TRUE);
+  else {
+    dBug(("  no"));
+    return(FALSE);
+  }
+}
+
+/*+-------------------------------------------------------------------------
+	_nc_free_obscure(pan)
+--------------------------------------------------------------------------*/
+void
+_nc_free_obscure(PANEL *pan)
+{
+  PANELCONS *tobs = pan->obscure;			/* "this" one */
+  PANELCONS *nobs;					/* "next" one */
+
+  while(tobs)
+    {
+      nobs = tobs->above;
+      free((char *)tobs);
+      tobs = nobs;
+    }
+  pan->obscure = (PANELCONS *)0;
+}
+
+/*+-------------------------------------------------------------------------
+	__override(pan,show)
+--------------------------------------------------------------------------*/
+void
+_nc_override(const PANEL *pan, int show)
+{
+  int y;
+  PANEL *pan2;
+  PANELCONS *tobs = pan->obscure;			   /* "this" one */
+
+  dBug(("_nc_override %s,%d", USER_PTR(pan->user),show));
+
+  switch (show)
+    {
+    case P_TOUCH:
+      Touchpan(pan);
+      /* The following while loop will now mark all panel window lines
+       * obscured by use or obscuring us as touched, so they will be
+       * updated.
+       */
+      break;
+    case P_UPDATE:
+      while(tobs && (tobs->pan != pan))
+	tobs = tobs->above;
+      /* The next loop will now only go through the panels obscuring pan;
+       * it updates all the lines in the obscuring panels in sync. with
+       * the lines touched in pan itself. This is called in update_panels()
+       * in a loop from the bottom_panel to the top_panel, resulting in
+       * the desired update effect.
+       */
+      break;
+    default:
+      return;
+    }
+
+  while(tobs)
+    {
+      if((pan2 = tobs->pan) != pan) {
+	dBug(("test obs pan=%s pan2=%s", USER_PTR(pan->user), USER_PTR(pan2->user)));
+	for(y = pan->wstarty; y < pan->wendy; y++) {
+	  if( (y >= pan2->wstarty) && (y < pan2->wendy) &&
+	      ((is_linetouched(pan->win,y - pan->wstarty) == TRUE)) )
+	    Touchline(pan2,y - pan2->wstarty,1);
+	}
+      }
+      tobs = tobs->above;
+    }
+}
+
+/*+-------------------------------------------------------------------------
+	__calculate_obscure()
+--------------------------------------------------------------------------*/
+void
+_nc_calculate_obscure(void)
+{
+  PANEL *pan;
+  PANEL *pan2;
+  PANELCONS *tobs;			/* "this" one */
+  PANELCONS *lobs = (PANELCONS *)0;	/* last one */
+
+  pan = _nc_bottom_panel;
+  while(pan)
+    {
+      if(pan->obscure)
+	_nc_free_obscure(pan);
+      dBug(("--> __calculate_obscure %s", USER_PTR(pan->user)));
+      lobs = (PANELCONS *)0;		/* last one */
+      pan2 = _nc_bottom_panel;
+      /* This loop builds a list of panels obsured by pan or obscuring
+	 pan; pan itself is in the list; all panels before pan are
+	 obscured by pan, all panels after pan are obscuring pan. */
+      while(pan2)
+	{
+	  if(__panels_overlapped(pan,pan2))
+	    {
+	      if(!(tobs = (PANELCONS *)malloc(sizeof(PANELCONS))))
+		return;
+	      tobs->pan = pan2;
+	      dPanel("obscured",pan2);
+	      tobs->above = (PANELCONS *)0;
+	      if(lobs)
+		lobs->above = tobs;
+	      else
+		pan->obscure = tobs;
+	      lobs  = tobs;
+	    }
+	  pan2 = pan2->above;
+	}
+      _nc_override(pan,P_TOUCH);
+      pan = pan->above;
+    }
+}
+
+/*+-------------------------------------------------------------------------
+	_nc_panel_is_linked(pan) - check to see if panel is in the stack
+--------------------------------------------------------------------------*/
+bool
+_nc_panel_is_linked(const PANEL *pan)
+{
+  /* This works! The only case where it would fail is, when the list has
+     only one element. But this could only be the pseudo panel at the bottom */
+  return ( ((pan->above!=(PANEL *)0) ||
+	    (pan->below!=(PANEL *)0) ||
+	    (pan==_nc_bottom_panel)) ? TRUE : FALSE );
+}
+
+
+/*+-------------------------------------------------------------------------
+	__panel_link_bottom(pan) - link panel into stack at bottom
+--------------------------------------------------------------------------*/
+void
+_nc_panel_link_bottom(PANEL *pan)
+{
+#ifdef TRACE
+  dStack("<lb%d>",1,pan);
+  if(_nc_panel_is_linked(pan))
+    return;
+#endif
+
+  pan->above = (PANEL *)0;
+  pan->below = (PANEL *)0;
+  if(_nc_bottom_panel)
+    { /* the stdscr pseudo panel always stays real bottom;
+         so we insert after bottom panel*/
+      pan->below = _nc_bottom_panel;
+      pan->above = _nc_bottom_panel->above;
+      if (pan->above)
+	pan->above->below = pan;
+      _nc_bottom_panel->above = pan;
+    }
+  else
+    _nc_bottom_panel = pan;
+  if(!_nc_top_panel)
+    _nc_top_panel = pan;
+  assert(_nc_bottom_panel == _nc_stdscr_pseudo_panel);
+  _nc_calculate_obscure();
+  dStack("<lb%d>",9,pan);
+}