1 /* $NetBSD: type_integer.c,v 1.8 2004/10/28 21:14:52 dsl Exp $ */
2
3 /*-
4 * Copyright (c) 1998-1999 Brett Lymn
5 * (blymn@baea.com.au, brett_lymn@yahoo.com.au)
6 * All rights reserved.
7 *
8 * This code has been donated to The NetBSD Foundation by the Author.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 * notice, this list of conditions and the following disclaimer.
15 * 2. The name of the author may not be used to endorse or promote products
16 * derived from this software without specific prior written permission
17 *
18 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
21 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
22 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
23 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
24 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
25 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
27 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28 *
29 *
30 */
31
32 #include <sys/cdefs.h>
33 __RCSID("$NetBSD: type_integer.c,v 1.8 2004/10/28 21:14:52 dsl Exp $");
34
35 #include <stdlib.h>
36 #include <strings.h>
37 #include <ctype.h>
38 #include "form.h"
39 #include "internals.h"
40
41 /*
42 * The integer type handling.
43 */
44
45 typedef struct
46 {
47 unsigned precision;
48 long min;
49 long max;
50 } integer_args;
51
52 /*
53 * Create the integer arguments structure from the given args. Return NULL
54 * if the call fails, otherwise return a pointer to the structure allocated.
55 */
56 static char *
create_integer_args(va_list * args)57 create_integer_args(va_list *args)
58 {
59 integer_args *new;
60
61 new = (integer_args *) malloc(sizeof(integer_args));
62
63 if (new != NULL) {
64 new->precision = va_arg(*args, unsigned);
65 new->min = va_arg(*args, long);
66 new->max = va_arg(*args, long);
67 }
68
69 return (void *) new;
70 }
71
72 /*
73 * Copy the integer argument structure.
74 */
75 static char *
copy_integer_args(char * args)76 copy_integer_args(char *args)
77 {
78 integer_args *new;
79
80 new = (integer_args *) malloc(sizeof(integer_args));
81
82 if (new != NULL)
83 bcopy(args, new, sizeof(integer_args));
84
85 return (void *) new;
86 }
87
88 /*
89 * Free the allocated storage associated with the type arguments.
90 */
91 static void
free_integer_args(char * args)92 free_integer_args(char *args)
93 {
94 if (args != NULL)
95 free(args);
96 }
97
98 /*
99 * Check the contents of the field buffer are digits only.
100 */
101 static int
integer_check_field(FIELD * field,char * args)102 integer_check_field(FIELD *field, char *args)
103 {
104 int cur;
105 long number, max, min;
106 int precision;
107 char *buf, *new_buf;
108
109 if (args == NULL)
110 return FALSE;
111
112 precision = ((integer_args *) (void *) field->args)->precision;
113 min = ((integer_args *) (void *) field->args)->min;
114 max = ((integer_args *) (void *) field->args)->max;
115
116 buf = args;
117 cur = 0;
118
119 /* skip leading white space */
120 while ((buf[cur] != '\0')
121 && ((buf[cur] == ' ') || (buf[cur] == '\t')))
122 cur++;
123
124 /* no good if we have hit the end */
125 if (buf[cur] == '\0')
126 return FALSE;
127
128 /* find the end of the digits but allow a leading + or - sign */
129 if ((buf[cur] == '-') || (buf[cur] == '+'))
130 cur++;
131
132 while(isdigit((unsigned char)buf[cur]))
133 cur++;
134
135 /* check there is only trailing whitespace */
136 while ((buf[cur] != '\0')
137 && ((buf[cur] == ' ') || (buf[cur] == '\t')))
138 cur++;
139
140 /* no good if we are not at the end of the string */
141 if (buf[cur] != '\0')
142 return FALSE;
143
144 /* convert and range check the number...*/
145 number = atol(buf);
146 if ((min > max) || ((number < min) || (number > max)))
147 return FALSE;
148
149 if (asprintf(&new_buf, "%.*ld", precision, number) < 0)
150 return FALSE;
151
152 /* re-set the field buffer to be the reformatted numeric */
153 set_field_buffer(field, 0, new_buf);
154
155 free(new_buf);
156
157 /* otherwise all was ok */
158 return TRUE;
159 }
160
161 /*
162 * Check the given character is numeric, return TRUE if it is.
163 */
164 static int
integer_check_char(int c,char * args)165 integer_check_char(/* ARGSUSED1 */ int c, char *args)
166 {
167 return ((isdigit(c) || (c == '-') || (c == '+')) ? TRUE : FALSE);
168 }
169
170 static FIELDTYPE builtin_integer = {
171 _TYPE_HAS_ARGS | _TYPE_IS_BUILTIN, /* flags */
172 0, /* refcount */
173 NULL, /* link */
174 create_integer_args, /* make_args */
175 copy_integer_args, /* copy_args */
176 free_integer_args, /* free_args */
177 integer_check_field, /* field_check */
178 integer_check_char, /* char_check */
179 NULL, /* next_choice */
180 NULL /* prev_choice */
181 };
182
183 FIELDTYPE *TYPE_INTEGER = &builtin_integer;
184
185
186