octave-jordi/gnulib-hg: lib/strtol.c annotate

annotate lib/strtol.c @ 14379:2330aac2ae54

maint: adjust cpp indentation to reflect nesting depth I.e., in a block of code that begins with an unnested "#if", put one space between the "#" in column 1 and following token. For example, -#include <sys/vfs.h> +# include <sys/vfs.h> Do this only in .c files that are part of a module I maintain. * lib/linkat.c: Filter through cppi. * lib/nanosleep.c: Likewise. * lib/openat.c: Likewise. * lib/openat-die.c: Likewise. * lib/dup3.c: Likewise. * lib/fchownat.c: Likewise. * lib/flock.c: Likewise. * lib/fsync.c: Likewise. * lib/fts.c: Likewise. * lib/getpass.c: Likewise. * lib/gettimeofday.c: Likewise. * lib/userspec.c: Likewise. * Makefile (sc_cpp_indent_check): New rule, to check this.

author	Jim Meyering <meyering@redhat.com>
date	Sun, 20 Feb 2011 23:02:43 +0100
parents	52b55b447c02
children	731855fce76b

rev	line source
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	1 /* Convert string representation of a number into an integer value.
4691 ce37d22a271f Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 2807 diff changeset	2
14079 97fc9a21a8fb maint: update almost all copyright ranges to include 2011 Jim Meyering <meyering@redhat.com> parents: 12991 diff changeset	3 Copyright (C) 1991-1992, 1994-1999, 2003, 2005-2007, 2009-2011 Free Software
97fc9a21a8fb maint: update almost all copyright ranges to include 2011 Jim Meyering <meyering@redhat.com> parents: 12991 diff changeset	4 Foundation, Inc.
4691 ce37d22a271f Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 2807 diff changeset	5
770 56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	6 NOTE: The canonical source of this file is maintained with the GNU C
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	7 Library. Bugs can be reported to bug-glibc@gnu.org.
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	8
9309 bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+. Bruno Haible <bruno@clisp.org> parents: 7888 diff changeset	9 This program is free software: you can redistribute it and/or modify it
770 56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	10 under the terms of the GNU General Public License as published by the
9309 bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+. Bruno Haible <bruno@clisp.org> parents: 7888 diff changeset	11 Free Software Foundation; either version 3 of the License, or any
770 56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	12 later version.
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	13
770 56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	14 This program is distributed in the hope that it will be useful,
56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	15 but WITHOUT ANY WARRANTY; without even the implied warranty of
56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	17 GNU General Public License for more details.
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	18
770 56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	19 You should have received a copy of the GNU General Public License
9309 bbbbbf4cd1c5 Change copyright notice from GPLv2+ to GPLv3+. Bruno Haible <bruno@clisp.org> parents: 7888 diff changeset	20 along with this program. If not, see <http://www.gnu.org/licenses/>. */
376 590eee4d9a8c . Jim Meyering <jim@meyering.net> parents: 15 diff changeset	21
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	22 #ifdef _LIBC
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	23 # define USE_NUMBER_GROUPING
7302 8a1a9361108c * _fpending.c: Include <config.h> unconditionally, since we no Paul Eggert <eggert@cs.ucla.edu> parents: 6927 diff changeset	24 #else
8a1a9361108c * _fpending.c: Include <config.h> unconditionally, since we no Paul Eggert <eggert@cs.ucla.edu> parents: 6927 diff changeset	25 # include <config.h>
376 590eee4d9a8c . Jim Meyering <jim@meyering.net> parents: 15 diff changeset	26 #endif
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	27
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	28 #include <ctype.h>
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	29 #include <errno.h>
770 56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	30 #ifndef __set_errno
56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	31 # define __set_errno(Val) errno = (Val)
56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	32 #endif
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	33
4691 ce37d22a271f Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 2807 diff changeset	34 #include <limits.h>
ce37d22a271f Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 2807 diff changeset	35 #include <stddef.h>
ce37d22a271f Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 2807 diff changeset	36 #include <stdlib.h>
ce37d22a271f Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 2807 diff changeset	37 #include <string.h>
376 590eee4d9a8c . Jim Meyering <jim@meyering.net> parents: 15 diff changeset	38
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	39 #ifdef USE_NUMBER_GROUPING
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	40 # include "../locale/localeinfo.h"
376 590eee4d9a8c . Jim Meyering <jim@meyering.net> parents: 15 diff changeset	41 #endif
590eee4d9a8c . Jim Meyering <jim@meyering.net> parents: 15 diff changeset	42
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	43 /* Nonzero if we are defining `strtoul' or `strtoull', operating on
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	44 unsigned integers. */
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	45 #ifndef UNSIGNED
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	46 # define UNSIGNED 0
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	47 # define INT LONG int
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	48 #else
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	49 # define INT unsigned LONG int
376 590eee4d9a8c . Jim Meyering <jim@meyering.net> parents: 15 diff changeset	50 #endif
590eee4d9a8c . Jim Meyering <jim@meyering.net> parents: 15 diff changeset	51
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	52 /* Determine the name. */
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	53 #ifdef USE_IN_EXTENDED_LOCALE_MODEL
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	54 # if UNSIGNED
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	55 # ifdef USE_WIDE_CHAR
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	56 # ifdef QUAD
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	57 # define strtol __wcstoull_l
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	58 # else
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	59 # define strtol __wcstoul_l
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	60 # endif
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	61 # else
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	62 # ifdef QUAD
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	63 # define strtol __strtoull_l
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	64 # else
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	65 # define strtol __strtoul_l
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	66 # endif
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	67 # endif
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	68 # else
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	69 # ifdef USE_WIDE_CHAR
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	70 # ifdef QUAD
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	71 # define strtol __wcstoll_l
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	72 # else
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	73 # define strtol __wcstol_l
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	74 # endif
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	75 # else
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	76 # ifdef QUAD
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	77 # define strtol __strtoll_l
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	78 # else
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	79 # define strtol __strtol_l
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	80 # endif
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	81 # endif
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	82 # endif
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	83 #else
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	84 # if UNSIGNED
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	85 # ifdef USE_WIDE_CHAR
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	86 # ifdef QUAD
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	87 # define strtol wcstoull
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	88 # else
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	89 # define strtol wcstoul
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	90 # endif
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	91 # else
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	92 # ifdef QUAD
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	93 # define strtol strtoull
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	94 # else
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	95 # define strtol strtoul
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	96 # endif
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	97 # endif
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	98 # else
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	99 # ifdef USE_WIDE_CHAR
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	100 # ifdef QUAD
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	101 # define strtol wcstoll
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	102 # else
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	103 # define strtol wcstol
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	104 # endif
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	105 # else
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	106 # ifdef QUAD
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	107 # define strtol strtoll
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	108 # endif
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	109 # endif
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	110 # endif
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	111 #endif
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	112
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	113 /* If QUAD is defined, we are defining `strtoll' or `strtoull',
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	114 operating on `long long int's. */
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	115 #ifdef QUAD
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	116 # define LONG long long
12991 1276be199c4c Fix compilation error with Sun C. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	117 # define STRTOL_LONG_MIN LLONG_MIN
1276be199c4c Fix compilation error with Sun C. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	118 # define STRTOL_LONG_MAX LLONG_MAX
1276be199c4c Fix compilation error with Sun C. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	119 # define STRTOL_ULONG_MAX ULLONG_MAX
1828 b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define. Jim Meyering <jim@meyering.net> parents: 1805 diff changeset	120
5691 ec62790f0938 Factor int-properties macros into a single file, except for Paul Eggert <eggert@cs.ucla.edu> parents: 4697 diff changeset	121 /* The extra casts in the following macros work around compiler bugs,
ec62790f0938 Factor int-properties macros into a single file, except for Paul Eggert <eggert@cs.ucla.edu> parents: 4697 diff changeset	122 e.g., in Cray C 5.0.3.0. */
ec62790f0938 Factor int-properties macros into a single file, except for Paul Eggert <eggert@cs.ucla.edu> parents: 4697 diff changeset	123
5783 f5794b0165c2 Fix spellings in comment. Paul Eggert <eggert@cs.ucla.edu> parents: 5705 diff changeset	124 /* True if negative values of the signed integer type T use two's
f5794b0165c2 Fix spellings in comment. Paul Eggert <eggert@cs.ucla.edu> parents: 5705 diff changeset	125 complement, ones' complement, or signed magnitude representation,
f5794b0165c2 Fix spellings in comment. Paul Eggert <eggert@cs.ucla.edu> parents: 5705 diff changeset	126 respectively. Much GNU code assumes two's complement, but some
5704 e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT, Paul Eggert <eggert@cs.ucla.edu> parents: 5691 diff changeset	127 people like to be portable to all possible C hosts. */
5705 cb1401375000 Fix comments and indenting. Paul Eggert <eggert@cs.ucla.edu> parents: 5704 diff changeset	128 # define TYPE_TWOS_COMPLEMENT(t) ((t) ~ (t) 0 == (t) -1)
cb1401375000 Fix comments and indenting. Paul Eggert <eggert@cs.ucla.edu> parents: 5704 diff changeset	129 # define TYPE_ONES_COMPLEMENT(t) ((t) ~ (t) 0 == 0)
cb1401375000 Fix comments and indenting. Paul Eggert <eggert@cs.ucla.edu> parents: 5704 diff changeset	130 # define TYPE_SIGNED_MAGNITUDE(t) ((t) ~ (t) 0 < (t) -1)
5704 e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT, Paul Eggert <eggert@cs.ucla.edu> parents: 5691 diff changeset	131
5691 ec62790f0938 Factor int-properties macros into a single file, except for Paul Eggert <eggert@cs.ucla.edu> parents: 4697 diff changeset	132 /* True if the arithmetic type T is signed. */
5704 e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT, Paul Eggert <eggert@cs.ucla.edu> parents: 5691 diff changeset	133 # define TYPE_SIGNED(t) (! ((t) 0 < (t) -1))
5691 ec62790f0938 Factor int-properties macros into a single file, except for Paul Eggert <eggert@cs.ucla.edu> parents: 4697 diff changeset	134
ec62790f0938 Factor int-properties macros into a single file, except for Paul Eggert <eggert@cs.ucla.edu> parents: 4697 diff changeset	135 /* The maximum and minimum values for the integer type T. These
5705 cb1401375000 Fix comments and indenting. Paul Eggert <eggert@cs.ucla.edu> parents: 5704 diff changeset	136 macros have undefined behavior if T is signed and has padding bits.
cb1401375000 Fix comments and indenting. Paul Eggert <eggert@cs.ucla.edu> parents: 5704 diff changeset	137 If this is a problem for you, please let us know how to fix it for
cb1401375000 Fix comments and indenting. Paul Eggert <eggert@cs.ucla.edu> parents: 5704 diff changeset	138 your host. */
5704 e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT, Paul Eggert <eggert@cs.ucla.edu> parents: 5691 diff changeset	139 # define TYPE_MINIMUM(t) \
e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT, Paul Eggert <eggert@cs.ucla.edu> parents: 5691 diff changeset	140 ((t) (! TYPE_SIGNED (t) \
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	141 ? (t) 0 \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	142 : TYPE_SIGNED_MAGNITUDE (t) \
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	143 ? ~ (t) 0 \
14249 52b55b447c02 TYPE_MAXIMUM: avoid theoretically undefined behavior Paul Eggert <eggert@cs.ucla.edu> parents: 14079 diff changeset	144 : ~ TYPE_MAXIMUM (t)))
5704 e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT, Paul Eggert <eggert@cs.ucla.edu> parents: 5691 diff changeset	145 # define TYPE_MAXIMUM(t) \
e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT, Paul Eggert <eggert@cs.ucla.edu> parents: 5691 diff changeset	146 ((t) (! TYPE_SIGNED (t) \
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	147 ? (t) -1 \
14249 52b55b447c02 TYPE_MAXIMUM: avoid theoretically undefined behavior Paul Eggert <eggert@cs.ucla.edu> parents: 14079 diff changeset	148 : ((((t) 1 << (sizeof (t) * CHAR_BIT - 2)) - 1) * 2 + 1)))
1828 b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define. Jim Meyering <jim@meyering.net> parents: 1805 diff changeset	149
12991 1276be199c4c Fix compilation error with Sun C. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	150 # ifndef ULLONG_MAX
1276be199c4c Fix compilation error with Sun C. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	151 # define ULLONG_MAX TYPE_MAXIMUM (unsigned long long)
1828 b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define. Jim Meyering <jim@meyering.net> parents: 1805 diff changeset	152 # endif
12991 1276be199c4c Fix compilation error with Sun C. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	153 # ifndef LLONG_MAX
1276be199c4c Fix compilation error with Sun C. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	154 # define LLONG_MAX TYPE_MAXIMUM (long long int)
1828 b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define. Jim Meyering <jim@meyering.net> parents: 1805 diff changeset	155 # endif
12991 1276be199c4c Fix compilation error with Sun C. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	156 # ifndef LLONG_MIN
1276be199c4c Fix compilation error with Sun C. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	157 # define LLONG_MIN TYPE_MINIMUM (long long int)
1828 b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define. Jim Meyering <jim@meyering.net> parents: 1805 diff changeset	158 # endif
b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define. Jim Meyering <jim@meyering.net> parents: 1805 diff changeset	159
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	160 # if __GNUC__ == 2 && __GNUC_MINOR__ < 7
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	161 /* Work around gcc bug with using this constant. */
12991 1276be199c4c Fix compilation error with Sun C. Bruno Haible <bruno@clisp.org> parents: 12559 diff changeset	162 static const unsigned long long int maxquad = ULLONG_MAX;
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	163 # undef STRTOL_ULONG_MAX
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	164 # define STRTOL_ULONG_MAX maxquad
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	165 # endif
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	166 #else
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	167 # define LONG long
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	168 # define STRTOL_LONG_MIN LONG_MIN
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	169 # define STRTOL_LONG_MAX LONG_MAX
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	170 # define STRTOL_ULONG_MAX ULONG_MAX
770 56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	171 #endif
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	172
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	173
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	174 /* We use this code also for the extended locale handling where the
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	175 function gets as an additional argument the locale which has to be
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	176 used. To access the values we have to redefine the _NL_CURRENT
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	177 macro. */
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	178 #ifdef USE_IN_EXTENDED_LOCALE_MODEL
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	179 # undef _NL_CURRENT
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	180 # define _NL_CURRENT(category, item) \
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	181 (current->values[_NL_ITEM_INDEX (item)].string)
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	182 # define LOCALE_PARAM , loc
4697 73c2577c2864 (LOCALE_PARAM_PROTO): Renamed from LOCALE_PARAM_DECL, for consistency Paul Eggert <eggert@cs.ucla.edu> parents: 4691 diff changeset	183 # define LOCALE_PARAM_PROTO , __locale_t loc
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	184 #else
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	185 # define LOCALE_PARAM
4697 73c2577c2864 (LOCALE_PARAM_PROTO): Renamed from LOCALE_PARAM_DECL, for consistency Paul Eggert <eggert@cs.ucla.edu> parents: 4691 diff changeset	186 # define LOCALE_PARAM_PROTO
770 56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	187 #endif
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	188
7888 b6376840b47b * modules/fnmatch (Depends-on): Depend on wchar. Eric Blake <ebb9@byu.net> parents: 7302 diff changeset	189 #include <wchar.h>
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	190
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	191 #ifdef USE_WIDE_CHAR
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	192 # include <wctype.h>
770 56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	193 # define L_(Ch) L##Ch
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	194 # define UCHAR_TYPE wint_t
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	195 # define STRING_TYPE wchar_t
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	196 # ifdef USE_IN_EXTENDED_LOCALE_MODEL
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	197 # define ISSPACE(Ch) __iswspace_l ((Ch), loc)
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	198 # define ISALPHA(Ch) __iswalpha_l ((Ch), loc)
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	199 # define TOUPPER(Ch) __towupper_l ((Ch), loc)
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	200 # else
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	201 # define ISSPACE(Ch) iswspace (Ch)
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	202 # define ISALPHA(Ch) iswalpha (Ch)
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	203 # define TOUPPER(Ch) towupper (Ch)
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	204 # endif
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	205 #else
770 56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	206 # define L_(Ch) Ch
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	207 # define UCHAR_TYPE unsigned char
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	208 # define STRING_TYPE char
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	209 # ifdef USE_IN_EXTENDED_LOCALE_MODEL
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	210 # define ISSPACE(Ch) __isspace_l ((Ch), loc)
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	211 # define ISALPHA(Ch) __isalpha_l ((Ch), loc)
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	212 # define TOUPPER(Ch) __toupper_l ((Ch), loc)
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	213 # else
6927 fa896bb33133 * lib/memcasecmp.c: Include <limits.h>. Paul Eggert <eggert@cs.ucla.edu> parents: 6831 diff changeset	214 # define ISSPACE(Ch) isspace (Ch)
fa896bb33133 * lib/memcasecmp.c: Include <limits.h>. Paul Eggert <eggert@cs.ucla.edu> parents: 6831 diff changeset	215 # define ISALPHA(Ch) isalpha (Ch)
fa896bb33133 * lib/memcasecmp.c: Include <limits.h>. Paul Eggert <eggert@cs.ucla.edu> parents: 6831 diff changeset	216 # define TOUPPER(Ch) toupper (Ch)
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	217 # endif
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	218 #endif
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	219
4691 ce37d22a271f Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 2807 diff changeset	220 #define INTERNAL(X) INTERNAL1(X)
ce37d22a271f Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 2807 diff changeset	221 #define INTERNAL1(X) __##X##_internal
ce37d22a271f Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 2807 diff changeset	222 #define WEAKNAME(X) WEAKNAME1(X)
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	223
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	224 #ifdef USE_NUMBER_GROUPING
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	225 /* This file defines a function to check for correct grouping. */
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	226 # include "grouping.h"
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	227 #endif
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	228
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	229
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	230
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	231 /* Convert NPTR to an `unsigned long int' or `long int' in base BASE.
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	232 If BASE is 0 the base is determined by the presence of a leading
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	233 zero, indicating octal or a leading "0x" or "0X", indicating hexadecimal.
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	234 If BASE is < 2 or > 36, it is reset to 10.
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	235 If ENDPTR is not NULL, a pointer to the character after the last
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	236 one converted is stored in ENDPTR. /
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	237
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	238 INT
4691 ce37d22a271f Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 2807 diff changeset	239 INTERNAL (strtol) (const STRING_TYPE nptr, STRING_TYPE *endptr,
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	240 int base, int group LOCALE_PARAM_PROTO)
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	241 {
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	242 int negative;
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	243 register unsigned LONG int cutoff;
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	244 register unsigned int cutlim;
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	245 register unsigned LONG int i;
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	246 register const STRING_TYPE *s;
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	247 register UCHAR_TYPE c;
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	248 const STRING_TYPE save, end;
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	249 int overflow;
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	250
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	251 #ifdef USE_NUMBER_GROUPING
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	252 # ifdef USE_IN_EXTENDED_LOCALE_MODEL
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	253 struct locale_data *current = loc->__locales[LC_NUMERIC];
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	254 # endif
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	255 /* The thousands character of the current locale. */
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	256 wchar_t thousands = L'\0';
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	257 /* The numeric grouping specification of the current locale,
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	258 in the format described in <locale.h>. */
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	259 const char *grouping;
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	260
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	261 if (group)
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	262 {
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	263 grouping = _NL_CURRENT (LC_NUMERIC, GROUPING);
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	264 if (grouping <= 0 \|\| grouping == CHAR_MAX)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	265 grouping = NULL;
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	266 else
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	267 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	268 /* Figure out the thousands separator character. */
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	269 # if defined _LIBC \|\| defined _HAVE_BTOWC
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	270 thousands = __btowc (*_NL_CURRENT (LC_NUMERIC, THOUSANDS_SEP));
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	271 if (thousands == WEOF)
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	272 thousands = L'\0';
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	273 # endif
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	274 if (thousands == L'\0')
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	275 grouping = NULL;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	276 }
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	277 }
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	278 else
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	279 grouping = NULL;
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	280 #endif
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	281
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	282 if (base < 0 \|\| base == 1 \|\| base > 36)
886 e95d0bea1f1e update from FSF Jim Meyering <jim@meyering.net> parents: 770 diff changeset	283 {
e95d0bea1f1e update from FSF Jim Meyering <jim@meyering.net> parents: 770 diff changeset	284 __set_errno (EINVAL);
e95d0bea1f1e update from FSF Jim Meyering <jim@meyering.net> parents: 770 diff changeset	285 return 0;
e95d0bea1f1e update from FSF Jim Meyering <jim@meyering.net> parents: 770 diff changeset	286 }
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	287
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	288 save = s = nptr;
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	289
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	290 /* Skip white space. */
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	291 while (ISSPACE (*s))
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	292 ++s;
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	293 if (*s == L_('\0'))
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	294 goto noconv;
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	295
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	296 /* Check for a sign. */
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	297 if (*s == L_('-'))
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	298 {
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	299 negative = 1;
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	300 ++s;
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	301 }
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	302 else if (*s == L_('+'))
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	303 {
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	304 negative = 0;
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	305 ++s;
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	306 }
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	307 else
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	308 negative = 0;
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	309
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	310 /* Recognize number prefix and if BASE is zero, figure it out ourselves. */
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	311 if (*s == L_('0'))
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	312 {
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	313 if ((base == 0 \|\| base == 16) && TOUPPER (s[1]) == L_('X'))
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	314 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	315 s += 2;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	316 base = 16;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	317 }
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	318 else if (base == 0)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	319 base = 8;
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	320 }
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	321 else if (base == 0)
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	322 base = 10;
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	323
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	324 /* Save the pointer so we can check later if anything happened. */
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	325 save = s;
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	326
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	327 #ifdef USE_NUMBER_GROUPING
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	328 if (group)
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	329 {
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	330 /* Find the end of the digit string and check its grouping. */
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	331 end = s;
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	332 for (c = end; c != L_('\0'); c = ++end)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	333 if ((wchar_t) c != thousands
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	334 && ((wchar_t) c < L_('0') \|\| (wchar_t) c > L_('9'))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	335 && (!ISALPHA (c) \|\| (int) (TOUPPER (c) - L_('A') + 10) >= base))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	336 break;
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	337 if (*s == thousands)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	338 end = s;
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	339 else
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	340 end = correctly_grouped_prefix (s, end, thousands, grouping);
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	341 }
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	342 else
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	343 #endif
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	344 end = NULL;
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	345
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	346 cutoff = STRTOL_ULONG_MAX / (unsigned LONG int) base;
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	347 cutlim = STRTOL_ULONG_MAX % (unsigned LONG int) base;
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	348
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	349 overflow = 0;
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	350 i = 0;
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	351 for (c = s; c != L_('\0'); c = ++s)
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	352 {
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	353 if (s == end)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	354 break;
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	355 if (c >= L_('0') && c <= L_('9'))
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	356 c -= L_('0');
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	357 else if (ISALPHA (c))
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	358 c = TOUPPER (c) - L_('A') + 10;
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	359 else
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	360 break;
770 56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	361 if ((int) c >= base)
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	362 break;
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	363 /* Check for overflow. */
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	364 if (i > cutoff \|\| (i == cutoff && c > cutlim))
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	365 overflow = 1;
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	366 else
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	367 {
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	368 i *= (unsigned LONG int) base;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	369 i += c;
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	370 }
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	371 }
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	372
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	373 /* Check if anything actually happened. */
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	374 if (s == save)
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	375 goto noconv;
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	376
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	377 /* Store in ENDPTR the address of one character
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	378 past the last character we converted. */
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	379 if (endptr != NULL)
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	380 endptr = (STRING_TYPE ) s;
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	381
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	382 #if !UNSIGNED
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	383 /* Check for a value that is within the range of
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	384 `unsigned LONG int', but outside the range of `LONG int'. */
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	385 if (overflow == 0
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	386 && i > (negative
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	387 ? -((unsigned LONG int) (STRTOL_LONG_MIN + 1)) + 1
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	388 : (unsigned LONG int) STRTOL_LONG_MAX))
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	389 overflow = 1;
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	390 #endif
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	391
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	392 if (overflow)
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	393 {
770 56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	394 __set_errno (ERANGE);
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	395 #if UNSIGNED
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	396 return STRTOL_ULONG_MAX;
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	397 #else
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	398 return negative ? STRTOL_LONG_MIN : STRTOL_LONG_MAX;
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	399 #endif
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	400 }
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	401
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	402 /* Return the result of the appropriate sign. */
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	403 return negative ? -i : i;
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	404
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	405 noconv:
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	406 /* We must handle a special case here: the base is 0 or 16 and the
770 56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	407 first two characters are '0' and 'x', but the rest are no
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	408 hexadecimal digits. This is no error case. We return 0 and
a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	409 ENDPTR points to the `x`. */
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	410 if (endptr != NULL)
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	411 {
84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	412 if (save - nptr >= 2 && TOUPPER (save[-1]) == L_('X')
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	413 && save[-2] == L_('0'))
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	414 endptr = (STRING_TYPE ) &save[-1];
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	415 else
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	416 /* There was no number to convert. */
e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	417 endptr = (STRING_TYPE ) nptr;
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	418 }
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	419
15 c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	420 return 0L;
c45413ba009a Initial revision Jim Meyering <jim@meyering.net> parents: diff changeset	421 }
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	422
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	423 /* External user entry point. */
c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	424
616 a1052e824123 Update from GNU libc-copies. Jim Meyering <jim@meyering.net> parents: 527 diff changeset	425
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	426 INT
770 56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	427 #ifdef weak_function
56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	428 weak_function
56db8156c7b7 Update from GNU libc. Jim Meyering <jim@meyering.net> parents: 742 diff changeset	429 #endif
4691 ce37d22a271f Remove K&R cruft. Paul Eggert <eggert@cs.ucla.edu> parents: 2807 diff changeset	430 strtol (const STRING_TYPE nptr, STRING_TYPE *endptr,
12421 e8d2c6fc33ad Use spaces for indentation, not tabs. Bruno Haible <bruno@clisp.org> parents: 9309 diff changeset	431 int base LOCALE_PARAM_PROTO)
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	432 {
1805 84e24189f121 Update to glibc 2.1.1 version. Jim Meyering <jim@meyering.net> parents: 1043 diff changeset	433 return INTERNAL (strtol) (nptr, endptr, base, 0 LOCALE_PARAM);
469 c3052f3c02fe New version -- now derived from the line in libc. Jim Meyering <jim@meyering.net> parents: 376 diff changeset	434 }

Mercurial > hg > octave-jordi > gnulib-hg

annotate lib/strtol.c @ 14379:2330aac2ae54