From debbugs-submit-bounces@debbugs.gnu.org Fri Mar 24 15:36:29 2017 Received: (at 26225) by debbugs.gnu.org; 24 Mar 2017 19:36:29 +0000 Received: from localhost ([127.0.0.1]:42801 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1crV0e-0005TK-Nt for submit@debbugs.gnu.org; Fri, 24 Mar 2017 15:36:28 -0400 Received: from eggs.gnu.org ([208.118.235.92]:50012) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1crV0c-0005T2-Gv for 26225@debbugs.gnu.org; Fri, 24 Mar 2017 15:36:26 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1crV0W-0007ws-7u for 26225@debbugs.gnu.org; Fri, 24 Mar 2017 15:36:21 -0400 X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org X-Spam-Level: X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,RP_MATCHES_RCVD autolearn=disabled version=3.3.2 Received: from fencepost.gnu.org ([2001:4830:134:3::e]:41858) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1crV0T-0007ud-HQ; Fri, 24 Mar 2017 15:36:17 -0400 Received: from rgm by fencepost.gnu.org with local (Exim 4.82) (envelope-from ) id 1crV0R-0005nD-Id; Fri, 24 Mar 2017 15:36:15 -0400 From: Glenn Morris Subject: Re: bug#26225: [PATCH] guix: Compress and decompress xz archives in parallel. References: to: 26225@debbugs.gnu.org X-Spook: ATF Reynosa MILSATCOM AIMSX Southwest Pirates quarter X-Ran: q[4%}n]h+6*1?+/+2s%'oC/,B'Bk3$+0;q,EAZ%@{m&H{|QYALs;`'d^)YADx7|7J}#CfL X-Hue: black X-Attribution: GM Date: Fri, 24 Mar 2017 15:36:15 -0400 In-Reply-To: (Efraim Flashner's message of "Thu, 23 Mar 2017 11:47:32 +0200") Message-ID: <5vvaqyii1c.fsf@fencepost.gnu.org> User-Agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2001:4830:134:3::e X-Spam-Score: -5.0 (-----) X-Debbugs-Envelope-To: 26225 Cc: Efraim Flashner X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: 26225@debbugs.gnu.org, efraim@flashner.co.il Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -5.0 (-----) Reassigned to guix-patches. (You must include a Package: line if reporting by bcc(?) ). Efraim Flashner wrote: > * guix/scripts/pack.scm (%compressors): Add flag '-T0' when calling "xz". > * guix/utils.scm (decompressed-port, compressed-port, > compressed-output-port): Same. > --- > guix/scripts/pack.scm | 3 ++- > guix/utils.scm | 7 ++++--- > 2 files changed, 6 insertions(+), 4 deletions(-) > > diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm > index 626c592e1..9e91bc22a 100644 > --- a/guix/scripts/pack.scm > +++ b/guix/scripts/pack.scm > @@ -1,5 +1,6 @@ > ;;; GNU Guix --- Functional package management for GNU > ;;; Copyright =C2=A9 2015, 2017 Ludovic Court=C3=A8s > +;;; Copyright =C2=A9 2017 Efraim Flashner > ;;; > ;;; This file is part of GNU Guix. > ;;; > @@ -59,7 +60,7 @@ > (compressor "lzip" "lz" > #~(#+(file-append lzip "/bin/lzip") "-9")) > (compressor "xz" "xz" > - #~(#+(file-append xz "/bin/xz") "-e")) > + #~(#+(file-append xz "/bin/xz") "-e -T0")) > (compressor "bzip2" "bz2" > #~(#+(file-append bzip2 "/bin/bzip2") "-9")))) >=20=20 > diff --git a/guix/utils.scm b/guix/utils.scm > index bc90686de..fb962df8b 100644 > --- a/guix/utils.scm > +++ b/guix/utils.scm > @@ -5,6 +5,7 @@ > ;;; Copyright =C2=A9 2014 Ian Denhardt > ;;; Copyright =C2=A9 2016 Mathieu Lirzin > ;;; Copyright =C2=A9 2015 David Thompson > +;;; Copyright =C2=A9 2017 Efraim Flashner > ;;; > ;;; This file is part of GNU Guix. > ;;; > @@ -154,7 +155,7 @@ a symbol such as 'xz." > (match compression > ((or #f 'none) (values input '())) > ('bzip2 (filtered-port `(,%bzip2 "-dc") input)) > - ('xz (filtered-port `(,%xz "-dc") input)) > + ('xz (filtered-port `(,%xz "-dc -T0") input)) > ('gzip (filtered-port `(,%gzip "-dc") input)) > (else (error "unsupported compression scheme" compression))= )) >=20=20 > @@ -164,7 +165,7 @@ a symbol such as 'xz." > (match compression > ((or #f 'none) (values input '())) > ('bzip2 (filtered-port `(,%bzip2 "-c") input)) > - ('xz (filtered-port `(,%xz "-c") input)) > + ('xz (filtered-port `(,%xz "-c -T0") input)) > ('gzip (filtered-port `(,%gzip "-c") input)) > (else (error "unsupported compression scheme" compression))= )) >=20=20 > @@ -221,7 +222,7 @@ program--e.g., '(\"--fast\")." > (match compression > ((or #f 'none) (values output '())) > ('bzip2 (filtered-output-port `(,%bzip2 "-c" ,@options) outpu= t)) > - ('xz (filtered-output-port `(,%xz "-c" ,@options) output)) > + ('xz (filtered-output-port `(,%xz "-c -T0" ,@options) outp= ut)) > ('gzip (filtered-output-port `(,%gzip "-c" ,@options) output= )) > (else (error "unsupported compression scheme" compression))= ))