1 /* $NetBSD: _strtoi.h,v 1.2 2015/01/18 17:55:22 christos 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 #if !defined(_KERNEL) && !defined(_STANDALONE)
87 serrno = errno;
88 errno = 0;
89 #endif
90
91 #if defined(_KERNEL) || defined(_STANDALONE) || \
92 defined(HAVE_NBTOOL_CONFIG_H) || defined(BCS_ONLY)
93 im = __WRAPPED(nptr, endptr, base);
94 #else
95 im = __WRAPPED_L(nptr, endptr, base, loc);
96 #endif
97
98 #if !defined(_KERNEL) && !defined(_STANDALONE)
99 *rstatus = errno;
100 errno = serrno;
101 #endif
102
103 if (*rstatus == 0) {
104 /* No digits were found */
105 if (nptr == *endptr)
106 *rstatus = ECANCELED;
107 /* There are further characters after number */
108 else if (**endptr != '\0')
109 *rstatus = ENOTSUP;
110 }
111
112 if (im < lo) {
113 if (*rstatus == 0)
114 *rstatus = ERANGE;
115 return lo;
116 }
117 if (im > hi) {
118 if (*rstatus == 0)
119 *rstatus = ERANGE;
120 return hi;
121 }
122
123 return im;
124 }
125
126 #if !defined(_KERNEL) && !defined(_STANDALONE) && \
127 !defined(HAVE_NBTOOL_CONFIG_H) && !defined(BCS_ONLY)
128 __TYPE
_FUNCNAME(const char * __restrict nptr,char ** __restrict endptr,int base,__TYPE lo,__TYPE hi,int * rstatus)129 _FUNCNAME(const char * __restrict nptr, char ** __restrict endptr, int base,
130 __TYPE lo, __TYPE hi, int * rstatus)
131 {
132 return INT_FUNCNAME(_int_, _FUNCNAME, _l)(nptr, endptr, base, lo, hi,
133 rstatus, _current_locale());
134 }
135
136 __TYPE
137 INT_FUNCNAME(, _FUNCNAME, _l)(const char * __restrict nptr,
138 char ** __restrict endptr, int base,
139 __TYPE lo, __TYPE hi, int * rstatus, locale_t loc)
140 {
141 return INT_FUNCNAME(_int_, _FUNCNAME, _l)(nptr, endptr, base, lo, hi,
142 rstatus, loc);
143 }
144 #endif
145