31 lines
599 B
C
Executable file
31 lines
599 B
C
Executable file
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*/
|
|
/* $Header$ */
|
|
|
|
#include <ctype.h>
|
|
#include <stdlib.h>
|
|
|
|
/* We do not use strtol here for backwards compatibility in behaviour on
|
|
overflow.
|
|
*/
|
|
long
|
|
atol(register const char *nptr)
|
|
{
|
|
long total = 0;
|
|
int minus = 0;
|
|
|
|
while (isspace(*nptr)) nptr++;
|
|
if (*nptr == '+') nptr++;
|
|
else if (*nptr == '-') {
|
|
minus = 1;
|
|
nptr++;
|
|
}
|
|
while (isdigit(*nptr)) {
|
|
total *= 10;
|
|
total += (*nptr++ - '0');
|
|
}
|
|
return minus ? -total : total;
|
|
}
|