Re: [PATCH 7/7] Importing wcstoumax inttypes methods from FreeBSD.

[Gedare Bloom <gedare at rtems dot org>]

On Mon, Jul 24, 2017 at 3:35 PM, Aditya Upadhyay <aadit0402@gmail.com> wrote:
> ---
>  newlib/libc/stdlib/Makefile.am |   1 +
>  newlib/libc/stdlib/wcstoumax.c | 146 +++++++++++++++++++++++++++++++++++++++++
>  2 files changed, 147 insertions(+)
>  create mode 100644 newlib/libc/stdlib/wcstoumax.c
>
> diff --git a/newlib/libc/stdlib/Makefile.am b/newlib/libc/stdlib/Makefile.am
> index 41aa8675a..4e728e2e4 100644
> --- a/newlib/libc/stdlib/Makefile.am
> +++ b/newlib/libc/stdlib/Makefile.am
> @@ -69,6 +69,7 @@ GENERAL_SOURCES = \
>         wcstoimax.c     \
>         wcstol.c        \
>         wcstoul.c       \
> +       wcstoumax.c     \
>         wcstombs.c      \
>         wcstombs_r.c    \
>         wctomb.c        \
> diff --git a/newlib/libc/stdlib/wcstoumax.c b/newlib/libc/stdlib/wcstoumax.c
> new file mode 100644
> index 000000000..74aaf4960
> --- /dev/null
> +++ b/newlib/libc/stdlib/wcstoumax.c
> @@ -0,0 +1,146 @@
> +/*-
> + * Copyright (c) 1992, 1993
> + *     The Regents of the University of California.  All rights reserved.
> + *
> + * Copyright (c) 2011 The FreeBSD Foundation
> + * All rights reserved.
> + * Portions of this software were developed by David Chisnall
> + * under sponsorship from the FreeBSD Foundation.
> + *
> + * Redistribution and use in source and binary forms, with or without
> + * modification, are permitted provided that the following conditions
> + * are met:
> + * 1. Redistributions of source code must retain the above copyright
> + *    notice, this list of conditions and the following disclaimer.
> + * 2. Redistributions in binary form must reproduce the above copyright
> + *    notice, this list of conditions and the following disclaimer in the
> + *    documentation and/or other materials provided with the distribution.
> + * 3. Neither the name of the University nor the names of its contributors
> + *    may be used to endorse or promote products derived from this software
> + *    without specific prior written permission.
> + *
> + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
> + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
> + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
> + * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
> + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
> + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
> + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
> + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
> + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
> + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
> + * SUCH DAMAGE.
> + */
> +
> +#include <sys/cdefs.h>
> +#if 0
> +#if defined(LIBC_SCCS) && !defined(lint)
> +static char sccsid[] = "from @(#)strtoul.c     8.1 (Berkeley) 6/4/93";
> +#endif /* LIBC_SCCS and not lint */
> +__FBSDID("FreeBSD: src/lib/libc/stdlib/strtoumax.c,v 1.8 2002/09/06 11:23:59 tjr Exp ");
> +#endif
Delete these too...

> +__FBSDID("$FreeBSD: head/lib/libc/locale/wcstoumax.c 314436 2017-02-28 23:42:47Z imp $");
> +
> +#include <errno.h>
> +#include <inttypes.h>
> +#include <stdlib.h>
> +#include <wchar.h>
> +#include <wctype.h>
> +#include <stdint.h>
> +#include <reent.h>
> +#include "../locale/setlocale.h"
> +
> +/*
> + * Convert a wide character string to a uintmax_t integer.
> + */
> +
> +/*
> + *Reentrant version of wcstoumax.
> + */
> +uintmax_t
> +_wcstoumax_r(struct _reent *rptr,const wchar_t * __restrict nptr,
> +            wchar_t ** __restrict endptr, int base, locale_t loc)
> +{
> +       const wchar_t *s = nptr;
> +       uintmax_t acc;
> +       wchar_t c;
> +       uintmax_t cutoff;
> +       int neg = 0, any, cutlim;
> +
> +       /*
> +        * See strtoimax for comments as to the logic used.
> +        */
> +       do {
> +               c = *s++;
> +       } while (iswspace_l(c, loc));
> +       if (c == L'-') {
> +               neg = 1;
> +               c = *s++;
> +       } else {
> +               neg = 0;
> +               if (c == L'+')
> +                       c = *s++;
> +       }
> +       if ((base == 0 || base == 16) &&
> +           c == L'0' && (*s == L'x' || *s == L'X')) {
> +               c = s[1];
> +               s += 2;
> +               base = 16;
> +       }
> +       if (base == 0)
> +               base = c == L'0' ? 8 : 10;
> +       acc = any = 0;
> +       if (base < 2 || base > 36)
> +               goto noconv;
> +
> +       cutoff = UINTMAX_MAX / base;
> +       cutlim = UINTMAX_MAX % base;
> +       for ( ; ; c = *s++) {
> +#ifdef notyet
> +               if (iswdigit_l(c, loc))
> +                       c = digittoint_l(c, loc);
> +               else
> +#endif
> +               if (c >= L'0' && c <= L'9')
> +                       c -= L'0';
> +               else if (c >= L'A' && c <= L'Z')
> +                       c -= L'A' - 10;
> +               else if (c >= L'a' && c <= L'z')
> +                       c -= L'a' - 10;
> +               else
> +                       break;
> +               if (c >= base)
> +                       break;
> +               if (any < 0 || acc > cutoff || (acc == cutoff && c > cutlim))
> +                       any = -1;
> +               else {
> +                       any = 1;
> +                       acc *= base;
> +                       acc += c;
> +               }
> +       }
> +       if (any < 0) {
> +               acc = UINTMAX_MAX;
> +               rptr->_errno = ERANGE;
> +       } else if (!any) {
> +noconv:
> +               rptr->_errno = EINVAL;
> +       } else if (neg)
> +               acc = -acc;
> +       if (endptr != NULL)
> +               *endptr = (wchar_t *)(any ? s - 1 : nptr);
> +       return (acc);
> +}
> +
> +uintmax_t
> +wcstoumax_l(const wchar_t * __restrict nptr, wchar_t ** __restrict endptr,
> +           int base, locale_t loc)
> +{
> +       return _wcstoumax_r(_REENT, nptr, endptr, base, loc);
> +}
> +
> +uintmax_t
> +wcstoumax(const wchar_t* __restrict nptr, wchar_t** __restrict endptr, int base)
> +{
> +       return _wcstoumax_r(_REENT, nptr, endptr, base, __get_current_locale());
> +}
> --
> 2.13.0
>