1*30479Slepreau static char Sccsid[] "@(#)sname	2.2";
2*30479Slepreau /*
3*30479Slepreau 	Returns pointer to "simple" name of path name; that is,
4*30479Slepreau 	pointer to first character after last "/".  If no slashes,
5*30479Slepreau 	returns pointer to first char of arg.
6*30479Slepreau 	If the string ends in a slash, returns a pointer to the first
7*30479Slepreau 	character after the preceeding slash, or the first character.
8*30479Slepreau */
9*30479Slepreau 
10*30479Slepreau char	*sname(s)
11*30479Slepreau char *s;
12*30479Slepreau {
13*30479Slepreau 	register char *p;
14*30479Slepreau 	register int n;
15*30479Slepreau 	register int j;
16*30479Slepreau 
17*30479Slepreau 	n = strlen(s);
18*30479Slepreau 	--n;
19*30479Slepreau 	if (s[n] == '/') {
20*30479Slepreau 		for (j=n; j >= 0; --j)
21*30479Slepreau 			if (s[j] != '/') {
22*30479Slepreau 				s[++j] = '\0';
23*30479Slepreau 				break;
24*30479Slepreau 			}
25*30479Slepreau 	}
26*30479Slepreau 
27*30479Slepreau 	for(p=s; *p; p++) if(*p == '/') s = p + 1;
28*30479Slepreau 	return(s);
29*30479Slepreau }
30