~mdw / qmail / blame
| Commit | Line | Data |
|---|---|---|
| 2117e02e MW |
1 | #include "scan.h" |
| 2 | ||
| 3 | unsigned int scan_ulong(s,u) register char *s; register unsigned long *u; | |
| 4 | { | |
| 5 | register unsigned int pos; register unsigned long result; | |
| 6 | register unsigned long c; | |
| 7 | pos = 0; result = 0; | |
| 8 | while ((c = (unsigned long) (unsigned char) (s[pos] - '0')) < 10) | |
| 9 | { result = result * 10 + c; ++pos; } | |
| 10 | *u = result; return pos; | |
| 11 | } |