Subject: [PATCH] gnu: Add qdl.
From: "B. Wilson" <[email-masked]>
To: [email-masked]
Cc: "B. Wilson" <[email-masked]>
Date: Thu, 14 Sep 2023 14:22:20 +0900
List-Id: <debbugs-submit.debbugs.gnu.org>

* gnu/packages/flashing-tools.scm (qdl): New variable.
---
 gnu/packages/flashing-tools.scm | 34 ++++++++++++++++++++++++++++++++-
 1 file changed, 33 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/flashing-tools.scm b/gnu/packages/flashing-tools.scm
index d9f59cd0b7..82e709cf26 100644
--- a/gnu/packages/flashing-tools.scm
+++ b/gnu/packages/flashing-tools.scm
@@ -10,6 +10,7 @@
 ;;; Copyright © 2021 Ricardo Wurmus <[email-masked]>
 ;;; Copyright © 2021 Mathieu Othacehe <[email-masked]>
 ;;; Copyright © 2022 Peter Polidoro <[email-masked]>
+;;; Copyright © 2023 B. Wilson <[email-masked]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -59,9 +60,11 @@ (define-module (gnu packages flashing-tools)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages libusb)
   #:use-module (gnu packages libftdi)
+  #:use-module (gnu packages linux)
   #:use-module (gnu packages pciutils)
   #:use-module (gnu packages qt)
-  #:use-module (gnu packages tls))
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages xml))
 
 (define-public flashrom
   (package
@@ -581,3 +584,32 @@ (define-public uuu
     (description "@code{uuu} is a command line tool, evolved out of MFGTools.
 It can be used to upload images to I.MX SoC's using at least their boot ROM.")
     (license license:bsd-3)))
+
+(define-public qdl
+  (let ((commit "13681fcb359c9f9c32a17a91d3dd20df2e413b6d")
+        (revision "1"))
+    (package
+      (name "qdl")
+      (version (git-version "1.0" revision commit))
+      (source
+        (origin
+          (method git-fetch)
+          (uri (git-reference
+                 (url "https://git.linaro.org/landing-teams/working/qualcomm/qdl.git")
+                 (commit commit)))
+          (file-name (git-file-name name version))
+          (sha256
+            (base32 "0m6wdhfwbf7gzlckxx21bvbv33qjahpzqbg1pdqdd1lifx5f51mj"))))
+      (build-system gnu-build-system)
+      (native-inputs (list libxml2))
+      (inputs (list eudev))
+      (arguments
+       `(#:tests? #f  ; No tests implemented
+         #:make-flags (list (string-append "CC=" ,(cc-for-target))
+                            (string-append "prefix=" %output))
+         #:phases (modify-phases %standard-phases (delete 'configure))))
+      (home-page "https://git.linaro.org/landing-teams/working/qualcomm/qdl")
+      (synopsis "Qualcomm EDL mode flashing tool")
+      (description "This tool communicates with USB devices of id 05c6:9008 to
+upload a flash loader and use this to flash images.")
+      (license license:bsd-3))))
-- 
2.41.0