nologies/mtcs-garage
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

build-aux: Add make-bin-to-path-hook

Browse source
This commit is contained in:
Davie Li 2024-04-15 18:33:02 +02:00
parent a78bdf589d
commit d5ef5afbc6
Signed by: davie
GPG key ID: 29FD88532FC91BF4
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
build-aux/rust-environment.in
View file

@ -190,20 +190,20 @@ function."
;; Why not?
(flush-all-ports)))))
(define (add-sp1-bin-to-path-hook)
(define (make-bin-to-path-hook dir)
(λ ()
(let ((home (getenv "HOME"))
(path (or (getenv "PATH") "")))
(setenv "PATH" (string-append home "/.sp1/bin:" path))))
(setenv "PATH" (string-append home "/" dir ":" path)))))
(define (add-cargo-bin-to-path-hook)
(let ((home (getenv "HOME"))
(path (or (getenv "PATH") "")))
(setenv "PATH" (string-append home "/.cargo/bin:" path))))
(define add-sp1-bin-to-path-hook
(make-bin-to-path-hook ".sp1/bin"))
(define (add-rustup-bin-to-path-hook)
(let ((home (getenv "HOME"))
(path (or (getenv "PATH") "")))
(setenv "PATH" (string-append home "/.rustup/bin:" path))))
(define add-cargo-bin-to-path-hook
(make-bin-to-path-hook ".cargo/bin"))
(define add-rustup-bin-to-path-hook
(make-bin-to-path-hook ".rustup/bin"))
(define* (exec-in-rustup-environment cmd
#:key home (mappings '()) (hooks '()))