#!	/bin/sh
#
#	@(#)dirname.sh	13.1 (Tolerant) 91/02/02
#
#	@(-)dirname.sh	1.2
expr \
  ${1-.}'/' : '\(/\)[^/]*/$' \
  \| ${1-.}'/' : '\(.*[^/]\)//*[^/][^/]*//*$' \
  \| .