1*30488Slepreau static char Sccsid[] = "@(#)patol.c	1.2	02/15/87";
230476Slepreau /*
330476Slepreau 	Function to convert ascii string to long.  Converts
430476Slepreau 	positive numbers only.  Returns -1 if non-numeric
530476Slepreau 	character encountered.
630476Slepreau */
730476Slepreau 
830476Slepreau long
patol(s)930476Slepreau patol(s)
1030476Slepreau register char *s;
1130476Slepreau {
1230476Slepreau 	long i;
1330476Slepreau 
1430476Slepreau 	i = 0;
1530476Slepreau 	while (*s >= '0' && *s <= '9')
1630476Slepreau 		i = 10*i + *s++ - '0';
1730476Slepreau 
1830476Slepreau 	if (*s)
1930476Slepreau 		return(-1);
2030476Slepreau 	return(i);
2130476Slepreau }
22