[bug#61018] [PATCH 2/2] gnu: Add pcsc-tools.

[Jake Leporte <jakeleporte@outlook.com>]

---
 gnu/packages/security-token.scm | 42 +++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/gnu/packages/security-token.scm b/gnu/packages/security-token.scm
index 619be42..162c3d5 100644
--- a/gnu/packages/security-token.scm
+++ b/gnu/packages/security-token.scm
@@ -253,6 +253,48 @@ (define-public pcsc-lite
                    license:isc                  ; src/strlcat.c src/strlcpy.c
                    license:gpl3+))))            ; src/spy/*
 
+(define-public pcsc-tools
+  (package
+    (name "pcsc-tools")
+    (version "1.6.2")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://salsa.debian.org/rousseau/pcsc-tools.git/")
+                    (commit version)))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "16kvw8y5289fp6y3z8l5w61gfrk872kd500a27sgr5k5dpr9vfbk"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list #:phases #~(modify-phases %standard-phases
+                        (add-after 'unpack 'patch-data-paths
+                          (lambda _
+                            (substitute* "ATR_analysis"
+                              (((string-append
+                                 "\"/usr/local/pcsc/smartcard_list.txt\", "
+                                 "\"/usr/share/pcsc/smartcard_list.txt\", "
+                                 "\"/usr/local/share/pcsc/smartcard_list.txt\""))
+                               (string-append "\""
+                                #$output "/share/pcsc/smartcard_list.txt\"")))
+                            (substitute* "ATR_analysis.1p"
+                              (("^([.]IR [.]/) ,\n$" _ cwd)
+                               (string-append cwd "\n"))
+                              (("^[.]I /usr/local/pcsc/\n$")
+                               "")
+                              (("/usr/share/pcsc/\n$")
+                               (string-append #$output "/share/pcsc/\n"))))))))
+    (native-inputs (list autoconf automake libtool gnu-gettext pkg-config))
+    (inputs (list pcsc-lite))
+    (propagated-inputs (list perl perl-pcsc perl-gtk3))
+    (synopsis "Tools for use with smart cards and PC/SC")
+    (description
+     "This package provides @code{pcsc_scan}, @code{ATR_analysis}, @code{scriptor},
+and @code{gscriptor}.")
+    (home-page "https://pcsc-tools.apdu.fr/")
+    (license license:gpl2+)))
+
 (define-public ykclient
   (package
     (name "ykclient")
-- 
2.34.1