#!/usr/local/bin/perl -w

eval 'exec /usr/local/bin/perl -w -S $0 ${1+"$@"}'
    if 0; # not running under some shell

#
# $Id: dirname,v 1.1.1.1 2001/06/06 08:54:25 sdague Exp $
#
# $Log: dirname,v $
# Revision 1.1.1.1  2001/06/06 08:54:25  sdague
# initial import
#
# Revision 1.1.1.1  2001/05/13 19:56:05  sdague
# added initial import of PPT work
#
# Revision 1.1  1999/02/27 01:49:59  abigail
# Initial revision
#
#

use strict;
use File::Basename;

my ($VERSION) = '$Revision: 1.1.1.1 $' =~ /([.\d]+)/;

unless (@ARGV == 1) {
    $0 = basename ($0);
    print <<EOF;
$0 (Perl bin utils) $VERSION
$0 string
EOF
    exit;
};

print +(dirname $ARGV [0]), "\n";

__END__

=pod

=head1 NAME

dirname -- print the directory name of a path.

=head1 SYNOPSIS

dirname string

=head1 DESCRIPTION

I<dirname> prints the directory component of a path. Everything starting
from the last I</> (or whatever the path separator is on your OS) is
deleted.

=head2 OPTIONS

I<dirname> does not accept any options.

=head1 ENVIRONMENT

The working of I<dirname> is not influenced by any environment variables.

=head1 BUGS

I<dirname> has no known bugs.

=head1 STANDARDS

This I<dirname> implementation is compliant with the B<IEEE Std1003.2-1992>
specification, also known as B<POSIX.2>.

This I<bdirame> implementation is compatible with the
B<OpenBSD> implementation.

=head1 REVISION HISTORY

    $Log: dirname,v $
    Revision 1.1.1.1  2001/06/06 08:54:25  sdague
    initial import

    Revision 1.1.1.1  2001/05/13 19:56:05  sdague
    added initial import of PPT work

    Revision 1.1  1999/02/27 01:49:59  abigail
    Initial revision

=head1 AUTHOR

The Perl implementation of I<dirname> was written by Abigail,
I<abigail@fnx.com>.

=head1 COPYRIGHT and LICENSE

This program is copyright by Abigail 1999.

This program is free and open software. You may use, copy, modify, distribute
and sell this program (and any modified variants) in any way you wish,
provided you do not restrict others to do the same.

=cut