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