Subversion Repositories thor

#include "stdafx.h"

#include <stdlib.h>

#include <ctype.h>

#include <errno.h>

#include <limits.h>

#include <stddef.h>

#include <string.h>

#define BASE_MAX        36

static const char digits[] = {

        "0123456789abcdefghijklmnopqrstuvwxyz" };

static const char ndigs[BASE_MAX+1] = {

        0,0,33,21,17,14,13,12,11,11,

        10,10,9,9,9,9,9,8,8,8,

        8,8,8,8,7,7,7,7,7,7,

        7,7,7,7,7,7,7 };

unsigned long _Stoul(const char *s, char **endptr, int base)

{

        const char *sc, *sd;

        const char *s1, *s2;

        char sign;

        ptrdiff_t n;

        unsigned long x, y;

        for (sc = s; my_isspace(*sc); ++sc)

                ;

        sign = *sc=='-' || *sc=='+' ? *sc++ : '+';

        if (base < 0 || base == 1 || BASE_MAX < base)

        {

                if (endptr)

                        *endptr = (char *)s;

                return (0);

        }

        else if (base) {

                if (base==16 && *sc=='0' && (sc[1]=='x' || sc[1]=='X'))

                        sc += 2;

        }

        else if (*sc != '0')

                base = 10;

        else if (sc[1]=='x' || sc[1]=='X')

                base = 16, sc += 2;

        else

                base = 8;

        for (s1 = sc; *sc == '0'; ++sc)

                ;

        x = 0;

        for (s2 = sc; (sd = (const char *)memchr((const void *)digits,tolower(*sc),base)) != (char *)NULL; ++sc) {

                y = x;

                x = x * base + (sd - digits);

        }

        if (s1 == sc) {

                if (endptr)

                        *endptr = (char *)s;

                return (0);

        }

        n = sc - s2 - ndigs[base];

        if (n < 0)

                ;

        else if (0 < n || x < x - sc[-1] || (x - sc[-1]) / base != y) {

                errno = ERANGE;

                x = ULONG_MAX;

        }

        if (sign=='-') {

                x = ~x;

                x++;

        }

        if (endptr)

                *endptr = (char *)sc;

        return (x);

}