|
Packit Service |
f629e6 |
/*
|
|
Packit Service |
f629e6 |
* Very simple implementation of strtoul() for gawk,
|
|
Packit Service |
f629e6 |
* for old systems. Descriptive prose from the Linux man page.
|
|
Packit Service |
f629e6 |
*
|
|
Packit Service |
f629e6 |
* May 2004
|
|
Packit Service |
f629e6 |
*/
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/* #define TEST 1 */
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
#ifdef TEST
|
|
Packit Service |
f629e6 |
#include <stdio.h>
|
|
Packit Service |
f629e6 |
#include <stdlib.h>
|
|
Packit Service |
f629e6 |
#include <ctype.h>
|
|
Packit Service |
f629e6 |
#include <string.h>
|
|
Packit Service |
f629e6 |
#include <errno.h>
|
|
Packit Service |
f629e6 |
#include <limits.h>
|
|
Packit Service |
f629e6 |
#define strtoul mystrtoul
|
|
Packit Service |
f629e6 |
#endif
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
#ifndef ULONG_MAX
|
|
Packit Service |
f629e6 |
#define ULONG_MAX (~ 0UL)
|
|
Packit Service |
f629e6 |
#endif
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
unsigned long int
|
|
Packit Service |
f629e6 |
strtoul(nptr, endptr, base)
|
|
Packit Service |
f629e6 |
const char *nptr;
|
|
Packit Service |
f629e6 |
char **endptr;
|
|
Packit Service |
f629e6 |
int base;
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
static char lower[] = "abcdefghijklmnopqrstuvwxyz";
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
unsigned long result = 0UL;
|
|
Packit Service |
f629e6 |
char *nptr_orig = (char *) nptr;
|
|
Packit Service |
f629e6 |
bool neg = false;
|
|
Packit Service |
f629e6 |
char *cp, c;
|
|
Packit Service |
f629e6 |
int val;
|
|
Packit Service |
f629e6 |
bool sawdigs = false;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/*
|
|
Packit Service |
f629e6 |
* The strtoul() function converts the initial part of the
|
|
Packit Service |
f629e6 |
* string in nptr to an unsigned long integer value according
|
|
Packit Service |
f629e6 |
* to the given base, which must be between 2 and 36 inclusive,
|
|
Packit Service |
f629e6 |
* or be the special value 0.
|
|
Packit Service |
f629e6 |
*/
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if ((base != 0 && (base < 2 || base > 36)) || nptr == NULL) {
|
|
Packit Service |
f629e6 |
if (endptr != NULL)
|
|
Packit Service |
f629e6 |
*endptr = nptr_orig;
|
|
Packit Service |
f629e6 |
errno = EINVAL;
|
|
Packit Service |
f629e6 |
return 0;
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/*
|
|
Packit Service |
f629e6 |
* The string must [sic] begin with an arbitrary amount of white space
|
|
Packit Service |
f629e6 |
* (as determined by isspace(3)) followed by a single optional
|
|
Packit Service |
f629e6 |
* `+' or `-' sign.
|
|
Packit Service |
f629e6 |
*/
|
|
Packit Service |
f629e6 |
while (isspace(*nptr))
|
|
Packit Service |
f629e6 |
nptr++;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
if (*nptr == '+')
|
|
Packit Service |
f629e6 |
nptr++;
|
|
Packit Service |
f629e6 |
else if (*nptr == '-') {
|
|
Packit Service |
f629e6 |
nptr++;
|
|
Packit Service |
f629e6 |
neg = true;
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/*
|
|
Packit Service |
f629e6 |
* If base is zero or 16, the string may then include a `0x' prefix,
|
|
Packit Service |
f629e6 |
* and the number will be read in base 16; otherwise, a zero base is
|
|
Packit Service |
f629e6 |
* taken as 10 (decimal) unless the next character is `0', in which
|
|
Packit Service |
f629e6 |
* case it is taken as 8 (octal).
|
|
Packit Service |
f629e6 |
*/
|
|
Packit Service |
f629e6 |
if ((base == 0 || base == 16)
|
|
Packit Service |
f629e6 |
&& nptr[0] == '0'
|
|
Packit Service |
f629e6 |
&& (nptr[1] == 'x' || nptr[1] == 'X')) {
|
|
Packit Service |
f629e6 |
base = 16; /* force it */
|
|
Packit Service |
f629e6 |
nptr += 2; /* skip 0x */
|
|
Packit Service |
f629e6 |
} else if ((base == 0 || base == 8) && nptr[0] == '0') {
|
|
Packit Service |
f629e6 |
base = 8;
|
|
Packit Service |
f629e6 |
nptr++;
|
|
Packit Service |
f629e6 |
} else if (base == 0)
|
|
Packit Service |
f629e6 |
base = 10;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/*
|
|
Packit Service |
f629e6 |
* The remainder of the string is converted to an unsigned long int
|
|
Packit Service |
f629e6 |
* value in the obvious manner, stopping at the first character
|
|
Packit Service |
f629e6 |
* which is not a valid digit in the given base. (In bases above 10,
|
|
Packit Service |
f629e6 |
* the letter `A' in either upper or lower case represents 10,
|
|
Packit Service |
f629e6 |
* `B' represents 11, and so forth, with `Z' representing 35.)
|
|
Packit Service |
f629e6 |
*/
|
|
Packit Service |
f629e6 |
for (; *nptr != '\0'; nptr++) {
|
|
Packit Service |
f629e6 |
c = *nptr;
|
|
Packit Service |
f629e6 |
#if defined(HAVE_LOCALE_H)
|
|
Packit Service |
f629e6 |
if (base == 10
|
|
Packit Service |
f629e6 |
&& loc.thousands_sep != NULL
|
|
Packit Service |
f629e6 |
&& loc.thousands_sep[0] != '\0'
|
|
Packit Service |
f629e6 |
&& c == loc.thousands_sep[0])
|
|
Packit Service |
f629e6 |
continue;
|
|
Packit Service |
f629e6 |
#endif
|
|
Packit Service |
f629e6 |
switch (c) {
|
|
Packit Service |
f629e6 |
case '0': case '1': case '2':
|
|
Packit Service |
f629e6 |
case '3': case '4': case '5':
|
|
Packit Service |
f629e6 |
case '6': case '7': case '8':
|
|
Packit Service |
f629e6 |
case '9':
|
|
Packit Service |
f629e6 |
val = c - '0';
|
|
Packit Service |
f629e6 |
if (val >= base) /* even base 2 allowed ... */
|
|
Packit Service |
f629e6 |
goto out;
|
|
Packit Service |
f629e6 |
result *= base;
|
|
Packit Service |
f629e6 |
result += val;
|
|
Packit Service |
f629e6 |
sawdigs = true;
|
|
Packit Service |
f629e6 |
break;
|
|
Packit Service |
f629e6 |
case 'A': case 'B': case 'C': case 'D': case 'E':
|
|
Packit Service |
f629e6 |
case 'F': case 'G': case 'H': case 'I': case 'J':
|
|
Packit Service |
f629e6 |
case 'K': case 'L': case 'M': case 'N': case 'O':
|
|
Packit Service |
f629e6 |
case 'P': case 'Q': case 'R': case 'S': case 'T':
|
|
Packit Service |
f629e6 |
case 'U': case 'V': case 'W': case 'X': case 'Y':
|
|
Packit Service |
f629e6 |
case 'Z':
|
|
Packit Service |
f629e6 |
c += 'a' - 'A'; /* downcase */
|
|
Packit Service |
f629e6 |
/* fall through */
|
|
Packit Service |
f629e6 |
case 'a': case 'b': case 'c': case 'd': case 'e':
|
|
Packit Service |
f629e6 |
case 'f': case 'g': case 'h': case 'i': case 'j':
|
|
Packit Service |
f629e6 |
case 'k': case 'l': case 'm': case 'n': case 'o':
|
|
Packit Service |
f629e6 |
case 'p': case 'q': case 'r': case 's': case 't':
|
|
Packit Service |
f629e6 |
case 'u': case 'v': case 'w': case 'x': case 'y':
|
|
Packit Service |
f629e6 |
case 'z':
|
|
Packit Service |
f629e6 |
cp = strchr(lower, c);
|
|
Packit Service |
f629e6 |
val = cp - lower;
|
|
Packit Service |
f629e6 |
val += 10; /* 'a' == 10 */
|
|
Packit Service |
f629e6 |
if (val >= base)
|
|
Packit Service |
f629e6 |
goto out;
|
|
Packit Service |
f629e6 |
result *= base;
|
|
Packit Service |
f629e6 |
result += val;
|
|
Packit Service |
f629e6 |
sawdigs = true;
|
|
Packit Service |
f629e6 |
break;
|
|
Packit Service |
f629e6 |
default:
|
|
Packit Service |
f629e6 |
goto out;
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
out:
|
|
Packit Service |
f629e6 |
/*
|
|
Packit Service |
f629e6 |
* If endptr is not NULL, strtoul() stores the address of the
|
|
Packit Service |
f629e6 |
* first invalid character in *endptr. If there were no digits
|
|
Packit Service |
f629e6 |
* at all, strtoul() stores the original value of nptr in *endptr
|
|
Packit Service |
f629e6 |
* (and returns 0). In particular, if *nptr is not `\0' but
|
|
Packit Service |
f629e6 |
* **endptr is `\0' on return, the entire string is valid.
|
|
Packit Service |
f629e6 |
*/
|
|
Packit Service |
f629e6 |
if (endptr != NULL) {
|
|
Packit Service |
f629e6 |
if (! sawdigs) {
|
|
Packit Service |
f629e6 |
*endptr = nptr_orig;
|
|
Packit Service |
f629e6 |
return 0;
|
|
Packit Service |
f629e6 |
} else
|
|
Packit Service |
f629e6 |
*endptr = (char *) nptr;
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/*
|
|
Packit Service |
f629e6 |
* RETURN VALUE
|
|
Packit Service |
f629e6 |
* The strtoul() function returns either the result of the
|
|
Packit Service |
f629e6 |
* conversion or, if there was a leading minus sign, the
|
|
Packit Service |
f629e6 |
* negation of the result of the conversion, unless the original
|
|
Packit Service |
f629e6 |
* (non-negated) value would overflow; in the latter case,
|
|
Packit Service |
f629e6 |
* strtoul() returns ULONG_MAX and sets the global variable errno
|
|
Packit Service |
f629e6 |
* to ERANGE.
|
|
Packit Service |
f629e6 |
*/
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
/*
|
|
Packit Service |
f629e6 |
* ADR: This computation is probably bogus. If it's a
|
|
Packit Service |
f629e6 |
* problem, upgrade to a modern system.
|
|
Packit Service |
f629e6 |
*/
|
|
Packit Service |
f629e6 |
if (neg && result == ULONG_MAX) {
|
|
Packit Service |
f629e6 |
errno = ERANGE;
|
|
Packit Service |
f629e6 |
return ULONG_MAX;
|
|
Packit Service |
f629e6 |
} else if (neg)
|
|
Packit Service |
f629e6 |
result = -result;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
return result;
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
#ifdef TEST
|
|
Packit Service |
f629e6 |
#undef strtoul
|
|
Packit Service |
f629e6 |
int main(void)
|
|
Packit Service |
f629e6 |
{
|
|
Packit Service |
f629e6 |
char *endptr;
|
|
Packit Service |
f629e6 |
unsigned long res1, res2;
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
res1 = strtoul("0xdeadBeeF", & endptr, 0),
|
|
Packit Service |
f629e6 |
res2 = mystrtoul("0xdeadBeeF", & endptr, 0),
|
|
Packit Service |
f629e6 |
printf("(real,my)strtoul(\"0xdeadBeeF\", & endptr, 0) is %lu, %lu *endptr = %d\n",
|
|
Packit Service |
f629e6 |
res1, res2, *endptr);
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
res1 = strtoul("0101101", & endptr, 2),
|
|
Packit Service |
f629e6 |
res2 = mystrtoul("0101101", & endptr, 2),
|
|
Packit Service |
f629e6 |
printf("(real,my)strtoul(\"0101101\", & endptr, 2) is %lu, %lu *endptr = %d\n",
|
|
Packit Service |
f629e6 |
res1, res2, *endptr);
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
res1 = strtoul("01011012", & endptr, 2),
|
|
Packit Service |
f629e6 |
res2 = mystrtoul("01011012", & endptr, 2),
|
|
Packit Service |
f629e6 |
printf("(real,my)strtoul(\"01011012\", & endptr, 2) is %lu, %lu *endptr = %d\n",
|
|
Packit Service |
f629e6 |
res1, res2, *endptr);
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
res1 = strtoul(" +42a", & endptr, 0),
|
|
Packit Service |
f629e6 |
res2 = mystrtoul(" +42a", & endptr, 0),
|
|
Packit Service |
f629e6 |
printf("(real,my)strtoul(\" +42a\", & endptr, 0) is %lu, %lu *endptr = %d\n",
|
|
Packit Service |
f629e6 |
res1, res2, *endptr);
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
res1 = strtoul("0377", & endptr, 0),
|
|
Packit Service |
f629e6 |
res2 = mystrtoul("0377", & endptr, 0),
|
|
Packit Service |
f629e6 |
printf("(real,my)strtoul(\"0377\", & endptr, 0) is %lu, %lu *endptr = %d\n",
|
|
Packit Service |
f629e6 |
res1, res2, *endptr);
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
res1 = strtoul("Z", & endptr, 36),
|
|
Packit Service |
f629e6 |
res2 = mystrtoul("Z", & endptr, 36),
|
|
Packit Service |
f629e6 |
printf("(real,my)strtoul(\"Z\", & endptr, 36) is %lu, %lu *endptr = %d\n",
|
|
Packit Service |
f629e6 |
res1, res2, *endptr);
|
|
Packit Service |
f629e6 |
|
|
Packit Service |
f629e6 |
res1 = strtoul("qZ*", & endptr, 36),
|
|
Packit Service |
f629e6 |
res2 = mystrtoul("qZ*", & endptr, 36),
|
|
Packit Service |
f629e6 |
printf("(real,my)strtoul(\"qZ*\", & endptr, 36) is %lu, %lu *endptr = %d\n",
|
|
Packit Service |
f629e6 |
res1, res2, *endptr);
|
|
Packit Service |
f629e6 |
}
|
|
Packit Service |
f629e6 |
#endif
|