X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=lib%2Fxstrtol.h;h=475728aa44c908e31713a6e3c477b316ec7f2551;hb=88c14dcf4d4df04f3c12f7d506484993850c55ad;hp=9af90aad3533814822662d8694c590b5c803e577;hpb=68af56be3e061b97cf97150094bc50b0aa364cbb;p=gnulib.git diff --git a/lib/xstrtol.h b/lib/xstrtol.h index 9af90aad3..475728aa4 100644 --- a/lib/xstrtol.h +++ b/lib/xstrtol.h @@ -1,7 +1,7 @@ /* A more useful interface to strtol. - Copyright (C) 1995, 1996, 1998, 1999, 2001, 2002, 2003 Free - Software Foundation, Inc. + Copyright (C) 1995, 1996, 1998, 1999, 2001, 2002, 2003, 2004, 2006 + 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 @@ -15,24 +15,30 @@ 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. */ + Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ #ifndef XSTRTOL_H_ # define XSTRTOL_H_ 1 -/* Get uintmax_t. */ -# if HAVE_INTTYPES_H -# include -# else -# if HAVE_STDINT_H -# include -# endif -# endif +# include "exitfail.h" + +# include + +# include "gettext.h" # ifndef _STRTOL_ERROR enum strtol_error { - LONGINT_OK, LONGINT_INVALID, LONGINT_INVALID_SUFFIX_CHAR, LONGINT_OVERFLOW + LONGINT_OK = 0, + + /* These two values can be ORed together, to indicate that both + errors occurred. */ + LONGINT_OVERFLOW = 1, + LONGINT_INVALID_SUFFIX_CHAR = 2, + + LONGINT_INVALID_SUFFIX_CHAR_WITH_OVERFLOW = (LONGINT_INVALID_SUFFIX_CHAR + | LONGINT_OVERFLOW), + LONGINT_INVALID = 4 }; typedef enum strtol_error strtol_error; # endif @@ -49,21 +55,23 @@ _DECLARE_XSTRTOL (xstrtoumax, uintmax_t) { \ switch ((Err)) \ { \ - case LONGINT_OK: \ + default: \ abort (); \ \ case LONGINT_INVALID: \ - error ((Exit_code), 0, "invalid %s `%s'", \ + error ((Exit_code), 0, gettext ("invalid %s `%s'"), \ (Argument_type_string), (Str)); \ break; \ \ case LONGINT_INVALID_SUFFIX_CHAR: \ - error ((Exit_code), 0, "invalid character following %s in `%s'", \ + case LONGINT_INVALID_SUFFIX_CHAR | LONGINT_OVERFLOW: \ + error ((Exit_code), 0, \ + gettext ("invalid character following %s in `%s'"), \ (Argument_type_string), (Str)); \ break; \ \ case LONGINT_OVERFLOW: \ - error ((Exit_code), 0, "%s `%s' too large", \ + error ((Exit_code), 0, gettext ("%s `%s' too large"), \ (Argument_type_string), (Str)); \ break; \ } \ @@ -71,7 +79,7 @@ _DECLARE_XSTRTOL (xstrtoumax, uintmax_t) while (0) # define STRTOL_FATAL_ERROR(Str, Argument_type_string, Err) \ - _STRTOL_ERROR (2, Str, Argument_type_string, Err) + _STRTOL_ERROR (exit_failure, Str, Argument_type_string, Err) # define STRTOL_FAIL_WARN(Str, Argument_type_string, Err) \ _STRTOL_ERROR (0, Str, Argument_type_string, Err)