Last change
on this file since d10dbee was 7258c6a, checked in by Thomas Lopatic <thomas@…>, 7 years ago |
Use standard integer types.
|
-
Property mode
set to
100644
|
File size:
1.5 KB
|
Line | |
---|
1 | /*
|
---|
2 | =============================================================================
|
---|
3 | strtol.c -- convert a string of ASCII digits to a long
|
---|
4 | Version 1 -- 1987-06-12
|
---|
5 | =============================================================================
|
---|
6 | */
|
---|
7 |
|
---|
8 | #include "ctype.h"
|
---|
9 |
|
---|
10 | #define DIGIT(x) (isdigit(x) ? (x)-'0' : islower(x) ? (x)+10-'a' : (x)+10-'A')
|
---|
11 |
|
---|
12 | #define MBASE ('z' - 'a' + 1 + 10)
|
---|
13 |
|
---|
14 | int32_t strtol(int8_t *str, int8_t **ptr, int16_t base)
|
---|
15 | {
|
---|
16 | register int32_t val;
|
---|
17 | register int16_t c;
|
---|
18 | int16_t xx, neg = 0;
|
---|
19 |
|
---|
20 | if (ptr != (int8_t **)0)
|
---|
21 | *ptr = str; /* in case no number is formed */
|
---|
22 |
|
---|
23 | if (base < 0 || base > MBASE)
|
---|
24 | return (0); /* base is invalid -- should be a fatal error */
|
---|
25 |
|
---|
26 | if (!isalnum(c = *str)) {
|
---|
27 |
|
---|
28 | while (isspace(c))
|
---|
29 | c = *++str;
|
---|
30 |
|
---|
31 | switch (c) {
|
---|
32 |
|
---|
33 | case '-':
|
---|
34 | neg++;
|
---|
35 |
|
---|
36 | case '+': /* fall-through */
|
---|
37 | c = *++str;
|
---|
38 | }
|
---|
39 | }
|
---|
40 |
|
---|
41 | if (base == 0)
|
---|
42 | if (c != '0')
|
---|
43 | base = 10;
|
---|
44 | else if (str[1] == 'x' || str[1] == 'X')
|
---|
45 | base = 16;
|
---|
46 | else
|
---|
47 | base = 8;
|
---|
48 | /*
|
---|
49 | for any base > 10, the digits incrementally following
|
---|
50 | 9 are assumed to be "abc...z" or "ABC...Z"
|
---|
51 | */
|
---|
52 |
|
---|
53 | if (!isalnum(c) || (xx = DIGIT(c)) >= base)
|
---|
54 | return (0); /* no number formed */
|
---|
55 |
|
---|
56 | if (base == 16 && c == '0' && isxdigit(str[2]) &&
|
---|
57 | (str[1] == 'x' || str[1] == 'X'))
|
---|
58 | c = *(str += 2); /* skip over leading "0x" or "0X" */
|
---|
59 |
|
---|
60 | for (val = -DIGIT(c); isalnum(c = *++str) && (xx = DIGIT(c)) < base; )
|
---|
61 | /* accumulate neg avoids surprises near MAXLONG */
|
---|
62 | val = base * val - xx;
|
---|
63 |
|
---|
64 | if (ptr != (int8_t **)0)
|
---|
65 | *ptr = str;
|
---|
66 |
|
---|
67 | return (neg ? val : -val);
|
---|
68 | }
|
---|
Note:
See
TracBrowser
for help on using the repository browser.