strw_convfrom_lng.c

Go to the documentation of this file.

/* valwlng function */

#include "fb.h"

FBCALL long long fb_WstrToLongint( const FB_WCHAR *src, ssize_t len )
{
    const FB_WCHAR *p, *r;
        int radix;

        /* skip white spc */
        p = fb_wstr_SkipChar( src, len, 32 );

        len -= fb_wstr_CalcDiff( src, p );
        if( len < 1 )
                return 0;

        radix = 10;
        r = p;
        if( (len >= 2) && (*r++ == L'&') )
        {
                switch( *r++ )
                {
                        case L'h':
                        case L'H':
                                radix = 16;
                                break;
                        case L'o':
                        case L'O':
                                radix = 8;
                                break;
                        case L'b':
                        case L'B':
                                radix = 2;
                                break;

                        default: /* assume octal */
                                radix = 8;
                                r--;
                                break;
                }

                if( radix != 10 )
                {
#ifdef HOST_MINGW
                        return fb_WstrRadix2Longint( r, len - fb_wstr_CalcDiff( p, r ), radix );
#else
                        p = r;
#endif
                }
        }

        /* wcstoll() saturates values outside [-2^63, 2^63)
        so use wcstoull() instead */
        return (long long)wcstoull( p, NULL, radix );
}

FBCALL long long fb_WstrValLng ( const FB_WCHAR *str )
{
    long long val;
        ssize_t len;

        if( str == NULL )
            return 0;

        len = fb_wstr_Len( str );
        if( len == 0 )
                val = 0;
        else
                val = fb_WstrToLongint( str, len );

        return val;
}