TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: shflags: Use the GNU-BUILD-SYSTEM.

Browse source 
The TRIVIAL-BUILD-SYSTEM doesn't really save any effort and is actually
slightly longer.

* gnu/packages/version-control.scm (shflags)[build-system: Use
GNU-BUILD-SYSTEM.
[arguments]: Adjust accordingly and prefer INSTALL-FILE over COPY-FILE.
This commit is contained in:
Tobias Geerinckx-Rice 2018-02-21 06:43:40 +01:00
parent 79f0561f43
commit dcb06ac9cf
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 12 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
gnu/packages/version-control.scm
View file

@ -645,27 +645,21 @@ (define-public shflags
(sha256
(base32
"0zxw12haylaq60a335xlqcs4afw2zrgwqymmpw0m21r51w6irdmr"))))
(build-system trivial-build-system)
(build-system gnu-build-system)
(native-inputs `(("tar" ,tar)
("gzip" ,gzip)))
(arguments
`(#:modules ((guix build utils))
#:builder (begin
(use-modules (guix build utils))
(let* ((source (assoc-ref %build-inputs "source"))
(tar (assoc-ref %build-inputs "tar"))
(gzip (assoc-ref %build-inputs "gzip"))
(output (assoc-ref %outputs "out"))
(srcdir (string-append output "/src")))
(begin
(setenv "PATH" (string-append gzip "/bin"))
(system* (string-append tar "/bin/tar") "xzf"
source)
(chdir ,(string-append name "-" version))
(mkdir-p srcdir)
(copy-file "src/shflags"
(string-append srcdir "/shflags"))
#t)))))
`(#:tests? #f ; no tests
#:phases
(modify-phases %standard-phases
(delete 'configure) ; nothing to configure
(delete 'build) ; nothing to build
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(src (string-append out "/src")))
(install-file "src/shflags" src)
#t))))))
(home-page "https://github.com/kward/shflags")
(synopsis "Command-line flags library for shell scripts")
(description