X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=lib%2Fxstrtol.h;h=7a9a024457f5c40a56d689c074eebd6d994dc66f;hb=c4bb152d6b3bc125b7b2a8872e682726ac05272b;hp=c5fad2fe825fc785788a45b878d22bd9a15fc562;hpb=5417984f74da4ac85c55e61eb3b7e8d0dc18f5c2;p=gnulib.git diff --git a/lib/xstrtol.h b/lib/xstrtol.h index c5fad2fe8..7a9a02445 100644 --- a/lib/xstrtol.h +++ b/lib/xstrtol.h @@ -1,34 +1,33 @@ #ifndef XSTRTOL_H_ # define XSTRTOL_H_ 1 -# if STRING_TO_UNSIGNED -# define __xstrtol xstrtoul -# define __strtol strtoul -# define __unsigned unsigned -# define __ZLONG_MAX ULONG_MAX -# else -# define __xstrtol xstrtol -# define __strtol strtol -# define __unsigned /* empty */ -# define __ZLONG_MAX LONG_MAX +# if HAVE_INTTYPES_H +# include /* for uintmax_t */ # endif -# undef PARAMS -# if defined (__STDC__) && __STDC__ -# define PARAMS(Args) Args -# else -# define PARAMS(Args) () +# ifndef PARAMS +# if defined PROTOTYPES || (defined __STDC__ && __STDC__) +# define PARAMS(Args) Args +# else +# define PARAMS(Args) () +# endif # endif +# ifndef _STRTOL_ERROR enum strtol_error { LONGINT_OK, LONGINT_INVALID, LONGINT_INVALID_SUFFIX_CHAR, LONGINT_OVERFLOW }; typedef enum strtol_error strtol_error; +# endif -strtol_error - __xstrtol PARAMS ((const char *s, char **ptr, int base, - __unsigned long int *val, const char *valid_suffixes)); +# define _DECLARE_XSTRTOL(name, type) \ + strtol_error \ + name PARAMS ((const char *s, char **ptr, int base, \ + type *val, const char *valid_suffixes)); +_DECLARE_XSTRTOL (xstrtol, long int) +_DECLARE_XSTRTOL (xstrtoul, unsigned long int) +_DECLARE_XSTRTOL (xstrtoumax, uintmax_t) # define _STRTOL_ERROR(Exit_code, Str, Argument_type_string, Err) \ do \ @@ -49,8 +48,7 @@ strtol_error break; \ \ case LONGINT_OVERFLOW: \ - /* FIXME: make this message dependent on STRING_TO_UNSIGNED */\ - error ((Exit_code), 0, "%s `%s' larger than maximum long int",\ + error ((Exit_code), 0, "%s `%s' too large", \ (Argument_type_string), (Str)); \ break; \ } \