950 lines
21 KiB
C
950 lines
21 KiB
C
/* $NetBSD: field.c,v 1.25 2010/02/03 15:34:43 roy 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 without 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.
|
|
*
|
|
*
|
|
*/
|
|
|
|
#include <sys/cdefs.h>
|
|
__RCSID("$NetBSD: field.c,v 1.25 2010/02/03 15:34:43 roy Exp $");
|
|
|
|
#include <stdlib.h>
|
|
#include <strings.h>
|
|
#include <stdarg.h>
|
|
#include <form.h>
|
|
#include "internals.h"
|
|
|
|
extern FORM _formi_default_form;
|
|
|
|
FIELD _formi_default_field = {
|
|
0, /* rows in the field */
|
|
0, /* columns in the field */
|
|
0, /* dynamic rows */
|
|
0, /* dynamic columns */
|
|
0, /* maximum growth */
|
|
0, /* starting row in the form subwindow */
|
|
0, /* starting column in the form subwindow */
|
|
0, /* number of off screen rows */
|
|
0, /* index of this field in form fields array. */
|
|
0, /* number of buffers associated with this field */
|
|
FALSE, /* set to true if buffer 0 has changed. */
|
|
NO_JUSTIFICATION, /* justification style of the field */
|
|
FALSE, /* set to true if field is in overlay mode */
|
|
NULL, /* pointer to the current line cursor is on */
|
|
0, /* starting char in string (horiz scroll) */
|
|
NULL, /* starting line in field (vert scroll) */
|
|
0, /* number of rows actually used in field */
|
|
0, /* actual pos of cursor in row, not same as x pos due to tabs */
|
|
0, /* x pos of cursor in field */
|
|
0, /* y pos of cursor in field */
|
|
0, /* start of a new page on the form if 1 */
|
|
0, /* number of the page this field is on */
|
|
A_NORMAL, /* character attributes for the foreground */
|
|
A_NORMAL, /* character attributes for the background */
|
|
' ', /* padding character */
|
|
DEFAULT_FORM_OPTS, /* options for the field */
|
|
NULL, /* the form this field is bound to, if any */
|
|
NULL, /* field above this one */
|
|
NULL, /* field below this one */
|
|
NULL, /* field to the left of this one */
|
|
NULL, /* field to the right of this one */
|
|
NULL, /* user defined pointer. */
|
|
NULL, /* used if fields are linked */
|
|
NULL, /* type struct for the field */
|
|
{NULL, NULL}, /* circle queue glue for sorting fields */
|
|
NULL, /* args for field type. */
|
|
NULL, /* pointer to the array of lines structures. */
|
|
NULL, /* list of lines available for reuse */
|
|
NULL, /* array of buffers for the field */
|
|
};
|
|
|
|
/* internal function prototypes */
|
|
static int
|
|
field_buffer_init(FIELD *field, int buffer, unsigned int len);
|
|
static FIELD *
|
|
_formi_create_field(FIELD *, int, int, int, int, int, int);
|
|
|
|
|
|
/*
|
|
* Set the userptr for the field
|
|
*/
|
|
int
|
|
set_field_userptr(FIELD *field, void *ptr)
|
|
{
|
|
FIELD *fp = (field == NULL) ? &_formi_default_field : field;
|
|
|
|
fp->userptr = ptr;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the userptr for the field.
|
|
*/
|
|
|
|
void *
|
|
field_userptr(FIELD *field)
|
|
{
|
|
if (field == NULL)
|
|
return _formi_default_field.userptr;
|
|
else
|
|
return field->userptr;
|
|
}
|
|
|
|
/*
|
|
* Set the options for the designated field.
|
|
*/
|
|
int
|
|
set_field_opts(FIELD *field, Form_Options options)
|
|
{
|
|
int i;
|
|
|
|
FIELD *fp = (field == NULL) ? &_formi_default_field : field;
|
|
|
|
/* not allowed to set opts if the field is the current one */
|
|
if ((field != NULL) && (field->parent != NULL) &&
|
|
(field->parent->cur_field == field->index))
|
|
return E_CURRENT;
|
|
|
|
if ((options & O_STATIC) == O_STATIC) {
|
|
for (i = 0; i < fp->nbuf; i++) {
|
|
if (fp->buffers[i].length > fp->cols)
|
|
fp->buffers[i].string[fp->cols] = '\0';
|
|
}
|
|
}
|
|
|
|
fp->opts = options;
|
|
|
|
/* if appropriate, redraw the field */
|
|
if ((field != NULL) && (field->parent != NULL)
|
|
&& (field->parent->posted == 1)) {
|
|
_formi_redraw_field(field->parent, field->index);
|
|
pos_form_cursor(field->parent);
|
|
wrefresh(field->parent->scrwin);
|
|
}
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Turn on the passed field options.
|
|
*/
|
|
int
|
|
field_opts_on(FIELD *field, Form_Options options)
|
|
{
|
|
int i;
|
|
|
|
FIELD *fp = (field == NULL) ? &_formi_default_field : field;
|
|
|
|
/* not allowed to set opts if the field is the current one */
|
|
if ((field != NULL) && (field->parent != NULL) &&
|
|
(field->parent->cur_field == field->index))
|
|
return E_CURRENT;
|
|
|
|
if ((options & O_STATIC) == O_STATIC) {
|
|
for (i = 0; i < fp->nbuf; i++) {
|
|
if (fp->buffers[i].length > fp->cols)
|
|
fp->buffers[i].string[fp->cols] = '\0';
|
|
}
|
|
}
|
|
|
|
fp->opts |= options;
|
|
|
|
/* if appropriate, redraw the field */
|
|
if ((field != NULL) && (field->parent != NULL)
|
|
&& (field->parent->posted == 1)) {
|
|
_formi_redraw_field(field->parent, field->index);
|
|
pos_form_cursor(field->parent);
|
|
wrefresh(field->parent->scrwin);
|
|
}
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Turn off the passed field options.
|
|
*/
|
|
int
|
|
field_opts_off(FIELD *field, Form_Options options)
|
|
{
|
|
FIELD *fp = (field == NULL) ? &_formi_default_field : field;
|
|
|
|
/* not allowed to set opts if the field is the current one */
|
|
if ((field != NULL) && (field->parent != NULL) &&
|
|
(field->parent->cur_field == field->index))
|
|
return E_CURRENT;
|
|
|
|
fp->opts &= ~options;
|
|
|
|
/* if appropriate, redraw the field */
|
|
if ((field != NULL) && (field->parent != NULL)
|
|
&& (field->parent->posted == 1)) {
|
|
_formi_redraw_field(field->parent, field->index);
|
|
pos_form_cursor(field->parent);
|
|
wrefresh(field->parent->scrwin);
|
|
}
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the field options associated with the passed field.
|
|
*/
|
|
Form_Options
|
|
field_opts(FIELD *field)
|
|
{
|
|
if (field == NULL)
|
|
return _formi_default_field.opts;
|
|
else
|
|
return field->opts;
|
|
}
|
|
|
|
/*
|
|
* Set the justification for the passed field.
|
|
*/
|
|
int
|
|
set_field_just(FIELD *field, int justification)
|
|
{
|
|
FIELD *fp = (field == NULL) ? &_formi_default_field : field;
|
|
|
|
/*
|
|
* not allowed to set justification if the field is
|
|
* the current one
|
|
*/
|
|
if ((field != NULL) && (field->parent != NULL) &&
|
|
(field->parent->cur_field == field->index))
|
|
return E_CURRENT;
|
|
|
|
if ((justification < MIN_JUST_STYLE) /* check justification valid */
|
|
|| (justification > MAX_JUST_STYLE))
|
|
return E_BAD_ARGUMENT;
|
|
|
|
/* only allow justification on static, single row fields */
|
|
if (((fp->opts & O_STATIC) != O_STATIC) ||
|
|
((fp->rows + fp->nrows) > 1))
|
|
return E_BAD_ARGUMENT;
|
|
|
|
fp->justification = justification;
|
|
|
|
_formi_init_field_xpos(fp);
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the justification style of the field passed.
|
|
*/
|
|
int
|
|
field_just(FIELD *field)
|
|
{
|
|
if (field == NULL)
|
|
return _formi_default_field.justification;
|
|
else
|
|
return field->justification;
|
|
}
|
|
|
|
/*
|
|
* Return information about the field passed.
|
|
*/
|
|
int
|
|
field_info(FIELD *field, int *rows, int *cols, int *frow, int *fcol,
|
|
int *nrow, int *nbuf)
|
|
{
|
|
if (field == NULL)
|
|
return E_BAD_ARGUMENT;
|
|
|
|
*rows = field->rows;
|
|
*cols = field->cols;
|
|
*frow = field->form_row;
|
|
*fcol = field->form_col;
|
|
*nrow = field->nrows;
|
|
*nbuf = field->nbuf;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Report the dynamic field information.
|
|
*/
|
|
int
|
|
dynamic_field_info(FIELD *field, int *drows, int *dcols, int *max)
|
|
{
|
|
if (field == NULL)
|
|
return E_BAD_ARGUMENT;
|
|
|
|
if ((field->opts & O_STATIC) == O_STATIC) {
|
|
*drows = field->rows;
|
|
*dcols = field->cols;
|
|
} else {
|
|
*drows = field->drows;
|
|
*dcols = field->dcols;
|
|
}
|
|
|
|
*max = field->max;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Init all the field variables, perform wrapping and other tasks
|
|
* after the field buffer is set.
|
|
*/
|
|
static int
|
|
field_buffer_init(FIELD *field, int buffer, unsigned int len)
|
|
{
|
|
int status;
|
|
char *newp;
|
|
|
|
if (buffer == 0) {
|
|
field->start_char = 0;
|
|
field->start_line = 0;
|
|
field->row_xpos = 0;
|
|
field->cursor_xpos = 0;
|
|
field->cursor_ypos = 0;
|
|
field->row_count = 1; /* must be at least one row XXX need to shift old rows (if any) to free list??? */
|
|
field->alines->length = len;
|
|
if ((newp = realloc(field->alines->string,
|
|
(size_t) len + 1)) == NULL)
|
|
return E_SYSTEM_ERROR;
|
|
field->alines->string = newp;
|
|
field->alines->allocated = len + 1;
|
|
strlcpy(field->alines->string, field->buffers[buffer].string,
|
|
(size_t) len + 1);
|
|
field->alines->expanded =
|
|
_formi_tab_expanded_length(field->alines->string,
|
|
0, field->alines->length);
|
|
|
|
field->start_line = field->alines;
|
|
field->cur_line = field->alines;
|
|
|
|
/* we have to hope the wrap works - if it does not then the
|
|
buffer is pretty much borked */
|
|
status = _formi_wrap_field(field, field->cur_line);
|
|
if (status != E_OK)
|
|
return status;
|
|
|
|
/*
|
|
* calculate the tabs for a single row field, the
|
|
* multiline case is handled when the wrap is done.
|
|
*/
|
|
if (field->row_count == 1)
|
|
_formi_calculate_tabs(field->alines);
|
|
|
|
/* redraw the field to reflect the new contents. If the field
|
|
* is attached....
|
|
*/
|
|
if ((field->parent != NULL) && (field->parent->posted == 1)) {
|
|
_formi_redraw_field(field->parent, field->index);
|
|
/* make sure cursor goes back to current field */
|
|
pos_form_cursor(field->parent);
|
|
}
|
|
}
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
|
|
/*
|
|
* Set the field buffer to the string that results from processing
|
|
* the given format (fmt) using sprintf.
|
|
*/
|
|
int
|
|
set_field_printf(FIELD *field, int buffer, char *fmt, ...)
|
|
{
|
|
int len;
|
|
va_list args;
|
|
|
|
if (field == NULL)
|
|
return E_BAD_ARGUMENT;
|
|
|
|
if (buffer >= field->nbuf)
|
|
return E_BAD_ARGUMENT;
|
|
|
|
va_start(args, fmt);
|
|
/* check for buffer already existing, free the storage */
|
|
if (field->buffers[buffer].allocated != 0)
|
|
free(field->buffers[buffer].string);
|
|
|
|
len = vasprintf(&field->buffers[buffer].string, fmt, args);
|
|
va_end(args);
|
|
if (len < 0)
|
|
return E_SYSTEM_ERROR;
|
|
|
|
field->buffers[buffer].length = len;
|
|
field->buffers[buffer].allocated = len + 1;
|
|
if (((field->opts & O_STATIC) == O_STATIC) && (len > field->cols)
|
|
&& ((field->rows + field->nrows) == 1))
|
|
len = field->cols;
|
|
|
|
field->buffers[buffer].string[len] = '\0';
|
|
return field_buffer_init(field, buffer, (unsigned int) len);
|
|
}
|
|
|
|
/*
|
|
* Set the value of the field buffer to the value given.
|
|
*/
|
|
|
|
int
|
|
set_field_buffer(FIELD *field, int buffer, char *value)
|
|
{
|
|
unsigned int len;
|
|
int status;
|
|
|
|
if (field == NULL)
|
|
return E_BAD_ARGUMENT;
|
|
|
|
if (buffer >= field->nbuf) /* make sure buffer is valid */
|
|
return E_BAD_ARGUMENT;
|
|
|
|
len = (unsigned int) strlen(value);
|
|
if (((field->opts & O_STATIC) == O_STATIC) && (len > field->cols)
|
|
&& ((field->rows + field->nrows) == 1))
|
|
len = field->cols;
|
|
|
|
#ifdef DEBUG
|
|
if (_formi_create_dbg_file() != E_OK)
|
|
return E_SYSTEM_ERROR;
|
|
|
|
fprintf(dbg,
|
|
"set_field_buffer: entry: len = %d, value = %s, buffer=%d\n",
|
|
len, value, buffer);
|
|
fprintf(dbg, "set_field_buffer: entry: string = ");
|
|
if (field->buffers[buffer].string != NULL)
|
|
fprintf(dbg, "%s, len = %d\n", field->buffers[buffer].string,
|
|
field->buffers[buffer].length);
|
|
else
|
|
fprintf(dbg, "(null), len = 0\n");
|
|
fprintf(dbg, "set_field_buffer: entry: lines.len = %d\n",
|
|
field->alines[0].length);
|
|
#endif
|
|
|
|
if ((field->buffers[buffer].string =
|
|
(char *) realloc(field->buffers[buffer].string,
|
|
(size_t) len + 1)) == NULL)
|
|
return E_SYSTEM_ERROR;
|
|
|
|
strlcpy(field->buffers[buffer].string, value, (size_t) len + 1);
|
|
field->buffers[buffer].length = len;
|
|
field->buffers[buffer].allocated = len + 1;
|
|
status = field_buffer_init(field, buffer, len);
|
|
|
|
#ifdef DEBUG
|
|
fprintf(dbg, "set_field_buffer: exit: len = %d, value = %s\n",
|
|
len, value);
|
|
fprintf(dbg, "set_field_buffer: exit: string = %s, len = %d\n",
|
|
field->buffers[buffer].string, field->buffers[buffer].length);
|
|
fprintf(dbg, "set_field_buffer: exit: lines.len = %d\n",
|
|
field->alines[0].length);
|
|
#endif
|
|
|
|
return status;
|
|
}
|
|
|
|
/*
|
|
* Return the requested field buffer to the caller.
|
|
*/
|
|
char *
|
|
field_buffer(FIELD *field, int buffer)
|
|
{
|
|
|
|
char *reformat, *p;
|
|
_FORMI_FIELD_LINES *linep;
|
|
|
|
if (field == NULL)
|
|
return NULL;
|
|
|
|
if (buffer >= field->nbuf)
|
|
return NULL;
|
|
|
|
/*
|
|
* We force a sync from the line structs to the buffer here.
|
|
* Traditional libform say we don't need to because it is
|
|
* done on a REQ_VALIDATE but NetBSD libform previously did
|
|
* not enforce this because the buffer contents were always
|
|
* current. Changes to line handling make this no longer so
|
|
* - the line structs may contain different data to the
|
|
* buffer if unsynced.
|
|
*/
|
|
if (_formi_sync_buffer(field) != E_OK)
|
|
return NULL;
|
|
|
|
if ((field->opts & O_REFORMAT) != O_REFORMAT) {
|
|
return field->buffers[buffer].string;
|
|
} else {
|
|
if (field->row_count > 1) {
|
|
/* reformat */
|
|
reformat = (char *)
|
|
malloc(strlen(field->buffers[buffer].string)
|
|
+ ((field->row_count - 1)
|
|
* sizeof(char)) + 1);
|
|
|
|
if (reformat == NULL)
|
|
return NULL;
|
|
|
|
/*
|
|
* foreach row copy line, append newline, no
|
|
* newline on last row.
|
|
*/
|
|
p = reformat;
|
|
linep = field->alines;
|
|
|
|
do
|
|
{
|
|
if (linep->length != 0) {
|
|
strncpy(p, linep->string,
|
|
(size_t) linep->length);
|
|
p += linep->length;
|
|
}
|
|
|
|
linep = linep->next;
|
|
if (linep != NULL)
|
|
*p = '\n';
|
|
p++;
|
|
}
|
|
while (linep != NULL);
|
|
|
|
p = '\0';
|
|
return reformat;
|
|
} else {
|
|
asprintf(&reformat, "%s",
|
|
field->buffers[buffer].string);
|
|
return reformat;
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Set the buffer 0 field status.
|
|
*/
|
|
int
|
|
set_field_status(FIELD *field, int status)
|
|
{
|
|
|
|
if (field == NULL)
|
|
return E_BAD_ARGUMENT;
|
|
|
|
if (status != FALSE)
|
|
field->buf0_status = TRUE;
|
|
else
|
|
field->buf0_status = FALSE;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the buffer 0 status flag for the given field.
|
|
*/
|
|
int
|
|
field_status(FIELD *field)
|
|
{
|
|
|
|
if (field == NULL) /* the default buffer 0 never changes :-) */
|
|
return FALSE;
|
|
|
|
return field->buf0_status;
|
|
}
|
|
|
|
/*
|
|
* Set the maximum growth for a dynamic field.
|
|
*/
|
|
int
|
|
set_max_field(FIELD *fptr, int max)
|
|
{
|
|
FIELD *field = (fptr == NULL)? &_formi_default_field : fptr;
|
|
|
|
if ((field->opts & O_STATIC) == O_STATIC) /* check if field dynamic */
|
|
return E_BAD_ARGUMENT;
|
|
|
|
if (max < 0) /* negative numbers are bad.... */
|
|
return E_BAD_ARGUMENT;
|
|
|
|
field->max = max;
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Set the field foreground character attributes.
|
|
*/
|
|
int
|
|
set_field_fore(FIELD *fptr, chtype attribute)
|
|
{
|
|
FIELD *field = (fptr == NULL)? &_formi_default_field : fptr;
|
|
|
|
field->fore = attribute;
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the foreground character attribute for the given field.
|
|
*/
|
|
chtype
|
|
field_fore(FIELD *field)
|
|
{
|
|
if (field == NULL)
|
|
return _formi_default_field.fore;
|
|
else
|
|
return field->fore;
|
|
}
|
|
|
|
/*
|
|
* Set the background character attribute for the given field.
|
|
*/
|
|
int
|
|
set_field_back(FIELD *field, chtype attribute)
|
|
{
|
|
if (field == NULL)
|
|
_formi_default_field.back = attribute;
|
|
else
|
|
field->back = attribute;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Get the background character attribute for the given field.
|
|
*/
|
|
chtype
|
|
field_back(FIELD *field)
|
|
{
|
|
if (field == NULL)
|
|
return _formi_default_field.back;
|
|
else
|
|
return field->back;
|
|
}
|
|
|
|
/*
|
|
* Set the pad character for the given field.
|
|
*/
|
|
int
|
|
set_field_pad(FIELD *field, int pad)
|
|
{
|
|
if (field == NULL)
|
|
_formi_default_field.pad = pad;
|
|
else
|
|
field->pad = pad;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the padding character for the given field.
|
|
*/
|
|
int
|
|
field_pad(FIELD *field)
|
|
{
|
|
if (field == NULL)
|
|
return _formi_default_field.pad;
|
|
else
|
|
return field->pad;
|
|
}
|
|
|
|
/*
|
|
* Set the field initialisation function hook.
|
|
*/
|
|
int
|
|
set_field_init(FORM *form, Form_Hook function)
|
|
{
|
|
if (form == NULL)
|
|
_formi_default_form.field_init = function;
|
|
else
|
|
form->field_init = function;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the function hook for the field initialisation.
|
|
*/
|
|
Form_Hook
|
|
field_init(FORM *form)
|
|
{
|
|
if (form == NULL)
|
|
return _formi_default_form.field_init;
|
|
else
|
|
return form->field_init;
|
|
}
|
|
|
|
/*
|
|
* Set the field termination function hook.
|
|
*/
|
|
int
|
|
set_field_term(FORM *form, Form_Hook function)
|
|
{
|
|
if (form == NULL)
|
|
_formi_default_form.field_term = function;
|
|
else
|
|
form->field_term = function;
|
|
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the function hook defined for the field termination.
|
|
*/
|
|
Form_Hook
|
|
field_term(FORM *form)
|
|
{
|
|
if (form == NULL)
|
|
return _formi_default_form.field_term;
|
|
else
|
|
return form->field_term;
|
|
}
|
|
|
|
/*
|
|
* Set the page flag on the given field to indicate it is the start of a
|
|
* new page.
|
|
*/
|
|
int
|
|
set_new_page(FIELD *fptr, int page)
|
|
{
|
|
FIELD *field = (fptr == NULL)? &_formi_default_field : fptr;
|
|
|
|
if (field->parent != NULL) /* check if field is connected to a form */
|
|
return E_CONNECTED;
|
|
|
|
field->page_break = (page != FALSE);
|
|
return E_OK;
|
|
}
|
|
|
|
/*
|
|
* Return the page status for the given field. TRUE is returned if the
|
|
* field is the start of a new page.
|
|
*/
|
|
int
|
|
new_page(FIELD *field)
|
|
{
|
|
if (field == NULL)
|
|
return _formi_default_field.page_break;
|
|
else
|
|
return field->page_break;
|
|
}
|
|
|
|
/*
|
|
* Return the index of the field in the form fields array.
|
|
*/
|
|
int
|
|
field_index(FIELD *field)
|
|
{
|
|
if (field == NULL)
|
|
return E_BAD_ARGUMENT;
|
|
|
|
if (field->parent == NULL)
|
|
return E_NOT_CONNECTED;
|
|
|
|
return field->index;
|
|
}
|
|
|
|
/*
|
|
* Internal function that does most of the work to create a new field.
|
|
* The new field is initialised from the information in the prototype
|
|
* field passed.
|
|
* Returns NULL on error.
|
|
*/
|
|
static FIELD *
|
|
_formi_create_field(FIELD *prototype, int rows, int cols, int frow,
|
|
int fcol, int nrows, int nbuf)
|
|
{
|
|
FIELD *new;
|
|
|
|
if ((rows <= 0) || (cols <= 0) || (frow < 0) || (fcol < 0) ||
|
|
(nrows < 0) || (nbuf < 0))
|
|
return NULL;
|
|
|
|
if ((new = (FIELD *)malloc(sizeof(FIELD))) == NULL) {
|
|
return NULL;
|
|
}
|
|
|
|
/* copy in the default field info */
|
|
bcopy(prototype, new, sizeof(FIELD));
|
|
|
|
new->nbuf = nbuf + 1;
|
|
new->rows = rows;
|
|
new->cols = cols;
|
|
new->form_row = frow;
|
|
new->form_col = fcol;
|
|
new->nrows = nrows;
|
|
new->link = new;
|
|
return new;
|
|
}
|
|
|
|
/*
|
|
* Create a new field structure.
|
|
*/
|
|
FIELD *
|
|
new_field(int rows, int cols, int frow, int fcol, int nrows, int nbuf)
|
|
{
|
|
FIELD *new;
|
|
size_t buf_len;
|
|
int i;
|
|
|
|
|
|
if ((new = _formi_create_field(&_formi_default_field, rows, cols,
|
|
frow, fcol, nrows, nbuf)) == NULL)
|
|
return NULL;
|
|
|
|
buf_len = (nbuf + 1) * sizeof(FORM_STR);
|
|
|
|
if ((new->buffers = (FORM_STR *)malloc(buf_len)) == NULL) {
|
|
free(new);
|
|
return NULL;
|
|
}
|
|
|
|
/* Initialise the strings to a zero length string */
|
|
for (i = 0; i < nbuf + 1; i++) {
|
|
if ((new->buffers[i].string =
|
|
(char *) malloc(sizeof(char))) == NULL) {
|
|
free(new->buffers);
|
|
free(new);
|
|
return NULL;
|
|
}
|
|
new->buffers[i].string[0] = '\0';
|
|
new->buffers[i].length = 0;
|
|
new->buffers[i].allocated = 1;
|
|
}
|
|
|
|
if ((new->alines = (_FORMI_FIELD_LINES *)
|
|
malloc(sizeof(struct _formi_field_lines))) == NULL) {
|
|
free(new->buffers);
|
|
free(new);
|
|
return NULL;
|
|
}
|
|
|
|
new->alines->prev = NULL;
|
|
new->alines->next = NULL;
|
|
new->alines->allocated = 0;
|
|
new->alines->length = 0;
|
|
new->alines->expanded = 0;
|
|
new->alines->string = NULL;
|
|
new->alines->hard_ret = FALSE;
|
|
new->alines->tabs = NULL;
|
|
new->start_line = new->alines;
|
|
new->cur_line = new->alines;
|
|
|
|
return new;
|
|
}
|
|
|
|
/*
|
|
* Duplicate the given field, including it's buffers.
|
|
*/
|
|
FIELD *
|
|
dup_field(FIELD *field, int frow, int fcol)
|
|
{
|
|
FIELD *new;
|
|
size_t row_len, buf_len;
|
|
|
|
if (field == NULL)
|
|
return NULL;
|
|
|
|
/* XXXX this right???? */
|
|
if ((new = _formi_create_field(field, (int) field->rows,
|
|
(int ) field->cols,
|
|
frow, fcol, (int) field->nrows,
|
|
field->nbuf - 1)) == NULL)
|
|
return NULL;
|
|
|
|
row_len = (field->rows + field->nrows + 1) * field->cols;
|
|
buf_len = (field->nbuf + 1) * row_len * sizeof(FORM_STR);
|
|
|
|
if ((new->buffers = (FORM_STR *)malloc(buf_len)) == NULL) {
|
|
free(new);
|
|
return NULL;
|
|
}
|
|
|
|
/* copy the buffers from the source field into the new copy */
|
|
bcopy(field->buffers, new->buffers, buf_len);
|
|
|
|
return new;
|
|
}
|
|
|
|
/*
|
|
* Create a new field at the specified location by duplicating the given
|
|
* field. The buffers are shared with the parent field.
|
|
*/
|
|
FIELD *
|
|
link_field(FIELD *field, int frow, int fcol)
|
|
{
|
|
FIELD *new;
|
|
|
|
if (field == NULL)
|
|
return NULL;
|
|
|
|
if ((new = _formi_create_field(field, (int) field->rows,
|
|
(int) field->cols,
|
|
frow, fcol, (int) field->nrows,
|
|
field->nbuf - 1)) == NULL)
|
|
return NULL;
|
|
|
|
new->link = field->link;
|
|
field->link = new;
|
|
|
|
/* we are done. The buffer pointer was copied during the field
|
|
creation. */
|
|
return new;
|
|
}
|
|
|
|
/*
|
|
* Release all storage allocated to the field
|
|
*/
|
|
int
|
|
free_field(FIELD *field)
|
|
{
|
|
FIELD *flink;
|
|
int i;
|
|
_formi_tab_t *ts, *nts;
|
|
|
|
if (field == NULL)
|
|
return E_BAD_ARGUMENT;
|
|
|
|
if (field->parent != NULL)
|
|
return E_CONNECTED;
|
|
|
|
if (field->link == field) { /* check if field linked */
|
|
/* no it is not - release the buffers */
|
|
free(field->buffers);
|
|
/* free the tab structures */
|
|
for (i = 0; i < field->row_count - 1; i++) {
|
|
if (field->alines[i].tabs != NULL) {
|
|
ts = field->alines[i].tabs;
|
|
while (ts != NULL) {
|
|
nts = ts->fwd;
|
|
free(ts);
|
|
ts = nts;
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
/* is linked, traverse the links to find the field referring
|
|
* to the one to be freed.
|
|
*/
|
|
for (flink = field->link; flink != field; flink = flink->link);
|
|
flink->link = field->link;
|
|
}
|
|
|
|
free(field);
|
|
return E_OK;
|
|
}
|
|
|
|
|