gnu: git-repo: Update to 2.54.

* gnu/packages/android.scm (git-repo): Update to 2.54.
[arguments]: Disable tests.
[arguments]: Delete phase 'do-not-self-update.
[arguments]: Delete phase 'configure-git.
[arguments]: Delete phase 'check.
[native-inputs]: Remove python-pytest.
[inputs]: Add bash-minimal.
[home-page]: Add link.

Change-Id: I866c995b96e972b3980df42819f1af538a70f79b
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>

gnu/packages/android.scm

@@ -13,6 +13,7 @@
 ;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
 ;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
 ;;; Copyright © 2023 Camilo Q.S. (Distopico) <distopico@riseup.net>
+;;; Copyright © 2025 Jakob Kirsch <jakob.kirsch@web.de>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -45,6 +46,7 @@
   #:use-module (guix build-system trivial)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (gnu packages)
+  #:use-module (gnu packages bash)
   #:use-module (gnu packages check)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages docker)
@@ -924,7 +926,7 @@ The standard for the ETC1 texture format can be found at
 (define-public git-repo
   (package
     (name "git-repo")
-    (version "2.4.1")
+    (version "2.54")
     (source
      (origin
        (method git-fetch)
@@ -933,87 +935,43 @@ The standard for the ETC1 texture format can be found at
              (commit (string-append "v" version))))
        (file-name (string-append "git-repo-" version "-checkout"))
        (sha256
-        (base32 "0khg1731927gvin73dcbw1657kbfq4k7agla5rpzqcnwkk5agzg3"))))
+        (base32 "0a1qa7gq3ink0cfgdxx3l3p26jm2w5vsifqs9xdvb98kkswak45d"))))
     (build-system python-build-system)
     (arguments
-     `(#:phases
+     (list
-       (modify-phases %standard-phases
+      #:tests? #f ;tests consist of just formatting the code
+      #:phases
+      #~(modify-phases %standard-phases
           (add-before 'build 'set-executable-paths
-           (lambda* (#:key inputs outputs #:allow-other-keys)
+            (lambda* (#:key inputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (git (assoc-ref inputs "git"))
-                    (ssh (assoc-ref inputs "ssh")))
               (substitute* '("repo" "git_command.py")
                 (("^GIT = 'git'")
-                  (string-append "GIT = '" git "/bin/git'")))
+                 (string-append "GIT = '"
+                                (search-input-file inputs "/bin/git"))))
               (substitute* "git_config.py"
                 ((" command_base = \\['ssh',")
-                  (string-append " command_base = ['" ssh "/bin/ssh',")))
+                 (string-append " command_base = ['"
-               #t)))
+                                (search-input-file inputs "/bin/ssh") ",")))))
-         (add-before 'build 'do-not-self-update
-           (lambda* (#:key outputs #:allow-other-keys)
-             ;; Setting the REPO_MAIN variable to an absolute file name is
-             ;; enough to have _FindRepo return the store main.py file.  The
-             ;; self update mechanism is activated with the call to _Init() in
-             ;; main(), so we bypass it.
-
-             ;; Ticket requesting upstream to provide a mean to disable the
-             ;; self update mechanism:
-             ;; https://bugs.chromium.org/p/gerrit/issues/detail?id=12407.
-             (let* ((out (assoc-ref outputs "out"))
-                    (repo-main (string-append out "/share/git-repo/main.py")))
-               (substitute* "repo"
-                 (("^REPO_MAIN = .*")
-                  (format #f "REPO_MAIN = ~s~%" repo-main))
-                 ((" _Init\\(args, gitc_init=\\(cmd ==.*" all)
-                  (string-append "True #" all)))
-               ;; Prevent repo from trying to git describe its version from
-               ;; the (disabled) self updated copy.
-               (substitute* "git_command.py"
-                 (("ver = getattr\\(RepoSourceVersion.*")
-                  (format #f "ver = ~s~%" ,version)))
-               (substitute* "subcmds/version.py"
-                 (("rp_ver = .*")
-                  (format #f "rp_ver = ~s~%" ,version)))
-               ;; Prevent repo from adding its (disabled) self update copy to
-               ;; the list of projects to fetch when using 'repo sync'.
-               (substitute* "subcmds/sync.py"
-                 (("to_fetch\\.extend\\(all_projects\\).*" all)
-                  (string-append "#" all))
-                 (("self\\._Fetch\\(to_fetch")
-                  "self._Fetch(all_projects")
-                 (("_PostRepoFetch\\(rp, opt\\.repo_verify).*" all)
-                  (string-append "#" all))))))
-         (delete 'build) ; nothing to build
-         (add-before 'check 'configure-git
-           (lambda _
-             (setenv "HOME" (getcwd))
-             (invoke "git" "config" "--global" "user.email" "you@example.com")
-             (invoke "git" "config" "--global" "user.name" "Your Name")))
-         (replace 'check
-           (lambda _
-             (invoke "./run_tests")))
           (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
+            (lambda _
-             (let* ((out (assoc-ref outputs "out"))
+              (let* ((bin-dir (string-append #$output "/bin"))
-                    (bin-dir (string-append out "/bin"))
+                     (repo-dir (string-append #$output "/share/git-repo")))
-                    (repo-dir (string-append out "/share/" ,name)))
                 (mkdir-p bin-dir)
                 (mkdir-p repo-dir)
                 (copy-recursively "." repo-dir)
                 (delete-file-recursively (string-append repo-dir "/tests"))
                 (symlink (string-append repo-dir "/repo")
                          (string-append bin-dir "/repo"))
-               #t))))))
+                (wrap-program (string-append bin-dir "/repo")
-    (inputs
+                  '("REPO_SKIP_SELF_UPDATE" =
-     ;; TODO: Add git-remote-persistent-https once it is available in guix
+                    ("1"))
-     `(("git" ,git)
+                  '("REPO_TRACE" =
-       ("ssh" ,openssh)))
+                    ("0")))))))))
-    (native-inputs
+    (inputs (list git openssh bash-minimal))
-     `(("pytest" ,python-pytest)))
+    (home-page "https://gerrit.googlesource.com/git-repo/")
-    (home-page "https://code.google.com/p/git-repo/")
     (synopsis "Helps to manage many Git repositories")
-    (description "Repo is a tool built on top of Git.  Repo helps manage many
+    (description
+     "Repo is a tool built on top of Git.  Repo helps manage many
 Git repositories, does the uploads to revision control systems, and automates
 parts of the development workflow.  Repo is not meant to replace Git, only to
 make it easier to work with Git.  The repo command is an executable Python