Commit | Line | Data |
---|---|---|
8935ee17 HM |
1 | /* A wrapper around strtol() and strtoul() to correct some |
2 | * "out of bounds" cases that don't work well on at least UTS. | |
3 | * If a value is Larger than the max, strto[u]l should return | |
4 | * the max value, and set errno to ERANGE | |
5 | * The same if a value is smaller than the min value (only | |
6 | * relevant for strtol(); not strtoul()), except the minimum | |
7 | * value is returned (and errno == ERANGE). | |
8 | */ | |
9 | ||
10 | #include <ctype.h> | |
11 | #include <string.h> | |
12 | #include <sys/errno.h> | |
13 | #include <stdlib.h> | |
14 | ||
15 | extern int errno; | |
16 | ||
17 | #undef I32 | |
18 | #undef U32 | |
19 | ||
20 | #define I32 int | |
21 | #define U32 unsigned int | |
22 | ||
23 | struct base_info { | |
24 | char *ValidChars; | |
25 | ||
26 | char *Ulong_max_str; | |
27 | char *Long_max_str; | |
28 | char *Long_min_str; /* Absolute value */ | |
29 | ||
30 | int Ulong_max_str_len; | |
31 | int Long_max_str_len; | |
32 | int Long_min_str_len; /* Absolute value */ | |
33 | ||
34 | U32 Ulong_max; | |
35 | I32 Long_max; | |
36 | I32 Long_min; /* NOT Absolute value */ | |
37 | }; | |
38 | static struct base_info Base_info[37]; | |
39 | ||
40 | static struct base_info Base_info_16 = { | |
41 | "0123456789abcdefABCDEF", | |
42 | "4294967295", "2147483648" /* <== ABS VAL */ , "2147483647", | |
43 | 10, 10, 10, | |
44 | 4294967295, 2147483647, - 2147483648, | |
45 | }; | |
46 | ||
47 | static struct base_info Base_info_10 = { | |
48 | "0123456789", | |
49 | "4294967295", "2147483648" /* <== ABS VAL */ , "2147483647", | |
50 | 10, 10, 10, | |
51 | 4294967295, 2147483647, - 2147483648, | |
52 | }; | |
53 | ||
54 | /* Used eventually (if this is fully developed) to hold info | |
55 | * for processing bases 2-36. So that we can just plug the | |
56 | * base in as a selector for its info, we sacrifice | |
57 | * Base_info[0] and Base_info[1] (unless they are used | |
58 | * at some point for special information). | |
59 | */ | |
60 | ||
61 | /* This may be replaced later by something more universal */ | |
62 | static void | |
63 | init_Base_info() | |
64 | { | |
65 | if(Base_info[10].ValidChars) return; | |
66 | Base_info[10] = Base_info_10; | |
67 | Base_info[16] = Base_info_16; | |
68 | } | |
69 | ||
70 | unsigned int | |
71 | strtoul_wrap32(char *s, char **pEnd, int base) | |
72 | { | |
73 | int Len; | |
74 | int isNegated = 0; | |
75 | char *sOrig = s; | |
76 | ||
77 | init_Base_info(); | |
78 | ||
79 | while(*s && isspace(*s)) ++s; | |
80 | ||
81 | if(*s == '-') { | |
82 | ++isNegated; | |
83 | ++s; | |
84 | while(*s && isspace(*s)) ++s; | |
85 | } | |
86 | if(base == 0) { | |
87 | if(*s == '0') { | |
88 | if(s[1] == 'x' || s[1] == 'X') { | |
89 | s += 2; | |
90 | base = 16; | |
91 | } else { | |
92 | ++s; | |
93 | base = 8; | |
94 | } | |
95 | } else if(isdigit(*s)) { | |
96 | base = 10; | |
97 | } | |
98 | } | |
99 | if(base != 10) { | |
100 | return strtoul(sOrig, pEnd, base); | |
101 | } | |
102 | ||
103 | Len = strspn(s, Base_info[base].ValidChars); | |
104 | ||
105 | if(Len > Base_info[base].Ulong_max_str_len | |
106 | || | |
107 | (Len == Base_info[base].Ulong_max_str_len | |
108 | && | |
109 | strncmp(Base_info[base].Ulong_max_str, s, Len) < 0) | |
110 | ) { | |
111 | /* In case isNegated is set - what to do?? */ | |
112 | /* Mightn't we say a negative number is ERANGE for strtoul? */ | |
113 | errno = ERANGE; | |
114 | return Base_info[base].Ulong_max; | |
115 | } | |
116 | ||
117 | return strtoul(sOrig, pEnd, base); | |
118 | } | |
119 | ||
120 | int | |
121 | strtol_wrap32(char *s, char **pEnd, int base) | |
122 | { | |
123 | int Len; | |
124 | int isNegated = 0; | |
125 | char *sOrig = s; | |
126 | ||
127 | init_Base_info(); | |
128 | ||
129 | while(*s && isspace(*s)) ++s; | |
130 | ||
131 | if(*s == '-') { | |
132 | ++isNegated; | |
133 | ++s; | |
134 | while(*s && isspace(*s)) ++s; | |
135 | } | |
136 | if(base == 0) { | |
137 | if(*s == '0') { | |
138 | if(s[1] == 'x' || s[1] == 'X') { | |
139 | s += 2; | |
140 | base = 16; | |
141 | } else { | |
142 | ++s; | |
143 | base = 8; | |
144 | } | |
145 | } else if(isdigit(*s)) { | |
146 | base = 10; | |
147 | } | |
148 | } | |
149 | if(base != 10) { | |
150 | return strtol(sOrig, pEnd, base); | |
151 | } | |
152 | ||
153 | Len = strspn(s, Base_info[base].ValidChars); | |
154 | ||
155 | if(Len > Base_info[base].Long_max_str_len | |
156 | || | |
157 | (!isNegated && Len == Base_info[base].Long_max_str_len | |
158 | && | |
159 | strncmp(Base_info[base].Long_max_str, s, Len) < 0) | |
160 | || | |
161 | (isNegated && Len == Base_info[base].Long_min_str_len | |
162 | && | |
163 | strncmp(Base_info[base].Long_min_str, s, Len) < 0) | |
164 | ) { | |
165 | /* In case isNegated is set - what to do?? */ | |
166 | /* Mightn't we say a negative number is ERANGE for strtol? */ | |
167 | errno = ERANGE; | |
168 | return(isNegated ? Base_info[base].Long_min | |
169 | : | |
170 | Base_info[base].Long_min); | |
171 | } | |
172 | ||
173 | return strtol(sOrig, pEnd, base); | |
174 | } |