new_field (int rows, int cols, int frow, int fcol, int nrow, int nbuf) { FIELD *New_Field = (FIELD *)0; int err = E_BAD_ARGUMENT; if (rows>0 && cols>0 && frow>=0 && fcol>=0 && nrow>=0 && nbuf>=0 && ((err = E_SYSTEM_ERROR) != 0) && /* trick: this resets the default error */ (New_Field=(FIELD *)malloc(sizeof(FIELD))) ) { *New_Field = default_field; New_Field->rows = rows; New_Field->cols = cols; New_Field->drows = rows + nrow; New_Field->dcols = cols; New_Field->frow = frow; New_Field->fcol = fcol; New_Field->nrow = nrow; New_Field->nbuf = nbuf; New_Field->link = New_Field; if (_nc_Copy_Type(New_Field,&default_field)) { size_t len; len = Total_Buffer_Size(New_Field); if ((New_Field->buf = (char *)malloc(len))) { /* Prefill buffers with blanks and insert terminating zeroes between buffers */ int i; memset(New_Field->buf,' ',len); for(i=0;i<=New_Field->nbuf;i++) { New_Field->buf[(New_Field->drows*New_Field->cols+1)*(i+1)-1] = '\0'; } return New_Field; } } } if (New_Field) free_field(New_Field); SET_ERROR( err ); return (FIELD *)0; }
dup_field(FIELD *field, int frow, int fcol) { FIELD *New_Field = (FIELD *)0; int err = E_BAD_ARGUMENT; T((T_CALLED("dup_field(%p,%d,%d)"), (void *)field, frow, fcol)); if (field && (frow >= 0) && (fcol >= 0) && ((err = E_SYSTEM_ERROR) != 0) && /* trick : this resets the default error */ (New_Field = typeMalloc(FIELD, 1))) { T((T_CREATE("field %p"), (void *)New_Field)); *New_Field = *_nc_Default_Field; New_Field->frow = (short) frow; New_Field->fcol = (short) fcol; New_Field->link = New_Field; New_Field->rows = field->rows; New_Field->cols = field->cols; New_Field->nrow = field->nrow; New_Field->drows = field->drows; New_Field->dcols = field->dcols; New_Field->maxgrow = field->maxgrow; New_Field->nbuf = field->nbuf; New_Field->just = field->just; New_Field->fore = field->fore; New_Field->back = field->back; New_Field->pad = field->pad; New_Field->opts = field->opts; New_Field->usrptr = field->usrptr; if (_nc_Copy_Type(New_Field, field)) { size_t i, len; len = Total_Buffer_Size(New_Field); if ((New_Field->buf = (FIELD_CELL *)malloc(len))) { for (i = 0; i < len; ++i) New_Field->buf[i] = field->buf[i]; returnField(New_Field); } } } if (New_Field) free_field(New_Field); SET_ERROR(err); returnField((FIELD *)0); }
/*--------------------------------------------------------------------------- | Facility : libnform | Function : FIELD *dup_field(FIELD *field, int frow, int fcol) | | Description : Duplicates the field at the specified position. All | field attributes and the buffers are copied. | If an error occurs, errno is set to | | E_BAD_ARGUMENT - invalid argument | E_SYSTEM_ERROR - system error | | Return Values : Pointer to the new field or NULL if failure +--------------------------------------------------------------------------*/ FIELD *dup_field(FIELD * field, int frow, int fcol) { FIELD *New_Field = (FIELD *)0; int err = E_BAD_ARGUMENT; if (field && (frow>=0) && (fcol>=0) && ((err=E_SYSTEM_ERROR) != 0) && /* trick : this resets the default error */ (New_Field=(FIELD *)malloc(sizeof(FIELD))) ) { *New_Field = *_nc_Default_Field; New_Field->frow = frow; New_Field->fcol = fcol; New_Field->link = New_Field; New_Field->rows = field->rows; New_Field->cols = field->cols; New_Field->nrow = field->nrow; New_Field->drows = field->drows; New_Field->dcols = field->dcols; New_Field->maxgrow = field->maxgrow; New_Field->nbuf = field->nbuf; New_Field->just = field->just; New_Field->fore = field->fore; New_Field->back = field->back; New_Field->pad = field->pad; New_Field->opts = field->opts; New_Field->usrptr = field->usrptr; if (_nc_Copy_Type(New_Field,field)) { size_t len; len = Total_Buffer_Size(New_Field); if ( (New_Field->buf=(char *)malloc(len)) ) { memcpy(New_Field->buf,field->buf,len); return New_Field; } } } if (New_Field) free_field(New_Field); SET_ERROR(err); return (FIELD *)0; }
link_field(FIELD *field, int frow, int fcol) { FIELD *New_Field = (FIELD *)0; int err = E_BAD_ARGUMENT; T((T_CALLED("link_field(%p,%d,%d)"), field, frow, fcol)); if (field && (frow >= 0) && (fcol >= 0) && ((err = E_SYSTEM_ERROR) != 0) && /* trick: this resets the default error */ (New_Field = (FIELD *)malloc(sizeof(FIELD)))) { *New_Field = *_nc_Default_Field; New_Field->frow = frow; New_Field->fcol = fcol; New_Field->link = field->link; field->link = New_Field; New_Field->buf = field->buf; New_Field->rows = field->rows; New_Field->cols = field->cols; New_Field->nrow = field->nrow; New_Field->nbuf = field->nbuf; New_Field->drows = field->drows; New_Field->dcols = field->dcols; New_Field->maxgrow = field->maxgrow; New_Field->just = field->just; New_Field->fore = field->fore; New_Field->back = field->back; New_Field->pad = field->pad; New_Field->opts = field->opts; New_Field->usrptr = field->usrptr; if (_nc_Copy_Type(New_Field, field)) returnField(New_Field); } if (New_Field) free_field(New_Field); SET_ERROR(err); returnField((FIELD *)0); }
new_field(int rows, int cols, int frow, int fcol, int nrow, int nbuf) { static const FIELD_CELL blank = BLANK; static const FIELD_CELL zeros = ZEROS; FIELD *New_Field = (FIELD *)0; int err = E_BAD_ARGUMENT; T((T_CALLED("new_field(%d,%d,%d,%d,%d,%d)"), rows, cols, frow, fcol, nrow, nbuf)); if (rows > 0 && cols > 0 && frow >= 0 && fcol >= 0 && nrow >= 0 && nbuf >= 0 && ((err = E_SYSTEM_ERROR) != 0) && /* trick: this resets the default error */ (New_Field = (FIELD *)malloc(sizeof(FIELD))) != 0) { T((T_CREATE("field %p"), New_Field)); *New_Field = default_field; New_Field->rows = rows; New_Field->cols = cols; New_Field->drows = rows + nrow; New_Field->dcols = cols; New_Field->frow = frow; New_Field->fcol = fcol; New_Field->nrow = nrow; New_Field->nbuf = nbuf; New_Field->link = New_Field; #if USE_WIDEC_SUPPORT New_Field->working = newpad(1, Buffer_Length(New_Field) + 1); New_Field->expanded = (char **)calloc(1 + (unsigned)rows, sizeof(char *)); #endif if (_nc_Copy_Type(New_Field, &default_field)) { size_t len; len = Total_Buffer_Size(New_Field); if ((New_Field->buf = (FIELD_CELL *)malloc(len))) { /* Prefill buffers with blanks and insert terminating zeroes between buffers */ int i, j; int cells = Buffer_Length(New_Field); for (i = 0; i <= New_Field->nbuf; i++) { FIELD_CELL *buffer = &(New_Field->buf[(cells + 1) * i]); for (j = 0; j < cells; ++j) { buffer[j] = blank; } buffer[j] = zeros; } returnField(New_Field); } } } if (New_Field) free_field(New_Field); SET_ERROR(err); returnField((FIELD *)0); }