TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

build: glib-or-gtk-build-system: Simplify the wrap-all-programs phase.

Browse source 
* guix/build/glib-or-gtk-build-system.scm (wrap-all-programs)
<handle-output>: Precisely build the list of variable specifications, rather
than relying on a bunch of conditionals.
This commit is contained in:
Maxim Cournoyer 2021-10-03 21:11:37 -04:00
parent 802307fe6f
commit eb619cda36
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 13 additions and 46 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

59
guix/build/glib-or-gtk-build-system.scm
View file

@ -169,52 +169,19 @@ (define handle-output
(alist-cons output directory inputs)))
(gio-mod-dirs (gio-module-directories
(alist-cons output directory inputs)))
(data-env-var
(if (not (null? datadirs))
`("XDG_DATA_DIRS" ":" prefix ,datadirs)
#f))
(gtk-mod-env-var
(if (not (null? gtk-mod-dirs))
`("GTK_PATH" ":" prefix ,gtk-mod-dirs)
#f))
(gio-mod-env-var
(if (not (null? gio-mod-dirs))
`("GIO_EXTRA_MODULES" ":" prefix ,gio-mod-dirs)
#f)))
(cond
((and data-env-var gtk-mod-env-var gio-mod-env-var)
(for-each (cut wrap-program <> #:sh (sh)
data-env-var
gtk-mod-env-var
gio-mod-env-var)
bin-list))
((and data-env-var gtk-mod-env-var (not gio-mod-env-var))
(for-each (cut wrap-program <> #:sh (sh)
data-env-var
gtk-mod-env-var)
bin-list))
((and data-env-var (not gtk-mod-env-var) gio-mod-env-var)
(for-each (cut wrap-program <> #:sh (sh)
data-env-var
gio-mod-env-var)
bin-list))
((and (not data-env-var) gtk-mod-env-var gio-mod-env-var)
(for-each (cut wrap-program <> #:sh (sh)
gio-mod-env-var
gtk-mod-env-var)
bin-list))
((and data-env-var (not gtk-mod-env-var) (not gio-mod-env-var))
(for-each (cut wrap-program <> #:sh (sh)
data-env-var)
bin-list))
((and (not data-env-var) gtk-mod-env-var (not gio-mod-env-var))
(for-each (cut wrap-program <> #:sh (sh)
gtk-mod-env-var)
bin-list))
((and (not data-env-var) (not gtk-mod-env-var) gio-mod-env-var)
(for-each (cut wrap-program <> #:sh (sh)
gio-mod-env-var)
bin-list))))))))
(env-vars `(,@(if (not (null? datadirs))
(list `("XDG_DATA_DIRS" ":" prefix ,datadirs))
'())
,@(if (not (null? gtk-mod-dirs))
(list `("GTK_PATH" ":" prefix ,gtk-mod-dirs))
'())
,@(if (not (null? gio-mod-dirs))
(list `("GIO_EXTRA_MODULES" ":"
prefix ,gio-mod-dirs))
'()))))
(for-each (lambda (program)
(apply wrap-program program #:sh (sh) env-vars))
bin-list))))))
(for-each handle-output outputs)
#t)