;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2022 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 libunwind)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix utils)
  #:use-module (gnu packages)
  #:use-module (guix build-system gnu)
  #:use-module (guix licenses))

(define-public libunwind
  (package
    (name "libunwind")
    (version "1.6.2")
    (source (origin
             (method url-fetch)
             (uri (string-append "mirror://savannah/libunwind/libunwind-"
                                 version ".tar.gz"))
             (sha256
              (base32
               "0xj9g6a9q7v7zz6lymf3f6011synibgawi4wi384bywid5kfqsja"))))
    (build-system gnu-build-system)
    (arguments
     `(;; Two tests are failing with newer toolchains:
       ;; https://github.com/libunwind/libunwind/issues/363
       #:make-flags
       '("XFAIL_TESTS=run-coredump-unwind run-coredump-unwind-mdi")
       ;; A different collection of tests fails for each architecture.
       #:tests? ,(and (not (%current-target-system))
                      (target-x86-64?))))
    (home-page "https://www.nongnu.org/libunwind")
    (synopsis "Determining the call chain of a program")
    (description
     "The primary goal of this project is to define a portable and efficient C
programming interface (API) to determine the call-chain of a program.  The API
additionally provides the means to manipulate the preserved (callee-saved)
state of each call-frame and to resume execution at any point in the
call-chain (non-local goto).  The API supports both local (same-process) and
remote (across-process) operation.  As such, the API is useful in a number of
applications.")
    ;; Do not believe <https://savannah.nongnu.org/projects/libunwind/>:
    ;; see <https://github.com/libunwind/libunwind/issues/372>.
    (license expat)))
388332'>tests: Allow 'tests/git-authenticate.scm' to run when git/gpg is missing.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/42077&gt;.
Reported by Jan Nieuwenhuizen &lt;janneke@gnu.org&gt;.

The typo was introduced in 7b06781a58326f251c4af6340379d68e3cb98adb.

* tests/git-authenticate.scm &lt;top level&gt;: Remove call to 'which'
around (gpg+git-available?).
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-06-20 13:18:11 +0200'>2020-06-20</span></td><td><a href='/guix/commit/tests/git-authenticate.scm?id=7b06781a58326f251c4af6340379d68e3cb98adb'>tests: Skip tests that requires gpg when gpg is unavailable.</a><span class='msg-avail'>...<span class='msg-tooltip'>Partly fixes &lt;https://bugs.gnu.org/41932&gt;.
Reported by Simen Endsjø &lt;simendsjo@gmail.com&gt;.

* tests/git-authenticate.scm ("signed commits, SHA1 signature"): Use
'gpg+git-available?' in skip guard.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-06-16 16:10:46 +0200'>2020-06-16</span></td><td><a href='/guix/commit/tests/git-authenticate.scm?id=1e2b9bf2d4ed4edc9ed70c51f414bb2890074a21'>tests: Move OpenPGP helpers to (guix tests gnupg).</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/git-authenticate.scm (key-id): Remove.
(%ed25519-public-key-file, %ed25519-secret-key-file)
(%ed25519bis-public-key-file, %ed25519bis-secret-key-file)
(read-openpgp-packet, key-fingerprint): Move to...
* guix/tests/gnupg.scm: ... here.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-06-12 18:56:11 +0200'>2020-06-12</span></td><td><a href='/guix/commit/tests/git-authenticate.scm?id=52c529ff20b389eb64ac033586e6b1a5c5d82cb5'>git-authenticate: Disallow SHA1 (and MD5) signatures.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/git-authenticate.scm (commit-signing-key): Add
 #:disallowed-hash-algorithms and honor it.
(authenticate-commit)[recent-commit?]: New variable.
Pass #:disallowed-hash-algorithms to 'commit-signing-key'.
* tests/git-authenticate.scm ("signed commits, SHA1 signature"): New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-06-07 23:10:46 +0200'>2020-06-07</span></td><td><a href='/guix/commit/tests/git-authenticate.scm?id=e78275608065ef073775fabb9f1a757da65851f2'>git-authenticate: Prevent removal of '.guix-authorizations'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/git-authenticate.scm (commit-authorized-keys)
[parents-have-authorizations-file?, assert-parents-lack-authorizations]:
New procedures.
Use the latter before returning DEFAULT-AUTHORIZATIONS.
* guix/git.scm (false-if-git-not-found): Export.
* guix/tests/git.scm (populate-git-repository): Add 'remove' clause.
* tests/git-authenticate.scm ("signed commits, .guix-authorizations removed"):
New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-06-05 22:54:06 +0200'>2020-06-05</span></td><td><a href='/guix/commit/tests/git-authenticate.scm?id=c83eedba2361c3831d3efb5ad63d5077d636fb28'>git-authenticate: Add tests.</a><span class='msg-avail'>...<span class='msg-tooltip'>* guix/tests/git.scm (call-with-environment-variables)
(with-environment-variables): Remove.
* guix/tests/git.scm (populate-git-repository): Add clauses for signed
commits and signed merges.
* guix/tests/gnupg.scm: New file.
* tests/git-authenticate.scm: New file.
* tests/ed25519bis.key, tests/ed25519bis.sec: New files.
* Makefile.am (dist_noinst_DATA): Add 'guix/tests/gnupg.scm'.
(SCM_TESTS): Add 'tests/git-authenticate.scm'.
(EXTRA_DIST): Add tests/ed25519bis.{key,sec}.
</span></span></td><td>Ludovic Courtès</td></tr>