Return to strtol.c CVS log

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

Annotation of researchv10no/libc/gen/strtol.c, revision 1.1.1.1

1.1       root        1: #include <errno.h>
                      2: #include <ctype.h>
                      3: 
                      4: #define T_LONG_MAX (long)(~(unsigned long)0>>1)
                      5: #define T_LONG_MIN (~T_LONG_MAX)
                      6: #define POS 0
                      7: extern unsigned long strtoul();
                      8: 
                      9: long
                     10: strtol(iptr, endptr, base)
                     11: char *iptr;
                     12: register char **endptr;
                     13: {
                     14:        register char *nptr = iptr;
                     15:        register sign = POS;
                     16:        register long result;
                     17: 
                     18:        if(endptr)
                     19:                *endptr = iptr;
                     20:        while(isspace(*nptr))
                     21:                nptr++;
                     22:        switch(*nptr) {
                     23:        case '-':
                     24:                sign = !POS;
                     25:        case '+':
                     26:                nptr++;
                     27:        }
                     28:        if(!isalnum(*nptr))
                     29:                return 0;
                     30:        result = (long)strtoul(nptr, &iptr, base);
                     31:        if(endptr && iptr!=nptr)
                     32:                *endptr = iptr;
                     33:        if(result < 0) {
                     34:                if(sign==POS || result!=T_LONG_MIN)
                     35:                        errno = ERANGE;
                     36:                return sign==POS? T_LONG_MAX: T_LONG_MIN;
                     37:        }
                     38:        return sign==POS? result: -result;
                     39: }

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