/* * 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                                                **                                                                          ****************************************************************************/#include "form.priv.h"MODULE_ID("$Id: fty_alpha.c,v 1.12 2003/10/25 14:54:48 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 */