ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-27 23:02:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: qtserialbus: Update to 5.15.8.

Browse source 
* gnu/packages/qt.scm (qtserialbus): Update to 5.15.8.
[arguments]: Use gexps.  Use search-input-file in the
patch-libsocketcan-reference phase.
This commit is contained in:
Maxim Cournoyer 2023-03-27 16:09:50 -04:00
parent 5d7b700356
commit 939326ad48
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 17 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
gnu/packages/qt.scm
View file

@ -1739,29 +1739,28 @@ (define-public qtserialport
interacting with serial ports from within Qt."))) interacting with serial ports from within Qt.")))
(define-public qtserialbus (define-public qtserialbus
(package (inherit qtsvg-5) (package
(inherit qtsvg-5)
(name "qtserialbus") (name "qtserialbus")
(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
"180gm1jvqfn0h3251zafdd1wd3af00phwaa5qljsbrj6s6ywj79j")))) "0ws3pjbp4g8f49k8q0qa5hgyisbyk3m7kl8pwzkfws048glvz570"))))
(arguments (arguments
(substitute-keyword-arguments (package-arguments qtsvg-5) (substitute-keyword-arguments (package-arguments qtsvg-5)
((#:phases phases '%standard-phases) ((#:phases phases '%standard-phases)
`(modify-phases ,phases #~(modify-phases #$phases
(add-after 'unpack 'patch-libsocketcan-reference (add-after 'unpack 'patch-libsocketcan-reference
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let* ((libcansocket (assoc-ref inputs "libsocketcan")) (substitute* "src/plugins/canbus/socketcan/libsocketcan.cpp"
(libcansocket.so (string-append libcansocket (("QStringLiteral\\(\"socketcan\"\\)")
"/lib/libsocketcan.so"))) (format #f "QStringLiteral(~s)"
(substitute* "src/plugins/canbus/socketcan/libsocketcan.cpp" (search-input-file inputs
(("QStringLiteral\\(\"socketcan\"\\)") "lib/libsocketcan.so"))))))))))
(format #f "QStringLiteral(~s)" libcansocket.so)))))))))) (inputs (list libsocketcan qtbase-5 qtserialport))
(inputs
(list libsocketcan qtbase-5 qtserialport))
(synopsis "Qt Serial Bus module") (synopsis "Qt Serial Bus module")
(description "The Qt Serial Bus API provides classes and functions to (description "The Qt Serial Bus API provides classes and functions to
access the various industrial serial buses and protocols, such as CAN, ModBus, access the various industrial serial buses and protocols, such as CAN, ModBus,