d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

atol and atoi get old-fashioned behaviour

Browse source
This commit is contained in:
ceriel 1990-05-22 10:48:12 +00:00
parent 24c9be9777
commit ef69de1614
2 changed files with 38 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lang/cem/libcc.ansi/stdlib/atoi.c
View file

@ -4,15 +4,27 @@
*/ */
/* $Header$ */ /* $Header$ */
#include <stdlib.h> #include <ctype.h>
#include <errno.h>
/* We do not use strtol here for backwards compatibility in behaviour on
overflow.
*/
int int
atoi(const char *nptr) atol(register const char *nptr)
{ {
int i, e = errno; int total = 0;
register unsigned int digit;
int minus = 0;
i = (int)strtol(nptr, (char **)NULL, 10); while (isspace(*nptr)) nptr++;
errno = e; if (*nptr == '+') nptr++;
return i; else if (*nptr == '-') {
minus = 1;
nptr++;
}
while (isdigit(*nptr)) {
total *= 10;
total += (*nptr++ - '0');
}
return minus ? -total : total;
} }

27
lang/cem/libcc.ansi/stdlib/atol.c
View file

@ -4,16 +4,27 @@
*/ */
/* $Header$ */ /* $Header$ */
#include <stdlib.h> #include <ctype.h>
#include <errno.h>
/* We do not use strtol here for backwards compatibility in behaviour on
overflow.
*/
long long
atol(const char *nptr) atol(register const char *nptr)
{ {
long l; long total = 0;
int e = errno; register unsigned int digit;
int minus = 0;
l = strtol(nptr, (char **)NULL, 10); while (isspace(*nptr)) nptr++;
errno = e; if (*nptr == '+') nptr++;
return l; else if (*nptr == '-') {
minus = 1;
nptr++;
}
while (isdigit(*nptr)) {
total *= 10;
total += (*nptr++ - '0');
}
return minus ? -total : total;
} }