64 	register char *first, *last;  in namebase()  local
66 	for(first=last=pathname; *last; last++);  in namebase()
68 	if(last>first)  in namebase()
69 		while(*--last=='/' && last > first);  in namebase()
70 	if(last==first && *last=='/')  in namebase()
74 			if(*++last=='/')	/* keep leading // */  in namebase()
75 				last++;  in namebase()
79 		for(first=last++;first>pathname && *first!='/';first--);  in namebase()
83 		if(suffix && (n=strlen(suffix)) && n<(last-first))  in namebase()
85 			if(memcmp(last-n,suffix,n)==0)  in namebase()
86 				last -=n;  in namebase()
89 	if(last>first)  in namebase()
90 		sfwrite(outfile,first,last-first);  in namebase()