Mercurial > hg > octave-jordi > gnulib-hg

annotate lib/strtol.c @ 5783:f5794b0165c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix spellings in comment.
author Paul Eggert <eggert@cs.ucla.edu>
date Sat, 02 Apr 2005 03:54:44 +0000
parents cb1401375000
children a48fb0e98c8c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
5691
ec62790f0938 Factor int-properties macros into a single file, except for
Paul Eggert <eggert@cs.ucla.edu>
parents: 4697
diff changeset
3 Copyright (C) 1991, 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2003, 2005
4691
ce37d22a271f Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 2807
diff changeset
4 Free Software Foundation, Inc.
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
770
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
9 This program is free software; you can redistribute it and/or modify it
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
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
11 Free Software Foundation; either version 2, or (at your option) any
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
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
20 along with this program; if not, write to the Free Software Foundation,
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
21 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
376
Jim Meyering <jim@meyering.net>
parents: 15
diff changeset
22
770
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
23 #if HAVE_CONFIG_H
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
24 # include <config.h>
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
25 #endif
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
26
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
27 #ifdef _LIBC
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
28 # define USE_NUMBER_GROUPING
376
Jim Meyering <jim@meyering.net>
parents: 15
diff changeset
29 #endif
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
30
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
31 #include <ctype.h>
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
32 #include <errno.h>
376
Jim Meyering <jim@meyering.net>
parents: 15
diff changeset
33 #ifndef errno
Jim Meyering <jim@meyering.net>
parents: 15
diff changeset
34 extern int errno;
Jim Meyering <jim@meyering.net>
parents: 15
diff changeset
35 #endif
770
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
36 #ifndef __set_errno
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
37 # define __set_errno(Val) errno = (Val)
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
38 #endif
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
39
4691
ce37d22a271f Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 2807
diff changeset
40 #include <limits.h>
ce37d22a271f Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 2807
diff changeset
41 #include <stddef.h>
ce37d22a271f Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 2807
diff changeset
42 #include <stdlib.h>
ce37d22a271f Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 2807
diff changeset
43 #include <string.h>
376
Jim Meyering <jim@meyering.net>
parents: 15
diff changeset
44
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
45 #ifdef USE_NUMBER_GROUPING
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
46 # include "../locale/localeinfo.h"
376
Jim Meyering <jim@meyering.net>
parents: 15
diff changeset
47 #endif
Jim Meyering <jim@meyering.net>
parents: 15
diff changeset
48
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
49 /* 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
50 unsigned integers. */
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
51 #ifndef UNSIGNED
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
52 # define UNSIGNED 0
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
53 # define INT LONG int
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
54 #else
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
55 # define INT unsigned LONG int
376
Jim Meyering <jim@meyering.net>
parents: 15
diff changeset
56 #endif
Jim Meyering <jim@meyering.net>
parents: 15
diff changeset
57
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
58 /* Determine the name. */
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
59 #ifdef USE_IN_EXTENDED_LOCALE_MODEL
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
60 # if UNSIGNED
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
61 # ifdef USE_WIDE_CHAR
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 __wcstoull_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 __wcstoul_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 # else
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
68 # ifdef QUAD
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
69 # define strtol __strtoull_l
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
70 # else
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
71 # define strtol __strtoul_l
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
72 # endif
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
73 # endif
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
74 # else
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
75 # ifdef USE_WIDE_CHAR
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 __wcstoll_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 __wcstol_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 # else
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
82 # ifdef QUAD
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
83 # define strtol __strtoll_l
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
84 # else
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
85 # define strtol __strtol_l
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
86 # endif
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
87 # endif
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
88 # endif
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
89 #else
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
90 # if UNSIGNED
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
91 # ifdef USE_WIDE_CHAR
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 wcstoull
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 wcstoul
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 # else
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
98 # ifdef QUAD
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
99 # define strtol strtoull
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
100 # else
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
101 # define strtol strtoul
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
102 # endif
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
103 # endif
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
104 # else
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
105 # ifdef USE_WIDE_CHAR
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 wcstoll
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
108 # else
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
109 # define strtol wcstol
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
110 # endif
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
111 # else
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
112 # ifdef QUAD
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
113 # define strtol strtoll
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
114 # endif
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
115 # endif
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
116 # endif
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
117 #endif
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
118
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
119 /* 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
120 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
121 #ifdef QUAD
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
122 # define LONG long long
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
123 # define STRTOL_LONG_MIN LONG_LONG_MIN
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
124 # define STRTOL_LONG_MAX LONG_LONG_MAX
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
125 # define STRTOL_ULONG_MAX ULONG_LONG_MAX
1828
b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define.
Jim Meyering <jim@meyering.net>
parents: 1805
diff changeset
126
5691
ec62790f0938 Factor int-properties macros into a single file, except for
Paul Eggert <eggert@cs.ucla.edu>
parents: 4697
diff changeset
127 /* 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
128 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
129
5783
f5794b0165c2 Fix spellings in comment.
Paul Eggert <eggert@cs.ucla.edu>
parents: 5705
diff changeset
130 /* 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
131 complement, ones' complement, or signed magnitude representation,
f5794b0165c2 Fix spellings in comment.
Paul Eggert <eggert@cs.ucla.edu>
parents: 5705
diff changeset
132 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
133 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
134 # 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
135 # define TYPE_ONES_COMPLEMENT(t) ((t) ~ (t) 0 == 0)
cb1401375000 Fix comments and indenting.
Paul Eggert <eggert@cs.ucla.edu>
parents: 5704
diff changeset
136 # 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
137
5691
ec62790f0938 Factor int-properties macros into a single file, except for
Paul Eggert <eggert@cs.ucla.edu>
parents: 4697
diff changeset
138 /* 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
139 # 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
140
ec62790f0938 Factor int-properties macros into a single file, except for
Paul Eggert <eggert@cs.ucla.edu>
parents: 4697
diff changeset
141 /* 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
142 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
143 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
144 your host. */
5704
e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT,
Paul Eggert <eggert@cs.ucla.edu>
parents: 5691
diff changeset
145 # define TYPE_MINIMUM(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) \
e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT,
Paul Eggert <eggert@cs.ucla.edu>
parents: 5691
diff changeset
147 ? (t) 0 \
e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT,
Paul Eggert <eggert@cs.ucla.edu>
parents: 5691
diff changeset
148 : TYPE_SIGNED_MAGNITUDE (t) \
e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT,
Paul Eggert <eggert@cs.ucla.edu>
parents: 5691
diff changeset
149 ? ~ (t) 0 \
e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT,
Paul Eggert <eggert@cs.ucla.edu>
parents: 5691
diff changeset
150 : ~ (t) 0 << (sizeof (t) * CHAR_BIT - 1)))
e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT,
Paul Eggert <eggert@cs.ucla.edu>
parents: 5691
diff changeset
151 # define TYPE_MAXIMUM(t) \
e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT,
Paul Eggert <eggert@cs.ucla.edu>
parents: 5691
diff changeset
152 ((t) (! TYPE_SIGNED (t) \
e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT,
Paul Eggert <eggert@cs.ucla.edu>
parents: 5691
diff changeset
153 ? (t) -1 \
e5769b367399 * mktime.c (TYPE_TWOS_COMPLEMENT, TYPE_ONES_COMPLEMENT,
Paul Eggert <eggert@cs.ucla.edu>
parents: 5691
diff changeset
154 : ~ (~ (t) 0 << (sizeof (t) * CHAR_BIT - 1))))
1828
b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define.
Jim Meyering <jim@meyering.net>
parents: 1805
diff changeset
155
b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define.
Jim Meyering <jim@meyering.net>
parents: 1805
diff changeset
156 # ifndef ULONG_LONG_MAX
b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define.
Jim Meyering <jim@meyering.net>
parents: 1805
diff changeset
157 # define ULONG_LONG_MAX TYPE_MAXIMUM (unsigned long long)
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 # ifndef LONG_LONG_MAX
b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define.
Jim Meyering <jim@meyering.net>
parents: 1805
diff changeset
160 # define LONG_LONG_MAX TYPE_MAXIMUM (long long int)
b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define.
Jim Meyering <jim@meyering.net>
parents: 1805
diff changeset
161 # endif
b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define.
Jim Meyering <jim@meyering.net>
parents: 1805
diff changeset
162 # ifndef LONG_LONG_MIN
b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define.
Jim Meyering <jim@meyering.net>
parents: 1805
diff changeset
163 # define LONG_LONG_MIN TYPE_MINIMUM (long long int)
b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define.
Jim Meyering <jim@meyering.net>
parents: 1805
diff changeset
164 # endif
b95eae14a459 (TYPE_SIGNED, TYPE_MAXIMUM, TYPE_MINIMUM): Define.
Jim Meyering <jim@meyering.net>
parents: 1805
diff changeset
165
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
166 # 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
167 /* Work around gcc bug with using this constant. */
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
168 static const unsigned long long int maxquad = ULONG_LONG_MAX;
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
169 # undef STRTOL_ULONG_MAX
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
170 # 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
171 # endif
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
172 #else
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
173 # define LONG long
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
174 # define STRTOL_LONG_MIN LONG_MIN
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
175 # define STRTOL_LONG_MAX LONG_MAX
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
176 # define STRTOL_ULONG_MAX ULONG_MAX
770
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
177 #endif
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
178
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
179
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
180 /* 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
181 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
182 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
183 macro. */
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
184 #ifdef USE_IN_EXTENDED_LOCALE_MODEL
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
185 # undef _NL_CURRENT
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
186 # define _NL_CURRENT(category, item) \
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
187 (current->values[_NL_ITEM_INDEX (item)].string)
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
188 # 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
189 # 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
190 #else
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
191 # 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
192 # define LOCALE_PARAM_PROTO
770
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
193 #endif
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
194
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
195 #if defined _LIBC || defined HAVE_WCHAR_H
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
196 # include <wchar.h>
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
197 #endif
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
198
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
199 #ifdef USE_WIDE_CHAR
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
200 # include <wctype.h>
770
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
201 # define L_(Ch) L##Ch
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
202 # define UCHAR_TYPE wint_t
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
203 # define STRING_TYPE wchar_t
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
204 # ifdef USE_IN_EXTENDED_LOCALE_MODEL
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
205 # define ISSPACE(Ch) __iswspace_l ((Ch), loc)
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
206 # define ISALPHA(Ch) __iswalpha_l ((Ch), loc)
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
207 # define TOUPPER(Ch) __towupper_l ((Ch), loc)
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
208 # else
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
209 # define ISSPACE(Ch) iswspace (Ch)
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
210 # define ISALPHA(Ch) iswalpha (Ch)
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
211 # define TOUPPER(Ch) towupper (Ch)
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
212 # endif
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
213 #else
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
214 # if defined STDC_HEADERS || (!defined isascii && !defined HAVE_ISASCII)
1043
4d6f490e09f7 (IN_CTYPE_DOMAIN): Define.
Jim Meyering <jim@meyering.net>
parents: 886
diff changeset
215 # define IN_CTYPE_DOMAIN(c) 1
4d6f490e09f7 (IN_CTYPE_DOMAIN): Define.
Jim Meyering <jim@meyering.net>
parents: 886
diff changeset
216 # else
4d6f490e09f7 (IN_CTYPE_DOMAIN): Define.
Jim Meyering <jim@meyering.net>
parents: 886
diff changeset
217 # define IN_CTYPE_DOMAIN(c) isascii(c)
4d6f490e09f7 (IN_CTYPE_DOMAIN): Define.
Jim Meyering <jim@meyering.net>
parents: 886
diff changeset
218 # endif
770
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
219 # define L_(Ch) Ch
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
220 # define UCHAR_TYPE unsigned char
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
221 # define STRING_TYPE char
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
222 # ifdef USE_IN_EXTENDED_LOCALE_MODEL
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
223 # define ISSPACE(Ch) __isspace_l ((Ch), loc)
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
224 # define ISALPHA(Ch) __isalpha_l ((Ch), loc)
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
225 # define TOUPPER(Ch) __toupper_l ((Ch), loc)
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
226 # else
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
227 # define ISSPACE(Ch) (IN_CTYPE_DOMAIN (Ch) && isspace (Ch))
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
228 # define ISALPHA(Ch) (IN_CTYPE_DOMAIN (Ch) && isalpha (Ch))
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
229 # define TOUPPER(Ch) (IN_CTYPE_DOMAIN (Ch) ? toupper (Ch) : (Ch))
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
230 # endif
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
231 #endif
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
232
4691
ce37d22a271f Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 2807
diff changeset
233 #define INTERNAL(X) INTERNAL1(X)
ce37d22a271f Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 2807
diff changeset
234 #define INTERNAL1(X) __##X##_internal
ce37d22a271f Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 2807
diff changeset
235 #define WEAKNAME(X) WEAKNAME1(X)
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
236
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
237 #ifdef USE_NUMBER_GROUPING
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
238 /* 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
239 # include "grouping.h"
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
240 #endif
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
241
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
242
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
243
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
244 /* Convert NPTR to an `unsigned long int' or `long int' in base BASE.
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
245 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
246 zero, indicating octal or a leading "0x" or "0X", indicating hexadecimal.
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
247 If BASE is < 2 or > 36, it is reset to 10.
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
248 If ENDPTR is not NULL, a pointer to the character after the last
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
249 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
250
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
251 INT
4691
ce37d22a271f Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 2807
diff changeset
252 INTERNAL (strtol) (const STRING_TYPE *nptr, STRING_TYPE **endptr,
4697
73c2577c2864 (LOCALE_PARAM_PROTO): Renamed from LOCALE_PARAM_DECL, for consistency
Paul Eggert <eggert@cs.ucla.edu>
parents: 4691
diff changeset
253 int base, int group LOCALE_PARAM_PROTO)
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
254 {
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
255 int negative;
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
256 register unsigned LONG int cutoff;
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
257 register unsigned int cutlim;
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
258 register unsigned LONG int i;
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
259 register const STRING_TYPE *s;
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
260 register UCHAR_TYPE c;
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
261 const STRING_TYPE *save, *end;
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
262 int overflow;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
263
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
264 #ifdef USE_NUMBER_GROUPING
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
265 # ifdef USE_IN_EXTENDED_LOCALE_MODEL
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
266 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
267 # endif
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
268 /* 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
269 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
270 /* 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
271 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
272 const char *grouping;
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
273
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
274 if (group)
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
275 {
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
276 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
277 if (*grouping <= 0 || *grouping == CHAR_MAX)
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
278 grouping = NULL;
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
279 else
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
280 {
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
281 /* Figure out the thousands separator character. */
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
282 # if defined _LIBC || defined _HAVE_BTOWC
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
283 thousands = __btowc (*_NL_CURRENT (LC_NUMERIC, THOUSANDS_SEP));
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
284 if (thousands == WEOF)
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
285 thousands = L'\0';
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
286 # endif
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
287 if (thousands == L'\0')
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
288 grouping = NULL;
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
289 }
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
290 }
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
291 else
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
292 grouping = NULL;
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
293 #endif
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
294
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
295 if (base < 0 || base == 1 || base > 36)
886
e95d0bea1f1e update from FSF
Jim Meyering <jim@meyering.net>
parents: 770
diff changeset
296 {
e95d0bea1f1e update from FSF
Jim Meyering <jim@meyering.net>
parents: 770
diff changeset
297 __set_errno (EINVAL);
e95d0bea1f1e update from FSF
Jim Meyering <jim@meyering.net>
parents: 770
diff changeset
298 return 0;
e95d0bea1f1e update from FSF
Jim Meyering <jim@meyering.net>
parents: 770
diff changeset
299 }
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
300
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
301 save = s = nptr;
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
302
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
303 /* Skip white space. */
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
304 while (ISSPACE (*s))
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
305 ++s;
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
306 if (*s == L_('\0'))
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
307 goto noconv;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
308
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
309 /* Check for a sign. */
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
310 if (*s == L_('-'))
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
311 {
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
312 negative = 1;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
313 ++s;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
314 }
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
315 else if (*s == L_('+'))
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
316 {
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
317 negative = 0;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
318 ++s;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
319 }
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
320 else
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
321 negative = 0;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
322
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
323 /* 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
324 if (*s == L_('0'))
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
325 {
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
326 if ((base == 0 || base == 16) && TOUPPER (s[1]) == L_('X'))
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
327 {
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
328 s += 2;
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
329 base = 16;
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
330 }
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
331 else if (base == 0)
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
332 base = 8;
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
333 }
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
334 else if (base == 0)
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
335 base = 10;
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
336
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
337 /* Save the pointer so we can check later if anything happened. */
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
338 save = s;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
339
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
340 #ifdef USE_NUMBER_GROUPING
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
341 if (group)
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
342 {
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
343 /* 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
344 end = s;
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
345 for (c = *end; c != L_('\0'); c = *++end)
770
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
346 if ((wchar_t) c != thousands
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
347 && ((wchar_t) c < L_('0') || (wchar_t) c > L_('9'))
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
348 && (!ISALPHA (c) || (int) (TOUPPER (c) - L_('A') + 10) >= base))
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
349 break;
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
350 if (*s == thousands)
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
351 end = s;
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
352 else
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
353 end = correctly_grouped_prefix (s, end, thousands, grouping);
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
354 }
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
355 else
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
356 #endif
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
357 end = NULL;
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
358
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
359 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
360 cutlim = STRTOL_ULONG_MAX % (unsigned LONG int) base;
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
361
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
362 overflow = 0;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
363 i = 0;
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
364 for (c = *s; c != L_('\0'); c = *++s)
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
365 {
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
366 if (s == end)
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
367 break;
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
368 if (c >= L_('0') && c <= L_('9'))
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
369 c -= L_('0');
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
370 else if (ISALPHA (c))
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
371 c = TOUPPER (c) - L_('A') + 10;
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
372 else
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
373 break;
770
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
374 if ((int) c >= base)
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
375 break;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
376 /* Check for overflow. */
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
377 if (i > cutoff || (i == cutoff && c > cutlim))
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
378 overflow = 1;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
379 else
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
380 {
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
381 i *= (unsigned LONG int) base;
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
382 i += c;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
383 }
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
384 }
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
385
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
386 /* Check if anything actually happened. */
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
387 if (s == save)
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
388 goto noconv;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
389
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
390 /* Store in ENDPTR the address of one character
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
391 past the last character we converted. */
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
392 if (endptr != NULL)
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
393 *endptr = (STRING_TYPE *) s;
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
394
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
395 #if !UNSIGNED
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
396 /* 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
397 `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
398 if (overflow == 0
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
399 && i > (negative
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
400 ? -((unsigned LONG int) (STRTOL_LONG_MIN + 1)) + 1
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
401 : (unsigned LONG int) STRTOL_LONG_MAX))
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
402 overflow = 1;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
403 #endif
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
404
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
405 if (overflow)
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
406 {
770
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
407 __set_errno (ERANGE);
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
408 #if UNSIGNED
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
409 return STRTOL_ULONG_MAX;
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
410 #else
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
411 return negative ? STRTOL_LONG_MIN : STRTOL_LONG_MAX;
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
412 #endif
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
413 }
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
414
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
415 /* 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
416 return negative ? -i : i;
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
417
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
418 noconv:
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
419 /* 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
420 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
421 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
422 ENDPTR points to the `x`. */
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
423 if (endptr != NULL)
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
424 {
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
425 if (save - nptr >= 2 && TOUPPER (save[-1]) == L_('X')
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
426 && save[-2] == L_('0'))
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
427 *endptr = (STRING_TYPE *) &save[-1];
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
428 else
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
429 /* There was no number to convert. */
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
430 *endptr = (STRING_TYPE *) nptr;
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
431 }
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
432
15
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
433 return 0L;
c45413ba009a Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
434 }
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
435
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
436 /* External user entry point. */
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
437
616
a1052e824123 Update from GNU libc-copies.
Jim Meyering <jim@meyering.net>
parents: 527
diff changeset
438
469
c3052f3c02fe New version -- now derived from the line in libc.
Jim Meyering <jim@meyering.net>
parents: 376
diff changeset
439 INT
770
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
440 #ifdef weak_function
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
441 weak_function
56db8156c7b7 Update from GNU libc.
Jim Meyering <jim@meyering.net>
parents: 742
diff changeset
442 #endif
4691
ce37d22a271f Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 2807
diff changeset
443 strtol (const STRING_TYPE *nptr, STRING_TYPE **endptr,
4697
73c2577c2864 (LOCALE_PARAM_PROTO): Renamed from LOCALE_PARAM_DECL, for consistency
Paul Eggert <eggert@cs.ucla.edu>
parents: 4691
diff changeset
444 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
445 {
1805
84e24189f121 Update to glibc 2.1.1 version.
Jim Meyering <jim@meyering.net>
parents: 1043
diff changeset
446 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
447 }