amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: libsigrok: Improve style.

Browse source 
* gnu/packages/electronics.scm (libsigrok)[arguments]: Use
G-Expressions.

Change-Id: I6ba9cbf71142577be62187e09fee4d0f89b79ba9
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Cayetano Santos 2025-08-26 21:07:05 +02:00 • committed by Ludovic Courtès
parent 44a5f936a3
commit 481a62fe10
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 34 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

67
gnu/packages/electronics.scm
View file

@ -216,39 +216,40 @@ to take care of the OS-specific details when writing software that uses serial p
(file-name (git-file-name name version))))
(outputs '("out" "doc"))
(arguments
`(#:tests? #f ; tests need USB access
#:phases
(modify-phases %standard-phases
(add-before 'configure 'change-udev-group
(lambda _
(substitute* (find-files "contrib" "\\.rules$")
(("plugdev") "dialout"))))
(add-after 'build 'build-doc
(lambda _
(invoke "doxygen")))
(add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys)
(copy-recursively "doxy/html-api"
(string-append (assoc-ref outputs "doc")
"/share/doc/libsigrok"))))
(add-after 'install-doc 'install-udev-rules
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(rules (string-append out "/lib/udev/rules.d/")))
(for-each (lambda (file)
(install-file file rules))
(find-files "contrib" "\\.rules$")))))
(add-after 'install-udev-rules 'install-fw
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((fx2lafw (assoc-ref inputs "sigrok-firmware-fx2lafw"))
(out (assoc-ref outputs "out"))
(dir-suffix "/share/sigrok-firmware/")
(input-dir (string-append fx2lafw dir-suffix))
(output-dir (string-append out dir-suffix)))
(for-each
(lambda (file)
(install-file file output-dir))
(find-files input-dir "."))))))))
(list
#:tests? #f ; tests need USB access
#:phases
#~(modify-phases %standard-phases
(add-before 'configure 'change-udev-group
(lambda _
(substitute* (find-files "contrib" "\\.rules$")
(("plugdev") "dialout"))))
(add-after 'build 'build-doc
(lambda _
(invoke "doxygen")))
(add-after 'install 'install-doc
(lambda _
(copy-recursively
"doxy/html-api"
(string-append #$output:doc "/share/doc/libsigrok"))))
(add-after 'install-doc 'install-udev-rules
(lambda _
(for-each
(lambda (file)
(install-file
file
(string-append #$output "/lib/udev/rules.d/")))
(find-files "contrib" "\\.rules$"))))
(add-after 'install-udev-rules 'install-fw
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((fx2lafw (assoc-ref inputs "sigrok-firmware-fx2lafw"))
(dir-suffix "/share/sigrok-firmware/")
(input-dir (string-append fx2lafw dir-suffix))
(output-dir (string-append #$output dir-suffix)))
(for-each
(lambda (file)
(install-file file output-dir))
(find-files input-dir "."))))))))
(native-inputs
(list autoconf automake doxygen graphviz libtool
sigrok-firmware-fx2lafw pkg-config))