
#	@(#)dirname.sh	UniPlus V.2.1.2	(Motorola 2.1)
expr \
  ${1-.}'/' : '\(/\)[^/]*/$' \
  \| ${1-.}'/' : '\(.*[^/]\)//*[^/][^/]*//*$' \
  \| .
