Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

dirname: support -- terminator #716

Merged
merged 3 commits into from
Aug 15, 2024
Merged

dirname: support -- terminator #716

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
60b95dc
dirname: support -- terminator
mknos Aug 13, 2024
f7e7033
Add Michael to the authors of dirname
briandfoy Aug 15, 2024
bfe7102
Note the --version and --help flags
briandfoy Aug 15, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
64 changes: 35 additions & 29 deletions bin/dirname
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,8 @@

Name: dirname
Description: print the directory name of a path
Author: Abigail, perlpowertools@abigail.be
Author: Michael Mikonos
Auhtor: Abigail, perlpowertools@abigail.be
License: perl

=end metadata
Expand All @@ -13,20 +14,29 @@ License: perl


use strict;
use File::Basename;

my ($VERSION) = '1.2';
use File::Basename qw(basename dirname);
use Getopt::Std qw(getopts);

unless (@ARGV == 1) {
$0 = basename ($0);
print <<EOF;
$0 (Perl bin utils) $VERSION
usage: $0 string
EOF
exit 1;
};
my $Program = basename($0);
our $VERSION = '1.3';

getopts('') or die "usage: $Program string\n";
usage() unless scalar(@ARGV) == 1;
my $path = shift;
my $dir = dirname($path);
print $dir, "\n";
exit 0;

sub VERSION_MESSAGE {
print "$Program version $VERSION\n";
exit 0;
}

print +(dirname $ARGV [0]), "\n";
sub usage {
warn "usage: $Program string\n";
exit 1;
}

__END__

Expand All @@ -48,7 +58,13 @@ deleted.

=head2 OPTIONS

I<dirname> does not accept any options.
=over 4

=item * --version

=item * --help

=back

=head1 ENVIRONMENT

Expand All @@ -63,29 +79,19 @@ I<dirname> has no known bugs.
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
This I<dirname> implementation is compatible with the
B<OpenBSD> implementation.

=head1 REVISION HISTORY

$Log: dirname,v $
Revision 1.2 2004/08/05 14:17:43 cwest
cleanup, new version number on website

Revision 1.1 2004/07/23 20:10:03 cwest
initial import

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<perlpowertools@abigail.be>.
This implementation of I<dirname> was adapted by Michael Mikonos.

The original version was written by Abigail, but the code was completely replaced.
Most of the documeantion is the original version.

=head1 COPYRIGHT and LICENSE

This program is copyright by Abigail 1999.
This program is copyright by Abigail, 1999, and Michael Mikonos, 2024.

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,
Expand Down
Loading