1 files changed, 330 insertions, 0 deletions

diff --git a/gnu/lib/libdialog/kernel.c b/gnu/lib/libdialog/kernel.c
new file mode 100644
index 000000000000..4a45dd32e559
--- /dev/null
+++ b/gnu/lib/libdialog/kernel.c
@@ -0,0 +1,330 @@
+/*
+ *  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.priv.h"
+#include <dialog.h>
+#ifdef HAVE_NCURSES
+#include "colors.h"
+#endif
+
+/*
+ * 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
+
+  initscr();     /* Init curses */
+  keypad(stdscr, TRUE);
+  cbreak();
+  noecho();
+
+#ifdef HAVE_NCURSES
+  if (use_colors || use_shadow)    /* Set up colors */
+    color_setup();
+#endif
+
+  /* Set screen to screen attribute */
+  attr_clear(stdscr, LINES, COLS, screen_attr);
+  wnoutrefresh(stdscr);
+}
+/* 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 width, int y, int x)
+{
+  int first = 1, cur_x, cur_y;
+  unsigned char tempstr[MAX_LEN+1], *word, *tempptr, *tempptr1;
+
+  strcpy(tempstr, prompt);
+  if ((strstr(tempstr, "\\n") != NULL) ||
+      (strchr(tempstr, '\n') != NULL)) {    /* Prompt contains "\n" or '\n' */
+    word = tempstr;
+    cur_y = y;
+    wmove(win, cur_y, x);
+    while (1) {
+      tempptr = 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;
+      wmove(win, ++cur_y, x);
+    }
+    waddstr(win, word);
+  }
+  else if (strlen(tempstr) <= width-x*2) {    /* If prompt is short */
+    wmove(win, y, (width - strlen(tempstr)) / 2);
+    waddstr(win, tempstr);
+  }
+  else {
+    cur_x = x;
+    cur_y = y;
+    /* Print prompt word by word, wrap around if necessary */
+    while ((word = strtok(first ? tempstr : NULL, " ")) != NULL) {
+      if (first)    /* First iteration */
+        first = 0;
+      if (cur_x+strlen(word) >= width) {    /* wrap around to next line */
+        cur_y++;
+        cur_x = x;
+      }
+      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, "<");
+  temp = strspn(label, " ");
+  label += temp;
+  wattrset(win, selected ? button_label_active_attr : button_label_inactive_attr);
+  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_label_active_attr : button_label_inactive_attr);
+  waddstr(win, label+1);
+  wattrset(win, selected ? button_active_attr : button_inactive_attr);
+  waddstr(win, ">");
+  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;
+
+  if (has_colors()) {    /* Whether terminal supports color? */
+    wattrset(win, shadow_attr);
+    wmove(win, y + height, x + 2);
+    for (i = 0; i < width; i++)
+      waddch(win, winch(win) & A_CHARTEXT);
+    for (i = y + 1; i < y + height + 1; i++) {
+      wmove(win, i, x + width);
+      waddch(win, winch(win) & A_CHARTEXT);
+      waddch(win, winch(win) & A_CHARTEXT);
+    }
+    wnoutrefresh(win);
+  }
+}
+/* End of draw_shadow() */
+#endif
+
+void dialog_clear(void)
+{
+    attr_clear(stdscr, LINES, COLS, screen_attr);
+}
+
+void dialog_update(void)
+{
+    refresh();
+}
+
+void end_dialog(void)
+{
+    endwin();
+}