2.9BSD - /usr/src/lib/libF77/i_indx.c

   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: }

Defined functions