me
/
guix
Archived
1
0
Fork 0
Code

gnu: cpplint: Reduce closure size. 

* gnu/packages/cpp.scm (cpplint)[arguments]: Add #:modules.  Add phases to
adjust GUIX_PYTHONPATH before the wrap phase.
master
Marius Bakke 2022-02-09 23:38:10 +01:00
parent 6ff0a6d53a
commit f97fe92b57
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
gnu/packages/cpp.scm
View File

@ -780,8 +780,35 @@ library.")
(base32 "13l86aq0h1jga949k79k9x3hw2xqchjc162sclg2f99vz98zcz15")) (base32 "13l86aq0h1jga949k79k9x3hw2xqchjc162sclg2f99vz98zcz15"))
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(arguments (arguments
(list #:phases (list #:modules `((srfi srfi-1)
#~(modify-phases %standard-phases (srfi srfi-26)
,@%python-build-system-modules)
#:phases
#~(modify-phases (@ (guix build python-build-system) %standard-phases)
(add-before 'wrap 'reduce-GUIX_PYTHONPATH
(lambda _
;; Hide the transitive native inputs from GUIX_PYTHONPATH
;; to prevent them from ending up in the run-time closure.
;; See also <https://bugs.gnu.org/25235>.
(let ((transitive-native-inputs
'#$(match (package-transitive-native-inputs
this-package)
(((labels packages) ...) packages))))
;; Save the original PYTHONPATH because we need it for
;; tests later.
(setenv "TMP_PYTHONPATH" (getenv "GUIX_PYTHONPATH"))
(setenv "GUIX_PYTHONPATH"
(string-join
(filter (lambda (path)
(not (any (cut string-prefix? <> path)
transitive-native-inputs)))
(search-path-as-string->list
(getenv "GUIX_PYTHONPATH")))
":")))))
(add-after 'wrap 'reset-GUIX_PYTHONPATH
(lambda _
(setenv "GUIX_PYTHONPATH"
(getenv "TMP_PYTHONPATH"))))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(when tests? (when tests?