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: dpkg: Use G-expressions.

Browse source 
* gnu/packages/debian.scm (dpkg)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-02 02:00:01 +02:00
parent 1122217f27
commit ec96833aab
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 51 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

31
gnu/packages/debian.scm
View file

@ -349,41 +349,40 @@ distributions such as Debian and Trisquel.")
(base32 "0b5czgif5g6pdjzcw60hzzj0i1llxvajf3nlx115axmpa3y4iynd")))) (base32 "0b5czgif5g6pdjzcw60hzzj0i1llxvajf3nlx115axmpa3y4iynd"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules (list #:modules
((srfi srfi-71) `((srfi srfi-71)
,@%gnu-build-system-modules) ,@%gnu-build-system-modules)
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'bootstrap 'patch-version (add-before 'bootstrap 'patch-version
(lambda _ (lambda _
(patch-shebang "build-aux/get-version") (patch-shebang "build-aux/get-version")
(with-output-to-file ".dist-version" (with-output-to-file ".dist-version"
(lambda () (display ,version))))) (lambda () (display #$version)))))
(add-after 'unpack 'set-perl-libdir (add-after 'unpack 'set-perl-libdir
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let* ((perl #$(this-package-input "perl"))
(perl (assoc-ref inputs "perl"))
(_ perl-version (package-name->name+version perl))) (_ perl-version (package-name->name+version perl)))
(setenv "PERL_LIBDIR" (setenv "PERL_LIBDIR"
(string-append out (string-append #$output
"/lib/perl5/site_perl/" "/lib/perl5/site_perl/"
perl-version))))) perl-version)))))
(add-after 'install 'wrap-scripts (add-after 'install 'wrap-scripts
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((out (assoc-ref outputs "out"))) (with-directory-excursion (string-append #$output "/bin")
(with-directory-excursion (string-append out "/bin")
(for-each (for-each
(lambda (file) (lambda (file)
(wrap-script file (wrap-script file
;; Make sure all perl scripts in "bin" find the ;; Make sure all perl scripts in "bin" find the
;; required Perl modules at runtime. ;; required Perl modules at runtime.
`("PERL5LIB" ":" prefix `("PERL5LIB" ":" prefix
(,(string-append out (,(string-append #$output
"/lib/perl5/site_perl") "/lib/perl5/site_perl")
,(getenv "PERL5LIB"))) ,(getenv "PERL5LIB")))
;; DPKG perl modules always expect dpkg to be installed. ;; DPKG perl modules expect dpkg to be installed.
;; Work around this by adding dpkg to the path of the scripts. ;; Work around it by adding dpkg to the script's path.
`("PATH" ":" prefix (,(string-append out "/bin"))))) `("PATH" ":" prefix (,(string-append #$output
"/bin")))))
(list "dpkg-architecture" (list "dpkg-architecture"
"dpkg-buildflags" "dpkg-buildflags"
"dpkg-buildpackage" "dpkg-buildpackage"
@ -400,7 +399,7 @@ distributions such as Debian and Trisquel.")
"dpkg-scansources" "dpkg-scansources"
"dpkg-shlibdeps" "dpkg-shlibdeps"
"dpkg-source" "dpkg-source"
"dpkg-vendor"))))))))) "dpkg-vendor"))))))))
(native-inputs (native-inputs
(list autoconf (list autoconf
automake automake