587 lines
11 KiB
C
587 lines
11 KiB
C
/* $NetBSD: form.c,v 1.1 2000/12/17 12:04:30 blymn Exp $ */
|
|
|
|
/*-
|
|
* Copyright (c) 1998-1999 Brett Lymn
|
|
* (blymn@baea.com.au, brett_lymn@yahoo.com.au)
|
|
* All rights reserved.
|
|
*
|
|
* This code has been donated to The NetBSD Foundation by the Author.
|
|
*
|
|
* 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. The name of the author may not be used to endorse or promote products
|
|
* derived from this software withough specific prior written permission
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 AUTHOR 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.
|
|
*
|
|
coda test.
|
|
*
|
|
*/
|
|
|
|
#include <stdlib.h>
|
|
#include <strings.h>
|
|
#include <form.h>
|
|
#include "internals.h"
|
|
|
|
extern FIELD _formi_default_field;
|
|
|
|
FORM _formi_default_form = {
|
|
FALSE, /* true if performing a init or term function */
|
|
FALSE, /* the form is posted */
|
|
NULL, /* window for the form */
|
|
NULL, /* subwindow for the form */
|
|
NULL, /* user defined pointer */
|
|
0, /* options for the form */
|
|
NULL, /* function called when form posted and
|
|
after page change */
|
|
NULL, /* function called when form is unposted and
|
|
before page change */
|
|
NULL, /* function called when form posted and after
|
|
current field changes */
|
|
NULL, /* function called when form unposted and
|
|
before current field changes */
|
|
0, /* number of fields attached */
|
|
0, /* current field */
|
|
0, /* current page of form */
|
|
0, /* number of pages in the form */
|
|
0, /* libform made the window */
|
|
NULL, /* dynamic array of fields that start
|
|
the pages */
|
|
{NULL, NULL}, /* sorted field list */
|
|
NULL /* array of fields attached to this form. */
|
|
};
|
|
|
|
/*
|
|
* Set the window associated with the form
|
|
*/
|
|
int
|
|
set_form_win(FORM *form, WINDOW *win)
|
|
{
|
|
if (form == NULL)
|
|
_formi_default_form.win = win;
|
|
else {
|
|
if (form->posted == TRUE)
|
|
return E_POSTED;
|
|
else
|
|
form->win = win;
|
|
}
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the window used by the given form
|
|
*/
|
|
WINDOW *
|
|
form_win(FORM *form)
|
|
{
|
|
if (form == NULL)
|
|
return _formi_default_form.win;
|
|
else
|
|
return form->win;
|
|
}
|
|
|
|
/*
|
|
* Set the subwindow for the form.
|
|
*/
|
|
int
|
|
set_form_sub(FORM *form, WINDOW *window)
|
|
{
|
|
if (form == NULL)
|
|
_formi_default_form.subwin = window;
|
|
else {
|
|
if (form->posted == TRUE)
|
|
return E_POSTED;
|
|
else
|
|
form->subwin = window;
|
|
}
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the subwindow for the given form.
|
|
*/
|
|
WINDOW *
|
|
form_sub(FORM *form)
|
|
{
|
|
if (form == NULL)
|
|
return _formi_default_form.subwin;
|
|
else
|
|
return form->subwin;
|
|
}
|
|
|
|
/*
|
|
* Return the minimum size required to contain the form.
|
|
*/
|
|
int
|
|
scale_form(FORM *form, int *rows, int *cols)
|
|
{
|
|
int i, max_row, max_col, temp;
|
|
|
|
if ((form->fields == NULL) || (form->fields[0] == NULL))
|
|
return E_NOT_CONNECTED;
|
|
|
|
max_row = 0;
|
|
max_col = 0;
|
|
|
|
for (i = 0; i < form->field_count; i++) {
|
|
temp = form->fields[i]->form_row + form->fields[i]->rows;
|
|
max_row = (temp > max_row)? temp : max_row;
|
|
temp = form->fields[i]->form_col + form->fields[i]->cols;
|
|
max_col = (temp > max_col)? temp : max_col;
|
|
}
|
|
|
|
(*rows) = max_row;
|
|
(*cols) = max_col;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Set the user defined pointer for the form given.
|
|
*/
|
|
int
|
|
set_form_userptr(FORM *form, char *ptr)
|
|
{
|
|
if (form == NULL)
|
|
_formi_default_form.userptr = ptr;
|
|
else
|
|
form->userptr = ptr;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the user defined pointer associated with the given form.
|
|
*/
|
|
char *
|
|
form_userptr(FORM *form)
|
|
{
|
|
|
|
if (form == NULL)
|
|
return _formi_default_form.userptr;
|
|
else
|
|
return form->userptr;
|
|
}
|
|
|
|
/*
|
|
* Set the form options to the given ones.
|
|
*/
|
|
int
|
|
set_form_opts(FORM *form, Form_Options options)
|
|
{
|
|
if (form == NULL)
|
|
_formi_default_form.opts = options;
|
|
else
|
|
form->opts = options;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Turn the given options on for the form.
|
|
*/
|
|
int
|
|
form_opts_on(FORM *form, Form_Options options)
|
|
{
|
|
if (form == NULL)
|
|
_formi_default_form.opts |= options;
|
|
else
|
|
form->opts |= options;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Turn the given options off for the form.
|
|
*/
|
|
int
|
|
form_opts_off(FORM *form, Form_Options options)
|
|
{
|
|
if (form == NULL)
|
|
_formi_default_form.opts &= ~options;
|
|
else
|
|
form->opts &= ~options;
|
|
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the options set for the given form.
|
|
*/
|
|
Form_Options
|
|
form_opts(FORM *form)
|
|
{
|
|
if (form == NULL)
|
|
return _formi_default_form.opts;
|
|
else
|
|
return form->opts;
|
|
}
|
|
|
|
/*
|
|
* Set the form init function for the given form
|
|
*/
|
|
int
|
|
set_form_init(FORM *form, Form_Hook func)
|
|
{
|
|
if (form == NULL)
|
|
_formi_default_form.form_init = func;
|
|
else
|
|
form->form_init = func;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the init function associated with the given form.
|
|
*/
|
|
Form_Hook
|
|
form_init(FORM *form)
|
|
{
|
|
if (form == NULL)
|
|
return _formi_default_form.form_init;
|
|
else
|
|
return form->form_init;
|
|
}
|
|
|
|
/*
|
|
* Set the function to be called on form termination.
|
|
*/
|
|
int
|
|
set_form_term(FORM *form, Form_Hook function)
|
|
{
|
|
if (form == NULL)
|
|
_formi_default_form.form_term = function;
|
|
else
|
|
form->form_term = function;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the function defined for the termination function.
|
|
*/
|
|
Form_Hook
|
|
form_term(FORM *form)
|
|
{
|
|
|
|
if (form == NULL)
|
|
return _formi_default_form.form_term;
|
|
else
|
|
return form->form_term;
|
|
}
|
|
|
|
|
|
/*
|
|
* Attach the given fields to the form.
|
|
*/
|
|
int
|
|
set_form_fields(FORM *form, FIELD **fields)
|
|
{
|
|
int num_fields = 0, i, maxpg = 1, status;
|
|
|
|
if (form == NULL)
|
|
return E_BAD_ARGUMENT;
|
|
|
|
if (form->posted == TRUE)
|
|
return E_POSTED;
|
|
|
|
if (fields == NULL)
|
|
return E_BAD_ARGUMENT;
|
|
|
|
while (fields[num_fields] != NULL) {
|
|
if ((fields[num_fields]->parent != NULL) &&
|
|
(fields[num_fields]->parent != form))
|
|
return E_CONNECTED;
|
|
num_fields++;
|
|
}
|
|
|
|
/* disconnect old fields, if any */
|
|
if (form->fields != NULL) {
|
|
for (i = 0; i < form->field_count; i++) {
|
|
form->fields[i]->parent = NULL;
|
|
form->fields[i]->index = -1;
|
|
}
|
|
}
|
|
|
|
/* kill old page pointers if any */
|
|
if (form->page_starts != NULL)
|
|
free(form->page_starts);
|
|
|
|
form->field_count = num_fields;
|
|
|
|
/* now connect the new fields to the form */
|
|
for (i = 0; i < num_fields; i++) {
|
|
fields[i]->parent = form;
|
|
fields[i]->index = i;
|
|
/* set the page number of the field */
|
|
if (fields[i]->page_break == 1)
|
|
maxpg++;
|
|
fields[i]->page = maxpg;
|
|
}
|
|
|
|
form->fields = fields;
|
|
form->cur_field = 0;
|
|
form->max_page = maxpg;
|
|
if ((status = _formi_find_pages(form)) != E_OK)
|
|
return status;
|
|
|
|
/* sort the fields and set the navigation pointers */
|
|
_formi_sort_fields(form);
|
|
_formi_stitch_fields(form);
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the fields attached to the form given.
|
|
*/
|
|
FIELD **
|
|
form_fields(FORM *form)
|
|
{
|
|
if (form == NULL)
|
|
return NULL;
|
|
|
|
return form->fields;
|
|
}
|
|
|
|
/*
|
|
* Return the number of fields attached to the given form.
|
|
*/
|
|
int
|
|
field_count(FORM *form)
|
|
{
|
|
if (form == NULL)
|
|
return -1;
|
|
|
|
return form->field_count;
|
|
}
|
|
|
|
/*
|
|
* Move the given field to the row and column given.
|
|
*/
|
|
int
|
|
move_field(FIELD *fptr, int frow, int fcol)
|
|
{
|
|
FIELD *field = (fptr == NULL) ? &_formi_default_field : fptr;
|
|
|
|
if (field->parent != NULL)
|
|
return E_CONNECTED;
|
|
|
|
field->form_row = frow;
|
|
field->form_col = fcol;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Set the page of the form to the given page.
|
|
*/
|
|
int
|
|
set_form_page(FORM *form, int page)
|
|
{
|
|
if (form == NULL)
|
|
return E_BAD_ARGUMENT;
|
|
|
|
if (form->in_init == TRUE)
|
|
return E_BAD_STATE;
|
|
|
|
if (page > form->max_page)
|
|
return E_BAD_ARGUMENT;
|
|
|
|
form->page = page;
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the current page of the form.
|
|
*/
|
|
int
|
|
form_page(FORM *form)
|
|
{
|
|
if (form == NULL)
|
|
return -1;
|
|
|
|
return form->page;
|
|
}
|
|
|
|
/*
|
|
* Set the current field to the field given.
|
|
*/
|
|
int
|
|
set_current_field(FORM *form, FIELD *field)
|
|
{
|
|
if (form == NULL)
|
|
return E_BAD_ARGUMENT;
|
|
|
|
if (form->in_init == TRUE)
|
|
return E_BAD_STATE;
|
|
|
|
if (field == NULL)
|
|
return E_INVALID_FIELD;
|
|
|
|
if ((field->parent == NULL) || (field->parent != form))
|
|
return E_INVALID_FIELD; /* field is not of this form */
|
|
|
|
form->cur_field = field->index;
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the current field of the given form.
|
|
*/
|
|
FIELD *
|
|
current_field(FORM *form)
|
|
{
|
|
if (form == NULL)
|
|
return NULL;
|
|
|
|
if (form->fields == NULL)
|
|
return NULL;
|
|
|
|
return form->fields[form->cur_field];
|
|
}
|
|
|
|
/*
|
|
* Allocate a new form with the given fields.
|
|
*/
|
|
FORM *
|
|
new_form(FIELD **fields)
|
|
{
|
|
FORM *new;
|
|
|
|
if ((new = (FORM *) malloc(sizeof(FORM))) == NULL)
|
|
return NULL;
|
|
|
|
|
|
/* copy in the defaults... */
|
|
bcopy(&_formi_default_form, new, sizeof(FORM));
|
|
|
|
if (new->win == NULL)
|
|
new->win = stdscr; /* something for curses to write to */
|
|
|
|
if (fields != NULL) { /* attach the fields, if any */
|
|
if (set_form_fields(new, fields) < 0) {
|
|
free(new); /* field attach failed, back out */
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
return new;
|
|
}
|
|
|
|
/*
|
|
* Free the given form.
|
|
*/
|
|
int
|
|
free_form(FORM *form)
|
|
{
|
|
int i;
|
|
|
|
if (form == NULL)
|
|
return E_BAD_ARGUMENT;
|
|
|
|
if (form->posted == TRUE)
|
|
return E_POSTED;
|
|
|
|
for (i = 0; i < form->field_count; i++) {
|
|
/* detach all the fields from the form */
|
|
form->fields[i]->parent = NULL;
|
|
form->fields[i]->index = -1;
|
|
}
|
|
|
|
free(form->fields);
|
|
free(form);
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Tell if the current field of the form has offscreen data ahead
|
|
*/
|
|
int
|
|
data_ahead(FORM *form)
|
|
{
|
|
FIELD *cur;
|
|
int end;
|
|
|
|
if ((form == NULL) || (form->fields == NULL)
|
|
|| (form->fields[0] == NULL))
|
|
return FALSE;
|
|
|
|
cur = form->fields[form->cur_field];
|
|
end = _formi_find_eol(cur->buffers[0].string,
|
|
cur->start_char + cur->hscroll
|
|
+ cur->cursor_xpos);
|
|
if ((end - cur->start_char - cur->hscroll - cur->cursor_xpos)
|
|
> cur->cols)
|
|
return TRUE;
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
/*
|
|
* Tell if current field of the form has offscreen data behind
|
|
*/
|
|
int
|
|
data_behind(FORM *form)
|
|
{
|
|
FIELD *cur;
|
|
|
|
if ((form == NULL) || (form->fields == NULL)
|
|
|| (form->fields[0] == NULL))
|
|
return FALSE;
|
|
|
|
cur = form->fields[form->cur_field];
|
|
|
|
if ((cur->start_char > 0) || (cur->hscroll > 0))
|
|
return TRUE;
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
/*
|
|
* Position the form cursor.
|
|
*/
|
|
int
|
|
pos_form_cursor(FORM *form)
|
|
{
|
|
FIELD *cur;
|
|
int row, col;
|
|
|
|
if ((form == NULL) || (form->fields == NULL) ||
|
|
(form->fields[0] == NULL))
|
|
return E_BAD_ARGUMENT;
|
|
|
|
if (form->posted != 1)
|
|
return E_NOT_POSTED;
|
|
|
|
if (form->subwin == NULL)
|
|
return E_SYSTEM_ERROR;
|
|
|
|
cur = form->fields[form->cur_field];
|
|
row = cur->form_row + cur->cursor_ypos;
|
|
col = cur->form_col + cur->cursor_xpos;
|
|
#ifdef DEBUG
|
|
fprintf(stderr, "pos_cursor: row=%d, col=%d\n", row, col);
|
|
#endif
|
|
|
|
wmove(form->subwin, row, col);
|
|
|
|
return E_OK;
|
|
}
|