astoll.c File Reference

#include <schily/mconfig.h>
#include <schily/standard.h>
#include <schily/utypes.h>
#include <schily/schily.h>
#include <schily/errno.h>

Include dependency graph for astoll.c:

Go to the source code of this file.

Macros
#define	is_space(c)   ((c) == ' ' || (c) == '\t')
#define	is_digit(c)   ((c) >= '0' && (c) <= '9')
#define	is_hex(c)
#define	is_lower(c)   ((c) >= 'a' && (c) <= 'z')
#define	is_upper(c)   ((c) >= 'A' && (c) <= 'Z')
#define	to_lower(c)   (((c) >= 'A' && (c) <= 'Z') ? (c) - 'A'+'a' : (c))
#define	BASE_MAX   ('z' - 'a' + 10 + 1) /* This is ASCII */

Functions
char *	astoll (const char *s, Llong *l)
char *	astollb (const char *s, Llong *l, int base)

Macro Definition Documentation

BASE_MAX

#define BASE_MAX   ('z' - 'a' + 10 + 1) /* This is ASCII */

Definition at line 51 of file astoll.c.

is_digit

#define is_digit

(

c

)

((c) >= '0' && (c) <= '9')

Definition at line 39 of file astoll.c.

is_hex

#define is_hex

(

c

)

Value:

            (\
            ((c) >= 'a' && (c) <= 'f') || \
            ((c) >= 'A' && (c) <= 'F'))

Definition at line 40 of file astoll.c.

is_lower

#define is_lower

(

c

)

((c) >= 'a' && (c) <= 'z')

Definition at line 44 of file astoll.c.

is_space

#define is_space

(

c

)

((c) == ' ' || (c) == '\t')

Definition at line 38 of file astoll.c.

is_upper

#define is_upper

(

c

)

((c) >= 'A' && (c) <= 'Z')

Definition at line 45 of file astoll.c.

to_lower

#define to_lower

(

c

)

(((c) >= 'A' && (c) <= 'Z') ? (c) - 'A'+'a' : (c))

Definition at line 46 of file astoll.c.

Function Documentation

astoll()

char * astoll	(	const char *	s,
		Llong *	l
	)

Definition at line 56 of file astoll.c.

{
    return (astollb(s, l, 0));
}

Referenced by doflag().

astollb()

char * astollb	(	const char *	s,
		Llong *	l,
		int	base
	)

Definition at line 64 of file astoll.c.

{
    int neg = 0;
    register ULlong ret = (ULlong)0;
        ULlong maxmult;
        ULlong maxval;
    register int digit;
    register char c;
 
    if (base > BASE_MAX || base == 1 || base < 0) {
        seterrno(EINVAL);
        return ((char *)s);
    }
 
    while (is_space(*s))
        s++;
 
    if (*s == '+') {
        s++;
    } else if (*s == '-') {
        s++;
        neg++;
    }
 
    if (base == 0) {
        if (*s == '0') {
            base = 8;
            s++;
            if (*s == 'x' || *s == 'X') {
                s++;
                base = 16;
            }
        } else {
            base = 10;
        }
    }
    if (neg) {
        /*
         * Portable way to compute the positive value of "min-Llong"
         * as -TYPE_MINVAL(Llong) does not work.
         */
        maxval = ((ULlong)(-1 * (TYPE_MINVAL(Llong)+1))) + 1;
    } else {
        maxval = TYPE_MAXVAL(Llong);
    }
    maxmult = maxval / base;
    for (; (c = *s) != 0; s++) {
 
        if (is_digit(c)) {
            digit = c - '0';
        } else if (is_lower(c)) {
            digit = c - 'a' + 10;
        } else if (is_upper(c)) {
            digit = c - 'A' + 10;
        } else {
            break;
        }
 
        if (digit < base) {
            if (ret > maxmult)
                goto overflow;
            ret *= base;
            if (maxval - ret < digit)
                goto overflow;
            ret += digit;
        } else {
            break;
        }
    }
    if (neg) {
        *l = (Llong)-1 * ret;
    } else {
        *l = (Llong)ret;
    }
    return ((char *)s);
overflow:
    for (; (c = *s) != 0; s++) {
 
        if (is_digit(c)) {
            digit = c - '0';
        } else if (is_lower(c)) {
            digit = c - 'a' + 10;
        } else if (is_upper(c)) {
            digit = c - 'A' + 10;
        } else {
            break;
        }
        if (digit >= base)
            break;
    }
    if (neg) {
        *l = TYPE_MINVAL(Llong);
    } else {
        *l = TYPE_MAXVAL(Llong);
    }
    seterrno(ERANGE);
    return ((char *)s);
}

Referenced by astoll().