Mercurial > hg > octave-lojdl > gnulib-hg
changeset 1782:891c8561137d
(__xstrtol, __strtol, __unsigned): Remove macro decls.
<inttypes.h>: Include if HAVE_INTTYPES_H.
(_DECLARE_XSTRTOL): New macro.
(xstrtol, xstrtoul, xstrtoumax): Declare all three functions, so that
we need only one include file, not three.
(_STRTOL_ERROR): Do not undef, as this is no longer needed.
Reword overflow message so that it's independent of type.
| author | Jim Meyering <jim@meyering.net> |
|---|---|
| date | Sun, 18 Apr 1999 23:16:23 +0000 |
| parents | a26162438677 |
| children | dce035e2a186 |
| files | lib/xstrtol.h |
| diffstat | 1 files changed, 10 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/lib/xstrtol.h +++ b/lib/xstrtol.h @@ -1,14 +1,8 @@ #ifndef XSTRTOL_H_ # define XSTRTOL_H_ 1 -# if STRING_TO_UNSIGNED -# define __xstrtol xstrtoul -# define __strtol strtoul -# define __unsigned unsigned -# else -# define __xstrtol xstrtol -# define __strtol strtol -# define __unsigned /* empty */ +# if HAVE_INTTYPES_H +# include <inttypes.h> /* for uintmax_t */ # endif # ifndef PARAMS @@ -27,11 +21,14 @@ 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) -# undef _STRTOL_ERROR # define _STRTOL_ERROR(Exit_code, Str, Argument_type_string, Err) \ do \ { \ @@ -51,8 +48,7 @@ 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; \ } \