]>
Commit | Line | Data |
---|---|---|
1 | /* Convert string representation of a number into an integer value. | |
2 | Copyright (C) 1991-2024 Free Software Foundation, Inc. | |
3 | This file is part of the GNU C Library. | |
4 | ||
5 | The GNU C Library is free software; you can redistribute it and/or | |
6 | modify it under the terms of the GNU Lesser General Public | |
7 | License as published by the Free Software Foundation; either | |
8 | version 2.1 of the License, or (at your option) any later version. | |
9 | ||
10 | The GNU C Library is distributed in the hope that it will be useful, | |
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 | Lesser General Public License for more details. | |
14 | ||
15 | You should have received a copy of the GNU Lesser General Public | |
16 | License along with the GNU C Library; if not, see | |
17 | <https://www.gnu.org/licenses/>. */ | |
18 | ||
19 | #include <features.h> | |
20 | #undef __GLIBC_USE_C23_STRTOL | |
21 | #define __GLIBC_USE_C23_STRTOL 0 | |
22 | #include <stdlib.h> | |
23 | #include <wchar.h> | |
24 | #include <locale/localeinfo.h> | |
25 | ||
26 | #ifndef UNSIGNED | |
27 | # define UNSIGNED 0 | |
28 | # define INT LONG int | |
29 | #else | |
30 | # define INT unsigned LONG int | |
31 | #endif | |
32 | ||
33 | #if UNSIGNED | |
34 | # ifdef USE_WIDE_CHAR | |
35 | # ifdef QUAD | |
36 | # define strtol wcstoull | |
37 | # define __strtol_l __wcstoull_l | |
38 | # define __isoc23_strtol __isoc23_wcstoull | |
39 | # else | |
40 | # define strtol wcstoul | |
41 | # define __strtol_l __wcstoul_l | |
42 | # define __isoc23_strtol __isoc23_wcstoul | |
43 | # endif | |
44 | # else | |
45 | # ifdef QUAD | |
46 | # define strtol strtoull | |
47 | # define __strtol_l __strtoull_l | |
48 | # define __isoc23_strtol __isoc23_strtoull | |
49 | # else | |
50 | # define strtol strtoul | |
51 | # define __strtol_l __strtoul_l | |
52 | # define __isoc23_strtol __isoc23_strtoul | |
53 | # endif | |
54 | # endif | |
55 | #else | |
56 | # ifdef USE_WIDE_CHAR | |
57 | # ifdef QUAD | |
58 | # define strtol wcstoll | |
59 | # define __strtol_l __wcstoll_l | |
60 | # define __isoc23_strtol __isoc23_wcstoll | |
61 | # else | |
62 | # define strtol wcstol | |
63 | # define __strtol_l __wcstol_l | |
64 | # define __isoc23_strtol __isoc23_wcstol | |
65 | # endif | |
66 | # else | |
67 | # ifdef QUAD | |
68 | # define strtol strtoll | |
69 | # define __strtol_l __strtoll_l | |
70 | # define __isoc23_strtol __isoc23_strtoll | |
71 | # endif | |
72 | # endif | |
73 | #endif | |
74 | ||
75 | ||
76 | /* If QUAD is defined, we are defining `strtoll' or `strtoull', | |
77 | operating on `long long int's. */ | |
78 | #ifdef QUAD | |
79 | # define LONG long long | |
80 | #else | |
81 | # define LONG long | |
82 | #endif | |
83 | ||
84 | ||
85 | #ifdef USE_WIDE_CHAR | |
86 | # define STRING_TYPE wchar_t | |
87 | #else | |
88 | # define STRING_TYPE char | |
89 | #endif | |
90 | ||
91 | ||
92 | #define INTERNAL(X) INTERNAL1(X) | |
93 | #define INTERNAL1(X) __##X##_internal | |
94 | ||
95 | #define SYM__(X) SYM__1 (X) | |
96 | #define SYM__1(X) __ ## X | |
97 | #define __strtol SYM__ (strtol) | |
98 | ||
99 | ||
100 | extern INT INTERNAL (__strtol_l) (const STRING_TYPE *, STRING_TYPE **, int, | |
101 | int, bool, locale_t); | |
102 | ||
103 | ||
104 | INT | |
105 | INTERNAL (strtol) (const STRING_TYPE *nptr, STRING_TYPE **endptr, | |
106 | int base, int group) | |
107 | { | |
108 | return INTERNAL (__strtol_l) (nptr, endptr, base, group, false, | |
109 | _NL_CURRENT_LOCALE); | |
110 | } | |
111 | libc_hidden_def (INTERNAL (strtol)) | |
112 | ||
113 | ||
114 | INT | |
115 | __strtol (const STRING_TYPE *nptr, STRING_TYPE **endptr, int base) | |
116 | { | |
117 | return INTERNAL (__strtol_l) (nptr, endptr, base, 0, false, | |
118 | _NL_CURRENT_LOCALE); | |
119 | } | |
120 | weak_alias (__strtol, strtol) | |
121 | libc_hidden_weak (strtol) | |
122 | ||
123 | INT | |
124 | __isoc23_strtol (const STRING_TYPE *nptr, STRING_TYPE **endptr, int base) | |
125 | { | |
126 | return INTERNAL (__strtol_l) (nptr, endptr, base, 0, true, | |
127 | _NL_CURRENT_LOCALE); | |
128 | } | |
129 | libc_hidden_def (__isoc23_strtol) |