shithub: x

ref: 7760194f148720cc9d9432d47090ad4f1954a297
dir: /path/

View raw version 
#!/bin/rc
rfork e
. /sys/lib/x/lib.rc
usage = '
	x/path [-Pprl]
'

if(! ~ $$#* -*)
	wd=$$#*
if not
	wd=`{pwd}
for(arg){
	switch($arg){
	case -P
		echo $wd | sed 's,/[^/]+/[^/]+(.*),\1,'
	case -p
		echo $wd | sed 's,/[^/]+/[^/]+/(.*),\1,'
	case -r
		echo $wd | sed 's,(/[^/]+/[^/]+).*,\1,'
	case -l
		echo $wd | awk -F/ '{if($3) print $3; else print $0}'
	}
	shift
}