Subject: [bug#46768] [PATCH] gnu: Add agent-proxy.

From: Clément Lassieur <[email-masked]>
Date: Thu, 25 Feb 2021 12:15:12 +0100

* gnu/packages/embedded.scm (agent-proxy): New variable.
---
 gnu/packages/embedded.scm | 39 ++++++++++++++++++++++++++++++++++++++-
 1 file changed, 38 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/embedded.scm b/gnu/packages/embedded.scm
index 16e9e6be76..51ee244f3c 100644
--- a/gnu/packages/embedded.scm
+++ b/gnu/packages/embedded.scm
@@ -4,7 +4,7 @@
 ;;; Copyright © 2016 David Craven <[email-masked]>
 ;;; Copyright © 2017, 2020 Efraim Flashner <[email-masked]>
 ;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <[email-masked]>
-;;; Copyright © 2018, 2019 Clément Lassieur <[email-masked]>
+;;; Copyright © 2018, 2019, 2021 Clément Lassieur <[email-masked]>
 ;;; Copyright © 2020 Marius Bakke <[email-masked]>
 ;;; Copyright © 2020 Björn Höfling <[email-masked]>
 ;;; Copyright © 2021 Julien Lepiller <[email-masked]>
@@ -1547,3 +1547,40 @@ families, plus many of their variants.")
     (synopsis "Tool for dealing with AMD binary blobs")
     (description "PSPTool is a tool for dealing with AMD binary blobs")
     (license license:gpl3+)))
+
+(define-public agent-proxy
+  (let ((commit "8927798a71d246871ea8fc22b4512296a3fa1765")
+        (revision "0"))
+    (package
+      (name "agent-proxy")
+      (version (git-version "1.98" revision commit))
+      (home-page
+       "https://git.kernel.org/pub/scm/utils/kernel/kgdb/agent-proxy.git")
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference (url home-page) (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "1bxkzwsqfld4pknmiq8j3k55pv90n8s6kzh0xh42bhy2jv1wxz2z"))))
+      (build-system gnu-build-system)
+      (arguments
+       `(#:tests? #f
+         #:phases
+         (modify-phases %standard-phases
+           (delete 'configure)
+           (add-after 'build 'build-kdmx
+             (lambda _
+               (invoke "make" "-C" "kdmx")
+               #t))
+           (replace 'install
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let ((bin (string-append (assoc-ref outputs "out") "/bin")))
+                 (install-file "agent-proxy" bin)
+                 (install-file "kdmx/kdmx" bin)
+                 #t))))))
+      (synopsis "Proxies to run kgdb/gdbserver and console on a serial port")
+      (description "These programs are proxies allowing to run kgdb/gdbserver
+and console on a single serial port.  agent-proxy creates network sockets,
+whereas kdmx creates pseudo-ttys.")
+      (license license:gpl2))))
-- 
2.30.1