#!/usr/bin/ksh93
################################################################
#### Program: dirname_k93
#### 
#### Description: Emulation of the Unix "dirname" command
#### 
#### Author: Dana French (dfrench@mtxia.com)
####         Copyright 2004
#### 
#### Date: 07/22/2004
#### 
################################################################
function dirname_k93
{
  FNAME="${1}"
  [[ "_${FNAME}" = "_" ]] && read -r -- FNAME
  print -r -- "${FNAME%/*}"
}
################################################################

dirname_k93 "${@}"