1*30488Slepreau static char Sccsid[] = "@(#)sname.c	1.2	02/15/87";
230479Slepreau /*
330479Slepreau 	Returns pointer to "simple" name of path name; that is,
430479Slepreau 	pointer to first character after last "/".  If no slashes,
530479Slepreau 	returns pointer to first char of arg.
630479Slepreau 	If the string ends in a slash, returns a pointer to the first
730479Slepreau 	character after the preceeding slash, or the first character.
830479Slepreau */
930479Slepreau 
sname(s)1030479Slepreau char	*sname(s)
1130479Slepreau char *s;
1230479Slepreau {
1330479Slepreau 	register char *p;
1430479Slepreau 	register int n;
1530479Slepreau 	register int j;
1630479Slepreau 
1730479Slepreau 	n = strlen(s);
1830479Slepreau 	--n;
1930479Slepreau 	if (s[n] == '/') {
2030479Slepreau 		for (j=n; j >= 0; --j)
2130479Slepreau 			if (s[j] != '/') {
2230479Slepreau 				s[++j] = '\0';
2330479Slepreau 				break;
2430479Slepreau 			}
2530479Slepreau 	}
2630479Slepreau 
2730479Slepreau 	for(p=s; *p; p++) if(*p == '/') s = p + 1;
2830479Slepreau 	return(s);
2930479Slepreau }
30