123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100 |
- #if HAVE_CONFIG_H
- # include <config.h>
- #endif
- #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
- #define verify(name, assertion) struct name { char a[(assertion) ? 1 : -1]; }
- #ifdef UNSIGNED
- # ifndef HAVE_DECL_STRTOUL
- "this configure-time declaration test was not run"
- # endif
- # if !HAVE_DECL_STRTOUL
- unsigned long strtoul PARAMS ((char const *, char **, int));
- # endif
- # ifndef HAVE_DECL_STRTOULL
- "this configure-time declaration test was not run"
- # endif
- # if !HAVE_DECL_STRTOULL && HAVE_UNSIGNED_LONG_LONG
- unsigned long long strtoull PARAMS ((char const *, char **, int));
- # endif
- #else
- # ifndef HAVE_DECL_STRTOL
- "this configure-time declaration test was not run"
- # endif
- # if !HAVE_DECL_STRTOL
- long strtol PARAMS ((char const *, char **, int));
- # endif
- # ifndef HAVE_DECL_STRTOLL
- "this configure-time declaration test was not run"
- # endif
- # if !HAVE_DECL_STRTOLL && HAVE_UNSIGNED_LONG_LONG
- long long strtoll PARAMS ((char const *, char **, int));
- # endif
- #endif
- #ifdef UNSIGNED
- # undef HAVE_LONG_LONG
- # define HAVE_LONG_LONG HAVE_UNSIGNED_LONG_LONG
- # define INT uintmax_t
- # define strtoimax strtoumax
- # define strtol strtoul
- # define strtoll strtoull
- #else
- # define INT intmax_t
- #endif
- INT
- strtoimax (char const *ptr, char **endptr, int base)
- {
- #if HAVE_LONG_LONG
- verify (size_is_that_of_long_or_long_long,
- (sizeof (INT) == sizeof (long)
- || sizeof (INT) == sizeof (long long)));
- if (sizeof (INT) != sizeof (long))
- return strtoll (ptr, endptr, base);
- #else
- verify (size_is_that_of_long,
- sizeof (INT) == sizeof (long));
- #endif
- return strtol (ptr, endptr, base);
- }
|