1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
/* xstrtoumax.c -- A more useful interface to strtoumax.
Copyright 1999 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
/* Written by Paul Eggert. */
#if HAVE_CONFIG_H
# include <config.h>
#endif
#if HAVE_STRTOUMAX
# define __strtol strtoumax
#else
# define __strtol my_strtoumax
/* Define a temporary implementation, intended to hold the fort only
until glibc has an implementation of the C9x standard function
strtoumax. When glibc implements strtoumax, we can remove the
following function in favor of a replacement file strtoumax.c taken
from glibc. */
# if HAVE_INTTYPES_H
# include <inttypes.h>
# endif
# if HAVE_STDLIB_H
# include <stdlib.h>
# endif
# ifndef PARAMS
# if defined PROTOTYPES || defined __STDC__
# define PARAMS(Args) Args
# else
# define PARAMS(Args) ()
# endif
# endif
static uintmax_t my_strtoumax PARAMS ((char const *, char **, int));
#endif
#define __strtol_t uintmax_t
#define __xstrtol xstrtoumax
#include "xstrtol.c"
#if !HAVE_STRTOUMAX
static uintmax_t
my_strtoumax (char const *ptr, char **endptr, int base)
{
# define USE_IF_EQUIVALENT(function) \
if (sizeof (uintmax_t) == sizeof function (ptr, endptr, base)) \
return function (ptr, endptr, base);
USE_IF_EQUIVALENT (strtoul)
# if HAVE_STRTOULL
USE_IF_EQUIVALENT (strtoull)
# endif
# if HAVE_STRTOUQ
USE_IF_EQUIVALENT (strtouq)
# endif
{
/* An implementation with uintmax_t longer than long, but with no
known way to convert it. Do it by hand. Assume base 10. */
uintmax_t n = 0;
uintmax_t overflow = 0;
for (; '0' <= *ptr && *ptr <= '9'; ptr++)
{
uintmax_t n10 = n * 10;
int digit = *ptr - '0';
overflow |= n ^ (n10 + digit) / 10;
n = n10 + digit;
}
if (endptr)
*endptr = (char *) ptr;
if (overflow)
{
errno = ERANGE;
n = (uintmax_t) -1;
}
return n;
}
}
#endif /* HAVE_STRTOUMAX */
|