me/guix
Archived
1
0
Fork 0
Code Activity

gnu: memtest86+: Use G-expressions.

Browse source 
* gnu/packages/hardware.scm (memtest86+)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-10-23 02:00:01 +02:00
parent e940828ccf
commit 634f7cd7df
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 23 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
gnu/packages/hardware.scm
View file

@ -811,27 +811,29 @@ specific SMBIOS tables.")
(base32 "0fv605blaf4z0jyl1wp37x5x014dkp0z0a0fh114ws62fhnhdnlv"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no way to test this
#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure script
(add-before 'build 'enter-build-directory
(lambda _
(chdir ,(if (target-x86-32?)
"build32"
"build64"))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib/memtest86+"))
(doc (string-append out "/share/doc/memtest86+-" ,version)))
(for-each
(lambda (file)
(install-file file lib))
(list "memtest.bin"
"memtest.efi"))
(chdir "..")
(install-file "README.md" doc)))))))
(list
#:tests? #f ; no way to test this
#:phases
#~(modify-phases %standard-phases
(delete 'configure) ; no configure script
(add-before 'build 'enter-build-directory
(lambda _
(chdir #$(if (target-x86-32?)
"build32"
"build64"))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib/memtest86+"))
(doc (string-append out "/share/doc/memtest86+-"
#$version)))
(for-each
(lambda (file)
(install-file file lib))
(list "memtest.bin"
"memtest.efi"))
(chdir "..")
(install-file "README.md" doc)))))))
(supported-systems (list "i686-linux" "x86_64-linux"))
(home-page "https://www.memtest.org/")
(synopsis "Thorough real-mode memory tester")