ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: src: Add bash-minimal to inputs, use gexps.

Browse source 
* gnu/packages/version-control.scm (src)
[arguments]: Use gexps.
[inputs]: Add bash-minimal.

Change-Id: I122b0c496792a5dea731c2e70d32cba7286df0b1
This commit is contained in:
Maxim Cournoyer 2023-10-19 23:56:46 -04:00 committed by Ludovic Courtès
parent 0f0ec73ac8
commit 68d26688ea
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 22 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -3363,32 +3363,32 @@ (define-public src
"0r9i399kkagpwj08nwf1f7c6lr50xjzzgmzwyjjy6ppgcc53a809"))))
(build-system gnu-build-system)
(arguments
'(#:make-flags
(list (string-append "prefix=" (assoc-ref %outputs "out")))
#:phases
(modify-phases %standard-phases
(delete 'configure) ; no 'configure' script
(add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(prog (string-append out "/bin/src"))
(rcs (assoc-ref inputs "rcs")))
(wrap-program prog
`("PATH" ":" prefix (,(string-append rcs "/bin"))))
#t)))
(replace 'check
(lambda _
(setenv "HOME" (getenv "TMPDIR"))
(invoke "git" "config" "--global" "user.name" "guix")
(invoke "git" "config" "--global" "user.email" "guix")
(invoke "./srctest"))))))
(list
#:make-flags
#~(list (string-append "prefix=" #$output))
#:phases
#~(modify-phases %standard-phases
(delete 'configure) ; no 'configure' script
(add-after 'install 'wrap-program
(lambda* (#:key inputs #:allow-other-keys)
(let* ((prog (string-append #$output "/bin/src"))
(rcs (search-input-file inputs "bin/rcs")))
(wrap-program prog
`("PATH" ":" prefix (,(dirname rcs)))))))
(replace 'check
(lambda _
(setenv "HOME" (getenv "TMPDIR"))
(invoke "git" "config" "--global" "user.name" "guix")
(invoke "git" "config" "--global" "user.email" "guix")
(invoke "./srctest"))))))
(native-inputs
;; For testing.
(list git perl))
(inputs
`(("cssc" ,cssc)
("python" ,python-wrapper)
("rcs" ,rcs)))
(list bash-minimal
cssc
python-wrapper
rcs))
(synopsis "Simple revision control")
(home-page "http://www.catb.org/~esr/src/")
(description