Return to i_indx.c CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.lib / libF77

Annotation of 42BSD/usr.lib/libF77/i_indx.c, revision 1.1.1.1

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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.