1 /**************************************************************************** 2 * Copyright (c) 1998-2009,2010 Free Software Foundation, Inc. * 3 * * 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: * 11 * * 12 * The above copyright notice and this permission notice shall be included * 13 * in all copies or substantial portions of the Software. * 14 * * 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. * 22 * * 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 * 26 * authorization. * 27 ****************************************************************************/ 28 29 /*************************************************************************** 30 * * 31 * Author : Juergen Pfeifer * 32 * * 33 ***************************************************************************/ 34 35 #include "form.priv.h" 36 37 MODULE_ID("$Id: fty_alpha.c,v 1.26 2010/01/23 21:14:36 tom Exp $") 38 39 #define thisARG alphaARG 40 41 typedef struct 42 { 43 int width; 44 } 45 thisARG; 46 47 /*--------------------------------------------------------------------------- 48 | Facility : libnform 49 | Function : static void *Generic_This_Type(va_list *ap) 50 | 51 | Description : Allocate structure for alpha type argument. 52 | 53 | Return Values : Pointer to argument structure or NULL on error 54 +--------------------------------------------------------------------------*/ 55 static void * 56 Generic_This_Type(void *arg) 57 { 58 thisARG *argp = (thisARG *) 0; 59 60 if (arg) 61 { 62 argp = typeMalloc(thisARG, 1); 63 64 if (argp) 65 { 66 T((T_CREATE("thisARG %p"), (void *)argp)); 67 argp->width = *((int *)arg); 68 } 69 } 70 return ((void *)argp); 71 } 72 73 /*--------------------------------------------------------------------------- 74 | Facility : libnform 75 | Function : static void *Make_This_Type(va_list *ap) 76 | 77 | Description : Allocate structure for alpha type argument. 78 | 79 | Return Values : Pointer to argument structure or NULL on error 80 +--------------------------------------------------------------------------*/ 81 static void * 82 Make_This_Type(va_list *ap) 83 { 84 int w = va_arg(*ap, int); 85 86 return Generic_This_Type((void *)&w); 87 } 88 89 /*--------------------------------------------------------------------------- 90 | Facility : libnform 91 | Function : static void *Copy_This_Type(const void * argp) 92 | 93 | Description : Copy structure for alpha type argument. 94 | 95 | Return Values : Pointer to argument structure or NULL on error. 96 +--------------------------------------------------------------------------*/ 97 static void * 98 Copy_This_Type(const void *argp) 99 { 100 const thisARG *ap = (const thisARG *)argp; 101 thisARG *result = typeMalloc(thisARG, 1); 102 103 if (result) 104 { 105 T((T_CREATE("thisARG %p"), (void *)result)); 106 *result = *ap; 107 } 108 109 return ((void *)result); 110 } 111 112 /*--------------------------------------------------------------------------- 113 | Facility : libnform 114 | Function : static void Free_This_Type(void *argp) 115 | 116 | Description : Free structure for alpha type argument. 117 | 118 | Return Values : - 119 +--------------------------------------------------------------------------*/ 120 static void 121 Free_This_Type(void *argp) 122 { 123 if (argp) 124 free(argp); 125 } 126 127 /*--------------------------------------------------------------------------- 128 | Facility : libnform 129 | Function : static bool Check_This_Character( 130 | int c, 131 | const void *argp) 132 | 133 | Description : Check a character for the alpha type. 134 | 135 | Return Values : TRUE - character is valid 136 | FALSE - character is invalid 137 +--------------------------------------------------------------------------*/ 138 static bool 139 Check_This_Character(int c, const void *argp GCC_UNUSED) 140 { 141 #if USE_WIDEC_SUPPORT 142 if (iswalpha((wint_t) c)) 143 return TRUE; 144 #endif 145 return (isalpha(UChar(c)) ? TRUE : FALSE); 146 } 147 148 /*--------------------------------------------------------------------------- 149 | Facility : libnform 150 | Function : static bool Check_This_Field( 151 | FIELD *field, 152 | const void *argp) 153 | 154 | Description : Validate buffer content to be a valid alpha value 155 | 156 | Return Values : TRUE - field is valid 157 | FALSE - field is invalid 158 +--------------------------------------------------------------------------*/ 159 static bool 160 Check_This_Field(FIELD *field, const void *argp) 161 { 162 int width = ((const thisARG *)argp)->width; 163 unsigned char *bp = (unsigned char *)field_buffer(field, 0); 164 bool result = (width < 0); 165 166 Check_CTYPE_Field(result, bp, width, Check_This_Character); 167 return (result); 168 } 169 170 static FIELDTYPE typeTHIS = 171 { 172 _HAS_ARGS | _RESIDENT, 173 1, /* this is mutable, so we can't be const */ 174 (FIELDTYPE *)0, 175 (FIELDTYPE *)0, 176 Make_This_Type, 177 Copy_This_Type, 178 Free_This_Type, 179 INIT_FT_FUNC(Check_This_Field), 180 INIT_FT_FUNC(Check_This_Character), 181 INIT_FT_FUNC(NULL), 182 INIT_FT_FUNC(NULL), 183 #if NCURSES_INTEROP_FUNCS 184 Generic_This_Type 185 #endif 186 }; 187 188 NCURSES_EXPORT_VAR(FIELDTYPE*) TYPE_ALPHA = &typeTHIS; 189 190 #if NCURSES_INTEROP_FUNCS 191 /* The next routines are to simplify the use of ncurses from 192 programming languages with restictions on interop with C level 193 constructs (e.g. variable access or va_list + ellipsis constructs) 194 */ 195 NCURSES_EXPORT(FIELDTYPE *) 196 _nc_TYPE_ALPHA(void) 197 { 198 return TYPE_ALPHA; 199 } 200 #endif 201 202 /* fty_alpha.c ends here */ 203