#sccs	"@(#)fndcmd:dirname.sh	1.1"

expr \
  ${1-.}'/' : '\(//*\)[^/]*//*$' \
  \| ${1-.}'/' : '\(.*[^/]\)//*[^/][^/]*//*$' \
  \| .
