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: hostapd: Use G-expressions.

Browse source 
* gnu/packages/admin.scm (hostapd)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-01-16 01:00:00 +01:00
parent 3b3a4544a1
commit a41fee184f
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 35 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

23
gnu/packages/admin.scm
View file

@ -2023,16 +2023,15 @@ command.")
"0pcik0a6yin9nib02frjhaglmg44hwik086iwg1751b7kdwpqvi0")))) "0pcik0a6yin9nib02frjhaglmg44hwik086iwg1751b7kdwpqvi0"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda _ (lambda _
;; This is mostly copied from 'wpa-supplicant' above. ;; This is mostly copied from 'wpa-supplicant' above.
(chdir "hostapd") (chdir "hostapd")
(copy-file "defconfig" ".config") (copy-file "defconfig" ".config")
(let ((port (open-file ".config" "al"))) (let ((port (open-file ".config" "al")))
(display " (display "CONFIG_LIBNL32=y
CONFIG_LIBNL32=y
CONFIG_IEEE80211R=y CONFIG_IEEE80211R=y
CONFIG_IEEE80211N=y CONFIG_IEEE80211N=y
CONFIG_IEEE80211AC=y\n" port) CONFIG_IEEE80211AC=y\n" port)
@ -2041,27 +2040,23 @@ command.")
(lambda _ (lambda _
(substitute* "src/drivers/drivers.mak" (substitute* "src/drivers/drivers.mak"
(("pkg-config") (("pkg-config")
,(pkg-config-for-target))))) #$(pkg-config-for-target)))))
(add-after 'install 'install-man-pages (add-after 'install 'install-man-pages
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((man (string-append #$output "/share/man"))
(man (string-append out "/share/man"))
(man1 (string-append man "/man1")) (man1 (string-append man "/man1"))
(man8 (string-append man "/man8"))) (man8 (string-append man "/man8")))
(define (copy-man-page target) (define (copy-man-page target)
(lambda (file) (lambda (file)
(install-file file target))) (install-file file target)))
(for-each (copy-man-page man1) (for-each (copy-man-page man1)
(find-files "." "\\.1")) (find-files "." "\\.1"))
(for-each (copy-man-page man8) (for-each (copy-man-page man8)
(find-files "." "\\.8")))))) (find-files "." "\\.8"))))))
#:make-flags
#:make-flags (list (string-append "CC=" ,(cc-for-target)) #~(list (string-append "CC=" #$(cc-for-target))
(string-append "BINDIR=" (assoc-ref %outputs "out") (string-append "BINDIR=" #$output "/sbin")
"/sbin") (string-append "LIBDIR=" #$output "/lib"))
(string-append "LIBDIR=" (assoc-ref %outputs "out")
"/lib"))
#:tests? #f)) #:tests? #f))
(native-inputs (list pkg-config)) (native-inputs (list pkg-config))