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