#! /bin/sh
# @(#)dirname.sh	1.1 revision of 93/09/15  15:28:18
expr \
  ${1-.}'/' : '\(/\)[^/]*//*$' \
  \| ${1-.}'/' : '\(.*[^/]\)//*[^/][^/]*//*$' \
  \| .
