;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Leo Prikler <leo.prikler@student.tugraz.at>
;;;
;;; 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 convmv)
  #:use-module (gnu packages)
  #:use-module (gnu packages perl)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu))

(define-public convmv
  (package
    (name "convmv")
    (version "2.05")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://www.j3e.de/linux/convmv/convmv-"
                                  version ".tar.gz"))
              (sha256
               (base32
                "19hwv197p7c23f43vvav5bs19z9b72jzca2npkjsxgprwj5ardjk"))))
    (build-system gnu-build-system)
    (arguments
     `(#:test-target "test"
       #:make-flags `(,(string-append "PREFIX=" (assoc-ref %outputs "out")))
       #:phases
       (modify-phases %standard-phases
         (delete 'bootstrap)
         (delete 'configure)
         (add-before 'check 'unpack-testsuite
           (lambda _
             (invoke "tar" "xf" "testsuite.tar")
             (patch-shebang "suite/dotests.sh")
             (patch-shebang "suite/parsable_tester.pl")
             #t)))))
    (inputs
     `(("perl" ,perl)))
    (synopsis "Convert filenames between character sets")
    (description
     "convmv is a file renamer, that converts between different encodings,
e.g. from ISO-8859-1 to UTF-8.  It is particularly usefuls for files with
names, that display incorrectly.")
    (license (list gpl2 gpl3))
    (home-page "https://www.j3e.de/")))
</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/channels.scm?id=011bf3280b823d2ae1d2fb5c1402c380e0e6320e&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-01-31 09:07:25 +0100'>2024-01-31</span></td><td><a href='/guix/commit/tests/channels.scm?id=323b58ac18af8417d5b206288d09d9bb9385d7ae'>channels: ‘latest-channel-instances’ traverses user-provided channels first.</a><span class='msg-avail'>...<span class='msg-tooltip'>Previously, ‘latest-channel-instances’ would perform a depth-first
traversal of channels.  Since dependencies specified in ‘.guix-channel’
are usually less specific that those provided by the user, this would
lead to the use of instances corresponding to those less specific specs,
which in turn might declare dependencies that do not exist for the more
specific instances.

This commit changes ‘latest-channel-instances’ to perform a
breadth-first traversal, thereby giving user-supplied channels higher
precedence over dependencies found via ‘.guix-channel’.

Fixes &lt;https://issues.guix.gnu.org/68822&gt;.

* guix/channels.scm (latest-channel-instances)[ignore?]: Remove.
[instance-name, same-named?, more-specific?]: New procedures.
Rewrite as a breadth-first traversal using a regular loop.
* tests/channels.scm ("latest-channel-instances reads dependencies from most-specific instance"):
New test.

Change-Id: Iba518145cfd209f04293a56246dbfee3b714650b
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-01-31 09:07:25 +0100'>2024-01-31</span></td><td><a href='/guix/commit/tests/channels.scm?id=36d654fa540539413b88cf8ec62a0fb55280f820'>channels: Tweak test.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/channels.scm ("latest-channel-instances excludes duplicate channel dependencies"):
Use ‘equal?’ rather than ‘string=?’ since we can get #f.

Change-Id: I437b9d7e23200cf0c98b1593e68b1d355bc2de01
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-09-26 17:36:59 +0200'>2023-09-26</span></td><td><a href='/guix/commit/tests/channels.scm?id=ba21eeb565fe414b3647173068a0f3eadd174c06'>tests: Assume ‘git’ is always available.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/channels.scm (gpg+git-available?): Check for ‘gpg-command’
only.
Remove all ‘test-skip’ statements.
* tests/derivations.scm: Likewise.
* tests/git-authenticate.scm: Likewise.
* tests/git.scm: Likewise.
* tests/import-git.scm: Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>