Return to actol.c CVS log

Up to [Research Unix] / researchv10no / libc / gen

Annotation of researchv10no/libc/gen/actol.c, revision 1.1

1.1     ! root        1: long
        !             2: atol(s)
        !             3: register char *s;
        !             4: {
        !             5:        register long n;
        !             6:        int f;
        !             7: 
        !             8:        n = 0;
        !             9:        f = 0;
        !            10:        while((*s == ' ') || (*s == '\t'))
        !            11:                s++;
        !            12:        if(*s == '-') {
        !            13:                f = 1;
        !            14:                s++;
        !            15:        }
        !            16:        if(s[0]=='0' && s[1]){
        !            17:                if(s[1]=='x' || s[1]=='X'){
        !            18:                        s += 2;
        !            19:                        for(;;){
        !            20:                                if(*s >= '0' && *s <= '9')
        !            21:                                        n = n*16 + *s++ - '0';
        !            22:                                else if(*s >= 'a' && *s <= 'f')
        !            23:                                        n = n*16 + *s++ - 'a' + 10;
        !            24:                                else if(*s >= 'A' && *s <= 'F')
        !            25:                                        n = n*16 + *s++ - 'A' + 10;
        !            26:                                else
        !            27:                                        break;
        !            28:                        }
        !            29:                } else
        !            30:                        while(*s >= '0' && *s <= '7')
        !            31:                                n = n*8 + *s++ - '0';
        !            32:        } else
        !            33:                while(*s >= '0' && *s <= '9')
        !            34:                        n = n*10 + *s++ - '0';
        !            35:        if(f)
        !            36:                n = -n;
        !            37:        return n;
        !            38: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.