Bell 32V development

[unix-history] / usr / src / libF77 / h_indx.c

short h_indx(a, b, la, lb)
char *a, *b;
long int la, lb;
{
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);
}