From 96e9773eb764afa649b099a6e283dba4c69389a9 Mon Sep 17 00:00:00 2001 From: Rich Felker Date: Mon, 16 Apr 2012 16:55:24 -0400 Subject: use the new integer parser (FILE/shgetc based) for strtol, wcstol, etc. --- src/stdlib/strtoimax.c | 38 ---------------------- src/stdlib/strtol.c | 62 ++++++++++++++++++++++++++++-------- src/stdlib/strtoll.c | 17 ---------- src/stdlib/strtoul.c | 17 ---------- src/stdlib/strtoull.c | 17 ---------- src/stdlib/strtoumax.c | 34 -------------------- src/stdlib/wcstoimax.c | 39 ----------------------- src/stdlib/wcstol.c | 85 +++++++++++++++++++++++++++++++++++++++++--------- src/stdlib/wcstoll.c | 18 ----------- src/stdlib/wcstoul.c | 18 ----------- src/stdlib/wcstoull.c | 18 ----------- src/stdlib/wcstoumax.c | 35 --------------------- 12 files changed, 120 insertions(+), 278 deletions(-) delete mode 100644 src/stdlib/strtoimax.c delete mode 100644 src/stdlib/strtoll.c delete mode 100644 src/stdlib/strtoul.c delete mode 100644 src/stdlib/strtoull.c delete mode 100644 src/stdlib/strtoumax.c delete mode 100644 src/stdlib/wcstoimax.c delete mode 100644 src/stdlib/wcstoll.c delete mode 100644 src/stdlib/wcstoul.c delete mode 100644 src/stdlib/wcstoull.c delete mode 100644 src/stdlib/wcstoumax.c (limited to 'src/stdlib') diff --git a/src/stdlib/strtoimax.c b/src/stdlib/strtoimax.c deleted file mode 100644 index 671aa287..00000000 --- a/src/stdlib/strtoimax.c +++ /dev/null @@ -1,38 +0,0 @@ -#include -#include -#include -#include "intparse.h" - -intmax_t strtoimax(const char *s1, char **p, int base) -{ - const unsigned char *s = (void *)s1; - struct intparse ip = {0}; - - if (p) *p = (char *)s1; - - if (base && base-2U > 34) { - errno = EINVAL; - return 0; - } - - for (; isspace(*s); s++); - - ip.base = base; - __intparse(&ip, s, SIZE_MAX); - - if (p && ip.err != EINVAL) - *p = (char *)s + ip.cnt; - - if (ip.err) { - errno = ip.err; - if (ip.err == EINVAL) return 0; - return ip.neg ? INTMAX_MIN : INTMAX_MAX; - } - - if (ip.val > INTMAX_MAX) { - if (!ip.neg || -ip.val != INTMAX_MIN) - errno = ERANGE; - return ip.neg ? INTMAX_MIN : INTMAX_MAX; - } - return ip.neg ? -ip.val : ip.val; -} diff --git a/src/stdlib/strtol.c b/src/stdlib/strtol.c index ace820af..4a949cb0 100644 --- a/src/stdlib/strtol.c +++ b/src/stdlib/strtol.c @@ -1,17 +1,53 @@ -#include -#include -#include -#include +#include "stdio_impl.h" +#include "intscan.h" +#include "shgetc.h" -long strtol(const char *s, char **p, int base) +static unsigned long long strtox(const char *s, char **p, int base, unsigned long long lim) { - intmax_t x = strtoimax(s, p, base); - if (x > LONG_MAX) { - errno = ERANGE; - return LONG_MAX; - } else if (x < LONG_MIN) { - errno = ERANGE; - return LONG_MIN; + /* FIXME: use a helper function or macro to setup the FILE */ + FILE f; + f.flags = 0; + f.buf = f.rpos = (void *)s; + if ((size_t)s > (size_t)-1/2) + f.rend = (void *)-1; + else + f.rend = (unsigned char *)s+(size_t)-1/2; + f.lock = -1; + shlim(&f, 0); + unsigned long long y = __intscan(&f, base, 1, lim); + if (p) { + size_t cnt = shcnt(&f); + *p = (char *)s + cnt; } - return x; + return y; +} + +unsigned long long strtoull(const char *s, char **p, int base) +{ + return strtox(s, p, base, ULLONG_MAX); +} + +long long strtoll(const char *s, char **p, int base) +{ + return strtox(s, p, base, LLONG_MIN); +} + +unsigned long strtoul(const char *s, char **p, int base) +{ + return strtox(s, p, base, ULONG_MAX); +} + +long strtol(const char *s, char **p, int base) +{ + return strtox(s, p, base, 0UL+LONG_MIN); +} + +intmax_t strtoimax(const char *s, char **p, int base) +{ + return strtoll(s, p, base); +} + +uintmax_t strtoumax(const char *s, char **p, int base) +{ + return strtoull(s, p, base); } diff --git a/src/stdlib/strtoll.c b/src/stdlib/strtoll.c deleted file mode 100644 index 9ab66fd9..00000000 --- a/src/stdlib/strtoll.c +++ /dev/null @@ -1,17 +0,0 @@ -#include -#include -#include -#include - -long long strtoll(const char *s, char **p, int base) -{ - intmax_t x = strtoimax(s, p, base); - if (x > LLONG_MAX) { - errno = ERANGE; - return LLONG_MAX; - } else if (x < LLONG_MIN) { - errno = ERANGE; - return LLONG_MIN; - } - return x; -} diff --git a/src/stdlib/strtoul.c b/src/stdlib/strtoul.c deleted file mode 100644 index 20d8bfb2..00000000 --- a/src/stdlib/strtoul.c +++ /dev/null @@ -1,17 +0,0 @@ -#include -#include -#include -#include - -unsigned long strtoul(const char *s, char **p, int base) -{ - intmax_t x; - if (sizeof(intmax_t) == sizeof(long)) - return strtoumax(s, p, base); - x = strtoimax(s, p, base); - if (-x > ULONG_MAX || x > ULONG_MAX) { - errno = ERANGE; - return ULONG_MAX; - } - return x; -} diff --git a/src/stdlib/strtoull.c b/src/stdlib/strtoull.c deleted file mode 100644 index 5d1c4ee5..00000000 --- a/src/stdlib/strtoull.c +++ /dev/null @@ -1,17 +0,0 @@ -#include -#include -#include -#include - -unsigned long long strtoull(const char *s, char **p, int base) -{ - intmax_t x; - if (sizeof(intmax_t) == sizeof(long long)) - return strtoumax(s, p, base); - x = strtoimax(s, p, base); - if (-x > ULLONG_MAX || x > ULLONG_MAX) { - errno = ERANGE; - return ULLONG_MAX; - } - return x; -} diff --git a/src/stdlib/strtoumax.c b/src/stdlib/strtoumax.c deleted file mode 100644 index a299dc04..00000000 --- a/src/stdlib/strtoumax.c +++ /dev/null @@ -1,34 +0,0 @@ -#include -#include -#include -#include -#include "intparse.h" - -uintmax_t strtoumax(const char *s1, char **p, int base) -{ - const unsigned char *s = (void *)s1; - struct intparse ip = {0}; - - if (p) *p = (char *)s1; - - if (base && base-2U > 34) { - errno = EINVAL; - return 0; - } - - for (; isspace(*s); s++); - - ip.base = base; - __intparse(&ip, s, SIZE_MAX); - - if (p && ip.err != EINVAL) - *p = (char *)s + ip.cnt; - - if (ip.err) { - errno = ip.err; - if (ip.err == EINVAL) return 0; - return UINTMAX_MAX; - } - - return ip.neg ? -ip.val : ip.val; -} diff --git a/src/stdlib/wcstoimax.c b/src/stdlib/wcstoimax.c deleted file mode 100644 index 344fe3a3..00000000 --- a/src/stdlib/wcstoimax.c +++ /dev/null @@ -1,39 +0,0 @@ -#include -#include -#include -#include -#include "intparse.h" - -intmax_t wcstoimax(const wchar_t *s, wchar_t **p, int base) -{ - const wchar_t *s1 = s; - struct intparse ip = {0}; - - if (p) *p = (wchar_t *)s; - - if (base && base-2U > 34) { - errno = EINVAL; - return 0; - } - - for (; iswspace(*s); s++); - - ip.base = base; - for (; __intparse(&ip, (char[]){(*s&-(*s<128U))}, 1); s++); - - if (p && ip.err != EINVAL) - *p = (wchar_t *)s1 + ip.cnt; - - if (ip.err) { - errno = ip.err; - if (ip.err == EINVAL) return 0; - return ip.neg ? INTMAX_MIN : INTMAX_MAX; - } - - if (ip.val > INTMAX_MAX) { - if (!ip.neg || -ip.val != INTMAX_MIN) - errno = ERANGE; - return ip.neg ? INTMAX_MIN : INTMAX_MAX; - } - return ip.neg ? -ip.val : ip.val; -} diff --git a/src/stdlib/wcstol.c b/src/stdlib/wcstol.c index aad62e5b..cbdd8067 100644 --- a/src/stdlib/wcstol.c +++ b/src/stdlib/wcstol.c @@ -1,18 +1,75 @@ -#include -#include -#include -#include -#include +#include "stdio_impl.h" +#include "intscan.h" +#include "shgetc.h" -long wcstol(const wchar_t *s, wchar_t **p, int base) +/* This read function heavily cheats. It knows: + * (1) len will always be 1 + * (2) non-ascii characters don't matter */ + +static size_t do_read(FILE *f, unsigned char *buf, size_t len) +{ + size_t i; + const wchar_t *wcs = f->cookie; + + for (i=0; ibuf_size && wcs[i]; i++) + f->buf[i] = wcs[i] < 128 ? wcs[i] : '@'; + f->rpos = f->buf; + f->rend = f->buf + i; + f->cookie = (void *)(wcs+i); + + if (i && len) { + *buf = *f->rpos++; + return 1; + } + return 0; +} + +static unsigned long long wcstox(const wchar_t *s, wchar_t **p, int base, unsigned long long lim) { - intmax_t x = wcstoimax(s, p, base); - if (x > LONG_MAX) { - errno = ERANGE; - return LONG_MAX; - } else if (x < LONG_MIN) { - errno = ERANGE; - return LONG_MIN; + unsigned char buf[64]; + FILE f = {0}; + f.flags = 0; + f.rpos = f.rend = 0; + f.buf = buf; + f.buf_size = sizeof buf; + f.lock = -1; + f.read = do_read; + f.cookie = (void *)s; + shlim(&f, 0); + unsigned long long y = __intscan(&f, base, 1, lim); + if (p) { + size_t cnt = shcnt(&f); + *p = (wchar_t *)s + cnt; } - return x; + return y; +} + +unsigned long long wcstoull(const wchar_t *s, wchar_t **p, int base) +{ + return wcstox(s, p, base, ULLONG_MAX); +} + +long long wcstoll(const wchar_t *s, wchar_t **p, int base) +{ + return wcstox(s, p, base, LLONG_MIN); +} + +unsigned long wcstoul(const wchar_t *s, wchar_t **p, int base) +{ + return wcstox(s, p, base, ULONG_MAX); +} + +long wcstol(const wchar_t *s, wchar_t **p, int base) +{ + return wcstox(s, p, base, 0UL+LONG_MIN); +} + +intmax_t wcstoimax(const wchar_t *s, wchar_t **p, int base) +{ + return wcstoll(s, p, base); +} + +uintmax_t wcstoumax(const wchar_t *s, wchar_t **p, int base) +{ + return wcstoull(s, p, base); } diff --git a/src/stdlib/wcstoll.c b/src/stdlib/wcstoll.c deleted file mode 100644 index ddfea74b..00000000 --- a/src/stdlib/wcstoll.c +++ /dev/null @@ -1,18 +0,0 @@ -#include -#include -#include -#include -#include - -long long wcstoll(const wchar_t *s, wchar_t **p, int base) -{ - intmax_t x = wcstoimax(s, p, base); - if (x > LLONG_MAX) { - errno = ERANGE; - return LLONG_MAX; - } else if (x < LLONG_MIN) { - errno = ERANGE; - return LLONG_MIN; - } - return x; -} diff --git a/src/stdlib/wcstoul.c b/src/stdlib/wcstoul.c deleted file mode 100644 index 9cbec1a8..00000000 --- a/src/stdlib/wcstoul.c +++ /dev/null @@ -1,18 +0,0 @@ -#include -#include -#include -#include -#include - -unsigned long wcstoul(const wchar_t *s, wchar_t **p, int base) -{ - intmax_t x; - if (sizeof(intmax_t) == sizeof(long)) - return wcstoumax(s, p, base); - x = wcstoimax(s, p, base); - if (-x > ULONG_MAX || x > ULONG_MAX) { - errno = ERANGE; - return ULONG_MAX; - } - return x; -} diff --git a/src/stdlib/wcstoull.c b/src/stdlib/wcstoull.c deleted file mode 100644 index 48c557db..00000000 --- a/src/stdlib/wcstoull.c +++ /dev/null @@ -1,18 +0,0 @@ -#include -#include -#include -#include -#include - -unsigned long long wcstoull(const wchar_t *s, wchar_t **p, int base) -{ - intmax_t x; - if (sizeof(intmax_t) == sizeof(long long)) - return wcstoumax(s, p, base); - x = wcstoimax(s, p, base); - if (-x > ULLONG_MAX || x > ULLONG_MAX) { - errno = ERANGE; - return ULLONG_MAX; - } - return x; -} diff --git a/src/stdlib/wcstoumax.c b/src/stdlib/wcstoumax.c deleted file mode 100644 index cee5ff7f..00000000 --- a/src/stdlib/wcstoumax.c +++ /dev/null @@ -1,35 +0,0 @@ -#include -#include -#include -#include -#include -#include "intparse.h" - -uintmax_t wcstoumax(const wchar_t *s, wchar_t **p, int base) -{ - const wchar_t *s1 = s; - struct intparse ip = {0}; - - if (p) *p = (wchar_t *)s; - - if (base && base-2U > 34) { - errno = EINVAL; - return 0; - } - - for (; iswspace(*s); s++); - - ip.base = base; - for (; __intparse(&ip, (char[]){(*s&-(*s<128U))}, 1); s++); - - if (p && ip.err != EINVAL) - *p = (wchar_t *)s1 + ip.cnt; - - if (ip.err) { - errno = ip.err; - if (ip.err == EINVAL) return 0; - return UINTMAX_MAX; - } - - return ip.neg ? -ip.val : ip.val; -} -- cgit v1.2.1