me
/
guix
Archived
1
0
Fork 0
Code

gnu: pam-mount: Use G-expressions. 

* gnu/packages/admin.scm (pam-mount)[arguments]:
Rewrite as G-expressions.
master
Tobias Geerinckx-Rice 2022-10-30 02:00:01 +01:00
parent 7174391cac
commit 63d2348aaa
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 29 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
gnu/packages/admin.scm
View File

@ -4634,34 +4634,35 @@ tcpdump and snoop.")
(base32 "0832nh2qf9pisgwnbgx6hkylx5d7i416l19y3ly4ifv7k1p7mxqa")))) (base32 "0832nh2qf9pisgwnbgx6hkylx5d7i416l19y3ly4ifv7k1p7mxqa"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags (list
(list (string-append "--with-slibdir=" %output "/lib") #:configure-flags
(string-append "--with-ssbindir=" %output "/sbin")) #~(list (string-append "--with-slibdir=" #$output "/lib")
#:phases (string-append "--with-ssbindir=" #$output "/sbin"))
(modify-phases %standard-phases #:phases
(add-after 'unpack 'patch-file-names #~(modify-phases %standard-phases
(lambda* (#:key inputs outputs #:allow-other-keys) (add-after 'unpack 'patch-file-names
(let ((out (assoc-ref outputs "out"))) (lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* "src/mtcrypt.c" (let ((out (assoc-ref outputs "out")))
(("\"(mount|umount)\";" _ command) (substitute* "src/mtcrypt.c"
(format #f "\"~a\";" (("\"(mount|umount)\";" _ command)
(search-input-file inputs (format #f "\"~a\";"
(string-append "bin/" command)))) (search-input-file inputs
(("\"(fsck)\"," _ command) (string-append "bin/" command))))
(format #f "\"~a\"," (("\"(fsck)\"," _ command)
(search-input-file inputs (format #f "\"~a\","
(string-append "sbin/" command))))) (search-input-file inputs
(substitute* "src/rdconf1.c" (string-append "sbin/" command)))))
(("\"(mount|umount)\", \"" _ command) (substitute* "src/rdconf1.c"
(format #f "\"~a\", \"" (("\"(mount|umount)\", \"" _ command)
(search-input-file inputs (format #f "\"~a\", \""
(string-append "bin/" command)))) (search-input-file inputs
(("\"(fsck)\", \"" _ command) (string-append "bin/" command))))
(format #f "\"~a\", \"" (("\"(fsck)\", \"" _ command)
(search-input-file inputs (format #f "\"~a\", \""
(string-append "sbin/" command)))) (search-input-file inputs
(("\"pmvarrun\", \"") (string-append "sbin/" command))))
(format #f "\"~a/sbin/pmvarrun\", \"" out))))))))) (("\"pmvarrun\", \"")
(format #f "\"~a/sbin/pmvarrun\", \"" out)))))))))
(native-inputs (native-inputs
(list perl pkg-config)) (list perl pkg-config))
(inputs (inputs