;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2020 Marius Bakke <marius@gnu.org>
;;;
;;; 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 <http://www.gnu.org/licenses/>.

(define-module (gnu packages cpio)
  #:use-module (guix licenses)
  #:use-module (gnu packages)
  #:use-module (gnu packages autotools)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu))

(define-public cpio
  (package
    (name "cpio")
    (version "2.13")
    (source (origin
             (method url-fetch)
             (uri (string-append "mirror://gnu/cpio/cpio-"
                                 version ".tar.bz2"))
             (sha256
              (base32
               "0vbgnhkawdllgnkdn6zn1f56fczwk0518krakz2qbwhxmv2vvdga"))
             (modules '((guix build utils)))
             (snippet
              '(begin
                 ;; Remove superfluous declaration that trips GCC 10.
                 (substitute* "src/global.c"
                   (("char \\*program_name;")
                    ""))))))
    (build-system gnu-build-system)
    (home-page "https://www.gnu.org/software/cpio/")
    (synopsis "Manage cpio and tar file archives")
    (description
     "GNU cpio copies files into or out of cpio or tar archives.  Indeed,
many formats are supported, including legacy formats.  The format is
determined automatically by the program and is handled appropriately.
Furthermore, the location of the archive is not important.  It can be another
file on the drive, a tape, or data on a pipe.")
    (license gpl3+)))
ontent'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/style.scm?id=b147a4a2f3186b499df6a21bfc9cc8c2a3ba0668&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-04-14 14:48:20 +0200'>2022-04-14</span></td><td><a href='/guix/commit/tests/style.scm?id=c9cded095593783a957ea500160587252d5cadf6'>style: Correctly read dots in pairs and improper lists.</a><span class='msg-avail'>...<span class='msg-tooltip'>Until now dots were read as symbols.

* guix/scripts/style.scm (read-with-comments)[dot]: New variable.
[dot?, reverse/dot]: New procedures.
Use 'reverse/dot' instead of 'reverse' when reading lists.
* tests/style.scm ("read-with-comments: dot notation")
("((a . 1) (b . 2))", "(a b c . boom)"): New tests.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-01-10 14:59:26 +0100'>2022-01-10</span></td><td><a href='/guix/commit/tests/style.scm?id=5d9a5e230189347ba6f5b78a3d74b36a867aa9e6'>style: '-S format' canonicalizes comments.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/style.scm (canonicalize-comment): New procedure.
(pretty-print-with-comments): Add #:format-comment. and honor it.
(object-&gt;string*): Add 'args' and honor them.
(format-package-definition): Pass #:format-comment to
'object-&gt;string*'.
* tests/style.scm ("pretty-print-with-comments, canonicalize-comment"):
New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-01-10 14:59:26 +0100'>2022-01-10</span></td><td><a href='/guix/commit/tests/style.scm?id=c4fe13c294cc1e31dd8a49ce3981f603fb169e0a'>style: Add '--styling' option.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/style.scm (format-package-definition): New procedure.
(%options, show-help): Add "--styling".
(%default-options): Add 'styling-procedure'.
(guix-style): Honor it.
* tests/style.scm (with-test-package)
("input labels, 'safe' policy")
("input labels, 'safe' policy, nothing changed")
("input labels, margin comment")
("input labels, margin comment on long list")
("input labels, line comment")
("input labels, modify-inputs and margin comment"): Pass "-S inputs".
* etc/indent-code.el: Remove.
* doc/contributing.texi (Formatting Code): Mention "guix style" instead
of "etc/indent-code.el".
(Submitting Patches): Add item for "guix style".
* doc/guix.texi (Invoking guix style): Document "-S" and update.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-01-10 14:59:18 +0100'>2022-01-10</span></td><td><a href='/guix/commit/tests/style.scm?id=6f892630ae4726297944fe34b3de4fb608caf66d'>style: Add support for "newline forms".</a><span class='msg-avail'>...<span class='msg-tooltip'>This allows us to express cases where a newline should be inserted
immediately after the head symbol of a list.

* guix/scripts/style.scm (%newline-forms): New variable.
(newline-form?): New procedure.
(pretty-print-with-comments): Handle "newline forms".
* tests/style.scm: Add test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-01-10 14:25:59 +0100'>2022-01-10</span></td><td><a href='/guix/commit/tests/style.scm?id=208a7aa17b101083bd9969fec9ca4e2dca37b3af'>style: Allow special forms to be scoped.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/style.scm (vhashq): Add clause for 'lst, and change
default clause.
(%special-forms): Add context for 'add-after and 'add-before.  Add
'replace.
(prefix?, special-form-lead): New procedures.
(special-form?): Remove.
(pretty-print-with-comments): Add 'context' to the threaded state.
Adjust 'print-sequence' and adjust 'loop' calls accordingly.
* tests/style.scm: Add tests for 'replace.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-01-10 14:25:59 +0100'>2022-01-10</span></td><td><a href='/guix/commit/tests/style.scm?id=97d0055edb9a8b9b59ede254ce8ef1f255558802'>style: Improve pretty printer and add tests.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/style.scm (vhashq): New macro.
(%special-forms): New variable.
(special-form?): New procedure.
(pretty-print-with-comments): Add many clauses and tweak existing
rules.
* tests/style.scm (test-pretty-print): New macro.
&lt;top level&gt;: Add 'test-pretty-print' tests.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-07-11 00:49:15 +0200'>2021-07-11</span></td><td><a href='/guix/commit/tests/style.scm?id=f23803af2018a148fb088f2516d79c20d6bf95f0'>Add 'guix style'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/scripts/style.scm, tests/style.scm: New files.
* Makefile.am (MODULES, SCM_TESTS): Add them.
* po/guix/POTFILES.in: Add 'guix/scripts/style.scm'.
* doc/guix.texi (Invoking guix style): New node.
(package Reference): Reference it.
(Invoking guix lint): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>