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