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 *
Generic_This_Type(void * arg)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 *
Make_This_Type(va_list * ap)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 *
Copy_This_Type(const void * argp)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
Free_This_Type(void * argp)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
Check_This_Character(int c,const void * argp GCC_UNUSED)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
Check_This_Field(FIELD * field,const void * argp)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 *)
_nc_TYPE_ALPHA(void)196 _nc_TYPE_ALPHA(void)
197 {
198 return TYPE_ALPHA;
199 }
200 #endif
201
202 /* fty_alpha.c ends here */
203