FreeCalypso > hg > freecalypso-tools
annotate target-utils/libc/strtoul.c @ 416:30f6d1c32c6f
doc/Flash-boot-defect article removed (no longer relevant)
This article is no longer relevant because the issue in question
only affected one (1) defective FCDEV3B board which was not
and never will be sold.
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Fri, 26 Oct 2018 07:11:08 +0000 |
parents | d8d03dafb9c0 |
children |
rev | line source |
---|---|
96
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
1 /* |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
2 * Copyright (c) 1990, 1993 |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
3 * The Regents of the University of California. All rights reserved. |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
4 * |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
5 * Redistribution and use in source and binary forms, with or without |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
6 * modification, are permitted provided that the following conditions |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
7 * are met: |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
8 * 1. Redistributions of source code must retain the above copyright |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
9 * notice, this list of conditions and the following disclaimer. |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
10 * 2. Redistributions in binary form must reproduce the above copyright |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
11 * notice, this list of conditions and the following disclaimer in the |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
12 * documentation and/or other materials provided with the distribution. |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
13 * 3. All advertising materials mentioning features or use of this software |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
14 * must display the following acknowledgement: |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
15 * This product includes software developed by the University of |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
16 * California, Berkeley and its contributors. |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
17 * 4. Neither the name of the University nor the names of its contributors |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
18 * may be used to endorse or promote products derived from this software |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
19 * without specific prior written permission. |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
20 * |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
31 * SUCH DAMAGE. |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
32 */ |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
33 |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
34 /* |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
35 * Embedded libc note: the present version of strtoul() has been |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
36 * simplified in that overflow checking has been removed. |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
37 * This simplification is needed for embedded systems in which |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
38 * there is no UNIX-style errno global variable. |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
39 */ |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
40 |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
41 #include <ctype.h> |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
42 |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
43 /* |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
44 * Convert a string to an unsigned long integer. |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
45 * |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
46 * Ignores `locale' stuff. Assumes that the upper and lower case |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
47 * alphabets and digits are each contiguous. |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
48 */ |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
49 unsigned long |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
50 strtoul(nptr, endptr, base) |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
51 const char *nptr; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
52 char **endptr; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
53 register int base; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
54 { |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
55 register const char *s = nptr; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
56 register unsigned long acc; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
57 register int c; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
58 register int neg = 0, any; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
59 |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
60 /* |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
61 * See strtol for comments as to the logic used. |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
62 */ |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
63 do { |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
64 c = *s++; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
65 } while (isspace(c)); |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
66 if (c == '-') { |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
67 neg = 1; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
68 c = *s++; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
69 } else if (c == '+') |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
70 c = *s++; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
71 if ((base == 0 || base == 16) && |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
72 c == '0' && (*s == 'x' || *s == 'X')) { |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
73 c = s[1]; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
74 s += 2; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
75 base = 16; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
76 } |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
77 if (base == 0) |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
78 base = c == '0' ? 8 : 10; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
79 |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
80 for (acc = 0, any = 0;; c = *s++) { |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
81 if (isdigit(c)) |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
82 c -= '0'; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
83 else if (isalpha(c)) |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
84 c -= isupper(c) ? 'A' - 10 : 'a' - 10; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
85 else |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
86 break; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
87 if (c >= base) |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
88 break; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
89 any = 1; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
90 acc *= base; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
91 acc += c; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
92 } |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
93 if (neg) |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
94 acc = -acc; |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
95 if (endptr != 0) |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
96 *endptr = (char *)(any ? s - 1 : nptr); |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
97 return (acc); |
d8d03dafb9c0
target-utils/libc: strtol and strtoul added from 4.4BSD with simplification
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
98 } |