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