1*22081Smckusick #ifndef lint 2*22081Smckusick static char sccsid[] = "@(#)atol.c 5.1 (Berkeley) 06/05/85"; 3*22081Smckusick #endif not lint 4*22081Smckusick 51955Swnj long 61955Swnj atol(p) 71955Swnj register char *p; 81955Swnj { 91955Swnj long n; 101955Swnj register int f; 111955Swnj 121955Swnj n = 0; 131955Swnj f = 0; 141955Swnj for(;;p++) { 151955Swnj switch(*p) { 161955Swnj case ' ': 171955Swnj case '\t': 181955Swnj continue; 191955Swnj case '-': 201955Swnj f++; 211955Swnj case '+': 221955Swnj p++; 231955Swnj } 241955Swnj break; 251955Swnj } 261955Swnj while(*p >= '0' && *p <= '9') 271955Swnj n = n*10 + *p++ - '0'; 281955Swnj return(f? -n: n); 291955Swnj } 30