me
/
guix
Archived
1
0
Fork 0

gnu: wsdd: Fix cross-‘compilation’.

The copy-build-system appears unsuitable for scripts.

* gnu/packages/samba.scm (wsdd)[build-system]:
Switch to the GNU build system.
[arguments]: Replace #:install-plan with custom #:phases.
master
Tobias Geerinckx-Rice 2023-07-16 02:00:01 +02:00
parent 296e9dc1ef
commit d2baed4679
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 18 additions and 4 deletions

View File

@ -523,11 +523,25 @@ and IPV6 and the protocols layered above them, such as TCP and UDP.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "16kk7x80jlargrvh643m23j277p0drs2yylqz54f9inf5ld5bxn5")))) (base32 "16kk7x80jlargrvh643m23j277p0drs2yylqz54f9inf5ld5bxn5"))))
(build-system copy-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:install-plan (list
'(("src/wsdd.py" "bin/wsdd") #:tests? #f ; no test suite, only examples
("man/wsdd.8" "share/man/man8/")))) #:phases
#~(modify-phases %standard-phases
(delete 'configure) ; no configure script
(delete 'build) ; nothing to build
(replace 'install
(lambda _
(with-directory-excursion "src"
(rename-file "wsdd.py" "wsdd")
(install-file "wsdd" (string-append #$output "/bin")))
(for-each
(lambda (file)
(install-file file
(string-append #$output "/share/man/man"
(string-take-right file 1))))
(find-files "man" "\\.[0-9]$")))))))
(inputs (inputs
(list python)) (list python))
(home-page "https://github.com/christgau/wsdd") (home-page "https://github.com/christgau/wsdd")