X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=ncurses%2Fbase%2Flib_slk.c;h=5609e3b59024c819f4c58573fc3e613fc04ee576;hp=9b9b09a4d064a2b0b11b748c7cbf593b821cfa08;hb=7a27c7d49c2e8b4a1ecbe85b4423d647cbc75ea5;hpb=0eb88fc5281804773e2a0c7a488a4452463535ce

diff --git a/ncurses/base/lib_slk.c b/ncurses/base/lib_slk.c
index 9b9b09a4..5609e3b5 100644
--- a/ncurses/base/lib_slk.c
+++ b/ncurses/base/lib_slk.c
@@ -1,5 +1,5 @@
 /****************************************************************************
- * Copyright (c) 1998 Free Software Foundation, Inc.                        *
+ * Copyright (c) 1998-2004,2005 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            *
@@ -27,8 +27,12 @@
  ****************************************************************************/
 
 /****************************************************************************
- *  Author: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995               *
- *     and: Eric S. Raymond <esr@snark.thyrsus.com>                         *
+ *  Authors:                                                                *
+ *          Gerhard Fuernkranz                      1993 (original)         *
+ *          Zeyd M. Ben-Halim                       1992,1995 (sic)         *
+ *          Eric S. Raymond                                                 *
+ *          Juergen Pfeifer                         1996-on                 *
+ *          Thomas E. Dickey                                                *
  ****************************************************************************/
 
 /*
@@ -39,15 +43,16 @@
 #include <curses.priv.h>
 
 #include <ctype.h>
-#include <term.h>	/* num_labels, label_*, plab_norm */
+#include <term.h>		/* num_labels, label_*, plab_norm */
 
-MODULE_ID("$Id: lib_slk.c,v 1.16 1999/03/03 23:44:22 juergen Exp $")
+MODULE_ID("$Id: lib_slk.c,v 1.30 2005/01/08 21:56:36 tom Exp $")
 
 /*
  * We'd like to move these into the screen context structure, but cannot,
  * because slk_init() is called before initscr()/newterm().
  */
-int _nc_slk_format;  /* one more than format specified in slk_init() */
+NCURSES_EXPORT_VAR(int)
+_nc_slk_format = 0;		/* one more than format specified in slk_init() */
 
 /*
  * Paint the info line for the PC style SLK emulation.
@@ -56,159 +61,160 @@ int _nc_slk_format;  /* one more than format specified in slk_init() */
 static void
 slk_paint_info(WINDOW *win)
 {
-  if (win && SP->slk_format==4)
-    {
-      int i;
-
-      mvwhline (win,0,0,0,getmaxx(win));
-      wmove (win,0,0);
-
-      for (i = 0; i < SP->_slk->maxlab; i++) {
-	if (win && SP->slk_format==4)
-	  {
-	    mvwaddch(win,0,SP->_slk->ent[i].x,'F');
-	    if (i<9)
-	      waddch(win,'1'+i);
-	    else
-	      {
-		waddch(win,'1');
-		waddch(win,'0' + (i-9));
-	      }
-	  }
-      }
+    if (win && SP->slk_format == 4) {
+	int i;
+
+	mvwhline(win, 0, 0, 0, getmaxx(win));
+	wmove(win, 0, 0);
+
+	for (i = 0; i < SP->_slk->maxlab; i++) {
+	    mvwprintw(win, 0, SP->_slk->ent[i].ent_x, "F%d", i + 1);
+	}
     }
 }
 
+/*
+ * Free any memory related to soft labels, return an error.
+ */
+static int
+slk_failed(void)
+{
+    if (SP->_slk) {
+	FreeIfNeeded(SP->_slk->ent);
+	free(SP->_slk);
+	SP->_slk = (SLK *) 0;
+    }
+    return ERR;
+}
+
 /*
  * Initialize soft labels.
  * Called from newterm()
  */
-int
+NCURSES_EXPORT(int)
 _nc_slk_initialize(WINDOW *stwin, int cols)
 {
-int i, x;
-int res = OK;
-char *p;
-
-	T(("slk_initialize()"));
-
-	if (SP->_slk)
-	  { /* we did this already, so simply return */
-	    return(OK);
-	  }
-	else
-	  if ((SP->_slk = typeCalloc(SLK, 1)) == 0)
-	    return(ERR);
-
-	SP->_slk->ent    = NULL;
-	SP->_slk->buffer = NULL;
-	SP->_slk->attr   = A_STANDOUT;
-
-	SP->_slk->maxlab = (num_labels > 0) ?
-	  num_labels : MAX_SKEY(_nc_slk_format);
-	SP->_slk->maxlen = (num_labels > 0) ?
-	  label_width * label_height : MAX_SKEY_LEN(_nc_slk_format);
-	SP->_slk->labcnt = (SP->_slk->maxlab < MAX_SKEY(_nc_slk_format)) ? 
-	  MAX_SKEY(_nc_slk_format) : SP->_slk->maxlab;
-
-	SP->_slk->ent = typeCalloc(slk_ent, SP->_slk->labcnt);
-	if (SP->_slk->ent == NULL)
-	  goto exception;
-
-	p = SP->_slk->buffer = (char*) calloc(2*SP->_slk->labcnt,(1+SP->_slk->maxlen));
-	if (SP->_slk->buffer == NULL)
-	  goto exception;
-
-	for (i = 0; i < SP->_slk->labcnt; i++) {
-		SP->_slk->ent[i].text = p;
-		p += (1 + SP->_slk->maxlen);
-		SP->_slk->ent[i].form_text = p;
-		p += (1 + SP->_slk->maxlen);
-		memset(SP->_slk->ent[i].form_text, ' ', (unsigned)(SP->_slk->maxlen));
-		SP->_slk->ent[i].visible = (i < SP->_slk->maxlab);
-	}
-	if (_nc_slk_format >= 3) /* PC style */
-	  {
-	    int gap = (cols - 3 * (3 + 4*SP->_slk->maxlen))/2;
+    int i, x;
+    int res = OK;
+    unsigned max_length;
+
+    T((T_CALLED("_nc_slk_initialize()")));
+
+    if (SP->_slk) {		/* we did this already, so simply return */
+	returnCode(OK);
+    } else if ((SP->_slk = typeCalloc(SLK, 1)) == 0)
+	returnCode(ERR);
+
+    SP->_slk->ent = NULL;
+
+    /*
+     * If we use colors, vidputs() will suppress video attributes that conflict
+     * with colors.  In that case, we're still guaranteed that "reverse" would
+     * work.
+     */
+    if ((no_color_video & 1) == 0)
+	SetAttr(SP->_slk->attr, A_STANDOUT);
+    else
+	SetAttr(SP->_slk->attr, A_REVERSE);
+
+    SP->_slk->maxlab = ((num_labels > 0)
+			? num_labels
+			: MAX_SKEY(_nc_slk_format));
+    SP->_slk->maxlen = ((num_labels > 0)
+			? label_width * label_height
+			: MAX_SKEY_LEN(_nc_slk_format));
+    SP->_slk->labcnt = ((SP->_slk->maxlab < MAX_SKEY(_nc_slk_format))
+			? MAX_SKEY(_nc_slk_format)
+			: SP->_slk->maxlab);
+
+    if (SP->_slk->maxlen <= 0
+	|| SP->_slk->labcnt <= 0
+	|| (SP->_slk->ent = typeCalloc(slk_ent,
+				       (unsigned) SP->_slk->labcnt)) == NULL)
+	returnCode(slk_failed());
+
+    max_length = SP->_slk->maxlen;
+    for (i = 0; i < SP->_slk->labcnt; i++) {
+	size_t used = max_length + 1;
+
+	if ((SP->_slk->ent[i].ent_text = (char *) _nc_doalloc(0, used)) == 0)
+	    returnCode(slk_failed());
+	memset(SP->_slk->ent[i].ent_text, 0, used);
+
+	if ((SP->_slk->ent[i].form_text = (char *) _nc_doalloc(0, used)) == 0)
+	    returnCode(slk_failed());
+	memset(SP->_slk->ent[i].form_text, 0, used);
+
+	memset(SP->_slk->ent[i].form_text, ' ', max_length);
+	SP->_slk->ent[i].visible = (i < SP->_slk->maxlab);
+    }
+    if (_nc_slk_format >= 3) {	/* PC style */
+	int gap = (cols - 3 * (3 + 4 * max_length)) / 2;
 
-	    if (gap < 1)
-	      gap = 1;
+	if (gap < 1)
+	    gap = 1;
 
-	    for (i = x = 0; i < SP->_slk->maxlab; i++) {
-	      SP->_slk->ent[i].x = x;
-	      x += SP->_slk->maxlen;
-	      x += (i==3 || i==7) ? gap : 1;
-	    }
-	    if (_nc_slk_format == 4)
-	      slk_paint_info (stwin);
-	  }
-	else {
-	  if (_nc_slk_format == 2) {	/* 4-4 */
-	    int gap = cols - (SP->_slk->maxlab * SP->_slk->maxlen) - 6;
+	for (i = x = 0; i < SP->_slk->maxlab; i++) {
+	    SP->_slk->ent[i].ent_x = x;
+	    x += max_length;
+	    x += (i == 3 || i == 7) ? gap : 1;
+	}
+	slk_paint_info(stwin);
+    } else {
+	if (_nc_slk_format == 2) {	/* 4-4 */
+	    int gap = cols - (SP->_slk->maxlab * max_length) - 6;
 
 	    if (gap < 1)
-			gap = 1;
+		gap = 1;
 	    for (i = x = 0; i < SP->_slk->maxlab; i++) {
-	      SP->_slk->ent[i].x = x;
-	      x += SP->_slk->maxlen;
-	      x += (i == 3) ? gap : 1;
+		SP->_slk->ent[i].ent_x = x;
+		x += max_length;
+		x += (i == 3) ? gap : 1;
 	    }
-	  }
-	  else
-	    {
-	      if (_nc_slk_format == 1) { /* 1 -> 3-2-3 */
-		int gap = (cols - (SP->_slk->maxlab * SP->_slk->maxlen) - 5) / 2;
+	} else {
+	    if (_nc_slk_format == 1) {	/* 1 -> 3-2-3 */
+		int gap = (cols - (SP->_slk->maxlab * max_length) - 5)
+		/ 2;
 
 		if (gap < 1)
-		  gap = 1;
+		    gap = 1;
 		for (i = x = 0; i < SP->_slk->maxlab; i++) {
-		  SP->_slk->ent[i].x = x;
-		  x += SP->_slk->maxlen;
-		  x += (i == 2 || i == 4) ? gap : 1;
-		}
-	      }
-	      else
-		goto exception;
-	    }
-	}
-	SP->_slk->dirty = TRUE;
-	if ((SP->_slk->win = stwin) == NULL)
-	{
-	exception:
-		if (SP->_slk)
-		{
-		   FreeIfNeeded(SP->_slk->buffer);
-		   FreeIfNeeded(SP->_slk->ent);
-		   free(SP->_slk);
-		   SP->_slk = (SLK*)0;
-		   res = (ERR);
+		    SP->_slk->ent[i].ent_x = x;
+		    x += max_length;
+		    x += (i == 2 || i == 4) ? gap : 1;
 		}
+	    } else
+		returnCode(slk_failed());
 	}
+    }
+    SP->_slk->dirty = TRUE;
+    if ((SP->_slk->win = stwin) == NULL) {
+	returnCode(slk_failed());
+    }
 
-	/* We now reset the format so that the next newterm has again
-	 * per default no SLK keys and may call slk_init again to
-	 * define a new layout. (juergen 03-Mar-1999)
-	 */
-	SP->slk_format = _nc_slk_format;
-	_nc_slk_format = 0;
-	return(res);
+    /* We now reset the format so that the next newterm has again
+     * per default no SLK keys and may call slk_init again to
+     * define a new layout. (juergen 03-Mar-1999)
+     */
+    SP->slk_format = _nc_slk_format;
+    _nc_slk_format = 0;
+    returnCode(res);
 }
 
-
 /*
  * Restore the soft labels on the screen.
  */
-int
+NCURSES_EXPORT(int)
 slk_restore(void)
 {
-	T((T_CALLED("slk_restore()")));
+    T((T_CALLED("slk_restore()")));
 
-	if (SP->_slk == NULL)
-		return(ERR);
-	SP->_slk->hidden = FALSE;
-	SP->_slk->dirty = TRUE;
-	/* we have to repaint info line eventually */
-	slk_paint_info(SP->_slk->win);
+    if (SP->_slk == NULL)
+	return (ERR);
+    SP->_slk->hidden = FALSE;
+    SP->_slk->dirty = TRUE;
+    /* we have to repaint info line eventually */
+    slk_paint_info(SP->_slk->win);
 
-	returnCode(slk_refresh());
+    returnCode(slk_refresh());
 }