1 /* $NetBSD: _strtoi.h,v 1.5 2024/07/24 09:11:27 kre 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 * Created by Kamil Rytarowski, based on ID: 35 * NetBSD: src/common/lib/libc/stdlib/_strtoul.h,v 1.7 2013/05/17 12:55:56 joerg Exp 36 */ 37 38 /* 39 * function template for strtoi and strtou 40 * 41 * parameters: 42 * _FUNCNAME : function name 43 * __TYPE : return and range limits type 44 * __WRAPPED : wrapped function, strtoimax or strtoumax 45 */ 46 47 #define __WRAPPED_L_(x) x ## _l 48 #define __WRAPPED_L__(x) __WRAPPED_L_(x) 49 #define __WRAPPED_L __WRAPPED_L__(__WRAPPED) 50 51 #if defined(_KERNEL) || defined(_STANDALONE) || \ 52 defined(HAVE_NBTOOL_CONFIG_H) || defined(BCS_ONLY) 53 __TYPE 54 _FUNCNAME(const char * __restrict nptr, char ** __restrict endptr, int base, 55 __TYPE lo, __TYPE hi, int * rstatus) 56 #else 57 #include <locale.h> 58 #include "setlocale_local.h" 59 #define INT_FUNCNAME_(pre, name, post) pre ## name ## post 60 #define INT_FUNCNAME(pre, name, post) INT_FUNCNAME_(pre, name, post) 61 62 static __TYPE 63 INT_FUNCNAME(_int_, _FUNCNAME, _l)(const char * __restrict nptr, 64 char ** __restrict endptr, int base, 65 __TYPE lo, __TYPE hi, int * rstatus, locale_t loc) 66 #endif 67 { 68 #if !defined(_KERNEL) && !defined(_STANDALONE) 69 int serrno; 70 #endif 71 __TYPE im; 72 char *ep; 73 int rep; 74 75 _DIAGASSERT(hi >= lo); 76 77 _DIAGASSERT(nptr != NULL); 78 /* endptr may be NULL */ 79 80 if (endptr == NULL) 81 endptr = &ep; 82 83 if (rstatus == NULL) 84 rstatus = &rep; 85 86 *rstatus = 0; /* assume there will be no errors */ 87 88 if (base != 0 && (base < 2 || base > 36)) { 89 #if !defined(_KERNEL) && !defined(_STANDALONE) 90 *rstatus = EINVAL; 91 if (endptr != NULL) 92 /* LINTED interface specification */ 93 *endptr = __UNCONST(nptr); 94 return 0; 95 #else 96 panic("%s: invalid base %d", __func__, base); 97 #endif 98 } 99 100 #if !defined(_KERNEL) && !defined(_STANDALONE) 101 serrno = errno; 102 errno = 0; 103 #endif 104 105 #if defined(_KERNEL) || defined(_STANDALONE) || \ 106 defined(HAVE_NBTOOL_CONFIG_H) || defined(BCS_ONLY) 107 im = __WRAPPED(nptr, endptr, base); 108 #else 109 im = __WRAPPED_L(nptr, endptr, base, loc); 110 #endif 111 112 #if !defined(_KERNEL) && !defined(_STANDALONE) 113 /* EINVAL here can only mean "nothing converted" */ 114 if (errno != EINVAL) 115 *rstatus = errno; 116 errno = serrno; 117 #endif 118 119 /* No digits were found */ 120 if (*rstatus == 0 && nptr == *endptr) 121 *rstatus = ECANCELED; 122 123 if (im < lo) { 124 if (*rstatus == 0) 125 *rstatus = ERANGE; 126 return lo; 127 } 128 129 if (im > hi) { 130 if (*rstatus == 0) 131 *rstatus = ERANGE; 132 return hi; 133 } 134 135 /* There are further characters after number */ 136 if (*rstatus == 0 && **endptr != '\0') 137 *rstatus = ENOTSUP; 138 139 return im; 140 } 141 142 #if !defined(_KERNEL) && !defined(_STANDALONE) && \ 143 !defined(HAVE_NBTOOL_CONFIG_H) && !defined(BCS_ONLY) 144 __TYPE 145 _FUNCNAME(const char * __restrict nptr, char ** __restrict endptr, int base, 146 __TYPE lo, __TYPE hi, int * rstatus) 147 { 148 return INT_FUNCNAME(_int_, _FUNCNAME, _l)(nptr, endptr, base, lo, hi, 149 rstatus, _current_locale()); 150 } 151 152 __TYPE 153 INT_FUNCNAME(, _FUNCNAME, _l)(const char * __restrict nptr, 154 char ** __restrict endptr, int base, 155 __TYPE lo, __TYPE hi, int * rstatus, locale_t loc) 156 { 157 return INT_FUNCNAME(_int_, _FUNCNAME, _l)(nptr, endptr, base, lo, hi, 158 rstatus, loc); 159 } 160 #endif 161