4.3BSD/usr/contrib/spms/src/lib/libspms/test/pathhead.a

!<arch>
Ipathhead       418696353   968   27    100644  44        `
/aaa
/aaa/
/aaa/bbb
/aaa/bbb/
/aaa/bbb//
/

Opathhead       418696353   968   27    100644  32        `

/aaa
/aaa
/aaa/bbb
/aaa/bbb/


Tpathhead.c     418696358   968   27    100644  296       `
/*
 * pathhead()
 */
#include <stdio.h>
#include "path.h"

main()
{
	char *gets();			/* get a line from stdin */
	char *pathhead();		/* remove pathname tail */
	char pathname[PATHSIZE];	/* pathname input buffer */

	while (gets(pathname) != NULL)
		printf("%s\n",pathhead(pathname));
	exit(0);
}