1 /* A more useful interface to strtol.
3 Copyright (C) 1995, 1996, 1998, 1999, 2001, 2002, 2003, 2004, 2006, 2007
4 Free Software Foundation, Inc.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software Foundation,
18 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
23 # include "exitfail.h"
25 # include <inttypes.h>
29 # ifndef _STRTOL_ERROR
34 /* These two values can be ORed together, to indicate that both
37 LONGINT_INVALID_SUFFIX_CHAR = 2,
39 LONGINT_INVALID_SUFFIX_CHAR_WITH_OVERFLOW = (LONGINT_INVALID_SUFFIX_CHAR
43 typedef enum strtol_error strtol_error;
46 # define _DECLARE_XSTRTOL(name, type) \
47 strtol_error name (const char *, char **, int, type *, const char *);
48 _DECLARE_XSTRTOL (xstrtol, long int)
49 _DECLARE_XSTRTOL (xstrtoul, unsigned long int)
50 _DECLARE_XSTRTOL (xstrtoimax, intmax_t)
51 _DECLARE_XSTRTOL (xstrtoumax, uintmax_t)
53 /* Report an error for an out-of-range integer argument.
54 EXIT_CODE is the exit code (0 for a non-fatal error).
55 OPTION is the option that takes the argument
56 (usually starting with one or two minus signs).
57 ARG is the option's argument.
58 ERR is the error code returned by one of the xstrto* functions. */
59 # define _STRTOL_ERROR(Exit_code, Option, Arg, Err) \
67 case LONGINT_INVALID: \
68 error (Exit_code, 0, gettext ("invalid %s argument `%s'"), \
72 case LONGINT_INVALID_SUFFIX_CHAR: \
73 case LONGINT_INVALID_SUFFIX_CHAR | LONGINT_OVERFLOW: \
74 error ((Exit_code), 0, \
75 gettext ("invalid suffix in %s argument `%s'"), \
79 case LONGINT_OVERFLOW: \
80 error (Exit_code, 0, gettext ("%s argument `%s' too large"), \
87 # define STRTOL_FATAL_ERROR(Option, Arg, Err) \
88 _STRTOL_ERROR (exit_failure, Option, Arg, Err)
90 #endif /* not XSTRTOL_H_ */