home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / program / lynxlib / sindex.c < prev    next >
C/C++ Source or Header  |  1993-10-23  |  1KB  |  34 lines
  1. /* OBSOLETE FILE -- SUPERCEDED BY MWC strstr() */
  2.  
  3. /* This source file is part of the LynxLib miscellaneous library by
  4. Robert Fischer, and is Copyright 1990 by Robert Fischer.  It costs no
  5. money, and you may not make money off of it, but you may redistribute
  6. it.  It comes with ABSOLUTELY NO WARRANTY.  See the file LYNXLIB.DOC
  7. for more details.
  8. To contact the author:
  9.     Robert Fischer \\80 Killdeer Rd \\Hamden, CT   06517   USA
  10.     (203) 288-9599     fischer-robert@cs.yale.edu                 */
  11.  
  12. #include <stddef.h>
  13.  
  14. char *sindex(str, pat)
  15. /* Searches for the string pat within the string s. */
  16. /* Returns the pointer to the portion of the string where this occurs, */
  17. /* or NULL if it doesn't occur */
  18. char *str;
  19. char *pat;
  20. {
  21. register char *s,*p;
  22.     if (*pat == NIL) return str;    /* Empty pattern */
  23.     while(*str != NIL) {
  24.         if (*pat == *str) {
  25.             for(s = str+1, p = pat+1; ; p++, s++) {
  26.                 if (*p == NIL) return str;
  27.                 if (*p != *s) break;
  28.             }
  29.         }
  30.         str++;
  31.     }
  32.     return NULL;
  33. }
  34.