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
_FUNCNAME(const char * __restrict nptr,char ** __restrict endptr,int base,__TYPE lo,__TYPE hi,int * rstatus)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
_FUNCNAME(const char * __restrict nptr,char ** __restrict endptr,int base,__TYPE lo,__TYPE hi,int * rstatus)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