[unix-history] / usr / src / libc / gen / atol.c

long
atol(p)
register char *p;
{
	long n;
	register int f;

	n = 0;
	f = 0;
	for(;;p++) {
		switch(*p) {
		case ' ':
		case '\t':
			continue;
		case '-':
			f++;
		case '+':
			p++;
		}
		break;
	}
	while(*p >= '0' && *p <= '9')
		n = n*10 + *p++ - '0';
	return(f? -n: n);
}
Commit	Line	Data
d2189992 TL	1	long
	2	atol(p)
	3	register char *p;
	4	{
	5	long n;
	6	register int f;
	7
	8	n = 0;
	9	f = 0;
	10	for(;;p++) {
	11	switch(*p) {
	12	case ' ':
	13	case '\t':
	14	continue;
	15	case '-':
	16	f++;
	17	case '+':
	18	p++;
	19	}
	20	break;
	21	}
	22	while(p >= '0' && p <= '9')
	23	n = n10 + p++ - '0';
	24	return(f? -n: n);
	25	}