Rev | Line | |
---|
[9] | 1 | /*
|
---|
| 2 | * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
---|
| 3 | * See the copyright notice in the ACK home directory, in the file "Copyright".
|
---|
| 4 | */
|
---|
| 5 | /* $Header: /cvsup/minix/src/lib/ansi/atol.c,v 1.1.1.1 2005/04/21 14:56:04 beng Exp $ */
|
---|
| 6 |
|
---|
| 7 | #include <ctype.h>
|
---|
| 8 | #include <stdlib.h>
|
---|
| 9 |
|
---|
| 10 | /* We do not use strtol here for backwards compatibility in behaviour on
|
---|
| 11 | overflow.
|
---|
| 12 | */
|
---|
| 13 | long
|
---|
| 14 | atol(register const char *nptr)
|
---|
| 15 | {
|
---|
| 16 | long total = 0;
|
---|
| 17 | int minus = 0;
|
---|
| 18 |
|
---|
| 19 | while (isspace(*nptr)) nptr++;
|
---|
| 20 | if (*nptr == '+') nptr++;
|
---|
| 21 | else if (*nptr == '-') {
|
---|
| 22 | minus = 1;
|
---|
| 23 | nptr++;
|
---|
| 24 | }
|
---|
| 25 | while (isdigit(*nptr)) {
|
---|
| 26 | total *= 10;
|
---|
| 27 | total += (*nptr++ - '0');
|
---|
| 28 | }
|
---|
| 29 | return minus ? -total : total;
|
---|
| 30 | }
|
---|
Note:
See
TracBrowser
for help on using the repository browser.