home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / DLIBSSRC.ZIP / ATOL.C < prev    next >
Encoding:
C/C++ Source or Header  |  1987-10-06  |  410 b   |  26 lines
  1. #include <stdio.h>
  2.  
  3. long atol(number)
  4. register char *number;
  5. {
  6.     register long n = 0, neg = 0;
  7.  
  8.     while((*number == ' ') || (*number == '\t'))
  9.         ++number;
  10.     if(*number == '-') {
  11.         neg = 1;
  12.         ++number;
  13.     }
  14.     else if(*number == '+')
  15.         ++number;
  16.     while(isdigit(*number))
  17.         n = (n * 10) + ((*number++) - '0');
  18.     return(neg ? -n : n);
  19. }
  20.  
  21. int atoi(number)
  22. char *number;
  23. {
  24.     return(atol(number));
  25. }
  26.