checked in for jerry

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

/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved.  The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*
*      @(#)h_indx.c    5.1     %G%
*/

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);
}