NetBSD/usr.sbin/sushi/scanform.c

/*      $NetBSD: scanform.c,v 1.26 2002/08/07 11:03:45 blymn Exp $       */

/*
 * Copyright (c) 2000 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * Copyright (c) 2000 Tim Rightnour <garbled@netbsd.org>
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *        This product includes software developed by the NetBSD
 *        Foundation, Inc. and its contributors.
 * 4. Neither the name of The NetBSD Foundation nor the names of its
 *    contributors may be used to endorse or promote products derived
 *    from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

#include <sys/ioctl.h>
#include <sys/types.h>
#include <sys/queue.h>
#include <sys/cdefs.h>
#include <sys/param.h>
#include <sys/stat.h>
#include <sys/wait.h>
#include <ctype.h>
#include <dirent.h>
#include <err.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

#include <curses.h>
#include <form.h>
#include <cdk/cdk.h>

#include "sushi.h"
#include "functions.h"
#include "scanform.h"
#include "formtree.h"
#include "handlers.h"
#include "run.h"
#include "blabel.h"

extern func_record func_map[];
extern CDKSCREEN *cdkscreen;
extern struct winsize ws;
extern nl_catd catalog;
extern char *lang_id;
extern char *keylabel[10];
extern chtype keybinding[10];

static void scan_formindex(struct cqForm *cqf, char *row);

static void
form_status(FORM *form)
{
	char buf[20];

	wstandout(stdscr);
	mvwaddstr(stdscr, ws.ws_row-3, 0, catgets(catalog, 4, 9,
	    "PGUP/PGDN to change page, UP/DOWN switch field, ENTER=Do."));
	wstandend(stdscr);
	sprintf(buf, "%s (%d/%d)", catgets(catalog, 4, 8, "Form Page:"),
	    form_page(form)+1, form->max_page); /* XXX */
	mvwaddstr(stdscr, ws.ws_row-3, 60, buf);
	wrefresh(stdscr);
}

static int
scan_form(struct cqForm *cqf, char *path)
{
	FILE *filep;
	int lcnt;
	char *p, *t;
	size_t len;

	if((filep = fopen(path, "r"))) {
		for (lcnt = 1; (p = fgetln(filep, &len)) != NULL; ++lcnt) {
			if (len == 1)		/* Skip empty lines. */
				continue;
			if (p[len - 1] == '#')	/* Skip remarked lines. */
				continue;
			if (p[len - 1] != '\n') {/* Skip corrupted lines. */
				warnx("%s: line %d corrupted", path, lcnt);
				continue;
			}
			p[len - 1] = '\0';	/* Terminate the line. */

						/* Skip leading spaces. */
			for (; *p != '\0' && isspace((unsigned char)*p); ++p);
						/* Skip empty/comment lines. */
			if (*p == '\0' || *p == '#')
				continue;
						/* Find first token. */
			for (t = p; *t && !isspace((unsigned char)*t); ++t);
			if (*t == '\0')		/* Need more than one token.*/
				continue;
			*t = '\0';

			scan_formindex(cqf, p);
		}

		fclose(filep);
	} else
		return(1);
	return(0);
}

static void
form_appenditem(struct cqForm *cqf, char *desc, int type, char *data, int req)
{
        FTREE_ENTRY *fte;

        if ((fte = malloc(sizeof(FTREE_ENTRY))) == NULL ||
                ((fte->desc = strdup(desc)) == NULL) ||
                ((fte->type = type) == NULL) ||
		((fte->data = strdup(data)) == NULL))
                        bailout("malloc: %s", strerror(errno));
	fte->required = req;
	fte->elen = 0;
	fte->origdata = fte->data;
	fte->list = NULL;

	CIRCLEQ_INIT(&fte->cqSubFormHead);
	CIRCLEQ_INSERT_TAIL(cqf, fte, cqFormEntries);
}

static void
scan_formindex(struct cqForm *cqf, char *row)
{
	char *t = row;
	char *x;
	char desc[80];
	int type;
	char data[80];
	int req = 0;

	while (*++t && !isspace((unsigned char)*t));
	x = (char *)strsep(&row, ":");
	if (strcmp(x, "entry") == 0)
		type = DATAT_ENTRY;
	else if (strcmp(x, "req-entry") == 0) {
		type = DATAT_ENTRY;
		req = 1;
	} else if (strcmp(x, "escript") == 0)
		type = DATAT_ESCRIPT;
	else if (strcmp(x, "req-escript") == 0) {
		type = DATAT_ESCRIPT;
		req = 1;
	} else if (strcmp(x, "nescript") == 0)
		type = DATAT_NESCRIPT;
	else if (strcmp(x, "list") == 0)
		type = DATAT_LIST;
	else if (strcmp(x, "multilist") == 0)
		type = DATAT_MLIST;
	else if (strcmp(x, "req-list") == 0) {
		type = DATAT_LIST;
		req = 1;
	} else if (strcmp(x, "blank") == 0)
		type = DATAT_BLANK;
	else if (strcmp(x, "func") == 0)
		type = DATAT_FUNC;
	else if (strcmp(x, "multifunc") == 0)
		type = DATAT_MFUNC;
	else if (strcmp(x, "req-func") == 0) {
		type = DATAT_FUNC;
		req = 1;
	} else if (strcmp(x, "script") == 0)
		type = DATAT_SCRIPT;
	else if (strcmp(x, "multiscript") == 0)
		type = DATAT_MSCRIPT;
	else if (strcmp(x, "req-script") == 0) {
		type = DATAT_SCRIPT;
		req = 1;
	} else if (strcmp(x, "noedit") == 0)
		type = DATAT_NOEDIT;
	else if (strcmp(x, "invis") == 0)
		type = DATAT_INVIS;
	else if (strcmp(x, "integer") == 0)
		type = DATAT_INTEGER;
	else if (strcmp(x, "req-integer") == 0) {
		type = DATAT_INTEGER;
		req = 1;
	} else if (strcmp(x, "iscript") == 0)
		type = DATAT_ISCRIPT;
	else if (strcmp(x, "req-iscript") == 0) {
		type = DATAT_ISCRIPT;
		req = 1;
	} else if (strcmp(x, "ipv4") == 0)
		type = DATAT_V4;
	else if (strcmp(x, "req-ipv4") == 0) {
		type = DATAT_V4;
		req = 1;
	} else if (strcmp(x, "ipv4script") == 0)
		type = DATAT_V4SCRIPT;
	else if (strcmp(x, "req-ipv4script") == 0) {
		type = DATAT_V4SCRIPT;
		req = 1;
	} else if (strcmp(x, "ipv6") == 0)
		type = DATAT_V6;
	else if (strcmp(x, "req-ipv6") == 0) {
		type = DATAT_V6;
		req = 1;
	} else if (strcmp(x, "ipv6script") == 0)
		type = DATAT_V6SCRIPT;
	else if (strcmp(x, "req-ipv6script") == 0) {
		type = DATAT_V6SCRIPT;
		req = 1;
	} else
		bailout("%s: %s",
		    catgets(catalog, 1, 11, "invalid data type"), x);

	snprintf(data, (size_t)(t-row+1), "%s", row);

	while (*++t && isspace((unsigned char)*t));
	if (strlen(t) > 50)
		bailout(catgets(catalog, 1, 12, "description too long"));

	snprintf(desc, sizeof(desc), "%s", t);
	if (strcmp(desc, "BLANK") == 0)
		sprintf(desc, " ");

	form_appenditem(cqf, desc, type, data, req);
}

int
form_entries(struct cqForm *cqf)
{
	FTREE_ENTRY *fte;
	int entries = 0;

	for (fte = CIRCLEQ_FIRST(cqf); fte != (void *)cqf;
		fte = CIRCLEQ_NEXT(fte, cqFormEntries))
		++entries;

	return(entries);
}

FTREE_ENTRY *
form_getentry(struct cqForm *cqf, int entry)
{
	FTREE_ENTRY *fte;
	int entries = 0;

	for (fte = CIRCLEQ_FIRST(cqf); (fte != (void *)cqf);
	     fte = CIRCLEQ_NEXT(fte, cqFormEntries)) {
		if(entry == entries)
			return(fte);
		++entries;
	}

	return(NULL);
}

void
form_printtree(struct cqForm *cqf)
{
	FTREE_ENTRY *ftp;

	for (ftp = CIRCLEQ_FIRST(cqf); ftp != (void *)cqf;
	     ftp = CIRCLEQ_NEXT(ftp, cqFormEntries))
		printf("%s\t- %d:%s\n", ftp->desc, ftp->type, ftp->data);
}

/* This is the keymap for the forms */

static int 
get_request(WINDOW *w)			/* virtual key mapping */
{
	static int      mode = REQ_INS_MODE;
	int             c = wgetch(w);	/* read a character */
	int 		i;

	/* printf("GOT A THINGIE: 0x%x %d\n", c, c); */

	/* convert to an FKEY for case */
	if (c != 0)
	for (i=0; i < 10; i++)
		if (c == keybinding[i])
			c = KEY_F(i+1);

	switch (c) {
	case KEY_F(1):
		return SHOWHELP;
	case KEY_F(2):
		return REFRESH;
	case KEY_F(3):
		return BAIL;
	case KEY_F(4):
		return GENLIST;
	case KEY_F(5):
		return RESET;
	case KEY_F(6):
		return COMMAND;
	case KEY_F(7):
		return EDIT;
	case KEY_F(8):
		return DUMPSCREEN;
	case KEY_F(9):
		return SHELL;
	case KEY_F(10):
		return FASTBAIL;
	case 0x1b:		/* ESC */
		return BAIL;
	case 0x0d:
		return QUIT;
	case KEY_ENTER:
		return QUIT;
	case 0xa:		/* LF */
		return QUIT;
	case KEY_NPAGE:		/* ^F */
		return REQ_NEXT_PAGE;
	case KEY_PPAGE:		/* ^B */
		return REQ_PREV_PAGE;
	case KEY_DOWN:
		return REQ_NEXT_FIELD;
	case KEY_UP:
		return REQ_PREV_FIELD;
	case 0x06:		/* ^F */
		return REQ_NEXT_PAGE;
	case 0x02:		/* ^B */
		return REQ_PREV_PAGE;
	case 0x0e:		/* ^N */
		return REQ_NEXT_FIELD;
	case 0x10:		/* ^P */
		return REQ_PREV_FIELD;
	case KEY_HOME:
		return REQ_FIRST_FIELD;
	case KEY_LL:
		return REQ_LAST_FIELD;
	case 0x0c:		/* ^L */
		return REQ_LEFT_FIELD;
	case 0x12:		/* ^R */
		return REQ_RIGHT_FIELD;
	case 0x15:		/* ^U */
		return REQ_UP_FIELD;
	case 0x04:		/* ^D */
		return REQ_DOWN_FIELD;
	case 0x17:		/* ^W */
		return REQ_NEXT_WORD;
	case 0x14:		/* ^T */
		return REQ_PREV_WORD;
	case 0x01:		/* ^A */
		return REQ_BEG_FIELD;
	case 0x05:		/* ^E */
		return REQ_END_FIELD;
	case KEY_LEFT:
		return REQ_PREV_CHAR;
	case KEY_RIGHT:
		return REQ_NEXT_CHAR;
	case 0x0f:		/* ^O */
		return REQ_INS_LINE;
	case KEY_DC:
	case 0x16:		/* ^V */
		return REQ_DEL_CHAR;
	case KEY_BACKSPACE:
	case 0x08:		/* ^H */
		return REQ_DEL_PREV;
	case 0x19:		/* ^Y */
		return REQ_DEL_LINE;
	case 0x07:		/* ^G */
		return REQ_DEL_WORD;
	case 0x03:		/* ^C */
		return REQ_CLR_EOL;
	case 0x0b:		/* ^K */
		return REQ_CLR_EOF;
	case 0x18:		/* ^X */
		return REQ_CLR_FIELD;
	case 0x9:		/* tab*/
		return REQ_NEXT_CHOICE;
	case 0x1a:		/* ^Z 0x1a*/
		return REQ_PREV_CHOICE;
	case KEY_IC:		/* INS */

		if (mode == REQ_INS_MODE)
			return mode =
				REQ_OVL_MODE;
		else
			return mode =
				REQ_INS_MODE;

	}
	return c;
}

static int 
my_driver(FORM * form, int c, char *path)
{
	CDKSCROLL *plist;
	CDKSELECTION *slist;
	CDKENTRY *entry;
	FIELD *curfield;
	char **list;
	int i, j, y, n, dcols, drows, dmax;
	char *tmp, *otmp, *p;
	char *choices[] = {" ", "+"};
	char buf[1024];

	switch (c) {
	case EDIT:
		curfield = current_field(form);
		if (field_opts(curfield) & O_STATIC) {
			field_info(curfield, &drows, &dcols, &j, &j, &j, &j);
			dmax = 0;
		} else
			dynamic_field_info(curfield, &drows, &dcols, &dmax);
		if (dmax == 0)
			dmax = dcols;
		entry = newCDKEntry(cdkscreen, BOTTOM, CENTER,
		    catgets(catalog, 4, 6, "Enter the field data "
		    "below, and hit enter to return to the form."),
		    catgets(catalog, 4, 7, "Data Entry: "),
		    A_REVERSE, field_pad(curfield), vMIXED, ws.ws_col-20,
		    0, dmax, TRUE, FALSE);
		if (field_buffer(curfield, 0) == NULL)
			setCDKEntry(entry, "", 0, dmax, TRUE);
		else
			setCDKEntry(entry, field_buffer(curfield, 0), 0,
			    dmax, TRUE);
		injectCDKEntry(entry, CDK_BEGOFLINE);
		tmp = activateCDKEntry(entry, NULL);
		if (entry->exitType == vESCAPE_HIT) {
			destroyCDKEntry(entry);
			return(FALSE);
		}
		set_field_buffer(curfield, 0, tmp);
		destroyCDKEntry(entry);
		touchwin(stdscr);
		wrefresh(stdscr);
		return(FALSE);
		/* NOTREACHED */
		break;
	case COMMAND:
		/* for now, ignore this.. it's messy */
		return(FALSE);
		/* NOTREACHED */
		break;
	case RESET:
		return(2); /* hrmmm... */
		/* NOTREACHED */
		break;
	case REFRESH:
		touchwin(stdscr);
		wrefresh(stdscr);
		return(FALSE);
		/* NOTREACHED */
		break;
	case SHELL:
		endwin();
		system("/bin/sh");
		wrefresh(stdscr);
		return(FALSE);
		/* NOTREACHED */
		break;
	case DUMPSCREEN:
		do_scrdump(NULL, NULL, NULL, NULL);
		return(FALSE);
		/* NOTREACHED */
		break;
	case SHOWHELP:
	        if (simple_lang_handler(path, HELPFILE, handle_help) == -2)
			nohelp();
		touchwin(stdscr);
		wrefresh(stdscr);
		return(FALSE);
		/* NOTREACHED */
		break;
	case GENLIST:
		/* pull the grand popup list */
		curfield = current_field(form);
		list = (char **) field_userptr(curfield);
		if (list == NULL)
			break;
		for (i=0, y=0; list[i] != NULL; i++)
			if ((strlen(list[i]) + 1) > y)
				y = strlen(list[i]) + 1;
		if (field_buffer(curfield, 1) == NULL || 
		    field_buffer(curfield, 0) == NULL)
			return(FALSE);
		otmp = tmp = strdup(field_buffer(curfield, 1));
		stripWhiteSpace(vBOTH, tmp);
		if (*tmp == 'm') {
			slist = newCDKSelection(cdkscreen, RIGHT, CENTER,
			    RIGHT, 10, y+2,
			    catgets(catalog, 4, 1, "Select choices"),
			    list, i, choices, 2, A_REVERSE ,TRUE, FALSE);
			free(otmp);
			otmp = tmp = strdup(field_buffer(curfield, 0));
			stripWhiteSpace(vBOTH, tmp);
			if (*tmp != '\0')
				for (p = tmp; p != NULL; p = strsep(&tmp, ","))
					for (y = 0; y < i; y++)
						if (strcmp(p, list[y]) == 0)
							slist->selections[y] = 1;
			activateCDKSelection(slist, NULL);
			for (y = 0; y < i; y++)
				if (slist->selections[y] == 1) {
					memset(&buf, '\0', sizeof(buf));
					break;
				}
			for (y = 0, n = 0; y < i; y++)
				if (slist->selections[y] == 1) {
					n++;
					if (n != 1)
						sprintf(buf, "%s,", buf);
					sprintf(buf, "%s%s", buf, list[y]);
				}
			free(otmp);
			tmp = buf;
			if (n)
				set_field_buffer(curfield, 0, tmp);
			destroyCDKSelection(slist);
		} else if (*tmp ==  's') {
			plist = newCDKScroll(cdkscreen, RIGHT, CENTER, RIGHT,
			    10, y+2, catgets(catalog, 4, 1, "Select choice"),
			    list, i, FALSE, A_REVERSE ,TRUE, FALSE);
			i = activateCDKScroll(plist, NULL);
			if (i != -1)
				set_field_buffer(curfield, 0, list[i]);
			destroyCDKScroll(plist);
			free(otmp);
		}
		return(FALSE);
		/* NOTREACHED */
		break;
	case QUIT:
		/* do something useful */
		if (form_driver(form, REQ_VALIDATION) == E_OK) {
			if (process_form(form, path) == 0)
				return TRUE;
			else
				return(2); /* special meaning */
		}
		/* NOTREACHED */
		break;
	case BAIL:
		return(3); /* TRUE, so handle_preform can free F */
		/* NOTREACHED */
		break;
	case FASTBAIL:
		endwin();
		exit(EXIT_SUCCESS);
		break;
	}
	beep();
	return FALSE;
}

static FIELD *
LABEL(FIELD_RECORD *x)
{
	char *tmp;
	FIELD *f = new_field(1, (int)(strlen(x->v)+2), x->frow, x->fcol, 0, 0);

	if (f) {
		x->v = realloc(x->v, sizeof(char *) * (strlen(x->v)+2));
		tmp = malloc(sizeof(char *) * strlen(x->v));
		if (x->v == NULL || tmp == NULL)
			bailout("malloc: %s", strerror(errno));

		if (x->required == 1)
			(void)strcpy(tmp, "* ");
		else
			(void)strcpy(tmp, "  ");
		(void)strcat(tmp, x->v);
		(void)strcpy(x->v, tmp);
		set_field_buffer(f, 0, x->v);
		free(tmp);
		field_opts_off(f, O_ACTIVE);
		if (x->newpage == 1)
			set_new_page(f, TRUE);
	}
	return f;
}

static FIELD *
STRING(FIELD_RECORD *x)
{				/* create a STRING field */
	FIELD *f = new_field(x->rows, x->cols, x->frow, x->fcol, 0, 0);

	if (f) {
		set_field_back(f, A_UNDERLINE);
		if (x->newpage == 1)
			set_new_page(f, TRUE);
		if (x->required == 1)
			field_opts_off(f, O_NULLOK);
		if (x->bigfield) {
			field_opts_off(f, O_STATIC);
			set_max_field(f, x->rcols);
		}
		set_field_buffer(f, 0, x->v);
	}
	return f;
}

static FIELD *
IPV4(FIELD_RECORD *x)
{				/* create an IPV4 field */
	FIELD *f = new_field(x->rows, x->cols, x->frow, x->fcol, 0, 0);

	if (f) {
		set_field_type(f, TYPE_IPV4);
		set_field_back(f, A_UNDERLINE);
		if (x->newpage == 1)
			set_new_page(f, TRUE);
		if (x->required == 1)
			field_opts_off(f, O_NULLOK);
		if (x->bigfield) {
			field_opts_off(f, O_STATIC);
			set_max_field(f, x->rcols);
		}
		set_field_buffer(f, 0, x->v);
	}
	return f;
}

static FIELD *
IPV6(FIELD_RECORD *x)
{				/* create an IPV6 field */
	FIELD *f = new_field(x->rows, x->cols, x->frow, x->fcol, 0, 0);

	if (f) {
		set_field_type(f, TYPE_IPV6);
		set_field_back(f, A_UNDERLINE);
		if (x->newpage == 1)
			set_new_page(f, TRUE);
		if (x->required == 1)
			field_opts_off(f, O_NULLOK);
		if (x->bigfield) {
			field_opts_off(f, O_STATIC);
			set_max_field(f, x->rcols);
		}
		set_field_buffer(f, 0, x->v);
	}
	return f;
}

static FIELD *
MULTI(FIELD_RECORD *x)
{				/* create a MULTI field */
	FIELD *f = new_field(x->rows, x->cols, x->frow, x->fcol, 0, 1);

	if (f) {
		set_field_back(f, A_REVERSE);
		if (x->newpage == 1)
			set_new_page(f, TRUE);
		field_opts_off(f, O_STATIC);
		field_opts_off(f, O_EDIT);
		set_field_userptr(f, x->list);
		set_field_buffer(f, 1, "multi");
	}
	return f;
}

static FIELD *
INTEGER(FIELD_RECORD *x)
{				/* create an INTEGER field */
	FIELD *f = new_field(x->rows, x->cols, x->frow, x->fcol, 0, 0);
	int pre, min, max;
	char *p, *q, *n;

	p = x->v;
	q = strsep(&p, ",");
	pre = atoi(q);
	q = strsep(&p, ",");
	min = atoi(q);
	n = strdup(p);
	q = strsep(&p, ",");
	if (p == NULL)
		max = atoi(n);
	else
		max = atoi(q);

	if (f) {
		set_field_back(f, A_UNDERLINE);
		set_field_type(f, TYPE_INTEGER, pre, min, max);
		if (x->newpage == 1)
			set_new_page(f, TRUE);
		if (x->required == 1)
			field_opts_off(f, O_NULLOK);
		if (x->bigfield)
			field_opts_off(f, O_STATIC);
		if (p != NULL)
			set_field_buffer(f, 0, p);
	}
	return f;
}

static FIELD *
INVIS(FIELD_RECORD *x)
{				/* create an INVIS field */
	FIELD *f = new_field(x->rows, x->cols, x->frow, x->fcol, 0, 0);

	if (f) {
		set_field_opts(f, field_opts(f) & ~(O_ACTIVE|O_VISIBLE));
		if (x->bigfield) {
			field_opts_off(f, O_STATIC);
			set_max_field(f, x->rcols);
		}
		if (x->newpage == 1)
			set_new_page(f, TRUE);
		set_field_buffer(f, 0, x->v);
	}
	return f;
}

static FIELD *
NOEDIT(FIELD_RECORD *x)
{				/* create a NOEDIT field */
	FIELD *f = new_field(x->rows, x->cols, x->frow, x->fcol, 0, 0);

	if (f) {
		set_field_opts(f, field_opts(f) & ~(O_EDIT|O_ACTIVE));
		if (x->newpage == 1)
			set_new_page(f, TRUE);
		if (x->bigfield) {
			field_opts_off(f, O_STATIC);
			set_max_field(f, x->rcols);
		}
		set_field_buffer(f, 0, x->v);
	}
	return f;
}

static FIELD *
ENUM(FIELD_RECORD *x)
{				/* create a ENUM field */
	FIELD *f = new_field(x->rows, x->cols, x->frow, x->fcol, 0, 1);

	if (f) {
		set_field_back(f, A_REVERSE);
		set_field_type(f, TYPE_ENUM, x->list, FALSE, FALSE);
		set_field_userptr(f, x->list);
		if (x->newpage == 1)
			set_new_page(f, TRUE);
		if (x->required == 1)
			field_opts_off(f, O_NULLOK);
		field_opts_off(f, O_EDIT);
		set_field_buffer(f, 1, "single");
		if (x->bigfield)
			field_opts_off(f, O_STATIC);
		set_field_buffer(f, 0, x->list[0]);
	}
	return f;
}

FIELD_RECORD *F;

static int
process_preform(FORM *form, char *path)
{
	char file[PATH_MAX];
	struct stat sb;
	char *p;
	int fc, lcnt, i, j;
	FIELD **f;
	char **args;

	if (lang_id == NULL) {
		sprintf(file, "%s/%s", path, FORMFILE);
	} else {
		sprintf(file, "%s/%s.%s", path, FORMFILE, lang_id);
		if (stat(file, &sb) != 0)
			sprintf(file, "%s/%s", path, FORMFILE);
	}

	args = malloc(sizeof(char *) * 2);
	if (args == NULL)
		bailout("malloc: %s", strerror(errno));
	fc = lcnt = field_count(form);
	args = realloc(args, sizeof(char *) * (lcnt+1));
	if (args == NULL)
		bailout("malloc: %s", strerror(errno));

	f = form_fields(form);
	for (lcnt=0, i=0; lcnt < fc; lcnt++)
		if (F[lcnt].type != (PF_field)LABEL) {
			if (field_buffer(f[lcnt], 0) == NULL)
				args[i] = "";
			else
				args[i] = strdup(field_buffer(f[lcnt], 0));
			if (args[i] != NULL) {
				p = &args[i][strlen(args[i]) - 1];
					p--;
				while(isspace(*p))
					*p-- = '\0';
			}
			i++;
		}
	args[i] = NULL;

	for (i=0; F[i].type != NULL; i++) {
		free(F[i].v);
		if (F[i].list != NULL) {
			for (j=0; F[i].list[j] != NULL; j++)
				free(F[i].list[j]);
			free(F[i].list);
		}
	}
	free(F);

	i = handle_form(path, file, args);

	for (j=0; args[j] != NULL; j++)
		free(args[j]);
	free(args);
	return(i);
}

int
process_form(FORM *form, char *path)
{
	FILE *fp;
	char file[PATH_MAX], file2[PATH_MAX];
	struct stat sb;
	char *exec, *t, *p;
	size_t len;
	int fc, lcnt, i, j;
	FIELD **f;
	char **args;

	/* handle the preform somewhere else */
	if (strcmp("pre", form_userptr(form)) == 0)
		return(process_preform(form, path));

	if (lang_id == NULL) {
		sprintf(file, "%s/%s", path, EXECFILE);
		sprintf(file2, "%s/%s", path, SCRIPTFILE);
	} else {
		sprintf(file, "%s/%s.%s", path, EXECFILE, lang_id);
		sprintf(file2, "%s/%s.%s", path, SCRIPTFILE, lang_id);
		if (stat(file, &sb) != 0)
			sprintf(file, "%s/%s", path, EXECFILE);
		if (stat(file2, &sb) != 0)
			sprintf(file2, "%s/%s", path, SCRIPTFILE);
	}

	args = malloc(sizeof(char *) * 2);
	if (args == NULL)
		bailout("malloc: %s", strerror(errno));

	if ((fp = fopen(file, "r"))) {
		for (lcnt = 1; (exec = fgetln(fp, &len)) != NULL; ++lcnt) {
			if (len == 1)	/* skip blank */
				continue;
			if (exec[len - 1] == '#')	/* Skip comments */
				continue;
			if (exec[len - 1] != '\n') { /* corruped? */
				warnx("%s: line %d corrupted", path, lcnt);
				continue;
			}
			exec[len - 1] = '\0';	/* NUL terminate */
			for (; *exec != '\0' && isspace((unsigned char)*exec);
			     ++exec);
			if (*exec == '\0' || *exec == '#')
				continue;
			p = strsep(&exec, " ");
			for (i = 0; p != NULL; p = strsep(&exec, " "), i++) {
				args = realloc(args, sizeof(char *) * (i+2));
				if (args == NULL)
					bailout("realloc: %s", strerror(errno));
				args[i] = strdup(p);
			}
			t = NULL;
		}
		fclose(fp);
	} else if (stat(file2, &sb) == 0) {
		t = strdup(file2);
		i = 1;
	} else
		bailout(catgets(catalog, 1, 13, "no files"));

	fc = lcnt = field_count(form);
	args = realloc(args, sizeof(char *) * (lcnt+1+i));
	if (args == NULL)
		bailout("malloc: %s", strerror(errno));

	f = form_fields(form);
	for (lcnt=0; lcnt < fc; lcnt++)
		if (F[lcnt].type != (PF_field)LABEL) {
			if (field_buffer(f[lcnt], 0) == NULL)
				args[i] = "";
			else
				args[i] = strdup(field_buffer(f[lcnt], 0));
			if (args[i] != NULL) {
				p = &args[i][strlen(args[i]) - 1];
					p--;
				while(isspace(*p))
					*p-- = '\0';
			}
			i++;
		}
	if (t != NULL)
		args[0] = t;
	args[i] = NULL;

	i = run_prog(1, args);

	for (j=0; args[j] != NULL; j++)
		free(args[j]);
	free(args);

	return(i);
}

static FIELD  **
make_fields(void)
{				/* create the fields */
	FIELD **f, **fields;
	int i;

	f = malloc(sizeof(FIELD *) * (MAX_FIELD+1));
	if (f == NULL)
		bailout("malloc: %s", strerror(errno));
	fields = f;

	for (i = 0; i < MAX_FIELD && F[i].type; ++i, ++f)
		*f = (F[i].type)(&F[i]);

	*f = (FIELD *) 0;

	return fields;
}

struct cqForm cqFormHead, *cqFormHeadp;

static int
tstring(int max, char *string)
{
	char hold[10];
	int cur;

	if (max == 0)
		return(0);
	for (cur=0; cur <= max; cur++) {
		sprintf(hold, "@@@%d@@@", cur);
		if (strcmp(hold, string) == 0)
			return(cur);
	}
	return(0);
}

static int
strlen_data(FTREE_ENTRY *ftp)
{
	int i, j;
	char *p, *q, *o;

	i = 0;
	switch(ftp->type) {
	case DATAT_BLANK:
		return(1);
		/* NOTREACHED */
		break;
	case DATAT_ENTRY:
	case DATAT_ESCRIPT:
	case DATAT_NESCRIPT:
	case DATAT_V4:
	case DATAT_V4SCRIPT:
	case DATAT_V6:
	case DATAT_V6SCRIPT:
	case DATAT_INVIS:
	case DATAT_NOEDIT:
		return(ftp->elen);
		/* NOTREACHED */
		break;
	case DATAT_LIST:
	case DATAT_FUNC:
	case DATAT_SCRIPT:
	case DATAT_MLIST:
	case DATAT_MFUNC:
	case DATAT_MSCRIPT:
		if (ftp->list == NULL)
			return 0;
		for (i = 0, j = 0; ftp->list[i] != NULL; i++) {
			size_t k;
			if ((k = strlen(ftp->list[i])) > j)
				j = k;
		}
		return(j);
		/* NOTREACHED */
		break;
	case DATAT_INTEGER:
	case DATAT_ISCRIPT:
		o = p = strdup(ftp->data);
		q = strsep(&p, ",");
		i = atoi(q);
		free(o);
		return(i);
		/* NOTREACHED */
		break;
	default:
		bailout(catgets(catalog, 1, 14, "invalid field type"));
		break;
	}
	return(1); /* eep! */
}

static void
gen_list(FTREE_ENTRY *ftp, int max, char **args)
{
	int i=0;
	int lmax = 10;
	int cur;
	char *p, *q;

	ftp->list = malloc(sizeof(char*) * lmax);
	if (ftp->list == NULL)
		bailout("malloc: %s", strerror(errno));
	for (p = ftp->data; p != NULL;) {
		q = (char *)strsep(&p, ",");
		if (q != NULL) {
			cur = tstring(max, q);
			if (cur)
				ftp->list[i++] = strdup(args[cur-1]);
			else
				ftp->list[i++] = strdup(q);
		}
		if (i == lmax - 2) {
			lmax += 10;
			ftp->list = realloc(ftp->list, sizeof(char*) * lmax);
			if (ftp->list == NULL)
				bailout("realloc: %s", strerror(errno));
		}
	}
	ftp->list[i] = NULL;
}

static void
gen_func(FTREE_ENTRY *ftp, int max, char **args)
{
	int i, cur;
	char *p, *q;

	p = strsep(&ftp->data, ",");
	q = strsep(&ftp->data, ",");
	for (i=0; func_map[i].funcname != NULL; i++)
		if (strcmp(func_map[i].funcname, p) == 0)
			break;

	if (func_map[i].function == NULL)
		bailout("%s: %s",
		    catgets(catalog, 1, 5, "function not found"), p);

	cur = tstring(max, q);
	if (cur)
		ftp->list = func_map[i].function(args[cur-1]);
	else
		ftp->list = func_map[i].function(q);
}

static void
gen_script(FTREE_ENTRY *ftp, char *dir, int max, char **args)
{
	char *p, *q, *qo, *po, *comm, *test;
	FILE *file;
	char buf[PATH_MAX+30];
#if 0
	struct stat sb;
#endif
	size_t len;
	int i, cur;
	int lmax = 10;

	qo = q = strdup(ftp->data);
	comm = malloc(sizeof(char) * strlen(q) + 2);
	if (comm == NULL)
		bailout("malloc: %s", strerror(errno));
	p = strsep(&q, ",");
	(void)strcpy(comm, p);
	po = NULL;
	if (q != NULL)
		for (po=p=strdup(q); p != NULL; p = strsep(&q, ",")) {
			(void)strcat(comm, " ");
			for (test=p; *test != '\0'; test++)
				if (*test == ',') {
					*test = '\0';
					test++;
					q = test;
					break;
				}
			cur = tstring(max, p);
			if (cur) {
				comm = realloc(comm, sizeof(char) *
				    (strlen(comm) + strlen(args[cur-1]) + 2));
				if (comm == NULL)
					bailout("malloc: %s", strerror(errno));
				(void)strcat(comm, args[cur-1]);
			} else {
				comm = realloc(comm, sizeof(char) *
				    (strlen(comm) + strlen(p) + 2));
				if (comm == NULL)
					bailout("malloc: %s", strerror(errno));
				(void)strcat(comm, p);
			}
		}
	free(qo);
	if (po)
		free(po);

	sprintf(buf, "%s/%s", dir, comm);

#if 0
	if (stat(buf, &sb) != 0)
		bailout("%s: %s", buf, strerror(errno));
#endif

	file = popen(buf, "r");
	if (file == NULL)
		bailout("popen: %s", strerror(errno));

	ftp->list = malloc(sizeof(char *) * lmax);
	if (ftp->list == NULL)
		bailout("malloc: %s", strerror(errno));

	for (i = 0; (p = fgetln(file, &len)) != NULL;) {
		if (len <= 1)
			continue;
		ftp->list[i] = malloc(len);
		if (ftp->list[i] == NULL)
			bailout("malloc: %s", strerror(errno));
		memcpy(ftp->list[i], p, len);
		ftp->list[i][len - 1] = '\0';
		if (++i == lmax - 2) {
			lmax += 10; 
			ftp->list = realloc(ftp->list, sizeof(char *) * lmax);
			if (ftp->list == NULL)
				bailout("realloc: %s", strerror(errno));
		}
	}
	pclose(file);
	if (i == 0) {
		ftp->list[0] = "";
		ftp->list[1] = NULL;
	} else {
		ftp->list[i] = NULL;
	}
	free(comm);
}

static char *
gen_escript(FTREE_ENTRY *ftp, char *dir, int max, char **args)
{
	char *p, *q, *qo, *po, *test, *comm;
	FILE *file;
	char buf[PATH_MAX+30];
	size_t len;
	int cur;
/*	struct stat sb; */

	if (ftp->data == NULL)
		bailout(catgets(catalog, 1, 22,
		    "Null filename in escript argument"));
	else
		qo = q = strdup(ftp->data);

	comm = malloc(sizeof(char) * strlen(q) + 2);
	if (comm == NULL)
		bailout("malloc: %s", strerror(errno));
	p = strsep(&q, ",");
	(void)strcpy(comm, p);
	po = NULL;
	if (q != NULL)
		for (po=p=strdup(q); p != NULL; p = strsep(&q, ",")) {
			(void)strcat(comm, " ");
			for (test=p; *test != '\0'; test++)
				if (*test == ',') {
					*test = '\0';
					test++;
					q = test;
					break;
				}
			cur = tstring(max, p);
			if (cur) {
				comm = realloc(comm, sizeof(char) *
				    (strlen(comm) + strlen(args[cur-1]) + 2));
				if (comm == NULL)
					bailout("malloc: %s", strerror(errno));
				(void)strcat(comm, args[cur-1]);
			} else {
				comm = realloc(comm, sizeof(char) *
				    (strlen(comm) + strlen(p) + 2));
				if (comm == NULL)
					bailout("malloc: %s", strerror(errno));
				(void)strcat(comm, p);
			}
		}

	free(qo);
	if (po)
		free(po);

	sprintf(buf, "%s/%s", dir, comm);

#if 0
	if (stat(buf, &sb) != 0)
		bailout("%s: %s", buf, strerror(errno));
#endif
	file = popen(buf, "r");
	if (file == NULL)
		bailout("popen: %s", strerror(errno));

	p = fgetln(file, &len);
	if (p != NULL) {
		p[len - 1] = '\0';	/* strip newline & NUL terminate */
		q = strdup(p);
	} else
		bailout("fgetln: %s", strerror(errno));

	pclose(file);
	free(comm);
	return(q);
}

static char *
gen_integer(FTREE_ENTRY *ftp, int max, char **args)
{
	char *q, *qo, *tmp;
	char buf[PATH_MAX+30];	
	int pre, min, maxi, cur;

	qo = q = strdup(ftp->data);
	tmp = strsep(&q, ",");
	cur = tstring(max, tmp);
	if (cur)
		pre = atoi(args[cur-1]);
	else
		pre = atoi(tmp);
	tmp = strsep(&q, ",");
	cur = tstring(max, tmp);
	if (cur)
		min = atoi(args[cur-1]);
	else
		min = atoi(tmp);
	tmp = strsep(&q, ",");
	cur = tstring(max, tmp);
	if (cur)
		maxi = atoi(args[cur-1]);
	else
		maxi = atoi(tmp);
	if (q == NULL)
		snprintf(buf, sizeof(buf), "%d,%d,%d", pre, min, maxi);
	else
		snprintf(buf, sizeof(buf), "%d,%d,%d,%s", pre, min, maxi, q);
	q = strdup(buf);
	free(qo);

	return(q);
}

static char *
gen_iscript(FTREE_ENTRY *ftp, char *dir, int max, char **args)
{
	char *p, *q, *qo, *po, *test, *comm, *tmp;
	FILE *file;
	char buf[PATH_MAX+30];
/*	struct stat sb; */
	size_t len;
	int cur, min, maxi, pre;

	qo = q = strdup(ftp->data);
	tmp = strsep(&q, ",");
	pre = atoi(tmp);
	tmp = strsep(&q, ",");
	min = atoi(tmp);
	tmp = strsep(&q, ",");
	maxi = atoi(tmp);

	comm = malloc(sizeof(char) * strlen(q) + 2);
	if (comm == NULL)
		bailout("malloc: %s", strerror(errno));
	tmp = strsep(&q, ",");
	(void)strcpy(comm, tmp);
	po = NULL;
	if (q != NULL)
		for (po=p=strdup(q); p != NULL; p = strsep(&q, ",")) {
			(void)strcat(comm, " ");
			for (test=p; *test != '\0'; test++)
				if (*test == ',') {
					*test = '\0';
					test++;
					q = test;
					break;
				}
			cur = tstring(max, p);
			if (cur) {
				comm = realloc(comm, sizeof(char) *
				    (strlen(comm) + strlen(args[cur-1]) + 2));
				if (comm == NULL)
					bailout("malloc: %s", strerror(errno));
				(void)strcat(comm, args[cur-1]);
			} else {
				comm = realloc(comm, sizeof(char) *
				    (strlen(comm) + strlen(p) + 2));
				if (comm == NULL)
					bailout("malloc: %s", strerror(errno));
				(void)strcat(comm, p);
			}
		}
	free(qo);
	if (po)
		free(po);

	sprintf(buf, "%s/%s", dir, comm);

#if 0
	if (stat(buf, &sb) != 0)
		bailout("%s: %s", buf, strerror(errno));
#endif
	file = popen(buf, "r");
	if (file == NULL)
		bailout("popen: %s", strerror(errno));

	p = fgetln(file, &len);
	if (p != NULL) {
		p[len - 1] = '\0';	/* strip newline & NUL terminate */
		q = strdup(p);
	} else
		bailout("fgetln: %s", strerror(errno));

	pclose(file);
	snprintf(buf, sizeof(buf), "%d,%d,%d,%s", pre, min, maxi, q);
	free(q);
	q = strdup(buf);

	free(comm);

	return(q);
}

static void
form_generate(struct cqForm *cqf, char *basedir, char **args)
{
	int i=0;
	int lrow=0;
	int max, cur;
	char *p;
	FTREE_ENTRY *ftp;

	for (max=0, cur=0; args[max] != NULL; max++);

	for (ftp = CIRCLEQ_FIRST(cqf); ftp != (void *)cqf;
	     ftp = CIRCLEQ_NEXT(ftp, cqFormEntries)) {

		F[i].type = LABEL;
		F[i].rows = 0;
		F[i].cols = 0;
		if (lrow >= ws.ws_row-6) {
			F[i].newpage = 1;
			lrow = 0;
		} else
			F[i].newpage = 0;
		F[i].frow = lrow;
		F[i].fcol = 0;
		F[i].v = strdup(ftp->desc);
		F[i].required = ftp->required;
		F[i].list = (char **)NULL;
		i++;

		if (ftp->type != DATAT_BLANK) {
			F[i].required = ftp->required;
			F[i].list = (char **)NULL;
			switch(ftp->type) {
			case DATAT_ENTRY:
				F[i].type = STRING;
				p = strsep(&ftp->data, ",");
				if (ftp->data == NULL)
					ftp->data = strdup("");
				ftp->elen = atoi(p);
				cur = tstring(max, ftp->data);
				if (cur)
					F[i].v = strdup(args[cur-1]);
				else
					F[i].v = strdup(ftp->data);
				break;
			case DATAT_LIST:
				F[i].type = ENUM;
				F[i].v = strdup(ftp->data);
				gen_list(ftp, max, args);
				F[i].list = ftp->list;
				break;
			case DATAT_FUNC:
				F[i].type = ENUM;
				F[i].v = strdup(ftp->data);
				gen_func(ftp, max, args);
				F[i].list = ftp->list;
				break;
			case DATAT_SCRIPT:
				F[i].type = ENUM;
				F[i].v = strdup(ftp->data);
				gen_script(ftp, basedir, max, args);
				F[i].list = ftp->list;
				break;
			case DATAT_MLIST:
				F[i].type = MULTI;
				F[i].v = strdup(ftp->data);
				gen_list(ftp, max, args);
				F[i].list = ftp->list;
				break;
			case DATAT_MFUNC:
				F[i].type = MULTI;
				F[i].v = strdup(ftp->data);
				gen_func(ftp, max, args);
				F[i].list = ftp->list;
				break;
			case DATAT_MSCRIPT:
				F[i].type = MULTI;
				F[i].v = strdup(ftp->data);
				gen_script(ftp, basedir, max, args);
				F[i].list = ftp->list;
				break;
			case DATAT_NOEDIT:
				F[i].type = NOEDIT;
				cur = tstring(max, ftp->data);
				if (cur)
					F[i].v = strdup(args[cur-1]);
				else
					F[i].v = strdup(ftp->data);
				ftp->elen = strlen(F[i].v);
				break;
			case DATAT_INVIS:
				F[i].type = INVIS;
				cur = tstring(max, ftp->data);
				if (cur)
					F[i].v = strdup(args[cur-1]);
				else
					F[i].v = strdup(ftp->data);
				ftp->elen = strlen(F[i].v);
				break;
			case DATAT_INTEGER:
				F[i].type = INTEGER;
				F[i].v = gen_integer(ftp, max, args);
				break;
			case DATAT_ISCRIPT:
				F[i].type = INTEGER;
				F[i].v = gen_iscript(ftp, basedir, max, args);
				break;					
			case DATAT_ESCRIPT:
				F[i].type = STRING;
				p = strsep(&ftp->data, ",");
				ftp->elen = atoi(p);
				F[i].v = gen_escript(ftp, basedir, max, args);
				if (strlen(F[i].v) > ftp->elen)
					ftp->elen = strlen(F[i].v);
				break;
			case DATAT_NESCRIPT:
				F[i].type = NOEDIT;
				F[i].v = gen_escript(ftp, basedir, max, args);
				ftp->elen = strlen(F[i].v);
				break;
			case DATAT_V4SCRIPT:
				F[i].type = IPV4;
				F[i].v = gen_escript(ftp, basedir, max, args);
				ftp->elen = 18;
				break;
			case DATAT_V4:
				F[i].type = IPV4;
				cur = tstring(max, ftp->data);
				if (cur)
					F[i].v = strdup(args[cur-1]);
				else {
					if (ftp->data == NULL)
						ftp->data = strdup("");
					F[i].v = strdup(ftp->data);
				}
				ftp->elen = 18;
				break;
			case DATAT_V6SCRIPT:
				F[i].type = IPV6;
				F[i].v = gen_escript(ftp, basedir, max, args);
				ftp->elen = 48;
				break;
			case DATAT_V6:
				F[i].type = IPV6;
				cur = tstring(max, ftp->data);
				if (cur)
					F[i].v = strdup(args[cur-1]);
				else {
					if (ftp->data == NULL)
						ftp->data = strdup("");
					F[i].v = strdup(ftp->data);
				}
				ftp->elen = 48;
				break;
			}
			F[i].rows = 1;
			F[i].rcols = F[i].cols = strlen_data(ftp);
			if (F[i].cols > 19) {
				F[i].bigfield = 1;
				F[i].cols = 19;
			} else
				F[i].bigfield = 0;
			F[i].newpage = 0;
			F[i].fcol = 55;
			F[i].frow = lrow;
			i++;
		}
		lrow++;
	}
	/* generate the final entry */
	F[i].type = (PF_field)NULL;
	F[i].rows = 0;
	F[i].cols = 0;
	F[i].frow = 0;
	F[i].fcol = 0;
	F[i].v = (char *)NULL;
	F[i].list = (char **)NULL;
	F[i].newpage = 0;
}

static void
tab_help(FORM *form)
{
	CDKLABEL *label;
	char *msg[4];
	char *buffer;
	FIELD *curfield;
	int lines;

	curfield = current_field(form);
	buffer = field_buffer(curfield, 1);
	if (buffer == NULL)
		return;
	if (*buffer == 's') {
		msg[0] = catgets(catalog, 3, 10, "The current field is a list "
		    "field, and selections can only be made from");
		msg[1] = catgets(catalog, 3, 11, "the pre-defined list.  "
		    "Please use TAB or the List(F4) command to edit.");
		msg[2] = catgets(catalog, 3, 12, "Press the ENTER key to "
		    "return from the list popup.");
		lines = 3;
	} else if (*buffer == 'm') {
		msg[0] = catgets(catalog, 3, 13, "The current field is a "
		    "multiple-selection list field.  The field can only");
		msg[1] = catgets(catalog, 3, 14, "be edited by issuing "
		    "the List(F4) command, and toggling desired options");
		msg[2] = catgets(catalog, 3, 15, "with the spacebar.  "
		    "Press the ENTER key to return from the list popup.");
		lines = 3;
	} else
		return;

	label = newCDKLabel(cdkscreen, CENTER, CENTER, msg, lines, TRUE, FALSE);
	activateCDKLabel(label, NULL);
	waitCDKLabel(label, NULL);
	destroyCDKLabel(label);
	touchwin(stdscr);
	wrefresh(stdscr);
}

int
handle_form(char *basedir, char *path, char **args)
{
	WINDOW *formwin, *boxwin;
	CDKLABEL *label;
	char *msg[1];
	FORM *menuform;
	FIELD **f;
	int done = FALSE;
	int c, i, j, fc;
	FTREE_ENTRY *ftp;

	CIRCLEQ_INIT(&cqFormHead);
	cqFormHeadp = &cqFormHead;
	if (scan_form(cqFormHeadp, path))
		return(1);

	F = calloc(sizeof(FIELD_RECORD),
	    (form_entries(&cqFormHead) * 2 + 1));
	if (F == NULL)
		bailout("malloc: %s", strerror(errno));
	fflush(NULL);

	/* generate a label to let the user know we are thinking */
	msg[0] = catgets(catalog, 4, 2, "Generating form data, please wait");
	label = newCDKLabel(cdkscreen, CENTER, CENTER, msg, 1, TRUE, FALSE);
	activateCDKLabel(label, NULL);

	if (args == NULL)
		form_generate(&cqFormHead, basedir, (char **)NULL);
	else
		form_generate(&cqFormHead, basedir, args);

	if (!(menuform = new_form(make_fields())))
		bailout(catgets(catalog, 1, 15, "error return from new_form"));

	set_form_userptr(menuform, "post");

	destroyCDKLabel(label);

	wclear(stdscr);
	formwin = subwin(stdscr, ws.ws_row-5, ws.ws_col-2, 1, 1);
	boxwin = subwin(stdscr, ws.ws_row-3, ws.ws_col, 0, 0);
	bottom_help(2);
	box(boxwin, 0, 0);
	keypad(formwin, TRUE);
	set_form_sub(menuform, formwin);
	post_form(menuform);
	wrefresh(stdscr);
	wrefresh(boxwin);
	form_status(menuform);
	while (!done) {
		switch (form_driver(menuform, c = get_request(formwin))) {
		case E_OK:
			if (c == REQ_NEXT_PAGE || c == REQ_PREV_PAGE ||
			    c == REQ_FIRST_PAGE || c == REQ_LAST_PAGE)
				form_status(menuform);
			break;
		case E_UNKNOWN_COMMAND:
			done = my_driver(menuform, c, basedir);
			break;
		case E_REQUEST_DENIED:
			tab_help(menuform);
			break;
		default:
			break;
		}
	}
	fc = field_count(menuform);
	f = form_fields(menuform);
	unpost_form(menuform);
	for(; fc > 0; fc--)
		free_field(*f++);
	free_form(menuform);
	for (i=0; F[i].type != NULL; i++) {
		free(F[i].v);
		if (F[i].list != NULL) {
			for (j=0; F[i].list[j] != NULL; j++)
				free(F[i].list[j]);
			free(F[i].list);
		}
	}
	free(F);
	ftp = CIRCLEQ_FIRST(&cqFormHead);
	for (; !CIRCLEQ_EMPTY(&cqFormHead); ftp = CIRCLEQ_FIRST(&cqFormHead)) {
		CIRCLEQ_REMOVE(&cqFormHead, ftp, cqFormEntries);
		free(ftp->desc);
		free(ftp->origdata);
		free(ftp);
	}
	delwin(formwin);
	delwin(boxwin);
	wclear(stdscr);
	wrefresh(stdscr);
	if (done == 2)
		return(1);

	return(0);
}	

int
handle_preform(char *basedir, char *path)
{
	WINDOW *formwin, *boxwin;
	CDKLABEL *label;
	char *msg[1];
	FORM *menuform;
	FIELD **f;
	int done = FALSE;
	int c, i, j, fc;
	char *args[2];
	FTREE_ENTRY *ftp;

	CIRCLEQ_INIT(&cqFormHead);
	cqFormHeadp = &cqFormHead;
	if (scan_form(cqFormHeadp, path))
		return(1);

	F = calloc(sizeof(FIELD_RECORD),
	    (form_entries(&cqFormHead) * 2 + 1));
	if (F == NULL)
		bailout("malloc: %s", strerror(errno));
	fflush(NULL);

	/* generate a label to let the user know we are thinking */
	msg[0] = catgets(catalog, 4, 2, "Generating form data, please wait");
	label = newCDKLabel(cdkscreen, CENTER, CENTER, msg, 1, TRUE, FALSE);
	activateCDKLabel(label, NULL);

	args[0] = NULL;
	form_generate(&cqFormHead, basedir, args);

	if (!(menuform = new_form(make_fields())))
		bailout(catgets(catalog, 1, 15, "error return from new_form"));

	set_form_userptr(menuform, "pre");

	destroyCDKLabel(label);

	wclear(stdscr);
	formwin = subwin(stdscr, ws.ws_row-5, ws.ws_col-2, 1, 1);
	boxwin = subwin(stdscr, ws.ws_row-3, ws.ws_col, 0, 0);
	bottom_help(2);
	box(boxwin, 0, 0);
	keypad(formwin, TRUE);
	set_form_sub(menuform, formwin);
	post_form(menuform);
	wrefresh(stdscr);
	form_status(menuform);
	while (!done) {
		switch (form_driver(menuform, c = get_request(formwin))) {
		case E_OK:
			if (c == REQ_NEXT_PAGE || c == REQ_PREV_PAGE ||
			    c == REQ_FIRST_PAGE || c == REQ_LAST_PAGE)
				form_status(menuform);
			break;
		case E_UNKNOWN_COMMAND:
			done = my_driver(menuform, c, basedir);
			break;
		case E_REQUEST_DENIED:
			tab_help(menuform);
			break;
		default:
			break;
		}
	}
	fc = field_count(menuform);
	f = form_fields(menuform);
	unpost_form(menuform);
	for(; fc > 0; fc--)
		free_field(*f++);
	free_form(menuform);
	if (done == 3) {
		for (i=0; F[i].type != NULL; i++) {
			free(F[i].v);
			if (F[i].list != NULL) {
				for (j=0; F[i].list[j] != NULL; j++)
					free(F[i].list[j]);
				free(F[i].list);
			}
		}
		free(F);
	}
	ftp = CIRCLEQ_FIRST(&cqFormHead);
	for (; !CIRCLEQ_EMPTY(&cqFormHead); ftp = CIRCLEQ_FIRST(&cqFormHead)) {
		CIRCLEQ_REMOVE(&cqFormHead, ftp, cqFormEntries);
		free(ftp->desc);
		free(ftp->origdata);
		free(ftp);
	}
	delwin(formwin);
	delwin(boxwin);
	wclear(stdscr);
	wrefresh(stdscr);
	if (done == 2)
		return(1);

	return(0);
}