161 lines
4.9 KiB
C
161 lines
4.9 KiB
C
|
|
/*
|
|
* THIS CODE IS SPECIFICALLY EXEMPTED FROM THE NCURSES PACKAGE COPYRIGHT.
|
|
* You may freely copy it for use as a template for your own field types.
|
|
* If you develop a field type that might be of general use, please send
|
|
* it back to the ncurses maintainers for inclusion in the next version.
|
|
*/
|
|
/***************************************************************************
|
|
* *
|
|
* Author : Juergen Pfeifer, juergen.pfeifer@gmx.net *
|
|
* *
|
|
***************************************************************************/
|
|
|
|
#include "form.priv.h"
|
|
|
|
MODULE_ID("$Id: fty_int.c,v 1.11 2000/12/09 23:46:12 tom Exp $")
|
|
|
|
typedef struct {
|
|
int precision;
|
|
long low;
|
|
long high;
|
|
} integerARG;
|
|
|
|
/*---------------------------------------------------------------------------
|
|
| Facility : libnform
|
|
| Function : static void *Make_Integer_Type( va_list * ap )
|
|
|
|
|
| Description : Allocate structure for integer type argument.
|
|
|
|
|
| Return Values : Pointer to argument structure or NULL on error
|
|
+--------------------------------------------------------------------------*/
|
|
static void *Make_Integer_Type(va_list * ap)
|
|
{
|
|
integerARG *argp = (integerARG *)malloc(sizeof(integerARG));
|
|
|
|
if (argp)
|
|
{
|
|
argp->precision = va_arg(*ap,int);
|
|
argp->low = va_arg(*ap,long);
|
|
argp->high = va_arg(*ap,long);
|
|
}
|
|
return (void *)argp;
|
|
}
|
|
|
|
/*---------------------------------------------------------------------------
|
|
| Facility : libnform
|
|
| Function : static void *Copy_Integer_Type(const void * argp)
|
|
|
|
|
| Description : Copy structure for integer type argument.
|
|
|
|
|
| Return Values : Pointer to argument structure or NULL on error.
|
|
+--------------------------------------------------------------------------*/
|
|
static void *Copy_Integer_Type(const void * argp)
|
|
{
|
|
const integerARG *ap = (const integerARG *)argp;
|
|
integerARG *result = (integerARG *)0;
|
|
|
|
if (argp)
|
|
{
|
|
result = (integerARG *)malloc(sizeof(integerARG));
|
|
if (result)
|
|
*result = *ap;
|
|
}
|
|
return (void *)result;
|
|
}
|
|
|
|
/*---------------------------------------------------------------------------
|
|
| Facility : libnform
|
|
| Function : static void Free_Integer_Type(void * argp)
|
|
|
|
|
| Description : Free structure for integer type argument.
|
|
|
|
|
| Return Values : -
|
|
+--------------------------------------------------------------------------*/
|
|
static void Free_Integer_Type(void * argp)
|
|
{
|
|
if (argp)
|
|
free(argp);
|
|
}
|
|
|
|
/*---------------------------------------------------------------------------
|
|
| Facility : libnform
|
|
| Function : static bool Check_Integer_Field(
|
|
| FIELD * field,
|
|
| const void * argp)
|
|
|
|
|
| Description : Validate buffer content to be a valid integer value
|
|
|
|
|
| Return Values : TRUE - field is valid
|
|
| FALSE - field is invalid
|
|
+--------------------------------------------------------------------------*/
|
|
static bool Check_Integer_Field(FIELD * field, const void * argp)
|
|
{
|
|
const integerARG *argi = (const integerARG *)argp;
|
|
long low = argi->low;
|
|
long high = argi->high;
|
|
int prec = argi->precision;
|
|
unsigned char *bp = (unsigned char *)field_buffer(field,0);
|
|
char *s = (char *)bp;
|
|
long val;
|
|
char buf[100];
|
|
|
|
while( *bp && *bp==' ') bp++;
|
|
if (*bp)
|
|
{
|
|
if (*bp=='-') bp++;
|
|
while (*bp)
|
|
{
|
|
if (!isdigit(*bp)) break;
|
|
bp++;
|
|
}
|
|
while(*bp && *bp==' ') bp++;
|
|
if (*bp=='\0')
|
|
{
|
|
val = atol(s);
|
|
if (low<high)
|
|
{
|
|
if (val<low || val>high) return FALSE;
|
|
}
|
|
sprintf(buf,"%.*ld",(prec>0?prec:0),val);
|
|
set_field_buffer(field,0,buf);
|
|
return TRUE;
|
|
}
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
/*---------------------------------------------------------------------------
|
|
| Facility : libnform
|
|
| Function : static bool Check_Integer_Character(
|
|
| int c,
|
|
| const void * argp)
|
|
|
|
|
| Description : Check a character for the integer type.
|
|
|
|
|
| Return Values : TRUE - character is valid
|
|
| FALSE - character is invalid
|
|
+--------------------------------------------------------------------------*/
|
|
static bool Check_Integer_Character(int c, const void * argp GCC_UNUSED)
|
|
{
|
|
return ((isdigit(c) || (c=='-')) ? TRUE : FALSE);
|
|
}
|
|
|
|
static FIELDTYPE typeINTEGER = {
|
|
_HAS_ARGS | _RESIDENT,
|
|
1, /* this is mutable, so we can't be const */
|
|
(FIELDTYPE *)0,
|
|
(FIELDTYPE *)0,
|
|
Make_Integer_Type,
|
|
Copy_Integer_Type,
|
|
Free_Integer_Type,
|
|
Check_Integer_Field,
|
|
Check_Integer_Character,
|
|
NULL,
|
|
NULL
|
|
};
|
|
|
|
NCURSES_EXPORT_VAR(FIELDTYPE*) TYPE_INTEGER = &typeINTEGER;
|
|
|
|
/* fty_int.c ends here */
|