me/guix
Archived
1
0
Fork 0
Code Activity

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
Show stats Download patch file Download diff file Expand all files Collapse all files

75
gnu/packages/admin.scm
View file

@ -2023,46 +2023,41 @@ 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) (close-port port))))
(close-port port)))) (add-after 'unpack 'patch-pkg-config
(add-after 'unpack 'patch-pkg-config (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* ((man (string-append #$output "/share/man"))
(let* ((out (assoc-ref outputs "out")) (man1 (string-append man "/man1"))
(man (string-append out "/share/man")) (man8 (string-append man "/man8")))
(man1 (string-append man "/man1")) (define (copy-man-page target)
(man8 (string-append man "/man8"))) (lambda (file)
(define (copy-man-page target) (install-file file target)))
(lambda (file) (for-each (copy-man-page man1)
(install-file file target))) (find-files "." "\\.1"))
(for-each (copy-man-page man8)
(for-each (copy-man-page man1) (find-files "." "\\.8"))))))
(find-files "." "\\.1")) #:make-flags
(for-each (copy-man-page man8) #~(list (string-append "CC=" #$(cc-for-target))
(find-files "." "\\.8")))))) (string-append "BINDIR=" #$output "/sbin")
(string-append "LIBDIR=" #$output "/lib"))
#:make-flags (list (string-append "CC=" ,(cc-for-target)) #:tests? #f))
(string-append "BINDIR=" (assoc-ref %outputs "out")
"/sbin")
(string-append "LIBDIR=" (assoc-ref %outputs "out")
"/lib"))
#:tests? #f))
(native-inputs (list pkg-config)) (native-inputs (list pkg-config))
;; There's an optional dependency on SQLite. ;; There's an optional dependency on SQLite.