shithub: x

ref: 70cc21bcb5179d02b5f4d2adf3e5d3b6ce1d0830
dir: /path/

View raw version 
#!/bin/rc
# x/path -- extract datums from the path
rfork e
wd=`{pwd}
if(! ~ $wd /x/*)
	exit notinx
while(! ~ $#1 0 && ~ $1 -*){
	switch($1){
	case -P
		echo $wd | sed 's,/x/[^/]+(.*),\1,'
	case -p
		echo $wd | sed 's,/x/[^/]+/(.*),\1,'
	case -r
		echo $wd | sed 's,(/x/[^/]+).*,\1,'
	case -l
		echo $wd | awk -F/ '{print $3}'
	}
	shift
}