10e3d5408SPeter Wemm /****************************************************************************
2*21817992SBaptiste Daroussin * Copyright 2020,2021 Thomas E. Dickey *
3e1865124SBaptiste Daroussin * Copyright 1998-2010,2012 Free Software Foundation, Inc. *
40e3d5408SPeter Wemm * *
50e3d5408SPeter Wemm * Permission is hereby granted, free of charge, to any person obtaining a *
60e3d5408SPeter Wemm * copy of this software and associated documentation files (the *
70e3d5408SPeter Wemm * "Software"), to deal in the Software without restriction, including *
80e3d5408SPeter Wemm * without limitation the rights to use, copy, modify, merge, publish, *
90e3d5408SPeter Wemm * distribute, distribute with modifications, sublicense, and/or sell *
100e3d5408SPeter Wemm * copies of the Software, and to permit persons to whom the Software is *
110e3d5408SPeter Wemm * furnished to do so, subject to the following conditions: *
120e3d5408SPeter Wemm * *
130e3d5408SPeter Wemm * The above copyright notice and this permission notice shall be included *
140e3d5408SPeter Wemm * in all copies or substantial portions of the Software. *
150e3d5408SPeter Wemm * *
160e3d5408SPeter Wemm * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
170e3d5408SPeter Wemm * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
180e3d5408SPeter Wemm * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
190e3d5408SPeter Wemm * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
200e3d5408SPeter Wemm * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
210e3d5408SPeter Wemm * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
220e3d5408SPeter Wemm * THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
230e3d5408SPeter Wemm * *
240e3d5408SPeter Wemm * Except as contained in this notice, the name(s) of the above copyright *
250e3d5408SPeter Wemm * holders shall not be used in advertising or otherwise to promote the *
260e3d5408SPeter Wemm * sale, use or other dealings in this Software without prior written *
270e3d5408SPeter Wemm * authorization. *
280e3d5408SPeter Wemm ****************************************************************************/
290e3d5408SPeter Wemm
300e3d5408SPeter Wemm /****************************************************************************
314a1a9510SRong-En Fan * Author: Juergen Pfeifer, 1995,1997 *
320e3d5408SPeter Wemm ****************************************************************************/
330e3d5408SPeter Wemm
340e3d5408SPeter Wemm #include "form.priv.h"
350e3d5408SPeter Wemm
36*21817992SBaptiste Daroussin MODULE_ID("$Id: fld_stat.c,v 1.18 2021/06/17 21:20:30 tom Exp $")
370e3d5408SPeter Wemm
380e3d5408SPeter Wemm /*---------------------------------------------------------------------------
390e3d5408SPeter Wemm | Facility : libnform
400e3d5408SPeter Wemm | Function : int set_field_status(FIELD *field, bool status)
410e3d5408SPeter Wemm |
420e3d5408SPeter Wemm | Description : Set or clear the 'changed' indication flag for that
437a656419SBaptiste Daroussin | field's primary buffer.
440e3d5408SPeter Wemm |
450e3d5408SPeter Wemm | Return Values : E_OK - success
460e3d5408SPeter Wemm +--------------------------------------------------------------------------*/
FORM_EXPORT(int)477a656419SBaptiste Daroussin FORM_EXPORT(int)
487a69bbfbSPeter Wemm set_field_status(FIELD *field, bool status)
490e3d5408SPeter Wemm {
5006bfebdeSXin LI T((T_CALLED("set_field_status(%p,%d)"), (void *)field, status));
514a1a9510SRong-En Fan
520e3d5408SPeter Wemm Normalize_Field(field);
530e3d5408SPeter Wemm
540e3d5408SPeter Wemm if (status)
5573f0a83dSXin LI SetStatus(field, _CHANGED);
560e3d5408SPeter Wemm else
5773f0a83dSXin LI ClrStatus(field, _CHANGED);
580e3d5408SPeter Wemm
594a1a9510SRong-En Fan RETURN(E_OK);
600e3d5408SPeter Wemm }
610e3d5408SPeter Wemm
620e3d5408SPeter Wemm /*---------------------------------------------------------------------------
630e3d5408SPeter Wemm | Facility : libnform
640e3d5408SPeter Wemm | Function : bool field_status(const FIELD *field)
650e3d5408SPeter Wemm |
660e3d5408SPeter Wemm | Description : Retrieve the value of the 'changed' indication flag
677a656419SBaptiste Daroussin | for that field's primary buffer.
680e3d5408SPeter Wemm |
690e3d5408SPeter Wemm | Return Values : TRUE - buffer has been changed
700e3d5408SPeter Wemm | FALSE - buffer has not been changed
710e3d5408SPeter Wemm +--------------------------------------------------------------------------*/
727a656419SBaptiste Daroussin FORM_EXPORT(bool)
field_status(const FIELD * field)737a69bbfbSPeter Wemm field_status(const FIELD *field)
740e3d5408SPeter Wemm {
7506bfebdeSXin LI T((T_CALLED("field_status(%p)"), (const void *)field));
764a1a9510SRong-En Fan
774a1a9510SRong-En Fan returnBool((Normalize_Field(field)->status & _CHANGED) ? TRUE : FALSE);
780e3d5408SPeter Wemm }
790e3d5408SPeter Wemm
800e3d5408SPeter Wemm /* fld_stat.c ends here */
81