139 lines
4.3 KiB
C
139 lines
4.3 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_alpha.c,v 1.10 2000/12/09 23:46:12 tom Exp $")
|
|
|
|
typedef struct {
|
|
int width;
|
|
} alphaARG;
|
|
|
|
/*---------------------------------------------------------------------------
|
|
| Facility : libnform
|
|
| Function : static void *Make_Alpha_Type(va_list *ap)
|
|
|
|
|
| Description : Allocate structure for alpha type argument.
|
|
|
|
|
| Return Values : Pointer to argument structure or NULL on error
|
|
+--------------------------------------------------------------------------*/
|
|
static void *Make_Alpha_Type(va_list * ap)
|
|
{
|
|
alphaARG *argp = (alphaARG *)malloc(sizeof(alphaARG));
|
|
if (argp)
|
|
{
|
|
argp->width = va_arg(*ap,int);
|
|
}
|
|
return ((void *)argp);
|
|
}
|
|
|
|
/*---------------------------------------------------------------------------
|
|
| Facility : libnform
|
|
| Function : static void *Copy_Alpha_Type(const void * argp)
|
|
|
|
|
| Description : Copy structure for alpha type argument.
|
|
|
|
|
| Return Values : Pointer to argument structure or NULL on error.
|
|
+--------------------------------------------------------------------------*/
|
|
static void *Copy_Alpha_Type(const void * argp)
|
|
{
|
|
const alphaARG *ap = (const alphaARG *)argp;
|
|
alphaARG *result = (alphaARG *)malloc(sizeof(alphaARG));
|
|
|
|
if (result)
|
|
{
|
|
*result = *ap;
|
|
}
|
|
return ((void *)result);
|
|
}
|
|
|
|
/*---------------------------------------------------------------------------
|
|
| Facility : libnform
|
|
| Function : static void Free_Alpha_Type( void * argp )
|
|
|
|
|
| Description : Free structure for alpha type argument.
|
|
|
|
|
| Return Values : -
|
|
+--------------------------------------------------------------------------*/
|
|
static void Free_Alpha_Type(void * argp)
|
|
{
|
|
if (argp)
|
|
free(argp);
|
|
}
|
|
|
|
/*---------------------------------------------------------------------------
|
|
| Facility : libnform
|
|
| Function : static bool Check_Alpha_Field(
|
|
| FIELD * field,
|
|
| const void * argp)
|
|
|
|
|
| Description : Validate buffer content to be a valid alpha value
|
|
|
|
|
| Return Values : TRUE - field is valid
|
|
| FALSE - field is invalid
|
|
+--------------------------------------------------------------------------*/
|
|
static bool Check_Alpha_Field(FIELD * field, const void * argp)
|
|
{
|
|
int width = ((const alphaARG *)argp)->width;
|
|
unsigned char *bp = (unsigned char *)field_buffer(field,0);
|
|
int l = -1;
|
|
unsigned char *s;
|
|
|
|
while(*bp && *bp==' ')
|
|
bp++;
|
|
if (*bp)
|
|
{
|
|
s = bp;
|
|
while(*bp && isalpha(*bp))
|
|
bp++;
|
|
l = (int)(bp-s);
|
|
while(*bp && *bp==' ')
|
|
bp++;
|
|
}
|
|
return ((*bp || (l < width)) ? FALSE : TRUE);
|
|
}
|
|
|
|
/*---------------------------------------------------------------------------
|
|
| Facility : libnform
|
|
| Function : static bool Check_Alpha_Character(
|
|
| int c,
|
|
| const void * argp)
|
|
|
|
|
| Description : Check a character for the alpha type.
|
|
|
|
|
| Return Values : TRUE - character is valid
|
|
| FALSE - character is invalid
|
|
+--------------------------------------------------------------------------*/
|
|
static bool Check_Alpha_Character(int c, const void * argp GCC_UNUSED)
|
|
{
|
|
return (isalpha(c) ? TRUE : FALSE);
|
|
}
|
|
|
|
static FIELDTYPE typeALPHA = {
|
|
_HAS_ARGS | _RESIDENT,
|
|
1, /* this is mutable, so we can't be const */
|
|
(FIELDTYPE *)0,
|
|
(FIELDTYPE *)0,
|
|
Make_Alpha_Type,
|
|
Copy_Alpha_Type,
|
|
Free_Alpha_Type,
|
|
Check_Alpha_Field,
|
|
Check_Alpha_Character,
|
|
NULL,
|
|
NULL
|
|
};
|
|
|
|
NCURSES_EXPORT_VAR(FIELDTYPE*) TYPE_ALPHA = &typeALPHA;
|
|
|
|
/* fty_alpha.c ends here */
|