/***************************************************************************
 *
 * strtol.cpp - definitions of __rw_strtol, __rw_strtoul, and other helpers
 *
 * $Id$
 *
 ***************************************************************************
 *
 * Licensed to the Apache Software  Foundation (ASF) under one or more
 * contributor  license agreements.  See  the NOTICE  file distributed
 * with  this  work  for  additional information  regarding  copyright
 * ownership.   The ASF  licenses this  file to  you under  the Apache
 * License, Version  2.0 (the  License); you may  not use  this file
 * except in  compliance with the License.   You may obtain  a copy of
 * the License at
 *
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the  License is distributed on an  "AS IS" BASIS,
 * WITHOUT  WARRANTIES OR CONDITIONS  OF ANY  KIND, either  express or
 * implied.   See  the License  for  the  specific language  governing
 * permissions and limitations under the License.
 *
 * Copyright 1994-2006 Rogue Wave Software, Inc.
 * 
 **************************************************************************/

#define _RWSTD_LIB_SRC
#include <rw/_defs.h>     

#include "strtol.h"
#include <errno.h>      // for ERANGE, errno


// in case EINVAL is not #defined in errno.h
#ifdef EINVAL
#  define _RWSTD_EINVAL EINVAL
#else   // if !defined (EINVAL)
// actual value of EINVAL on both Linux and SunOS is 22
#  define _RWSTD_EINVAL 22
#endif   // EINVAL


_RWSTD_NAMESPACE (__rw) {


typedef unsigned char UChar;


// array of values of each base 2 through 36 digits, i.e., 0-9, A-Z,
// and a-z; elements with value greater than 35 do not correspond to
// any valid digit
_RWSTD_EXPORT extern const UChar
__rw_digit_map[] = {

#if 'A' == 0x41

    // basic ASCII:
    //        0   1   2   3   4   5   6   7   8   9   a   b   c   d   e   f
    //       NUL SOH STX ETX EOT ENQ ACK BEL BS  TAB LF  VT  FF  CR  SO  SI
    /*  0 */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    //       DLE DC1 DC2 DC3 DC4 NAK SYN ETB CAN EM  SUB ESC FS  GS  RS  US
    /*  1 */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    //       SPC  !   "   #   $   %   '   '   (   )   *   +   ,   -   .   /
    /*  2 */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 43, 99, 43, 99, 99,
    //        0   1   2   3   4   5   6   7   8   9   :   ;   <   =   >   ?
    /*  3 */  0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 99, 99, 99, 99, 99, 99,
    //        @   A   B   C   D   E   F   G   H   I   J   K   L   M   N   O
    /*  4 */ 99, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
    //        P   Q   R   S   T   U   V   W   X   Y   Z   [   \   ]   ^   _
    /*  5 */ 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 99, 99, 99, 99, 99,
    //        `   a   b   c   d   e   f   g   h   i   j   k   l   m   n   o
    /*  6 */ 99, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
    //        p   q   r   s   t   u   v   w   x   y   z   {   |   }   ~  DEL
    /*  7 */ 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 99, 99, 99, 99, 99,

    // extended ASCII:
    //                       IND NEL SSA ESA HTS HTJ VTS PLD PLU RI SS2 SS3
    /*  8 */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    //       DCS PU1 PU2 STS CCH MW  SPA EPA             CSI ST  OSC PM  APC
    /*  9 */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    /*  a */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    /*  b */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    /*  c */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    /*  d */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    /*  e */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    /*  f */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99

#elif 'A' == 0xc1

    // EBCDIC:
    //        0   1   2   3   4   5   6   7   8   9   a   b   c   d   e   f
    //       NUL SOH STX ETX PF  HT  LC  DEL         SMM VT  FF  CR  SO  SI
    /*  0 */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    //       DLE DC1 DC2 TM  RES NL  BS  IL  CAN EM  CC  CU1 IFS IGS IRS IUS
    /*  1 */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    //       DS  SOS FS      BYP LF  ETB ESC         SM  CU2     ENQ ACK BEL
    /*  2 */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    //               SYN     PN  RS  UC  EOT             CU3 DC4 NAK     SUB
    /*  3 */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    //       SP                                      ct.  .   <   (   +   |
    /*  4 */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 43, 99,
    //        &                                       !   $   *   )   ;   ~
    /*  5 */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    //        -   /                                       ,   %   _   >   ?
    /*  6 */ 43, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    //                                                :   #   @   '   =   "
    /*  7 */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    //            a   b   c   d   e   f   g   h   i
    /*  8 */ 99, 10, 11, 12, 13, 14, 15, 16, 17, 18, 99, 99, 99, 99, 99, 99,
    //            j   k   l   m   n   o   p   q   r
    /*  9 */ 99, 19, 20, 21, 22, 23, 24, 25, 26, 27, 99, 99, 99, 99, 99, 99,
    //                s   t   u   v   w   x   y   z
    /*  a */ 99, 99, 28, 29, 30, 31, 32, 33, 34, 35, 99, 99, 99, 99, 99, 99,
    //                                            `
    /*  b */ 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
    //            A   B   C   D   E   F   G   H   I
    /*  c */ 99, 10, 11, 12, 13, 14, 15, 16, 17, 18, 99, 99, 99, 99, 99, 99,
    //            J   K   L   M   N   O   P   Q   R
    /*  d */ 99, 19, 20, 21, 22, 23, 24, 25, 26, 27, 99, 99, 99, 99, 99, 99,
    //                S   T   U   V   W   X   Y   Z
    /*  e */ 99, 99, 28, 29, 30, 31, 32, 33, 34, 35, 99, 99, 99, 99, 99, 99,
    //        0   1   2   3   4   5   6   7   8   9
    /*  f */  0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 99, 99, 99, 99, 99, 99

#else   // 'A' != 0x41 && 'A' != 0xc1
#  error unknown character set (neither ASCII nor EBCDIC)
#endif   // ASCII or EBCDIC

};


// the number of bits necessary to exactly represent
// a single digit in base 0 - 36 (base is index)
static const char
__rw_base_bits [] = {
    /*  0 - 15 */ 0, 0, 1, 0, 2, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0,
    /* 16 - 31 */ 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
    /* 32 - 36 */ 0, 0, 0, 0, 0

    // Note: __rw_base_bits [32] is 0 above to eliminate overflow
    //       checking for strings of up to 8 hexadecimal digits
    //       in __rw_strtoul() below
};


#undef max
#undef min


// SHift Left and OR: helper macro used by __rw_strtol
// to multiply a number by a power of 2 (SHL) and add
// another number less than the power (OR)
//
// IMPORTANT: each argument must be evaluated exactly once
#undef SHLOR
#define SHLOR(x, dig)   (((x) << shift) | __rw_digit_map [UChar (dig)])

// helper macro to keep lines under 80 characters
#define SHLOR_4_DIGITS_BEGIN(res, nptr)              \
     if (*++nptr) {                                  \
         res = SHLOR (res, *nptr);                   \
         if (*++nptr) {                              \
             res = SHLOR (res, *nptr);               \
             if (*++nptr) {                          \
                 res = SHLOR (res, *nptr);           \
                 if (*++nptr) {                      \
                     res = SHLOR (res, *nptr)

#define SHLOR_4_DIGITS_END() } } } } (void)0


// MULtiply and ADD: helper macro used by __rw_strtol
//
// IMPORTANT: each argument must be evaluated exactly once
#undef MULADD
#define MULADD(x, dig)   (((x) * base) + __rw_digit_map [UChar (dig)])

// helper macro to keep lines under 80 characters
#define MULADD_4_DIGITS_BEGIN(res, nptr)              \
     if (nptr [1]) {                                  \
         res = MULADD (res, *++nptr);                 \
         if (nptr [1]) {                              \
             res = MULADD (res, *++nptr);             \
             if (nptr [1]) {                          \
                 res = MULADD (res, *++nptr);         \
                 if (nptr [1]) {                      \
                     res = MULADD (res, *++nptr)

#define MULADD_4_DIGITS_END() } } } } (void)0


unsigned long
__rw_strtoul (const char *nptr, int *errptr, int base) _THROWS (())
{
    _RWSTD_ASSERT (0 != nptr);
    _RWSTD_ASSERT (0 != errptr);
    _RWSTD_ASSERT ('+' == *nptr || '-' == *nptr);
    _RWSTD_ASSERT (1 < base && base < 37);

    const bool neg = '-' == *nptr++;

    if (!*nptr) {
        *errptr = _RWSTD_EINVAL;
        return 0;
    }

    const int shift = __rw_base_bits [base];

    unsigned long res = __rw_digit_map [UChar (*nptr)];

    _RWSTD_ASSERT (res < unsigned (base));

    if (shift) {

        // process subject sequence by shifting

        if (*++nptr) {

            // unroll loop w/o overflow checking for as many as
            // 8 (on ILP32) or 16 (on LP64) digits (max base is 16)

            // shift left and add second digit
            res = SHLOR (res, *nptr);

            if (*++nptr) {
                // third digit
                res = SHLOR (res, *nptr);

                if (*++nptr) {
                    // fourth digit
                    res = SHLOR (res, *nptr);

#if 2 < _RWSTD_LONG_SIZE

                    // parse up to 4 more digits w/o overflow checking
                    // (i.e., digits 5 through 8, inclusive)
                    SHLOR_4_DIGITS_BEGIN (res, nptr);

#  if 4 < _RWSTD_LONG_SIZE

                    //              .2....:....1....:....0
                    // ULONG_MAX >= 1777777777777777777777 (oct)
                    // ULONG_MAX >=       ffffffffffffffff (hex)

                    // parse up to 8 more digits w/o overflow checking
                    // (i.e., digits 9 through 16, inclusive)
                    SHLOR_4_DIGITS_BEGIN (res, nptr);
                    SHLOR_4_DIGITS_BEGIN (res, nptr);

#  endif   // 4 < _RWSTD_LONG_SIZE
#endif   // 2 < _RWSTD_LONG_SIZE

                    // parse any remaining digits with overflow checking
                    // (i.e., digits 9 on ILP32 or 17 on LP64 and beyond)
                    while (*++nptr) {
                        const unsigned digit =
                            __rw_digit_map [UChar (*nptr)];

                        _RWSTD_ASSERT (digit < unsigned (base));

                        // check for overflow
                        const unsigned long save = res;

                        res <<= shift;

                        if (res < save)
                            goto overflow;

                        // can't overflow
                        res += digit;
                    }

#if 2 < _RWSTD_LONG_SIZE
#  if 4 < _RWSTD_LONG_SIZE

                    // close brackets
                    SHLOR_4_DIGITS_END ();
                    SHLOR_4_DIGITS_END ();

#  endif   // 4 < _RWSTD_LONG_SIZE

                    // close brackets
                    SHLOR_4_DIGITS_END ();

#endif   // 2 < _RWSTD_LONG_SIZE

                }
            }
        }
    }
    else {
        // process subject sequence by multiplication

        // unroll loop w/o overflow checking
        if (*++nptr) {
            // multiply by base and add second digit
            res = MULADD (res, *nptr);

#if 2 < _RWSTD_LONG_SIZE

            //              ....:....0 (10 decimal digits)
            // ULONG_MAX >= 4294967295 (dec)
            // ULONG_MAX >=    1z141z3 (base-36)

            // digits 3 through 6, inclusive
            MULADD_4_DIGITS_BEGIN (res, nptr);

#  if 4 < _RWSTD_LONG_SIZE

            //              ....:....1....:....0 (20 decimal digits)
            // ULONG_MAX >= 18446744073709551615 (dec)
            // ULONG_MAX >=        5g24a25twkwff (base-36)

            // digits 7 through 10, inclusive
            MULADD_4_DIGITS_BEGIN (res, nptr);

            if (nptr [1]) {
                // digit 11
                res = MULADD (res, *++nptr);

                if (base < 12) {

                    // unroll w/o overflow checking for bases up to 11

                    // digits 12 - 19
                    MULADD_4_DIGITS_BEGIN (res, nptr);
                    MULADD_4_DIGITS_BEGIN (res, nptr);

                    // close brackets
                    MULADD_4_DIGITS_END ();
                    MULADD_4_DIGITS_END ();
                }
            }

            // close brackets
            MULADD_4_DIGITS_END ();

#  else   // if 4 >= _RWSTD_LONG_SIZE

            if (base < 12) {

                // unroll w/o overflow checking for bases up to 11

                if (nptr [1]) {
                    // seventh digit
                    res = MULADD (res, *++nptr);
                    if (nptr [1]) {
                        // eighth digit
                        res = MULADD (res, *++nptr);
                        if (nptr [1]) {
                            // ninth digit
                            res = MULADD (res, *++nptr);
                        }
                    }
                }
            }

#  endif   // 4 < _RWSTD_LONG_SIZE

            // close brackets
            MULADD_4_DIGITS_END ();

#endif   // 2 < _RWSTD_LONG_SIZE

            for (unsigned long maxres = _RWSTD_ULONG_MAX / base; *++nptr; ) {

                const unsigned digit = __rw_digit_map [UChar (*nptr)];

                _RWSTD_ASSERT (digit < unsigned (base));

                // check for overflow
                if (maxres < res)
                    goto overflow;

                res *= base;

                if (_RWSTD_ULONG_MAX - res < digit)
                    goto overflow;

                res += digit;
            }
        }
    }

    return neg ? 0UL - res : res;

overflow:

    // set errptr to ERANGE on overflow and return ULONG_MAX
    *errptr = ERANGE;
    return _RWSTD_ULONG_MAX;
}


long
__rw_strtol (const char *nptr, int *errptr, int base) _THROWS (())
{
    _RWSTD_ASSERT (0 != nptr);
    _RWSTD_ASSERT (0 != errptr);
    _RWSTD_ASSERT ('+' == *nptr || '-' == *nptr);

    const bool neg = '-' == *nptr++;

    if (!*nptr) {
        *errptr = _RWSTD_EINVAL;
        return 0;
    }

    const int shift = __rw_base_bits [base];

    unsigned long res = __rw_digit_map [UChar (*nptr)];

    _RWSTD_ASSERT (res < unsigned (base));

    if (shift) {

        // process subject sequence by shifting

        if (*++nptr) {

            // unroll loop w/o overflow checking for as many as
            // 8 (on ILP32) or 16 (on LP64) digits (max base is 16)

            // shift left and add second digit
            res = SHLOR (res, *nptr);

            if (*++nptr) {
                // third digit
                res = SHLOR (res, *nptr);

                if (*++nptr) {
                    // fourth digit
                    res = SHLOR (res, *nptr);

#if 2 < _RWSTD_LONG_SIZE

                    // parse up to 4 more digits w/o overflow checking
                    // (i.e., digits 5 through 8, inclusive)
                    SHLOR_4_DIGITS_BEGIN (res, nptr);

#  if 4 < _RWSTD_LONG_SIZE

                    //              .2....:....1....:....0
                    // ULONG_MAX >= 1777777777777777777777 (oct)
                    // ULONG_MAX >=       ffffffffffffffff (hex)

                    // parse up to 8 more digits w/o overflow checking
                    // (i.e., digits 9 through 16, inclusive)
                    SHLOR_4_DIGITS_BEGIN (res, nptr);
                    SHLOR_4_DIGITS_BEGIN (res, nptr);

#  endif   // 4 < _RWSTD_LONG_SIZE
#endif   // 2 < _RWSTD_LONG_SIZE

                    // parse any remaining digits with overflow checking
                    // (i.e., digits 9 on ILP32 or 17 on LP64 and beyond)
                    while (*++nptr) {
                        const unsigned digit =
                            __rw_digit_map [UChar (*nptr)];

                        _RWSTD_ASSERT (digit < unsigned (base));

                        // check for overflow
                        const unsigned long save = res;

                        res <<= shift;

                        if (res < save)
                            goto overflow;

                        // can't overflow
                        res += digit;
                    }

#if 2 < _RWSTD_LONG_SIZE
#  if 4 < _RWSTD_LONG_SIZE

                    // close brackets
                    SHLOR_4_DIGITS_END ();
                    SHLOR_4_DIGITS_END ();

#  endif   // 4 < _RWSTD_LONG_SIZE

                    // close brackets
                    SHLOR_4_DIGITS_END ();

#endif   // 2 < _RWSTD_LONG_SIZE

                }
            }
        }
    }
    else {
        // process subject sequence by multiplication

        // unroll loop w/o overflow checking
        if (*++nptr) {
            // multiply by base and add second digit
            res = MULADD (res, *nptr);

#if 2 < _RWSTD_LONG_SIZE

            //              ....:....0 (10 decimal digits)
            // ULONG_MAX >= 4294967295 (dec)
            // ULONG_MAX >=    1z141z3 (base-36)

            // digits 3 through 6, inclusive
            MULADD_4_DIGITS_BEGIN (res, nptr);

#  if 4 < _RWSTD_LONG_SIZE

            //              ....:....1....:....0 (20 decimal digits)
            // ULONG_MAX >= 18446744073709551615 (dec)
            // ULONG_MAX >=        5g24a25twkwff (base-36)

            // digits 7 through 10, inclusive
            MULADD_4_DIGITS_BEGIN (res, nptr);

            if (nptr [1]) {
                // digit 11
                res = MULADD (res, *++nptr);

                if (base < 12) {

                    // unroll w/o overflow checking for bases up to 11

                    // digits 12 - 19
                    MULADD_4_DIGITS_BEGIN (res, nptr);
                    MULADD_4_DIGITS_BEGIN (res, nptr);

                    // close brackets
                    MULADD_4_DIGITS_END ();
                    MULADD_4_DIGITS_END ();
                }
            }

            // close brackets
            MULADD_4_DIGITS_END ();

#  else   // if 4 >= _RWSTD_LONG_SIZE

            if (base < 12) {

                // unroll w/o overflow checking for bases up to 11

                if (nptr [1]) {
                    // seventh digit
                    res = MULADD (res, *++nptr);
                    if (nptr [1]) {
                        // eighth digit
                        res = MULADD (res, *++nptr);
                        if (nptr [1]) {
                            // ninth digit
                            res = MULADD (res, *++nptr);
                        }
                    }
                }
            }

#  endif   // 4 < _RWSTD_LONG_SIZE

            // close brackets
            MULADD_4_DIGITS_END ();

#endif   // 2 < _RWSTD_LONG_SIZE

            
            for (unsigned long maxres = _RWSTD_ULONG_MAX / base; *++nptr; ) {

                const unsigned digit = __rw_digit_map [UChar (*nptr)];

                _RWSTD_ASSERT (digit < unsigned (base));

                // check for overflow
                if (maxres < res)
                    goto overflow;

                res *= base;

                if (_RWSTD_ULONG_MAX - res < digit)
                    goto overflow;

                res += digit;
            }
        }
    }

    typedef unsigned long ULong;

    if (neg) {
        if (res > ULong (_RWSTD_LONG_MIN)) {
            *errptr = ERANGE;
            return _RWSTD_LONG_MIN;
        }

        return -long (res);
    }

    if (res > ULong (_RWSTD_LONG_MAX)) {
        *errptr = ERANGE;
        return _RWSTD_LONG_MAX;
    }
   
    return res;

overflow:

    // set errptr to ERANGE on overflow and return LONG_MIN or _MAX
    *errptr = ERANGE;
    return ULong (neg ? _RWSTD_LONG_MIN : _RWSTD_LONG_MAX);
}


#ifdef _RWSTD_LONG_LONG


// for convenience
typedef _RWSTD_LONG_LONG          LLong;
typedef unsigned _RWSTD_LONG_LONG ULLong;


   // using LLONG_SIZE instead of ULLONG_MAX in the preprocessor
   // conditional below to work around a gcc 3.2 bug (PR #28595)
#  if (_RWSTD_LONG_SIZE < _RWSTD_LLONG_SIZE)

ULLong
__rw_strtoull (const char *nptr, int *errptr, int base) _THROWS (())
{
    _RWSTD_ASSERT (0 != nptr);
    _RWSTD_ASSERT (0 != errptr);
    _RWSTD_ASSERT ('+' == *nptr || '-' == *nptr);

    const bool neg = '-' == *nptr++;

    if (!*nptr) {
        *errptr = _RWSTD_EINVAL;
        return 0;
    }
        
    const int shift = __rw_base_bits [base];

    ULLong res = __rw_digit_map [UChar (*nptr)];

    _RWSTD_ASSERT (res < unsigned (base));

    if (shift) {

        // process subject sequence by shifting

        if (*++nptr) {

            // unroll loop w/o overflow checking for as many as
            // 8 (on ILP32) or 16 (on LP64) digits (max base is 16)

            // shift left and add second digit
            res = SHLOR (res, *nptr);

            if (*++nptr) {
                // third digit
                res = SHLOR (res, *nptr);

                if (*++nptr) {
                    // fourth digit
                    res = SHLOR (res, *nptr);

                    // parse up to 4 more digits w/o overflow checking
                    // (i.e., digits 5 through 8, inclusive)
                    SHLOR_4_DIGITS_BEGIN (res, nptr);

#    if 4 < _RWSTD_LLONG_SIZE

                    //               .2....:....1....:....0
                    // ULLONG_MAX >= 1777777777777777777777 (oct)
                    // ULLONG_MAX >=       ffffffffffffffff (hex)

                    // parse up to 8 more digits w/o overflow checking
                    // (i.e., digits 9 through 16, inclusive)
                    SHLOR_4_DIGITS_BEGIN (res, nptr);
                    SHLOR_4_DIGITS_BEGIN (res, nptr);

#    endif   // 4 < _RWSTD_LLONG_SIZE

                    // parse any remaining digits with overflow checking
                    // (i.e., digits 9 on ILP32 or 17 on LP64 and beyond)
                    while (*++nptr) {
                        const unsigned digit =
                            __rw_digit_map [UChar (*nptr)];

                        _RWSTD_ASSERT (digit < unsigned (base));

                        // check for overflow
                        const ULLong save = res;

                        res <<= shift;

                        if (res < save)
                            goto overflow;

                        // can't overflow
                        res += digit;
                    }

#    if 4 < _RWSTD_LLONG_SIZE

                    // close brackets
                    SHLOR_4_DIGITS_END ();
                    SHLOR_4_DIGITS_END ();

#    endif   // 4 < _RWSTD_LLONG_SIZE

                    // close brackets
                    SHLOR_4_DIGITS_END ();
                }
            }
        }
    }
    else {
        // process subject sequence by multiplication

        // unroll loop w/o overflow checking
        if (nptr [1]) {
            // multiply by base and add second digit
            res = MULADD (res, *++nptr);

            // digits 3 through 6, inclusive
            MULADD_4_DIGITS_BEGIN (res, nptr);

#    if 4 < _RWSTD_LLONG_SIZE

            //               ....:....1....:....0 (20 decimal digits)
            // ULLONG_MAX >= 18446744073709551615 (dec)
            // ULLONG_MAX >=        5g24a25twkwff (base-36)

            // digits 7 through 10, inclusive
            MULADD_4_DIGITS_BEGIN (res, nptr);

            if (nptr [1]) {
                // digit 11
                res = MULADD (res, *++nptr);

                if (base < 12) {

                    // unroll w/o overflow checking for bases up to 11

                    // digits 12 - 19
                    MULADD_4_DIGITS_BEGIN (res, nptr);
                    MULADD_4_DIGITS_BEGIN (res, nptr);

                    // close brackets
                    MULADD_4_DIGITS_END ();
                    MULADD_4_DIGITS_END ();
                }
            }

            // close brackets
            MULADD_4_DIGITS_END ();

#    else   // if 4 >= _RWSTD_LLONG_SIZE

            if (base < 12) {

                // unroll w/o overflow checking for bases up to 11

                if (nptr [1]) {
                    // seventh digit
                    res = MULADD (res, *++nptr);
                    if (nptr [1]) {
                        // eighth digit
                        res = MULADD (res, *++nptr);
                        if (nptr [1]) {
                            // ninth digit
                            res = MULADD (res, *++nptr);
                        }
                    }
                }
            }

#    endif   // 4 < _RWSTD_LLONG_SIZE

            // close brackets
            MULADD_4_DIGITS_END ();

            for (ULLong maxres = _RWSTD_ULLONG_MAX / base; *++nptr; ) {

                const unsigned digit = __rw_digit_map [UChar (*nptr)];

                _RWSTD_ASSERT (digit < unsigned (base));

                // check for overflow
                if (maxres < res)
                    goto overflow;

                res *= base;

                if (_RWSTD_ULLONG_MAX - res < digit)
                    goto overflow;

                res += digit;
            }
        }
    }

    return neg ? 0UL - res : res;

overflow:

    // set errptr to ERANGE on overflow and return ULLONG_MAX
    *errptr = ERANGE;
    return _RWSTD_ULLONG_MAX;
}


LLong
__rw_strtoll (const char *nptr, int *errptr, int base) _THROWS (())
{
    _RWSTD_ASSERT (0 != nptr);
    _RWSTD_ASSERT (0 != errptr);
    _RWSTD_ASSERT ('+' == *nptr || '-' == *nptr);

    const bool neg = '-' == *nptr++;

    if (!*nptr) {
        *errptr = _RWSTD_EINVAL;
        return 0;
    }

    const int shift = __rw_base_bits [base];

    ULLong res = __rw_digit_map [UChar (*nptr)];

    _RWSTD_ASSERT (res < unsigned (base));

    if (shift) {

        // process subject sequence by shifting

        if (*++nptr) {

            // unroll loop w/o overflow checking for as many as
            // 8 (on ILP32) or 16 (on LP64) digits (max base is 16)

            // shift left and add second digit
            res = SHLOR (res, *nptr);

            if (*++nptr) {
                // third digit
                res = SHLOR (res, *nptr);

                if (*++nptr) {
                    // fourth digit
                    res = SHLOR (res, *nptr);

                    // parse up to 4 more digits w/o overflow checking
                    // (i.e., digits 5 through 8, inclusive)
                    SHLOR_4_DIGITS_BEGIN (res, nptr);

#    if 4 < _RWSTD_LLONG_SIZE

                    //               .2....:....1....:....0
                    // ULLONG_MAX >= 1777777777777777777777 (oct)
                    // ULLONG_MAX >=       ffffffffffffffff (hex)

                    // parse up to 8 more digits w/o overflow checking
                    // (i.e., digits 9 through 16, inclusive)
                    SHLOR_4_DIGITS_BEGIN (res, nptr);
                    SHLOR_4_DIGITS_BEGIN (res, nptr);

#    endif   // 4 < _RWSTD_LLONG_SIZE

                    // parse any remaining digits with overflow checking
                    // (i.e., digits 9 on ILP32 or 17 on LP64 and beyond)
                    while (*++nptr) {
                        const unsigned digit =
                            __rw_digit_map [UChar (*nptr)];

                        _RWSTD_ASSERT (digit < unsigned (base));

                        // check for overflow
                        const ULLong save = res;

                        res <<= shift;

                        if (res < save)
                            goto overflow;

                        // can't overflow
                        res += digit;
                    }

#    if 4 < _RWSTD_LLONG_SIZE

                    // close brackets
                    SHLOR_4_DIGITS_END ();
                    SHLOR_4_DIGITS_END ();

#    endif   // 4 < _RWSTD_LLONG_SIZE

                    // close brackets
                    SHLOR_4_DIGITS_END ();
                }
            }
        }
    }
    else {

        // process subject sequence by multiplication

        // unroll loop w/o overflow checking
        if (*++nptr) {
            // multiply by base and add second digit
            res = MULADD (res, *nptr);

            // digits 3 through 6, inclusive
            MULADD_4_DIGITS_BEGIN (res, nptr);

#    if 4 < _RWSTD_LLONG_SIZE

            //               ....:....1....:....0 (20 decimal digits)
            // ULLONG_MAX >= 18446744073709551615 (dec)
            // ULLONG_MAX >=        5g24a25twkwff (base-36)

            // digits 7 through 10, inclusive
            MULADD_4_DIGITS_BEGIN (res, nptr);

            if (nptr [1]) {
                // digit 11
                res = MULADD (res, *++nptr);

                if (base < 12) {

                    // unroll w/o overflow checking for bases up to 11

                    // digits 12 - 19
                    MULADD_4_DIGITS_BEGIN (res, nptr);
                    MULADD_4_DIGITS_BEGIN (res, nptr);

                    // close brackets
                    MULADD_4_DIGITS_END ();
                    MULADD_4_DIGITS_END ();
                }
            }

            // close brackets
            MULADD_4_DIGITS_END ();

#    else   // if 4 >= _RWSTD_LLONG_SIZE

            if (base < 12) {

                // unroll w/o overflow checking for bases up to 11

                if (nptr [1]) {
                    // seventh digit
                    res = MULADD (res, *++nptr);
                    if (nptr [1]) {
                        // eighth digit
                        res = MULADD (res, *++nptr);
                        if (nptr [1]) {
                            // ninth digit
                            res = MULADD (res, *++nptr);
                        }
                    }
                }
            }

#    endif   // 4 < _RWSTD_LLONG_SIZE

            // close brackets
            MULADD_4_DIGITS_END ();

            for (ULLong maxres = _RWSTD_ULLONG_MAX / base; *++nptr; ) {

                const unsigned digit = __rw_digit_map [UChar (*nptr)];

                _RWSTD_ASSERT (digit < unsigned (base));

                // check for overflow
                if (maxres < res)
                    goto overflow;

                res *= base;

                if (_RWSTD_ULLONG_MAX - res < digit)
                    goto overflow;

                res += digit;
            }
        }
    }

    if (neg) {
        if (res > ULLong (_RWSTD_LLONG_MIN)) {
            *errptr = ERANGE;
            return _RWSTD_LLONG_MIN;
        }

        return -LLong (res);
    }

    if (res > ULLong (_RWSTD_LLONG_MAX)) {
        *errptr = ERANGE;
        return _RWSTD_LLONG_MAX;
    }
   
    return res;

overflow:

    // set errptr to ERANGE on overflow and return LLONG_MIN or _MAX
    *errptr = ERANGE;
    return ULLong (neg ? _RWSTD_LLONG_MIN : _RWSTD_LLONG_MAX);
}


#  endif   // _RWSTD_LLONG_SIZE < _RWSTD_LLONG_SIZE
#endif   // _RWSTD_LONG_LONG


}   // namespace __rw