diff options
Diffstat (limited to 'contrib/dialog/tailbox.c')
-rw-r--r-- | contrib/dialog/tailbox.c | 368 |
1 files changed, 368 insertions, 0 deletions
diff --git a/contrib/dialog/tailbox.c b/contrib/dialog/tailbox.c new file mode 100644 index 0000000..51db836 --- /dev/null +++ b/contrib/dialog/tailbox.c @@ -0,0 +1,368 @@ +/* + * $Id: tailbox.c,v 1.56 2010/04/28 20:52:20 tom Exp $ + * + * tailbox.c -- implements the tail box + * + * Copyright 2000-2009,2010 Thomas E. Dickey + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License, version 2.1 + * as published by the Free Software Foundation. + * + * 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 + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this program; if not, write to + * Free Software Foundation, Inc. + * 51 Franklin St., Fifth Floor + * Boston, MA 02110, USA. + * + * An earlier version of this program lists as authors + * Pasquale De Marco (demarco_p@abramo.it) + */ + +#include <dialog.h> +#include <dlg_keys.h> + +typedef struct { + DIALOG_CALLBACK obj; + WINDOW *text; + const char **buttons; + int hscroll; + int old_hscroll; + char line[MAX_LEN + 1]; +} MY_OBJ; + +/* + * Return current line of text. + */ +static char * +get_line(MY_OBJ * obj) +{ + FILE *fp = obj->obj.input; + int col = -(obj->hscroll); + int j, tmpint, ch; + + do { + if (((ch = getc(fp)) == EOF) && !feof(fp)) + dlg_exiterr("Error moving file pointer in get_line()."); + else if (!feof(fp) && (ch != '\n')) { + if ((ch == TAB) && (dialog_vars.tab_correct)) { + tmpint = dialog_state.tab_len + - ((col + obj->hscroll) % dialog_state.tab_len); + for (j = 0; j < tmpint; j++) { + if (col >= 0 && col < MAX_LEN) + obj->line[col] = ' '; + ++col; + } + } else { + if (col >= 0) + obj->line[col] = (char) ch; + ++col; + } + if (col >= MAX_LEN) + break; + } + } while (!feof(fp) && (ch != '\n')); + + if (col < 0) + col = 0; + obj->line[col] = '\0'; + + return obj->line; +} + +/* + * Print a new line of text. + */ +static void +print_line(MY_OBJ * obj, WINDOW *win, int row, int width) +{ + int i, y, x; + char *line = get_line(obj); + + (void) wmove(win, row, 0); /* move cursor to correct line */ + (void) waddch(win, ' '); +#ifdef NCURSES_VERSION + (void) waddnstr(win, line, MIN((int) strlen(line), width - 2)); +#else + line[MIN((int) strlen(line), width - 2)] = '\0'; + waddstr(win, line); +#endif + + getyx(win, y, x); + /* Clear 'residue' of previous line */ + for (i = 0; i < width - x; i++) + (void) waddch(win, ' '); +} + +/* + * Go back 'target' lines in text file. BUFSIZ has to be in 'size_t' range. + */ +static void +last_lines(MY_OBJ * obj, int target) +{ + FILE *fp = obj->obj.input; + long inx; + int count = 0; + char buf[BUFSIZ + 1]; + long size_to_read; + long offset = 0; + long fpos = 0; + + if (fseek(fp, 0, SEEK_END) == -1 + || (fpos = ftell(fp)) < 0) + dlg_exiterr("Error moving file pointer in last_lines()."); + + if (fpos != 0) { + ++target; + for (;;) { + if (fpos >= BUFSIZ) { + size_to_read = BUFSIZ; + } else { + size_to_read = fpos; + } + fpos = fpos - size_to_read; + if (fseek(fp, fpos, SEEK_SET) == -1) + dlg_exiterr("Error moving file pointer in last_lines()."); + (void) fread(buf, (size_t) size_to_read, 1, fp); + if (ferror(fp)) + dlg_exiterr("Error reading file in last_lines()."); + + offset += size_to_read; + for (inx = size_to_read - 1; inx >= 0; --inx) { + if (buf[inx] == '\n') { + if (++count > target) + break; + offset = inx + 1; + } + } + + if (count > target) { + break; + } else if (fpos == 0) { + offset = 0; + break; + } + } + + if (fseek(fp, fpos + offset, SEEK_SET) == -1) + dlg_exiterr("Error moving file pointer in last_lines()."); + } +} + +/* + * Print a new page of text. + */ +static void +print_page(MY_OBJ * obj, int height, int width) +{ + int i; + + for (i = 0; i < height; i++) { + print_line(obj, obj->text, i, width); + } + (void) wnoutrefresh(obj->text); +} + +static void +print_last_page(MY_OBJ * obj) +{ + int high = getmaxy(obj->obj.win) - (2 * MARGIN + (obj->obj.bg_task ? 1 : 3)); + int wide = getmaxx(obj->text); + + last_lines(obj, high); + print_page(obj, high, wide); +} + +static void +repaint_text(MY_OBJ * obj) +{ + int cur_y, cur_x; + + getyx(obj->obj.win, cur_y, cur_x); + obj->old_hscroll = obj->hscroll; + print_last_page(obj); + (void) wmove(obj->obj.win, cur_y, cur_x); /* Restore cursor position */ + wrefresh(obj->obj.win); +} + +static bool +handle_my_getc(DIALOG_CALLBACK * cb, int ch, int fkey, int *result) +{ + MY_OBJ *obj = (MY_OBJ *) cb; + bool done = FALSE; + + if (!fkey && dlg_char_to_button(ch, obj->buttons) == 0) { + ch = DLGK_ENTER; + fkey = TRUE; + } + + if (fkey) { + switch (ch) { + case DLGK_ENTER: + *result = DLG_EXIT_OK; + done = TRUE; + break; + case DLGK_BEGIN: /* Beginning of line */ + obj->hscroll = 0; + break; + case DLGK_GRID_LEFT: /* Scroll left */ + if (obj->hscroll > 0) { + obj->hscroll -= 1; + } + break; + case DLGK_GRID_RIGHT: /* Scroll right */ + if (obj->hscroll < MAX_LEN) + obj->hscroll += 1; + break; + default: + beep(); + break; + } + if ((obj->hscroll != obj->old_hscroll)) + repaint_text(obj); + } else { + switch (ch) { + case ERR: + clearerr(cb->input); + ch = getc(cb->input); + (void) ungetc(ch, cb->input); + if ((ch != EOF) || (obj->hscroll != obj->old_hscroll)) { + repaint_text(obj); + } + break; + case ESC: + done = TRUE; + *result = DLG_EXIT_ESC; + break; + default: + beep(); + break; + } + } + + return !done; +} + +/* + * Display text from a file in a dialog box, like in a "tail -f". + */ +int +dialog_tailbox(const char *title, const char *file, int height, int width, int bg_task) +{ + /* *INDENT-OFF* */ + static DLG_KEYS_BINDING binding[] = { + ENTERKEY_BINDINGS, + DLG_KEYS_DATA( DLGK_BEGIN, '0' ), + DLG_KEYS_DATA( DLGK_BEGIN, KEY_BEG ), + DLG_KEYS_DATA( DLGK_GRID_LEFT, 'H' ), + DLG_KEYS_DATA( DLGK_GRID_LEFT, 'h' ), + DLG_KEYS_DATA( DLGK_GRID_LEFT, KEY_LEFT ), + DLG_KEYS_DATA( DLGK_GRID_RIGHT, 'L' ), + DLG_KEYS_DATA( DLGK_GRID_RIGHT, 'l' ), + DLG_KEYS_DATA( DLGK_GRID_RIGHT, KEY_RIGHT ), + END_KEYS_BINDING + }; + /* *INDENT-ON* */ + +#ifdef KEY_RESIZE + int old_height = height; + int old_width = width; +#endif + int fkey; + int x, y, result, thigh; + WINDOW *dialog, *text; + const char **buttons = 0; + MY_OBJ *obj; + FILE *fd; + int min_width = 12; + + /* Open input file for reading */ + if ((fd = fopen(file, "rb")) == NULL) + dlg_exiterr("Can't open input file in dialog_tailbox()."); + +#ifdef KEY_RESIZE + retry: +#endif + dlg_auto_sizefile(title, file, &height, &width, 2, min_width); + dlg_print_size(height, width); + dlg_ctl_size(height, width); + + x = dlg_box_x_ordinate(width); + y = dlg_box_y_ordinate(height); + thigh = height - ((2 * MARGIN) + (bg_task ? 0 : 2)); + + dialog = dlg_new_window(height, width, y, x); + + dlg_mouse_setbase(x, y); + + /* Create window for text region, used for scrolling text */ + text = dlg_sub_window(dialog, + thigh, + width - (2 * MARGIN), + y + MARGIN, + x + MARGIN); + + dlg_draw_box(dialog, 0, 0, height, width, dialog_attr, border_attr); + dlg_draw_bottom_box(dialog); + dlg_draw_title(dialog, title); + + if (!bg_task) { + buttons = dlg_exit_label(); + dlg_button_layout(buttons, &min_width); + dlg_draw_buttons(dialog, height - (2 * MARGIN), 0, buttons, FALSE, + FALSE, width); + } + + (void) wmove(dialog, thigh, (MARGIN + 1)); + (void) wnoutrefresh(dialog); + + obj = dlg_calloc(MY_OBJ, 1); + assert_ptr(obj, "dialog_tailbox"); + + obj->obj.input = fd; + obj->obj.win = dialog; + obj->obj.handle_getc = handle_my_getc; + obj->obj.keep_bg = bg_task && dialog_vars.cant_kill; + obj->obj.bg_task = bg_task; + obj->text = text; + obj->buttons = buttons; + dlg_add_callback(&(obj->obj)); + + dlg_register_window(dialog, "tailbox", binding); + dlg_register_buttons(dialog, "tailbox", buttons); + + /* Print last page of text */ + dlg_attr_clear(text, thigh, getmaxx(text), dialog_attr); + repaint_text(obj); + + if (bg_task) { + result = DLG_EXIT_OK; + } else { + int ch; + do { + ch = dlg_getc(dialog, &fkey); +#ifdef KEY_RESIZE + if (fkey && ch == KEY_RESIZE) { + /* reset data */ + height = old_height; + width = old_width; + /* repaint */ + dlg_clear(); + dlg_del_window(dialog); + refresh(); + dlg_mouse_free_regions(); + dlg_button_layout(buttons, &min_width); + goto retry; + } +#endif + } + while (handle_my_getc(&(obj->obj), ch, fkey, &result)); + } + dlg_mouse_free_regions(); + return result; +} |