1 /****************************************************************************
2 * Copyright (c) 1998 Free Software Foundation, Inc. *
4 * Permission is hereby granted, free of charge, to any person obtaining a *
5 * copy of this software and associated documentation files (the *
6 * "Software"), to deal in the Software without restriction, including *
7 * without limitation the rights to use, copy, modify, merge, publish, *
8 * distribute, distribute with modifications, sublicense, and/or sell *
9 * copies of the Software, and to permit persons to whom the Software is *
10 * furnished to do so, subject to the following conditions: *
12 * The above copyright notice and this permission notice shall be included *
13 * in all copies or substantial portions of the Software. *
15 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
16 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
17 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
18 * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
19 * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
20 * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
21 * THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
23 * Except as contained in this notice, the name(s) of the above copyright *
24 * holders shall not be used in advertising or otherwise to promote the *
25 * sale, use or other dealings in this Software without prior written *
27 ****************************************************************************/
29 /****************************************************************************
30 * Author: Juergen Pfeifer <juergen.pfeifer@gmx.net> 1995,1997 *
31 ****************************************************************************/
33 #include "form.priv.h"
35 MODULE_ID("$Id: fld_dup.c,v 1.1 2001/11/05 16:53:00 berk Exp $")
37 /*---------------------------------------------------------------------------
39 | Function : FIELD *dup_field(FIELD *field, int frow, int fcol)
41 | Description : Duplicates the field at the specified position. All
42 | field attributes and the buffers are copied.
43 | If an error occurs, errno is set to
45 | E_BAD_ARGUMENT - invalid argument
46 | E_SYSTEM_ERROR - system error
48 | Return Values : Pointer to the new field or NULL if failure
49 +--------------------------------------------------------------------------*/
50 FIELD
*dup_field(FIELD
* field
, int frow
, int fcol
)
52 FIELD
*New_Field
= (FIELD
*)0;
53 int err
= E_BAD_ARGUMENT
;
55 if (field
&& (frow
>=0) && (fcol
>=0) &&
56 ((err
=E_SYSTEM_ERROR
) != 0) && /* trick : this resets the default error */
57 (New_Field
=(FIELD
*)malloc(sizeof(FIELD
))) )
59 *New_Field
= *_nc_Default_Field
;
60 New_Field
->frow
= frow
;
61 New_Field
->fcol
= fcol
;
62 New_Field
->link
= New_Field
;
63 New_Field
->rows
= field
->rows
;
64 New_Field
->cols
= field
->cols
;
65 New_Field
->nrow
= field
->nrow
;
66 New_Field
->drows
= field
->drows
;
67 New_Field
->dcols
= field
->dcols
;
68 New_Field
->maxgrow
= field
->maxgrow
;
69 New_Field
->nbuf
= field
->nbuf
;
70 New_Field
->just
= field
->just
;
71 New_Field
->fore
= field
->fore
;
72 New_Field
->back
= field
->back
;
73 New_Field
->pad
= field
->pad
;
74 New_Field
->opts
= field
->opts
;
75 New_Field
->usrptr
= field
->usrptr
;
77 if (_nc_Copy_Type(New_Field
,field
))
81 len
= Total_Buffer_Size(New_Field
);
82 if ( (New_Field
->buf
=(char *)malloc(len
)) )
84 memcpy(New_Field
->buf
,field
->buf
,len
);
91 free_field(New_Field
);
97 /* fld_dup.c ends here */