me/guix
Archived
1
0
Fork 0
Code Activity

gnu: qtserialport: Update to 5.15.8.

Browse source 
* gnu/packages/qt.scm (qtserialport): Update to 5.15.8.
[arguments]: Use gexps.  Simplify pattern in patch-dlopen-paths.
This commit is contained in:
Maxim Cournoyer 2023-03-27 16:09:50 -04:00
parent 242492f154
commit 5d7b700356
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 20 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
gnu/packages/qt.scm
View file

@ -1708,30 +1708,32 @@ compositor libraries.")
(license (package-license qtbase)))) (license (package-license qtbase))))
(define-public qtserialport (define-public qtserialport
(package (inherit qtsvg-5) (package
(inherit qtsvg-5)
(name "qtserialport") (name "qtserialport")
(version "5.15.5") (version "5.15.8")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (qt-urls name version)) (uri (qt-urls name version))
(sha256 (sha256
(base32 (base32
"0xg2djwhrj5jqamawlp75g70nmwbp2ph2hh1pm45s36jkxm0k7al")))) "04i8pdyml1sw4dkk9vyw2xy5bz3fp6f90fws7ag5y8iizfgs5v2v"))))
(native-inputs (list perl)) (native-inputs (list perl))
(inputs (inputs (list qtbase-5 eudev))
(list qtbase-5 eudev))
(arguments (arguments
(substitute-keyword-arguments (package-arguments qtsvg-5) (substitute-keyword-arguments (package-arguments qtsvg-5)
((#:phases phases) ((#:phases phases)
`(modify-phases ,phases #~(modify-phases #$phases
(add-after 'unpack 'patch-dlopen-paths (add-after 'unpack 'patch-dlopen-paths
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/serialport/qtudev_p.h" (substitute* "src/serialport/qtudev_p.h"
;; Use the absolute paths for dynamically loaded libs, ;; Use the absolute paths for dynamically loaded libs,
;; otherwise the lib will be searched in LD_LIBRARY_PATH which ;; otherwise the lib will be searched in LD_LIBRARY_PATH which
;; typically is not set in guix. ;; typically is not set in guix.
(("^\\s*(udevLibrary->setFileNameAndVersion\\(QStringLiteral\\(\")(udev\"\\),\\s*[0-9]+\\);)" _ a b) (("setFileNameAndVersion\\(QStringLiteral\\(\"udev\")")
(string-append a (assoc-ref inputs "eudev") "/lib/lib" b))))))))) (format #f "setFileNameAndVersion(QStringLiteral(~s))"
(string-append #$(this-package-input "eudev")
"/lib/libudev"))))))))))
(synopsis "Qt Serial Port module") (synopsis "Qt Serial Port module")
(description "The Qt Serial Port module provides the library for (description "The Qt Serial Port module provides the library for
interacting with serial ports from within Qt."))) interacting with serial ports from within Qt.")))