1 /* $NetBSD: _strtoul.h,v 1.5 2013/04/16 21:44:06 joerg Exp $ */ 2 3 /*- 4 * Copyright (c) 1990, 1993 5 * The Regents of the University of California. All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 3. Neither the name of the University nor the names of its contributors 16 * may be used to endorse or promote products derived from this software 17 * without specific prior written permission. 18 * 19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 29 * SUCH DAMAGE. 30 * 31 * Original version ID: 32 * NetBSD: src/lib/libc/locale/_wcstoul.h,v 1.2 2003/08/07 16:43:03 agc Exp 33 */ 34 35 /* 36 * function template for strtoul, strtoull and strtoumax. 37 * 38 * parameters: 39 * _FUNCNAME : function name 40 * __UINT : return type 41 * __UINT_MAX : upper limit of the return type 42 */ 43 #if defined(_KERNEL) || defined(_STANDALONE) || defined(HAVE_NBTOOL_CONFIG_H) 44 __UINT 45 _FUNCNAME(const char *nptr, char **endptr, int base) 46 #else 47 #include <locale.h> 48 #include "setlocale_local.h" 49 #define INT_FUNCNAME_(pre, name, post) pre ## name ## post 50 #define INT_FUNCNAME(pre, name, post) INT_FUNCNAME_(pre, name, post) 51 52 static __UINT 53 INT_FUNCNAME(_int_, _FUNCNAME, _l)(const char *nptr, char **endptr, 54 int base, locale_t loc) 55 #endif 56 { 57 const char *s; 58 __UINT acc, cutoff; 59 unsigned char c; 60 int i, neg, any, cutlim; 61 62 _DIAGASSERT(nptr != NULL); 63 /* endptr may be NULL */ 64 65 /* check base value */ 66 if (base && (base < 2 || base > 36)) { 67 #if !defined(_KERNEL) && !defined(_STANDALONE) 68 errno = EINVAL; 69 return(0); 70 #else 71 panic("%s: invalid base %d", __func__, base); 72 #endif 73 } 74 75 /* 76 * Skip white space and pick up leading +/- sign if any. 77 * If base is 0, allow 0x for hex and 0 for octal, else 78 * assume decimal; if base is already 16, allow 0x. 79 */ 80 s = nptr; 81 #if defined(_KERNEL) || defined(_STANDALONE) || defined(HAVE_NBTOOL_CONFIG_H) 82 do { 83 c = *s++; 84 } while (isspace(c)); 85 #else 86 do { 87 c = *s++; 88 } while (isspace_l(c, loc)); 89 #endif 90 if (c == '-') { 91 neg = 1; 92 c = *s++; 93 } else { 94 neg = 0; 95 if (c == '+') 96 c = *s++; 97 } 98 if ((base == 0 || base == 16) && 99 c == '0' && (*s == 'x' || *s == 'X')) { 100 c = s[1]; 101 s += 2; 102 base = 16; 103 } 104 if (base == 0) 105 base = (c == '0' ? 8 : 10); 106 107 /* 108 * See strtol for comments as to the logic used. 109 */ 110 cutoff = ((__UINT)__UINT_MAX / (__UINT)base); 111 cutlim = (int)((__UINT)__UINT_MAX % (__UINT)base); 112 for (acc = 0, any = 0;; c = *s++) { 113 if (c >= '0' && c <= '9') 114 i = c - '0'; 115 else if (c >= 'a' && c <= 'z') 116 i = (c - 'a') + 10; 117 else if (c >= 'A' && c <= 'Z') 118 i = (c - 'A') + 10; 119 else 120 break; 121 if (i >= base) 122 break; 123 if (any < 0) 124 continue; 125 if (acc > cutoff || (acc == cutoff && i > cutlim)) { 126 acc = __UINT_MAX; 127 #if !defined(_KERNEL) && !defined(_STANDALONE) 128 any = -1; 129 errno = ERANGE; 130 #else 131 any = 0; 132 break; 133 #endif 134 } else { 135 any = 1; 136 acc *= (__UINT)base; 137 acc += i; 138 } 139 } 140 if (neg && any > 0) 141 acc = -acc; 142 if (endptr != NULL) 143 /* LINTED interface specification */ 144 *endptr = __UNCONST(any ? s - 1 : nptr); 145 return(acc); 146 } 147 148 #if !defined(_KERNEL) && !defined(_STANDALONE) && !defined(HAVE_NBTOOL_CONFIG_H) 149 __UINT 150 _FUNCNAME(const char *nptr, char **endptr, int base) 151 { 152 return INT_FUNCNAME(_int_, _FUNCNAME, _l)(nptr, endptr, base, *_current_locale()); 153 } 154 155 __UINT 156 INT_FUNCNAME(, _FUNCNAME, _l)(const char *nptr, char **endptr, int base, locale_t loc) 157 { 158 if (loc == NULL) 159 loc = _C_locale; 160 return INT_FUNCNAME(_int_, _FUNCNAME, _l)(nptr, endptr, base, loc); 161 } 162 #endif 163