mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-27 23:02:16 -05:00
gnu: qtserialport: Update to 5.15.8.
* gnu/packages/qt.scm (qtserialport): Update to 5.15.8. [arguments]: Use gexps. Simplify pattern in patch-dlopen-paths.
This commit is contained in:
parent
242492f154
commit
5d7b700356
1 changed files with 20 additions and 18 deletions
|
@ -1708,30 +1708,32 @@ (define-public qtwayland
|
|||
(license (package-license qtbase))))
|
||||
|
||||
(define-public qtserialport
|
||||
(package (inherit qtsvg-5)
|
||||
(package
|
||||
(inherit qtsvg-5)
|
||||
(name "qtserialport")
|
||||
(version "5.15.5")
|
||||
(version "5.15.8")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (qt-urls name version))
|
||||
(sha256
|
||||
(base32
|
||||
"0xg2djwhrj5jqamawlp75g70nmwbp2ph2hh1pm45s36jkxm0k7al"))))
|
||||
"04i8pdyml1sw4dkk9vyw2xy5bz3fp6f90fws7ag5y8iizfgs5v2v"))))
|
||||
(native-inputs (list perl))
|
||||
(inputs
|
||||
(list qtbase-5 eudev))
|
||||
(inputs (list qtbase-5 eudev))
|
||||
(arguments
|
||||
(substitute-keyword-arguments (package-arguments qtsvg-5)
|
||||
((#:phases phases)
|
||||
`(modify-phases ,phases
|
||||
#~(modify-phases #$phases
|
||||
(add-after 'unpack 'patch-dlopen-paths
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(substitute* "src/serialport/qtudev_p.h"
|
||||
;; Use the absolute paths for dynamically loaded libs,
|
||||
;; otherwise the lib will be searched in LD_LIBRARY_PATH which
|
||||
;; typically is not set in guix.
|
||||
(("^\\s*(udevLibrary->setFileNameAndVersion\\(QStringLiteral\\(\")(udev\"\\),\\s*[0-9]+\\);)" _ a b)
|
||||
(string-append a (assoc-ref inputs "eudev") "/lib/lib" b)))))))))
|
||||
(("setFileNameAndVersion\\(QStringLiteral\\(\"udev\")")
|
||||
(format #f "setFileNameAndVersion(QStringLiteral(~s))"
|
||||
(string-append #$(this-package-input "eudev")
|
||||
"/lib/libudev"))))))))))
|
||||
(synopsis "Qt Serial Port module")
|
||||
(description "The Qt Serial Port module provides the library for
|
||||
interacting with serial ports from within Qt.")))
|
||||
|
|
Loading…
Reference in a new issue