From 8843e1e3163cb6779487525a1fb17f657148c72a Mon Sep 17 00:00:00 2001
From: "B. Wilson" <elaexuotee@wilsonb.com>
Date: Thu, 14 Sep 2023 14:22:20 +0900
Subject: [PATCH] gnu: Add qdl.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/flashing-tools.scm (qdl): New variable.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 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 <rekado@elephly.net>
 ;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org>
 ;;; Copyright © 2022 Peter Polidoro <peter@polidoro.io>
+;;; Copyright © 2023 B. Wilson <x@wilsonb.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -59,9 +60,11 @@
   #: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 @@ formats, and can perform many different manipulations.")
     (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))))