firstarg(argp) register char *argp ; {
register char *name ;
- name=rindex(argp,'/') ;
+ name=strrindex(argp,'/') ;
if ( name && *(name+1) ) {
name++ ;
} else {
#ifdef DEBUG
if ( debug ) vprint("Processing %s\n",arg) ;
#endif
- p_suffix= rindex(arg,SUFCHAR) ;
+ p_suffix= strrindex(arg,SUFCHAR) ;
orig.p_keep= YES ; /* Don't throw away the original ! */
orig.p_keeps= NO;
orig.p_path= arg ;
vprint("%s",phase->t_name) ;
if ( !phase->t_combine ) {
vprint(" %s%s\n",p_basename,
- rindex(in.p_path,SUFCHAR) ) ;
+ strrindex(in.p_path,SUFCHAR) ) ;
} else {
scanlist(l_first(phase->t_inputs), elem) {
vprint(" %s",p_cont(*elem)->p_path);
register int length ;
char *eq, *colon ;
- eos= index(&argp[2],'-');
- eq= index(&argp[2],EQUAL) ;
- colon= index(&argp[2],':');
+ eos= strindex(&argp[2],'-');
+ eq= strindex(&argp[2],EQUAL) ;
+ colon= strindex(&argp[2],':');
if ( !eos ) {
eos= eq ;
} else {
register char *space ;
int length ;
- star=index(mapentry,STAR) ;
+ star=strindex(mapentry,STAR) ;
space=firstblank(mapentry) ;
if ( star >space ) star= (char *)0 ;
if ( star ) {
for ( ; *ptr && *ptr!=SPACE && *ptr!=TAB && *ptr!=EQUAL ; ptr++ ) {
gr_add(&name,*ptr) ;
}
- ptr= index(ptr,EQUAL) ;
+ ptr= strindex(ptr,EQUAL) ;
if ( !ptr ) {
error("Missing %c in assignment %s",EQUAL,line);
return ;
register char *temp, *repc ;
register list_elem *elem ;
- repc=index(string,C_IN) ;
+ repc=strindex(string,C_IN) ;
if ( repc ) {
/* INPUT FILE TOKEN seen, replace it and scan further */
if ( repc==string && string[1]==0 ) {
}
return ;
}
- repc=index(string,C_OUT) ;
+ repc=strindex(string,C_OUT) ;
if ( repc ) {
/* replace the outfile token as with the infile token */
#ifdef DEBUG