zrun: Can be linked to zsomeprog to run the equivilant of zrun someprog.

* zrun: Can be linked to zsomeprog to run the equivilant of zrun someprog.
  Closes: #411623 (Stefan Fritsch)
* zrun: Add support for lzma and lzo. (Stefan Fritsch)

1 files changed, 21 insertions, 5 deletions

diff --git a/zrun b/zrun
index 7776db2..cedfbae 100755
--- a/zrun
+++ b/zrun
@@ -17,6 +17,11 @@ arguments of the command to be transparently uncompressed to temp files
 This is a quick way to run a command that does not itself support
 compressed files, without manually uncompressing the files.
 
+The following compression types are supported: gz bz2 Z lzma lzo
+
+If zrun is linked to some name beginning with z, like zprog, and the link is
+executed, this is equivalent to executing "zrun prog".
+
 =head1 BUGS
 
 Modifications to the uncompressed temporary file are not fed back into the
@@ -35,18 +40,29 @@ use IO::Handle;
 use File::Spec;
 use File::Temp qw{tempfile};
 
-my $program = shift;
+my $program;
 
-if (! @ARGV) {
-	die "Usage: zrun <command> <args>\n";
+if ($0 =~ m{(?:^|/)z([^/]+)$}) {
+	$program = $1;
+	if (! @ARGV) {
+		die "Usage: z$1 <args>\nEquivalent to: zrun $1 <args>\n";
+	}
+}
+else {
+	$program = shift;
+	if (! @ARGV) {
+		die "Usage: zrun <command> <args>\n";
+	}
 }
 
 my @argument;
 my %child;
 foreach my $argument (@ARGV) {
-	if ($argument =~ m{^(.*/)?([^/]*)\.(gz|Z|bz2)$}s) {
+	if ($argument =~ m{^(.*/)?([^/]*)\.(gz|Z|bz2|lzo|lzma)$}s) {
 		my $suffix = "-$2";
-		my @preprocess = $3 eq "bz2" ? qw(bzip2 -d -c) : qw(gzip -d -c);
+		my @preprocess = $3 eq "bz2"  ? qw(bzip2 -d -c) : 
+				 $3 eq "lzo"  ? qw(lzop -d -c)  : 
+				 $3 eq "lzma" ? qw(lzma -d -c)  : qw(gzip -d -c);
 
 		my ($fh, $tmpname) = tempfile(SUFFIX => $suffix,
 			DIR => File::Spec->tmpdir, UNLINK => 1)