Return to atol.c CVS log

Up to [MW Coherent from dump] / coherent / b / lib / libc / gen

Annotation of coherent/b/lib/libc/gen/atol.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * C general utilities library.
        !             3:  * atol()
        !             4:  * ANSI 4.10.1.3.
        !             5:  * Convert ASCII to long (the old fashioned way).
        !             6:  */
        !             7: 
        !             8: #include <stdlib.h>
        !             9: #include <ctype.h>
        !            10: 
        !            11: long
        !            12: atol(nptr) register char *nptr;
        !            13: {
        !            14:        register long   val;
        !            15:        register int    c;
        !            16:        register int    sign;
        !            17: 
        !            18:        val = sign = 0;
        !            19: 
        !            20:        /* Leading whitespace. */
        !            21:        while (isspace(c = *nptr++))
        !            22:                ;
        !            23: 
        !            24:        /* Optional sign. */
        !            25:        if (c == '-') {
        !            26:                sign = 1;
        !            27:                c = *nptr++;
        !            28:        } else if (c == '+')
        !            29:                c = *nptr++;
        !            30: 
        !            31:        /* Process digit string. */
        !            32:        for ( ; isdigit(c); c = *nptr++)
        !            33:                val = val * 10 + c - '0';
        !            34:        return (sign ? -val : val);
        !            35: }
        !            36: 
        !            37: /* end of atol.c */

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