ncurses-5.7/test/edit_field.c - nest-learning-thermostat/5.1.5/ncurses - Git at Google

 /****************************************************************************
  * Copyright (c) 2003-2006,2008 Free Software Foundation, Inc.              *
  *                                                                          *
  * Permission is hereby granted, free of charge, to any person obtaining a  *
  * copy of this software and associated documentation files (the            *
  * "Software"), to deal in the Software without restriction, including      *
  * without limitation the rights to use, copy, modify, merge, publish,      *
  * distribute, distribute with modifications, sublicense, and/or sell       *
  * copies of the Software, and to permit persons to whom the Software is    *
  * furnished to do so, subject to the following conditions:                 *
  *                                                                          *
  * The above copyright notice and this permission notice shall be included  *
  * in all copies or substantial portions of the Software.                   *
  *                                                                          *
  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
  * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
  * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
  *                                                                          *
  * Except as contained in this notice, the name(s) of the above copyright   *
  * holders shall not be used in advertising or otherwise to promote the     *
  * sale, use or other dealings in this Software without prior written       *
  * authorization.                                                           *
  ****************************************************************************/
 /*
  * $Id: edit_field.c,v 1.14 2008/10/18 20:40:20 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>

 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('T'), MY_EDT_MODE, "toggle O_EDIT mode, clear field status",
     },
     {
 	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), MY_HELP, "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 void
 begin_popup(void)
 {
     doupdate();
     old_window = dupwin(curscr);
 }

 static void
 end_popup(void)
 {
     touchwin(old_window);
     wnoutrefresh(old_window);
     doupdate();
     delwin(old_window);
 }

 /*
  * Display a temporary window listing the keystroke-commands we recognize.
  */
 void
 help_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 edit/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 KEY_HOME:
 	    y1 = 0;
 	    break;
 	case KEY_END:
 	    y1 = y2;
 	    break;
 	case KEY_PREVIOUS:
 	case KEY_PPAGE:
 	    if (y1 > 0) {
 		y1 -= high / 2;
 		if (y1 < 0)
 		    y1 = 0;
 	    } else {
 		beep();
 	    }
 	    break;
 	case KEY_NEXT:
 	case KEY_NPAGE:
 	    if (y1 < y2) {
 		y1 += high / 2;
 		if (y1 >= y2)
 		    y1 = y2;
 	    } else {
 		beep();
 	    }
 	    break;
 	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 int
 offset_in_field(FORM * form)
 {
     FIELD *field = current_field(form);
     return form->curcol + form->currow * field->dcols;
 }

 static void
 inactive_field(FIELD * f)
 {
     void *ptr = field_userptr(f);
     set_field_back(f, (chtype) ptr);
 }

 int
 edit_field(FORM * form, int *result)
 {
     int ch = wgetch(form_win(form));
     int status;
     FIELD *before;
     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) {
 	inactive_field(before);
     }

     *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 (current_field(form) != before)
 	inactive_field(before);
     return status;
 }
 #else

 extern void no_edit_field(void);

 void
 no_edit_field(void)
 {
 }

 #endif
	/****************************************************************************
	* Copyright (c) 2003-2006,2008 Free Software Foundation, Inc. *
	* *
	* Permission is hereby granted, free of charge, to any person obtaining a *
	* copy of this software and associated documentation files (the *
	* "Software"), to deal in the Software without restriction, including *
	* without limitation the rights to use, copy, modify, merge, publish, *
	* distribute, distribute with modifications, sublicense, and/or sell *
	* copies of the Software, and to permit persons to whom the Software is *
	* furnished to do so, subject to the following conditions: *
	* *
	* The above copyright notice and this permission notice shall be included *
	* in all copies or substantial portions of the Software. *
	* *
	* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
	* OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
	* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
	* IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
	* DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
	* OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
	* THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
	* *
	* Except as contained in this notice, the name(s) of the above copyright *
	* holders shall not be used in advertising or otherwise to promote the *
	* sale, use or other dealings in this Software without prior written *
	* authorization. *
	****************************************************************************/
	/*
	* $Id: edit_field.c,v 1.14 2008/10/18 20:40:20 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>

	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('T'), MY_EDT_MODE, "toggle O_EDIT mode, clear field status",
	},
	{
	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), MY_HELP, "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 void
	begin_popup(void)
	{
	doupdate();
	old_window = dupwin(curscr);
	}

	static void
	end_popup(void)
	{
	touchwin(old_window);
	wnoutrefresh(old_window);
	doupdate();
	delwin(old_window);
	}

	/*
	* Display a temporary window listing the keystroke-commands we recognize.
	*/
	void
	help_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 edit/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 KEY_HOME:
	y1 = 0;
	break;
	case KEY_END:
	y1 = y2;
	break;
	case KEY_PREVIOUS:
	case KEY_PPAGE:
	if (y1 > 0) {
	y1 -= high / 2;
	if (y1 < 0)
	y1 = 0;
	} else {
	beep();
	}
	break;
	case KEY_NEXT:
	case KEY_NPAGE:
	if (y1 < y2) {
	y1 += high / 2;
	if (y1 >= y2)
	y1 = y2;
	} else {
	beep();
	}
	break;
	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 int
	offset_in_field(FORM * form)
	{
	FIELD *field = current_field(form);
	return form->curcol + form->currow * field->dcols;
	}

	static void
	inactive_field(FIELD * f)
	{
	void *ptr = field_userptr(f);
	set_field_back(f, (chtype) ptr);
	}

	int
	edit_field(FORM * form, int *result)
	{
	int ch = wgetch(form_win(form));
	int status;
	FIELD *before;
	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) {
	inactive_field(before);
	}

	*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 (current_field(form) != before)
	inactive_field(before);
	return status;
	}
	#else

	extern void no_edit_field(void);

	void
	no_edit_field(void)
	{
	}

	#endif