amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: mingetty: Use GEXPs.

Browse source 
* gnu/packages/admin.scm (mingetty): Use GEXPs.

Change-Id: I01950a5b220c74438d5c2b4a98d1265b7c02bb05
This commit is contained in:
Artyom V. Poptsov 2025-06-08 10:19:45 +03:00
parent b1cda73419
commit 733d95df01
No known key found for this signature in database
GPG key ID: 935EBE0736DC857E
1 changed files with 22 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

51
gnu/packages/admin.scm
View file

@ -1390,38 +1390,31 @@ login, passwd, su, groupadd, and useradd.")
"05yxrp44ky2kg6qknk1ih0kvwkgbn9fbz77r3vci7agslh5wjm8g")))) "05yxrp44ky2kg6qknk1ih0kvwkgbn9fbz77r3vci7agslh5wjm8g"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:tests? #f ; no tests
(replace 'configure #:phases
(lambda* (#:key inputs outputs target #:allow-other-keys) #~(modify-phases %standard-phases
(let* ((out (assoc-ref outputs "out")) (replace 'configure
(man8 (string-append out "/share/man/man8")) (lambda* (#:key inputs #:allow-other-keys)
(sbin (string-append out "/sbin")) (let* ((man8 (string-append #$output "/share/man/man8"))
(shadow (assoc-ref inputs "shadow")) (sbin (string-append #$output "/sbin"))
(login (string-append shadow "/bin/login"))) (login (search-input-file inputs "/bin/login")))
(substitute* "Makefile" (substitute* "Makefile"
,@(if (%current-target-system) (("CC=.*$")
'((("CC=.*$") (string-append "CC=" #$(cc-for-target) "\n"))
(string-append "CC=" target "-gcc\n"))) (("^SBINDIR.*")
'()) (string-append "SBINDIR = " #$output "/sbin\n"))
(("^SBINDIR.*") (("^MANDIR.*")
(string-append "SBINDIR = " out (string-append "MANDIR = " #$output "/share/man/man8\n")))
"/sbin\n"))
(("^MANDIR.*")
(string-append "MANDIR = " out
"/share/man/man8\n")))
;; Pick the right 'login' by default. ;; Pick the right 'login' by default.
(substitute* "mingetty.c" (substitute* "mingetty.c"
(("\"/bin/login\"") (("\"/bin/login\"")
(string-append "\"" login "\""))) (string-append "\"" login "\"")))
(mkdir-p sbin) (mkdir-p sbin)
(mkdir-p man8)) (mkdir-p man8)))))))
#t)))
#:tests? #f)) ; no tests
(inputs (list shadow)) (inputs (list shadow))
(home-page "https://sourceforge.net/projects/mingetty") (home-page "https://sourceforge.net/projects/mingetty")
(synopsis "Getty for the text console") (synopsis "Getty for the text console")
(description (description