1*30476Slepreau static char Sccsid[] "@(#)patol	2.1";
2*30476Slepreau /*
3*30476Slepreau 	Function to convert ascii string to long.  Converts
4*30476Slepreau 	positive numbers only.  Returns -1 if non-numeric
5*30476Slepreau 	character encountered.
6*30476Slepreau */
7*30476Slepreau 
8*30476Slepreau long
9*30476Slepreau patol(s)
10*30476Slepreau register char *s;
11*30476Slepreau {
12*30476Slepreau 	long i;
13*30476Slepreau 
14*30476Slepreau 	i = 0;
15*30476Slepreau 	while (*s >= '0' && *s <= '9')
16*30476Slepreau 		i = 10*i + *s++ - '0';
17*30476Slepreau 
18*30476Slepreau 	if (*s)
19*30476Slepreau 		return(-1);
20*30476Slepreau 	return(i);
21*30476Slepreau }
22