If it covers that tar needs for "tar xjf bla.tbz2" to work then this would
be a good addition.
2013/6/6 Ted Unangst <t...@tedunangst.com>
> Something that comes up from time to time is the question of whether
> to import bzip2 into base or not. Turns out the question is moot
> because already have imported it. There's a copy in perl. (I didn't
> know this until I happened to be watching a build closer than usual.)
>
> Since we already have the code built, why not let people use it? This
> is a small perl script that implements the 90% subset of functionality
> people expect from the regular bzip2 and bunzip2 utilities. It's not
> really complete or perfect, but I haven't spent all that much time on
> it.
>
> --- /dev/null Wed Jun 5 20:54:56 2013
> +++ bzip2/Makefile Wed Jun 5 20:51:51 2013
> @@ -0,0 +1,15 @@
> +# $OpenBSD$
> +
> +.include <bsd.own.mk>
> +
> +MAN=
> +
> +SCRIPT=bzip2.pl
> +LINKS=${BINDIR}/bzip2 ${BINDIR}/bunzip2
> +
> +realinstall:
> + ${INSTALL} ${INSTALL_COPY} -o ${BINOWN} -g ${BINGRP} -m ${BINMODE}
> \
> + ${.CURDIR}/${SCRIPT} ${DESTDIR}${BINDIR}/bzip2
> +
> +
> +.include <bsd.prog.mk>
> --- /dev/null Wed Jun 5 20:55:02 2013
> +++ bzip2/bzip2.pl Wed Jun 5 20:53:23 2013
> @@ -0,0 +1,113 @@
> +#!/usr/bin/perl -w
> +# $OpenBSD$
> +# Copyright (c) Ted Unangst <t...@openbsd.org>
> +#
> +# Permission to use, copy, modify, and distribute this software for any
> +# purpose with or without fee is hereby granted, provided that the above
> +# copyright notice and this permission notice appear in all copies.
> +#
> +# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
> +# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
> +# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
> +# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
> +# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
> +# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
> +# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
> +
> +use strict;
> +use Getopt::Long qw(:config posix_default bundling no_ignore_case);
> +use IO::Compress::Bzip2 qw(bzip2);
> +
> +
> +my $usestdout;
> +my $level = 9;
> +my $reqlevel; # requested level, who cares?
> +GetOptions(
> + "c|stdout" => \$usestdout,
> + "1|2|3|4|5|6|7|8|9|fast|best" => \$reqlevel
> +);
> +
> +sub bzipfile {
> + my $fname = shift;
> + my $ofname;
> + my $in;
> + if ($fname ne "-") {
> + if ($usestdout) {
> + $ofname = "-";
> + } else {
> + $ofname = $fname . ".bz2";
> + if (-e $ofname) {
> + warn "Output file $ofname already
> exists.\n";
> + return;
> + }
> + }
> + $in = new IO::File "<$fname";
> + if (!$in) {
> + warn "Can't open input file $fname.\n";
> + return;
> + }
> + } else {
> + $in = "-";
> + $ofname = "-";
> + }
> + if ($ofname eq "-" && -t STDOUT) {
> + warn "I won't write compressed data to a terminal.\n";
> + return;
> + }
> + if (not bzip2 $in => $ofname, BlockSize100K => $level) {
> + warn "failz";
> + return;
> + }
> + if ($ofname ne "-") {
> + unlink($fname);
> + }
> +}
> +
> +sub bunzipfile {
> +print "bunzipping\n";
> + my $fname = shift;
> + my $ofname;
> + my $in;
> + if ($fname ne "-") {
> + if ($usestdout) {
> + $ofname = "-";
> + } else {
> + $ofname = $fname;
> + $ofname =~ s/\.bz2$//;
> + if (-e $ofname) {
> + warn "Output file $ofname already
> exists.\n";
> + return;
> + }
> + }
> + $in = new IO::File "<$fname";
> + if (!$in) {
> + warn "Can't open input file $fname.\n";
> + return;
> + }
> + } else {
> + $in = "-";
> + $ofname = "-";
> + }
> + if (not bunzip2 $in => $ofname) {
> + warn "failz";
> + return;
> + }
> + if ($ofname ne "-") {
> + unlink($fname);
> + }
> +}
> +
> +my $main;
> +if ($0 =~ /bunzip2$/) {
> + $main = \&bunzipfile;
> +} else {
> + $main = \&bzipfile;
> +}
> +
> +if (@ARGV == 0) {
> + &$main("-");
> +} else {
> + foreach my $f (@ARGV) {
> + &$main($f);
> + }
> +}
>
>
--
May the most significant bit of your life be positive.
