head     1.1;
access   ;
symbols  ;
locks    ;
comment  @# @;


1.1
date     93.02.16.15.10.18;  author freewais;  state Exp;
branches ;
next     ;


desc
@@


1.1
log
@Initial revision
@
text
@#! /bin/sh
#
#	@@(#)dirname.sh 1.5 89/03/22 SMI; from S5R2 1.2
#
PATH=/bin:/usr/bin
expr \
  ${1-.}'/' : '\(/\)[^/]*//*$' \
  \| ${1-.}'/' : '\(.*[^/]\)//*[^/][^/]*//*$' \
  \| .
@
