Desktop/xinu_mips-1.0.2.tar/xinu_mips-1.0.2/lib/libxc/atol.c

Go to the documentation of this file.

/* Embedded XINU, Copyright (C) 2007.  All rights reserved. */

long atol(char *p)
{
        long n;
        int f;

        n = 0;
        f = 0;
        for(;;p++) 
        {
                switch(*p) 
                {
                        case ' ':
                        case '\t':
                                continue;
                        case '-':
                                f++;
                        case '+':
                                p++;
                }
                break;
        }
        while(*p >= '0' && *p <= '9')
        { n = n*10 + *p++ - '0'; }
        return(f? -n: n);
}

---