home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / c / hce.lha / HCE / LibSource / clib / String / src / atol.c next >
Encoding:
C/C++ Source or Header  |  1992-09-02  |  398 b   |  28 lines
  1. #include <stdio.h>
  2. #include <ctype.h>
  3.  
  4. long atol(number)
  5.     register char *number;
  6.     {
  7.     register long n = 0, neg = 0;
  8.  
  9.     while(isspace(*number))
  10.         ++number;
  11.     if(*number == '-')
  12.         {
  13.         neg = 1;
  14.         ++number;
  15.         }
  16.     else if(*number == '+')
  17.         ++number;
  18.     while(isdigit(*number))
  19.         n = (n * 10) + ((*number++) - '0');
  20.     return(neg ? -n : n);
  21.     }
  22.  
  23. int atoi(number)
  24.     char *number;
  25.     {
  26.     return((int) atol(number));
  27.     }
  28.