freebsd-src/gnu/lib/libdialog/kernel.c
Jordan K. Hubbard ae5b2dcf86 Add another hateful global to libdialog (what the heck, there are already
so many).  For now, the only extended attribute implemented is NO ECHO,
useful for things like passwords.  See TESTS/input2.c for an example.
This should go into 2.2.
1996-12-14 16:14:21 +00:00

528 lines
14 KiB
C

/*
* dialog - Display simple dialog boxes from shell scripts
*
* AUTHOR: Savio Lam (lam836@cs.cuhk.hk)
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*
*
* HISTORY:
*
* 17/12/93 - Version 0.1 released.
*
* 19/12/93 - menu will now scroll if there are more items than can fit
* on the screen.
* - added 'checklist', a dialog box with a list of options that
* can be turned on or off. A list of options that are on is
* returned on exit.
*
* 20/12/93 - Version 0.15 released.
*
* 29/12/93 - Incorporated patch from Patrick J. Volkerding
* (volkerdi@mhd1.moorhead.msus.edu) that made these changes:
* - increased MAX_LEN to 2048
* - added 'infobox', equivalent to a message box without pausing
* - added option '--clear' that will clear the screen
* - Explicit line breaking when printing prompt text can be
* invoked by real newline '\n' besides the string "\n"
* - an optional parameter '--title <string>' can be used to
* specify a title string for the dialog box
*
* 03/01/94 - added 'textbox', a dialog box for displaying text from a file.
* - Version 0.2 released.
*
* 04/01/94 - some fixes and improvements for 'textbox':
* - fixed a bug that will cause a segmentation violation when a
* line is longer than MAX_LEN characters. Lines will now be
* truncated if they are longer than MAX_LEN characters.
* - removed wrefresh() from print_line(). This will increase
* efficiency of print_page() which calls print_line().
* - display current position in the form of percentage into file.
* - Version 0.21 released.
*
* 05/01/94 - some changes for faster screen update.
*
* 07/01/94 - much more flexible color settings. Can use all 16 colors
* (8 normal, 8 highlight) of the Linux console.
*
* 08/01/94 - added run-time configuration using configuration file.
*
* 09/01/94 - some minor bug fixes and cleanups for menubox, checklist and
* textbox.
*
* 11/01/94 - added a man page.
*
* 13/01/94 - some changes for easier porting to other Unix systems (tested
* on Ultrix, SunOS and HPUX)
* - Version 0.3 released.
*
* 08/06/94 - Patches by Stuart Herbert - S.Herbert@shef.ac.uk
* Fixed attr_clear and the textbox stuff to work with ncurses 1.8.5
* Fixed the wordwrap routine - it'll actually wrap properly now
* Added a more 3D look to everything - having your own rc file could
* prove 'interesting' to say the least :-)
* Added radiolist option
* - Version 0.4 released.
*/
#define __DIALOG_MAIN__
#include <dialog.h>
#include "dialog.priv.h"
#ifdef HAVE_NCURSES
#include "colors.h"
#endif
/* These are two "secret" globals that can be fiddled to make a dialog
* come up someplace other than a "centered" calculation for X,Y
*/
int DialogX, DialogY;
/* This "secret" global allows you to change the behavior of an input field */
int DialogInputAttrs;
/*
* Do some initialization for dialog
*/
void init_dialog(void)
{
#if defined(LOCALE)
(void) setlocale(LC_ALL, "");
#endif
#ifdef HAVE_NCURSES
if (parse_rc() == -1) /* Read the configuration file */
exit(-1);
#endif
if (initscr() == NULL) { /* Init curses */
fprintf(stderr, "\nCurses initialization error.\n");
exit(-1);
}
keypad(stdscr, TRUE);
cbreak();
noecho();
#ifdef HAVE_NCURSES
if (use_colors || use_shadow) /* Set up colors */
color_setup();
#endif
/* Set screen to screen attribute */
dialog_clear_norefresh();
DialogX = DialogY = 0;
}
/* End of init_dialog() */
#ifdef HAVE_NCURSES
/*
* Setup for color display
*/
void color_setup(void)
{
int i;
if (has_colors()) { /* Terminal supports color? */
start_color();
/* Initialize color pairs */
for (i = 0; i < ATTRIBUTE_COUNT; i++)
init_pair(i+1, color_table[i][0], color_table[i][1]);
/* Setup color attributes */
for (i = 0; i < ATTRIBUTE_COUNT; i++)
attributes[i] = C_ATTR(color_table[i][2], i+1);
}
}
/* End of color_setup() */
#endif
/*
* Set window to attribute 'attr'
*/
void attr_clear(WINDOW *win, int height, int width, chtype attr)
{
int i, j;
wattrset(win, attr); /* Set window to attribute 'attr' */
for (i = 0; i < height; i++) {
wmove(win, i, 0);
for (j = 0; j < width; j++)
waddch(win, ' ');
}
}
/* End of attr_clear() */
/*
* Print a string of text in a window, automatically wrap around to the
* next line if the string is too long to fit on one line. Note that the
* string may contain "\n" to represent a newline character or the real
* newline '\n', but in that case, auto wrap around will be disabled.
*/
void print_autowrap(WINDOW *win, unsigned char *prompt, int height, int width, int maxwidth, int y, int x, int center, int rawmode)
{
int cur_x, cur_y, i;
unsigned char tempstr[MAX_LEN+1], *word, *tempptr, *tempptr1;
chtype ostuff[132], attrs = 0, init_bottom = 0;
wsetscrreg(win, y, height);
getyx(win, cur_y, cur_x);
strncpy(tempstr, prompt, MAX_LEN);
tempstr[MAX_LEN] = '\0';
if ((!rawmode && strstr(tempstr, "\\n") != NULL) ||
(strchr(tempstr, '\n') != NULL)) { /* Prompt contains "\n" or '\n' */
word = tempstr;
while (1) {
tempptr = rawmode ? NULL : strstr(word, "\\n");
tempptr1 = strchr(word, '\n');
if (tempptr == NULL && tempptr1 == NULL)
break;
else if (tempptr == NULL) { /* No more "\n" */
tempptr = tempptr1;
tempptr[0] = '\0';
}
else if (tempptr1 == NULL) { /* No more '\n' */
tempptr[0] = '\0';
tempptr++;
}
else { /* Prompt contains both "\n" and '\n' */
if (strlen(tempptr)-2 < strlen(tempptr1)-1) {
tempptr = tempptr1;
tempptr[0] = '\0';
}
else {
tempptr[0] = '\0';
tempptr++;
}
}
waddstr(win, word);
word = tempptr + 1;
if (++cur_y > height) {
cur_y--;
if (!init_bottom) {
for (i = 0; i < x; i++)
ostuff[i] = mvwinch(win, cur_y, i);
for (i = width; i < maxwidth; i++)
ostuff[i] = mvwinch(win, cur_y, i);
attrs = getattrs(win);
init_bottom = 1;
}
scrollok(win, TRUE);
scroll(win);
scrollok(win, FALSE);
wmove(win, cur_y, 0);
for (i = 0; i < x; i++) {
wattrset(win, ostuff[i]&A_ATTRIBUTES);
waddch(win, ostuff[i]);
}
wattrset(win, attrs);
for ( ; i < width; i++)
waddch(win, ' ');
for ( ; i < maxwidth; i++) {
wattrset(win, ostuff[i]&A_ATTRIBUTES);
waddch(win, ostuff[i]);
}
wattrset(win, attrs);
wrefresh(win);
}
wmove(win, cur_y, cur_x = x);
}
waddstr(win, word);
}
else if (center && strlen(tempstr) <= width-x*2) { /* If prompt is short */
wmove(win, cur_y, (width - strlen(tempstr)) / 2);
waddstr(win, tempstr);
}
else if (!center && strlen(tempstr) <= width-cur_x) { /* If prompt is short */
waddstr(win, tempstr);
}
else {
char *p = tempstr;
/* Print prompt word by word, wrap around if necessary */
while ((word = strsep(&p, "\t\n ")) != NULL) {
int loop;
unsigned char sc;
if (*word == '\0')
continue;
do {
loop = 0;
if (cur_x+strlen(word) >= width+1) { /* wrap around to next line */
if (x+strlen(word) >= width+1) {
sc = word[width-cur_x-1];
word[width-cur_x-1] = '\0';
wmove(win, cur_y, cur_x);
waddstr(win, word);
word[width-cur_x-1] = sc;
word += width-cur_x-1;
getyx(win, cur_y, cur_x);
loop = 1;
}
cur_y++;
cur_x = x;
if (cur_y > height) {
cur_y--;
if (!init_bottom) {
for (i = 0; i < x; i++)
ostuff[i] = mvwinch(win, cur_y, i);
for (i = width; i < maxwidth; i++)
ostuff[i] = mvwinch(win, cur_y, i);
attrs = getattrs(win);
init_bottom = 1;
}
scrollok(win, TRUE);
scroll(win);
scrollok(win, FALSE);
wmove(win, cur_y, 0);
for (i = 0; i < x; i++) {
wattrset(win, ostuff[i]&A_ATTRIBUTES);
waddch(win, ostuff[i]);
}
wattrset(win, attrs);
for ( ; i < width; i++)
waddch(win, ' ');
for ( ; i < maxwidth; i++) {
wattrset(win, ostuff[i]&A_ATTRIBUTES);
waddch(win, ostuff[i]);
}
wattrset(win, attrs);
wrefresh(win);
}
}
}
while(loop);
wmove(win, cur_y, cur_x);
waddstr(win, word);
getyx(win, cur_y, cur_x);
cur_x++;
}
}
}
/* End of print_autowrap() */
/*
* Print a button
*/
void print_button(WINDOW *win, unsigned char *label, int y, int x, int selected)
{
int i, temp;
wmove(win, y, x);
wattrset(win, selected ? button_active_attr : button_inactive_attr);
waddstr(win, selected ? "[" : " ");
temp = strspn(label, " ");
label += temp;
for (i = 0; i < temp; i++)
waddch(win, ' ');
wattrset(win, selected ? button_key_active_attr : button_key_inactive_attr);
waddch(win, label[0]);
wattrset(win, selected ? button_active_attr : button_inactive_attr);
waddstr(win, label+1);
waddstr(win, selected ? "]" : " ");
wmove(win, y, x+temp+1);
}
/* End of print_button() */
/*
* Draw a rectangular box with line drawing characters
*/
void draw_box(WINDOW *win, int y, int x, int height, int width, chtype box, chtype border)
{
int i, j;
wattrset(win, 0);
for (i = 0; i < height; i++) {
wmove(win, y + i, x);
for (j = 0; j < width; j++)
if (!i && !j)
waddch(win, border | ACS_ULCORNER);
else if (i == height-1 && !j)
waddch(win, border | ACS_LLCORNER);
else if (!i && j == width-1)
waddch(win, box | ACS_URCORNER);
else if (i == height-1 && j == width-1)
waddch(win, box | ACS_LRCORNER);
else if (!i)
waddch(win, border | ACS_HLINE);
else if (i == height-1)
waddch(win, box | ACS_HLINE);
else if (!j)
waddch(win, border | ACS_VLINE);
else if (j == width-1)
waddch(win, box | ACS_VLINE);
else
waddch(win, box | ' ');
}
}
/* End of draw_box() */
#ifdef HAVE_NCURSES
/*
* Draw shadows along the right and bottom edge to give a more 3D look
* to the boxes
*/
void draw_shadow(WINDOW *win, int y, int x, int height, int width)
{
int i,sx,sy;
chtype attrs;
if (has_colors()) { /* Whether terminal supports color? */
getbegyx(win,sy,sx);
attrs = getattrs(win);
if (y+height < getmaxy(win)) {
/* small touch */
wattrset(win, A_INVIS);
wmove(win, y + height, x + 2);
for (i = 0; i < width; i++)
if (i+x+2 < getmaxx(win))
waddch(win, ' ');
/* end touch */
wattrset(win, shadow_attr);
wmove(win, y + height, x + 2);
for (i = 0; i < width; i++)
if (i+x+2 < getmaxx(win))
waddch(win, mvwinch(newscr, sy+y+height, sx+x+2+i) & A_CHARTEXT);
}
if (x+width < getmaxx(win)) {
for (i = y + 1; i < y + height + 1; i++) {
if (i < getmaxy(win)) {
/* small touch */
wattrset(win, A_INVIS);
wmove(win, i, x + width);
waddch(win, ' ');
if (x+width+1 < getmaxx(win))
waddch(win, ' ');
/* end touch */
wattrset(win, shadow_attr);
wmove(win, i, x + width);
waddch(win, mvwinch(newscr, sy+i, sx+x+width) & A_CHARTEXT);
if (x+width+1 < getmaxx(win))
waddch(win, mvwinch(newscr, sy+i, sx+x+width+1) & A_CHARTEXT);
}
}
}
wattrset(win, attrs);
wnoutrefresh(win);
}
}
/* End of draw_shadow() */
#endif
void dialog_clear_norefresh(void)
{
attr_clear(stdscr, LINES, COLS, screen_attr);
touchwin(stdscr);
wnoutrefresh(stdscr);
}
void dialog_clear(void)
{
dialog_clear_norefresh();
doupdate();
}
void dialog_update(void)
{
refresh();
}
void end_dialog(void)
{
endwin();
}
int strwidth(const char *p)
{
int i = 0, len, incr;
const char *start, *s, *s1, *s2;
for (start = s = p; ; start = (s += incr)) {
s1 = strchr(s, '\n');
s2 = strstr(s, "\\n");
if (s2 == NULL)
s = s1;
else if (s1 == NULL)
s = s2;
else
s = MIN(s1, s2);
if (s == NULL)
break;
incr = 1 + (s == s2);
len = s - start;
if (len > i)
i = len;
}
len = strlen(start);
if (len > i)
i = len;
return i;
}
int strheight(const char *p)
{
int i = 1, incr;
const char *s, *s1, *s2;
for (s = p; ; s += incr) {
s1 = strchr(s, '\n');
s2 = strstr(s, "\\n");
if (s2 == NULL)
s = s1;
else if (s1 == NULL)
s = s2;
else
s = MIN(s1, s2);
if (s == NULL)
break;
incr = 1 + (s == s2);
i++;
}
return i;
}
void print_arrows(WINDOW *dialog, int scroll, int menu_height, int item_no,
int box_x, int box_y, int tag_x, int cur_x, int cur_y)
{
wmove(dialog, box_y, box_x + tag_x + 1);
wattrset(dialog, scroll ? uarrow_attr : menubox_attr);
waddch(dialog, scroll ? ACS_UARROW : ACS_HLINE);
wmove(dialog, box_y, box_x + tag_x + 2);
waddch(dialog, scroll ? '(' : ACS_HLINE);
wmove(dialog, box_y, box_x + tag_x + 3);
waddch(dialog, scroll ? '-' : ACS_HLINE);
wmove(dialog, box_y, box_x + tag_x + 4);
waddch(dialog, scroll ? ')' : ACS_HLINE);
wmove(dialog, box_y + menu_height + 1, box_x + tag_x + 1);
wattrset(dialog, scroll+menu_height < item_no ? darrow_attr : menubox_border_attr);
waddch(dialog, scroll+menu_height < item_no ? ACS_DARROW : ACS_HLINE);
wmove(dialog, box_y + menu_height + 1, box_x + tag_x + 2);
waddch(dialog, scroll+menu_height < item_no ? '(' : ACS_HLINE);
wmove(dialog, box_y + menu_height + 1, box_x + tag_x + 3);
waddch(dialog, scroll+menu_height < item_no ? '+' : ACS_HLINE);
wmove(dialog, box_y + menu_height + 1, box_x + tag_x + 4);
waddch(dialog, scroll+menu_height < item_no ? ')' : ACS_HLINE);
wmove(dialog, cur_y, cur_x); /* Restore cursor position */
}