/* * $Id: edit_field.c,v 1.7 2003/05/17 23:16:13 tom Exp $ * * A wrapper for form_driver() which keeps track of the user's editing changes * for each field, and makes the result available as a null-terminated string * in field_buffer(field,1). * * Thomas Dickey - 2003/4/26. */#include <test.priv.h>#if USE_LIBFORM#include <edit_field.h>#define MY_QUIT		EDIT_FIELD('q')#define MY_INS_MODE	EDIT_FIELD('t')static struct {    int code;    int result;    const char *help;} commands[] = {    {	CTRL('A'), REQ_NEXT_CHOICE, ""    },    {	CTRL('B'), REQ_PREV_WORD, "go to previous word"    },    {	CTRL('C'), REQ_CLR_EOL, "clear to end of line"    },    {	CTRL('D'), REQ_DOWN_FIELD, "move downward to field"    },    {	CTRL('E'), REQ_END_FIELD, "go to end of field"    },    {	CTRL('F'), REQ_NEXT_PAGE, "go to next page"    },    {	CTRL('G'), REQ_DEL_WORD, "delete current word"    },    {	CTRL('H'), REQ_DEL_PREV, "delete previous character"    },    {	CTRL('I'), REQ_INS_CHAR, "insert character"    },    {	CTRL('K'), REQ_CLR_EOF, "clear to end of field"    },    {	CTRL('L'), REQ_LEFT_FIELD, "go to field to left"    },    {	CTRL('M'), REQ_NEW_LINE, "insert/overlay new line"    },    {	CTRL('N'), REQ_NEXT_FIELD, "go to next field"    },    {	CTRL('O'), REQ_INS_LINE, "insert blank line at cursor"    },    {	CTRL('P'), REQ_PREV_FIELD, "go to previous field"    },    {	CTRL('Q'), MY_QUIT, "exit form"    },    {	CTRL('R'), REQ_RIGHT_FIELD, "go to field to right"    },    {	CTRL('S'), REQ_BEG_FIELD, "go to beginning of field"    },    {	CTRL('U'), REQ_UP_FIELD, "move upward to field"    },    {	CTRL('V'), REQ_DEL_CHAR, "delete character"    },    {	CTRL('W'), REQ_NEXT_WORD, "go to next word"    },    {	CTRL('X'), REQ_CLR_FIELD, "clear field"    },    {	CTRL('Y'), REQ_DEL_LINE, "delete line"    },    {	CTRL('Z'), REQ_PREV_CHOICE, ""    },    {	CTRL('['), MY_QUIT, "exit form"    },    {	CTRL(']'), MY_INS_MODE, "toggle REQ_INS_MODE/REQ_OVL_MODE",    },    {	KEY_F(1), EDIT_FIELD('h'), "show this screen",    },    {	KEY_BACKSPACE, REQ_DEL_PREV, "delete previous character"    },    {	KEY_DOWN, REQ_DOWN_CHAR, "move down 1 character"    },    {	KEY_END, REQ_LAST_FIELD, "go to last field"    },    {	KEY_HOME, REQ_FIRST_FIELD, "go to first field"    },    {	KEY_LEFT, REQ_LEFT_CHAR, "move left 1 character"    },    {	KEY_LL, REQ_LAST_FIELD, "go to last field"    },    {	KEY_NEXT, REQ_NEXT_FIELD, "go to next field"    },    {	KEY_NPAGE, REQ_NEXT_PAGE, "go to next page"    },    {	KEY_PPAGE, REQ_PREV_PAGE, "go to previous page"    },    {	KEY_PREVIOUS, REQ_PREV_FIELD, "go to previous field"    },    {	KEY_RIGHT, REQ_RIGHT_CHAR, "move right 1 character"    },    {	KEY_UP, REQ_UP_CHAR, "move up 1 character"    }};static WINDOW *old_window;static voidbegin_popup(void){    doupdate();    old_window = dupwin(curscr);}static voidend_popup(void){    touchwin(old_window);    wnoutrefresh(old_window);    doupdate();    delwin(old_window);}/* * Display a temporary window listing the keystroke-commands we recognize. */voidhelp_edit_field(void){    int x0 = 4;    int y0 = 2;    int y1 = 0;    int y2 = 0;    int wide = COLS - ((x0 + 1) * 2);    int high = LINES - ((y0 + 1) * 2);    WINDOW *help = newwin(high, wide, y0, x0);    WINDOW *data = newpad(2 + SIZEOF(commands), wide - 4);    unsigned n;    int ch = ERR;    begin_popup();    keypad(help, TRUE);    keypad(data, TRUE);    waddstr(data, "Defined form-traversal keys:\n");    for (n = 0; n < SIZEOF(commands); ++n) {	const char *name;#ifdef NCURSES_VERSION	if ((name = form_request_name(commands[n].result)) == 0)#endif	    name = commands[n].help;	wprintw(data, "%s -- %s\n",		keyname(commands[n].code),		name != 0 ? name : commands[n].help);    }    waddstr(data, "Arrow keys move within a field as you would expect.");    y2 = getcury(data);    do {	switch (ch) {	case CTRL('P'):	case KEY_UP:	    if (y1 > 0)		--y1;	    else		beep();	    break;	case CTRL('N'):	case KEY_DOWN:	    if (y1 < y2)		++y1;	    else		beep();	    break;	default:	    beep();	    break;	case ERR:	    break;	}	werase(help);	box(help, 0, 0);	wnoutrefresh(help);	pnoutrefresh(data, y1, 0, y0 + 1, x0 + 1, high, wide);	doupdate();    } while ((ch = wgetch(data)) != ERR && ch != QUIT && ch != ESCAPE);    werase(help);    wrefresh(help);    delwin(help);    delwin(data);    end_popup();}static intoffset_in_field(FORM * form){    FIELD *field = current_field(form);    return form->curcol + form->currow * field->dcols;}intedit_field(FORM * form, int *result){    int ch = wgetch(form_win(form));    int status;    FIELD *before;    FIELD *after;    unsigned n;    char lengths[80];    int length;    char *buffer;    int before_row = form->currow;    int before_col = form->curcol;    int before_off = offset_in_field(form);    before = current_field(form);    set_field_back(before, A_NORMAL);    if (ch <= KEY_MAX) {	set_field_back(before, A_REVERSE);    } else if (ch <= MAX_FORM_COMMAND) {	set_field_back(before, A_UNDERLINE);    }    *result = ch;    for (n = 0; n < SIZEOF(commands); ++n) {	if (commands[n].code == ch) {	    *result = commands[n].result;	    break;	}    }    status = form_driver(form, *result);    if (status == E_OK) {	bool modified = TRUE;	length = 0;	if ((buffer = field_buffer(before, 1)) != 0)	    length = atoi(buffer);	if (length < before_off)	    length = before_off;	switch (*result) {	case REQ_CLR_EOF:	    length = before_off;	    break;	case REQ_CLR_EOL:	    if (before_row + 1 == before->rows)		length = before_off;	    break;	case REQ_CLR_FIELD:	    length = 0;	    break;	case REQ_DEL_CHAR:	    if (length > before_off)		--length;	    break;	case REQ_DEL_PREV:	    if (length > 0) {		if (before_col > 0) {		    --length;		} else if (before_row > 0) {		    length -= before->cols + before_col;		}	    }	    break;	case REQ_NEW_LINE:	    length += before->cols;	    break;#if 0	    /* FIXME: finish these */	case REQ_DEL_LINE:	/* delete line */	case REQ_DEL_WORD:	/* delete word at cursor */	case REQ_INS_CHAR:	/* insert blank char at cursor */	case REQ_INS_LINE:	/* insert blank line at cursor */	case REQ_INS_MODE:	/* begin insert mode */	case REQ_OVL_MODE:	/* begin overlay mode */#endif	    /* ignore all of the motion commands */	case REQ_SCR_BCHAR:	/* FALLTHRU */	case REQ_SCR_BHPAGE:	/* FALLTHRU */	case REQ_SCR_BLINE:	/* FALLTHRU */	case REQ_SCR_BPAGE:	/* FALLTHRU */	case REQ_SCR_FCHAR:	/* FALLTHRU */	case REQ_SCR_FHPAGE:	/* FALLTHRU */	case REQ_SCR_FLINE:	/* FALLTHRU */	case REQ_SCR_FPAGE:	/* FALLTHRU */	case REQ_SCR_HBHALF:	/* FALLTHRU */	case REQ_SCR_HBLINE:	/* FALLTHRU */	case REQ_SCR_HFHALF:	/* FALLTHRU */	case REQ_SCR_HFLINE:	/* FALLTHRU */	case REQ_BEG_FIELD:	/* FALLTHRU */	case REQ_BEG_LINE:	/* FALLTHRU */	case REQ_DOWN_CHAR:	/* FALLTHRU */	case REQ_DOWN_FIELD:	/* FALLTHRU */	case REQ_END_FIELD:	/* FALLTHRU */	case REQ_END_LINE:	/* FALLTHRU */	case REQ_FIRST_FIELD:	/* FALLTHRU */	case REQ_FIRST_PAGE:	/* FALLTHRU */	case REQ_LAST_FIELD:	/* FALLTHRU */	case REQ_LAST_PAGE:	/* FALLTHRU */	case REQ_LEFT_CHAR:	/* FALLTHRU */	case REQ_LEFT_FIELD:	/* FALLTHRU */	case REQ_NEXT_CHAR:	/* FALLTHRU */	case REQ_NEXT_CHOICE:	/* FALLTHRU */	case REQ_NEXT_FIELD:	/* FALLTHRU */	case REQ_NEXT_LINE:	/* FALLTHRU */	case REQ_NEXT_PAGE:	/* FALLTHRU */	case REQ_NEXT_WORD:	/* FALLTHRU */	case REQ_PREV_CHAR:	/* FALLTHRU */	case REQ_PREV_CHOICE:	/* FALLTHRU */	case REQ_PREV_FIELD:	/* FALLTHRU */	case REQ_PREV_LINE:	/* FALLTHRU */	case REQ_PREV_PAGE:	/* FALLTHRU */	case REQ_PREV_WORD:	/* FALLTHRU */	case REQ_RIGHT_CHAR:	/* FALLTHRU */	case REQ_RIGHT_FIELD:	/* FALLTHRU */	case REQ_SFIRST_FIELD:	/* FALLTHRU */	case REQ_SLAST_FIELD:	/* FALLTHRU */	case REQ_SNEXT_FIELD:	/* FALLTHRU */	case REQ_SPREV_FIELD:	/* FALLTHRU */	case REQ_UP_CHAR:	/* FALLTHRU */	case REQ_UP_FIELD:	/* FALLTHRU */	case REQ_VALIDATION:	/* FALLTHRU */	    modified = FALSE;	    break;	default:	    modified = FALSE;	    if (ch >= MIN_FORM_COMMAND) {		beep();	    } else if (isprint(ch)) {		modified = TRUE;	    }	    break;	}	/*	 * If we do not force a re-validation, then field_buffer 0 will	 * be lagging by one character.	 */	if (modified && form_driver(form, REQ_VALIDATION) == E_OK && *result	    < MIN_FORM_COMMAND)	    ++length;	sprintf(lengths, "%d", length);	set_field_buffer(before, 1, lengths);    }    if ((after = current_field(form)) != before)	set_field_back(before, A_UNDERLINE);    return status;}#elseextern void no_edit_field(void);voidno_edit_field(void){}#endif