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

33
gnu/packages/admin.scm
View file

@ -1390,26 +1390,22 @@ 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
#:phases
#~(modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda* (#:key inputs outputs target #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((man8 (string-append #$output "/share/man/man8"))
(man8 (string-append out "/share/man/man8")) (sbin (string-append #$output "/sbin"))
(sbin (string-append out "/sbin")) (login (search-input-file inputs "/bin/login")))
(shadow (assoc-ref inputs "shadow"))
(login (string-append shadow "/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.*") (("^SBINDIR.*")
(string-append "SBINDIR = " out (string-append "SBINDIR = " #$output "/sbin\n"))
"/sbin\n"))
(("^MANDIR.*") (("^MANDIR.*")
(string-append "MANDIR = " out (string-append "MANDIR = " #$output "/share/man/man8\n")))
"/share/man/man8\n")))
;; Pick the right 'login' by default. ;; Pick the right 'login' by default.
(substitute* "mingetty.c" (substitute* "mingetty.c"
@ -1417,11 +1413,8 @@ login, passwd, su, groupadd, and useradd.")
(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