#include <curses.priv.h>
#include <ctype.h>
#include <term.h>
MODULE_ID("$Id: lib_slk.c,v 1.1.1.1 2001/11/29 20:40:56 jevans Exp $")
NCURSES_EXPORT_VAR(int)
_nc_slk_format = 0;
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, (chtype) 'F');
if (i < 9)
waddch(win, (chtype) '1' + i);
else {
waddch(win, (chtype) '1');
waddch(win, (chtype) '0' + (i - 9));
}
}
}
}
}
NCURSES_EXPORT(int)
_nc_slk_initialize(WINDOW *stwin, int cols)
{
int i, x;
int res = OK;
char *p;
T(("slk_initialize()"));
if (SP->_slk) {
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) {
int gap = (cols - 3 * (3 + 4 * SP->_slk->maxlen)) / 2;
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) {
int gap = cols - (SP->_slk->maxlab * SP->_slk->maxlen) - 6;
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) ? gap : 1;
}
} else {
if (_nc_slk_format == 1) {
int gap = (cols - (SP->_slk->maxlab * SP->_slk->maxlen) - 5)
/ 2;
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 == 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_format = _nc_slk_format;
_nc_slk_format = 0;
return (res);
}
NCURSES_EXPORT(int)
slk_restore(void)
{
T((T_CALLED("slk_restore()")));
if (SP->_slk == NULL)
return (ERR);
SP->_slk->hidden = FALSE;
SP->_slk->dirty = TRUE;
slk_paint_info(SP->_slk->win);
returnCode(slk_refresh());
}