home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume8 / help.jn / kindex.c < prev    next >
Encoding:
Text File  |  1989-08-19  |  427 b   |  24 lines
  1. kindex(s,t) 
  2. char s[],t[];
  3. {
  4.     int c,i,j,k;
  5.     c=s[0];
  6.     if(c==0){return -1;
  7. /*        i=puts("in kindex ... dummy, s[0] is zero");j=i;*/
  8. /*        puts(t);*/
  9. /*        if(i==j)exit(1);*/
  10.         }
  11.     c=t[0];
  12.     if(c==0){return -1;
  13. /*    i=puts("in kindex ... dummy, t[0] is zero");j=i;*/
  14. /*        puts(s);*/
  15. /*        if(j==i)exit(1);*/
  16.         }
  17.     for(i=0;s[i] !='\0'; i++){
  18.         for(j=i,k=0;t[k] !='\0' && s[j]==t[k];j++,k++)
  19.                 ;
  20.         if(t[k]=='\0')return (i);
  21.     }
  22.         return(-1);
  23. } 
  24.