1 /* $NetBSD: strsuftoll.c,v 1.8 2008/04/28 20:23:00 martin Exp $ */ 2 /*- 3 * Copyright (c) 2001-2002,2004 The NetBSD Foundation, Inc. 4 * All rights reserved. 5 * 6 * This code is derived from software contributed to The NetBSD Foundation 7 * by Luke Mewburn. 8 * 9 * Redistribution and use in source and binary forms, with or without 10 * modification, are permitted provided that the following conditions 11 * are met: 12 * 1. Redistributions of source code must retain the above copyright 13 * notice, this list of conditions and the following disclaimer. 14 * 2. Redistributions in binary form must reproduce the above copyright 15 * notice, this list of conditions and the following disclaimer in the 16 * documentation and/or other materials provided with the distribution. 17 * 18 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS 19 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 20 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 21 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS 22 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 23 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 24 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 25 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 26 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 27 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 28 * POSSIBILITY OF SUCH DAMAGE. 29 */ 30 /*- 31 * Copyright (c) 1991, 1993, 1994 32 * The Regents of the University of California. All rights reserved. 33 * 34 * This code is derived from software contributed to Berkeley by 35 * Keith Muller of the University of California, San Diego and Lance 36 * Visser of Convex Computer Corporation. 37 * 38 * Redistribution and use in source and binary forms, with or without 39 * modification, are permitted provided that the following conditions 40 * are met: 41 * 1. Redistributions of source code must retain the above copyright 42 * notice, this list of conditions and the following disclaimer. 43 * 2. Redistributions in binary form must reproduce the above copyright 44 * notice, this list of conditions and the following disclaimer in the 45 * documentation and/or other materials provided with the distribution. 46 * 3. Neither the name of the University nor the names of its contributors 47 * may be used to endorse or promote products derived from this software 48 * without specific prior written permission. 49 * 50 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 51 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 52 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 53 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 54 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 55 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 56 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 57 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 58 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 59 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 60 * SUCH DAMAGE. 61 */ 62 63 #if HAVE_NBTOOL_CONFIG_H 64 #include "nbtool_config.h" 65 #endif 66 67 #include <sys/cdefs.h> 68 69 #if defined(LIBC_SCCS) && !defined(lint) 70 __RCSID("$NetBSD: strsuftoll.c,v 1.8 2008/04/28 20:23:00 martin Exp $"); 71 #endif /* LIBC_SCCS and not lint */ 72 73 #ifdef _LIBC 74 #include "namespace.h" 75 #endif 76 77 #if !HAVE_STRSUFTOLL 78 79 #include <sys/types.h> 80 #include <sys/time.h> 81 82 #include <assert.h> 83 #include <ctype.h> 84 #include <err.h> 85 #include <errno.h> 86 #include <limits.h> 87 #include <stdio.h> 88 #include <stdlib.h> 89 #include <string.h> 90 91 #ifdef _LIBC 92 # ifdef __weak_alias 93 __weak_alias(strsuftoll, _strsuftoll) 94 __weak_alias(strsuftollx, _strsuftollx) 95 # endif 96 #endif /* LIBC */ 97 98 /* 99 * Convert an expression of the following forms to a (u)int64_t. 100 * 1) A positive decimal number. 101 * 2) A positive decimal number followed by a b (mult by 512). 102 * 3) A positive decimal number followed by a k (mult by 1024). 103 * 4) A positive decimal number followed by a m (mult by 1048576). 104 * 5) A positive decimal number followed by a g (mult by 1073741824). 105 * 6) A positive decimal number followed by a t (mult by 1099511627776). 106 * 7) A positive decimal number followed by a w (mult by sizeof int) 107 * 8) Two or more positive decimal numbers (with/without k,b or w). 108 * separated by x (also * for backwards compatibility), specifying 109 * the product of the indicated values. 110 * Returns the result upon successful conversion, or exits with an 111 * appropriate error. 112 * 113 */ 114 /* LONGLONG */ 115 long long 116 strsuftoll(const char *desc, const char *val, 117 long long min, long long max) 118 { 119 long long result; 120 char errbuf[100]; 121 122 result = strsuftollx(desc, val, min, max, errbuf, sizeof(errbuf)); 123 if (*errbuf != '\0') 124 errx(1, "%s", errbuf); 125 return (result); 126 } 127 128 /* 129 * As strsuftoll(), but returns the error message into the provided buffer 130 * rather than exiting with it. 131 */ 132 /* LONGLONG */ 133 long long 134 strsuftollx(const char *desc, const char *val, 135 long long min, long long max, char *ebuf, size_t ebuflen) 136 { 137 long long num, t; 138 char *expr; 139 140 _DIAGASSERT(desc != NULL); 141 _DIAGASSERT(val != NULL); 142 _DIAGASSERT(ebuf != NULL); 143 144 errno = 0; 145 ebuf[0] = '\0'; 146 147 while (isspace((unsigned char)*val)) /* Skip leading space */ 148 val++; 149 150 num = strtoll(val, &expr, 10); 151 if (errno == ERANGE) 152 goto erange; /* Overflow */ 153 154 if (expr == val) /* No digits */ 155 goto badnum; 156 157 switch (*expr) { 158 case 'b': 159 t = num; 160 num *= 512; /* 1 block */ 161 if (t > num) 162 goto erange; 163 ++expr; 164 break; 165 case 'k': 166 t = num; 167 num *= 1024; /* 1 kibibyte */ 168 if (t > num) 169 goto erange; 170 ++expr; 171 break; 172 case 'm': 173 t = num; 174 num *= 1048576; /* 1 mebibyte */ 175 if (t > num) 176 goto erange; 177 ++expr; 178 break; 179 case 'g': 180 t = num; 181 num *= 1073741824; /* 1 gibibyte */ 182 if (t > num) 183 goto erange; 184 ++expr; 185 break; 186 case 't': 187 t = num; 188 num *= 1099511627776LL; /* 1 tebibyte */ 189 if (t > num) 190 goto erange; 191 ++expr; 192 break; 193 case 'w': 194 t = num; 195 num *= sizeof(int); /* 1 word */ 196 if (t > num) 197 goto erange; 198 ++expr; 199 break; 200 } 201 202 switch (*expr) { 203 case '\0': 204 break; 205 case '*': /* Backward compatible */ 206 case 'x': 207 t = num; 208 num *= strsuftollx(desc, expr + 1, min, max, ebuf, ebuflen); 209 if (*ebuf != '\0') 210 return (0); 211 if (t > num) { 212 erange: 213 snprintf(ebuf, ebuflen, 214 "%s: %s", desc, strerror(ERANGE)); 215 return (0); 216 } 217 break; 218 default: 219 badnum: snprintf(ebuf, ebuflen, 220 "%s `%s': illegal number", desc, val); 221 return (0); 222 } 223 if (num < min) { 224 /* LONGLONG */ 225 snprintf(ebuf, ebuflen, "%s %lld is less than %lld.", 226 desc, (long long)num, (long long)min); 227 return (0); 228 } 229 if (num > max) { 230 /* LONGLONG */ 231 snprintf(ebuf, ebuflen, 232 "%s %lld is greater than %lld.", 233 desc, (long long)num, (long long)max); 234 return (0); 235 } 236 *ebuf = '\0'; 237 return (num); 238 } 239 240 #endif /* !HAVE_STRSUFTOLL */ 241