Return to strtol.c CVS log

Up to [Apple XNU] / GNUtools / libg++ / libiberty

Annotation of GNUtools/libg++/libiberty/strtol.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * strtol : convert a string to long.
                      3:  *
                      4:  * Andy Wilson, 2-Oct-89.
                      5:  */
                      6: 
                      7: #include <errno.h>
                      8: #include <ctype.h>
                      9: #include <stdio.h>
                     10: #include "ansidecl.h"
                     11: 
                     12: /* FIXME: It'd be nice to configure around these, but the include files are too
                     13:    painful.  These macros should at least be more portable than hardwired hex
                     14:    constants. */
                     15: 
                     16: #define        ULONG_MAX       ((unsigned long)(~0L))          /* 0xFFFFFFFF */
                     17: #define        LONG_MAX        ((long)(ULONG_MAX >> 1))        /* 0x7FFFFFFF */
                     18: #define        LONG_MIN        ((long)(~LONG_MAX))             /* 0x80000000 */
                     19: 
                     20: extern int errno;
                     21: 
                     22: long
                     23: strtol(s, ptr, base)
                     24:      CONST char *s; char **ptr; int base;
                     25: {
                     26:   extern unsigned long  strtoul();
                     27:   int minus=0;
                     28:   unsigned long tmp;
                     29:   CONST char *start=s, *eptr;
                     30: 
                     31:   if (s==NULL)
                     32:     {
                     33:       errno = ERANGE;
                     34:       if (!ptr)
                     35:        *ptr = (char *)start;
                     36:       return 0L;
                     37:     }
                     38:   while (isspace(*s))
                     39:        s++;
                     40:   if (*s == '-') {
                     41:        s++;
                     42:        minus = 1;
                     43:       }
                     44:   else if (*s == '+')
                     45:     s++;
                     46: 
                     47:   /*
                     48:    * let strtoul do the hard work.
                     49:    */
                     50:   tmp = strtoul(s, &eptr, base);
                     51:   if (ptr != NULL)
                     52:     *ptr = (char *)((eptr==s) ? (char *)start : eptr);
                     53:   if (tmp > (minus ? - (unsigned long) LONG_MIN : (unsigned long) LONG_MAX))
                     54:     {
                     55:       errno = ERANGE;
                     56:       return (minus ? LONG_MIN : LONG_MAX);
                     57:     }
                     58:   return (minus ? (long) -tmp : (long) tmp);
                     59: }

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