;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2022 Mathieu Othacehe ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu compression) #:use-module (guix gexp) #:use-module (guix ui) #:use-module ((gnu packages compression) #:hide (zip)) #:use-module (srfi srfi-1) #:use-module (srfi srfi-9) #:use-module (ice-9 match) #:export (compressor compressor? compressor-name compressor-extension compressor-command %compressors lookup-compressor)) ;; Type of a compression tool. (define-record-type (compressor name extension command) compressor? (name compressor-name) ;string (e.g., "gzip") (extension compressor-extension) ;string (e.g., ".lz") (command compressor-command)) ;gexp (e.g., #~(list "/gnu/store/…/gzip" ; "-9n" )) (define %compressors ;; Available compression tools. (list (compressor "gzip" ".gz" #~(list #+(file-append gzip "/bin/gzip") "-9n")) (compressor "lzip" ".lz" #~(list #+(file-append lzip "/bin/lzip") "-9")) (compressor "xz" ".xz" #~(append (list #+(file-append xz "/bin/xz") "-e") (%xz-parallel-args))) (compressor "bzip2" ".bz2" #~(list #+(file-append bzip2 "/bin/bzip2") "-9")) (compressor "zstd" ".zst" ;; The default level 3 compresses better than gzip in a ;; fraction of the time, while the highest level 19 ;; (de)compresses more slowly and worse than xz. #~(list #+(file-append zstd "/bin/zstd") "-3")) (compressor "none" "" #f))) (define (lookup-compressor name) "Return the compressor object called NAME. Error out if it could not be found." (or (find (match-lambda (($ name*) (string=? name* name))) %compressors) (leave (G_ "~a: compressor not found~%") name))) e1fb33cd0f0f16f74a495fe06b38aa'>daemon: 'guix substitute' replies on FD 4....Ludovic Courtès 2021-03-18daemon: Prevent privilege escalation with '--keep-failed' [security]....Ludovic Courtès 2020-12-19daemon: Delegate deduplication to 'guix substitute'....Ludovic Courtès 2020-12-19daemon: Do not reset timestamps and permissions on substituted items....Ludovic Courtès 2020-12-19daemon: Let 'guix substitute' perform hash checks....Ludovic Courtès 2020-12-08daemon: Raise an error if substituter doesn't send the expected hash....Ludovic Courtès 2020-12-08substitute: Cache and reuse connections while substituting....Ludovic Courtès 2020-12-08daemon: Run 'guix substitute --substitute' as an agent....Ludovic Courtès 2020-12-08daemon: Use 'Agent' to spawn 'guix substitute --query'....Ludovic Courtès 2020-12-01daemon: Remove unneeded forward declaration....Ludovic Courtès 2020-11-29daemon: Remove pre-Guix hack....Ludovic Courtès 2020-10-09nix: Honor '--rounds' when also using '--check'....Maxim Cournoyer 2020-10-01daemon: Try to execute derivation builders only for matching OS kernels....Ludovic Courtès 2020-09-14daemon: Move 'Agent' to libutil....Ludovic Courtès 2020-09-14daemon: Generalize 'HookInstance' to 'Agent'....Ludovic Courtès