X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=lib%2Fxstrtol.c;h=fea6c4801ae107b78c99e4f83a80942600031e9d;hb=969e926a00cbc97b332dc487f6bc34862e573b82;hp=0b4a714bf55bf060d1fd6b08af2d182dd2e627e9;hpb=9228fe6a6f958eb5db211bef8c2ac20d71ce148e;p=gnulib.git diff --git a/lib/xstrtol.c b/lib/xstrtol.c index 0b4a714bf..fea6c4801 100644 --- a/lib/xstrtol.c +++ b/lib/xstrtol.c @@ -1,12 +1,31 @@ -#ifdef HAVE_CONFIG_H -#include +/* A more useful interface to strtol. + Copyright (C) 1995, 1996 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 + the Free Software Foundation; either version 2, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + 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. */ + +/* Written by Jim Meyering. */ + +#if HAVE_CONFIG_H +# include #endif -#ifdef STDC_HEADERS -#include +#if STDC_HEADERS +# include #endif -#ifdef HAVE_STRING_H +#if HAVE_STRING_H # include #else # include @@ -83,8 +102,11 @@ __xstrtol (s, ptr, base, val, valid_suffixes) return LONGINT_INVALID_SUFFIX_CHAR; } - if (**p != '\0' && strchr (valid_suffixes, **p)) + if (**p != '\0') { + if (!strchr (valid_suffixes, **p)) + return LONGINT_INVALID_SUFFIX_CHAR; + switch (**p) { case 'b': @@ -124,8 +146,8 @@ __xstrtol (s, ptr, base, val, valid_suffixes) #ifdef TESTING_XSTRTO -#include -#include "error.h" +# include +# include "error.h" char *program_name; @@ -153,4 +175,5 @@ main (int argc, char** argv) } exit (0); } + #endif /* TESTING_XSTRTO */