home *** CD-ROM | disk | FTP | other *** search
- #include "plplot.h"
-
- PLINT stindex(str1,str2)
- char *str1,*str2;
- {
- PLINT base;
- PLINT str1ind;
- PLINT str2ind;
-
- for(base=0; *(str1+base)!='\0'; base++) {
- for(str1ind=base, str2ind=0; *(str2+str2ind)!='\0' &&
- *(str2+str2ind) == *(str1+str1ind); str1ind++, str2ind++)
- ; /* no body */
-
- if(*(str2+str2ind) == '\0')
- return((PLINT)base);
- }
- return((PLINT)-1); /* search failed */
- }
-