eb2d5869616f87ef40f3d360b13312f287cd449d
[ncurses.git] / form / fty_num.c
1
2 /*
3  * THIS CODE IS SPECIFICALLY EXEMPTED FROM THE NCURSES PACKAGE COPYRIGHT.
4  * You may freely copy it for use as a template for your own field types.
5  * If you develop a field type that might be of general use, please send
6  * it back to the ncurses maintainers for inclusion in the next version.
7  */
8 /***************************************************************************
9 *                                                                          *
10 *  Author : Juergen Pfeifer, Juergen.Pfeifer@T-Online.de                   *
11 *                                                                          *
12 ***************************************************************************/
13
14 #include "form.priv.h"
15
16 MODULE_ID("$Id: fty_num.c,v 1.9 1997/04/19 17:26:38 juergen Exp $")
17
18 #if HAVE_LOCALE_H
19 #include <locale.h>
20 #endif
21
22 typedef struct {
23   int    precision;
24   double low;
25   double high;
26   struct lconv* L;
27 } numericARG;
28
29 /*---------------------------------------------------------------------------
30 |   Facility      :  libnform  
31 |   Function      :  static void *Make_Numeric_Type(va_list * ap)
32 |   
33 |   Description   :  Allocate structure for numeric type argument.
34 |
35 |   Return Values :  Pointer to argument structure or NULL on error
36 +--------------------------------------------------------------------------*/
37 static void *Make_Numeric_Type(va_list * ap)
38 {
39   numericARG *argn = (numericARG *)malloc(sizeof(numericARG));
40
41   if (argn)
42     {
43       argn->precision = va_arg(*ap,int);
44       argn->low       = va_arg(*ap,double);
45       argn->high      = va_arg(*ap,double);
46 #if HAVE_LOCALE_H
47       argn->L         = localeconv();
48 #else
49       argn->L         = NULL;
50 #endif
51     }
52   return (void *)argn;
53 }
54
55 /*---------------------------------------------------------------------------
56 |   Facility      :  libnform  
57 |   Function      :  static void *Copy_Numeric_Type(const void * argp)
58 |   
59 |   Description   :  Copy structure for numeric type argument.  
60 |
61 |   Return Values :  Pointer to argument structure or NULL on error.
62 +--------------------------------------------------------------------------*/
63 static void *Copy_Numeric_Type(const void * argp)
64 {
65   const numericARG *ap = (const numericARG *)argp;
66   numericARG *new = (numericARG *)0;
67
68   if (argp)
69     {
70       new = (numericARG *)malloc(sizeof(numericARG));
71       if (new)
72         *new  = *ap;
73     }
74   return (void *)new;
75 }
76
77 /*---------------------------------------------------------------------------
78 |   Facility      :  libnform  
79 |   Function      :  static void Free_Numeric_Type(void * argp)
80 |   
81 |   Description   :  Free structure for numeric type argument.
82 |
83 |   Return Values :  -
84 +--------------------------------------------------------------------------*/
85 static void Free_Numeric_Type(void * argp)
86 {
87   if (argp) 
88     free(argp);
89 }
90
91 /*---------------------------------------------------------------------------
92 |   Facility      :  libnform  
93 |   Function      :  static bool Check_Numeric_Field(FIELD * field,
94 |                                                    const void * argp)
95 |   
96 |   Description   :  Validate buffer content to be a valid numeric value
97 |
98 |   Return Values :  TRUE  - field is valid
99 |                    FALSE - field is invalid
100 +--------------------------------------------------------------------------*/
101 static bool Check_Numeric_Field(FIELD * field, const void * argp)
102 {
103   const numericARG *argn = (const numericARG *)argp;
104   double low          = argn->low;
105   double high         = argn->high;
106   int prec            = argn->precision;
107   unsigned char *bp   = (unsigned char *)field_buffer(field,0);
108   char *s             = (char *)bp;
109   double val          = 0.0;
110   struct lconv* L     = argn->L;
111   char buf[64];
112
113   while(*bp && *bp==' ') bp++;
114   if (*bp)
115     {
116       if (*bp=='-' || *bp=='+')
117         bp++;
118       while(*bp)
119         {
120           if (!isdigit(*bp)) break;
121           bp++;
122         }
123       if (*bp==(
124 #if HAVE_LOCALE_H
125                 (L && L->decimal_point) ? *(L->decimal_point) :
126 #endif
127                 '.'))
128         {
129           bp++;
130           while(*bp)
131             {
132               if (!isdigit(*bp)) break;
133               bp++;
134             }
135         }
136       while(*bp && *bp==' ') bp++;
137       if (*bp=='\0')
138         {
139           val = atof(s);
140           if (low<high)
141             {
142               if (val<low || val>high) return FALSE;
143             }
144           sprintf(buf,"%.*f",(prec>0?prec:0),val);
145           set_field_buffer(field,0,buf);
146           return TRUE;
147         }
148     }
149   return FALSE;
150 }
151
152 /*---------------------------------------------------------------------------
153 |   Facility      :  libnform  
154 |   Function      :  static bool Check_Numeric_Character(
155 |                                      int c,
156 |                                      const void * argp)
157 |   
158 |   Description   :  Check a character for the numeric type.
159 |
160 |   Return Values :  TRUE  - character is valid
161 |                    FALSE - character is invalid
162 +--------------------------------------------------------------------------*/
163 static bool Check_Numeric_Character(int c, const void * argp)
164 {
165   const numericARG *argn = (const numericARG *)argp;
166   struct lconv* L  = argn->L;  
167
168   return (isdigit(c)  || 
169           c == '+'    || 
170           c == '-'    || 
171           c == (
172 #ifdef HAVE_LOCALE_H
173                 (L && L->decimal_point) ? *(L->decimal_point) :
174 #endif
175                 '.')
176           ) ? TRUE : FALSE;
177 }
178
179 static FIELDTYPE typeNUMERIC = {
180   _HAS_ARGS | _RESIDENT,
181   1,                           /* this is mutable, so we can't be const */
182   (FIELDTYPE *)0,
183   (FIELDTYPE *)0,
184   Make_Numeric_Type,
185   Copy_Numeric_Type,
186   Free_Numeric_Type,
187   Check_Numeric_Field,
188   Check_Numeric_Character,
189   NULL,
190   NULL
191 };
192
193 FIELDTYPE* TYPE_NUMERIC = &typeNUMERIC;
194
195 /* fty_num.c ends here */