[unix-history] / usr / src / usr.bin / f77 / libF77 / i_indx.c

/*
 *	"@(#)i_indx.c	1.1"
 */

long int i_indx(a, b, la, lb)
char *a, *b;
long int la, lb;
{
long int i, n;
char *s, *t, *bend;

n = la - lb + 1;
bend = b + lb;

for(i = 0 ; i < n ; ++i)
	{
	s = a + i;
	t = b;
	while(t < bend)
		if(*s++ != *t++)
			goto no;
	return(i+1);
	no: ;
	}
return(0);
}
Commit	Line	Data
7a665304 DW	1	/*
	2	* "@(#)i_indx.c 1.1"
	3	*/
	4
	5	long int i_indx(a, b, la, lb)
	6	char a, b;
	7	long int la, lb;
	8	{
	9	long int i, n;
	10	char s, t, *bend;
	11
	12	n = la - lb + 1;
	13	bend = b + lb;
	14
	15	for(i = 0 ; i < n ; ++i)
	16	{
	17	s = a + i;
	18	t = b;
	19	while(t < bend)
	20	if(s++ != t++)
	21	goto no;
	22	return(i+1);
	23	no: ;
	24	}
	25	return(0);
	26	}