build-system/glib-or-gtk: Correctly handle multiple-output packages.

* guix/build/glib-or-gtk-build-system.scm (wrap-all-programs): Move body
  to 'handle-output' inner procedure, and parametrize it by output name
  and directory.  Call it for each element of OUTPUTS.
  (compile-glib-schemas): Likewise.
This commit is contained in:
Ludovic Courtès 2014-12-01 22:24:21 +01:00
parent 4efdabb810
commit c8b7569558
1 changed files with 39 additions and 30 deletions

View File

@ -83,41 +83,50 @@ a list with all found directories."
"Implement phase \"glib-or-gtk-wrap\": look for GSettings schemas and "Implement phase \"glib-or-gtk-wrap\": look for GSettings schemas and
gtk+-v.0 libraries and create wrappers with suitably set environment variables gtk+-v.0 libraries and create wrappers with suitably set environment variables
if found." if found."
(let* ((out (assoc-ref outputs "out")) (define handle-output
(bindir (string-append out "/bin")) (match-lambda
(bin-list (find-files bindir ".*")) ((output . directory)
(schemas (schemas-directories (acons "out" out inputs))) (let* ((bindir (string-append directory "/bin"))
(bin-list (find-files bindir ".*"))
(schemas (schemas-directories
(alist-cons output directory inputs)))
(gtk-mod-dirs (gtk-module-directories
(alist-cons output directory inputs)))
(schemas-env-var
(if (not (null? schemas))
`("XDG_DATA_DIRS" ":" prefix ,schemas)
#f))
(gtk-mod-env-var
(if (not (null? gtk-mod-dirs))
`("GTK_PATH" ":" prefix ,gtk-mod-dirs)
#f)))
(cond
((and schemas-env-var gtk-mod-env-var)
(for-each (cut wrap-program <> schemas-env-var gtk-mod-env-var)
bin-list))
(schemas-env-var (schemas-env-var
(if (not (null? schemas)) (for-each (cut wrap-program <> schemas-env-var)
`("XDG_DATA_DIRS" ":" prefix ,schemas) bin-list))
#f))
(gtk-mod-dirs (gtk-module-directories (acons "out" out inputs)))
(gtk-mod-env-var (gtk-mod-env-var
(if (not (null? gtk-mod-dirs)) (for-each (cut wrap-program <> gtk-mod-env-var)
`("GTK_PATH" ":" prefix ,gtk-mod-dirs) bin-list)))))))
#f)))
(cond
((and schemas-env-var gtk-mod-env-var)
(for-each (cut wrap-program <> schemas-env-var gtk-mod-env-var)
bin-list))
(schemas-env-var
(for-each (cut wrap-program <> schemas-env-var)
bin-list))
(gtk-mod-env-var
(for-each (cut wrap-program <> gtk-mod-env-var)
bin-list)))
#t))
(define* (compile-glib-schemas #:key inputs outputs #:allow-other-keys) (for-each handle-output outputs)
#t)
(define* (compile-glib-schemas #:key outputs #:allow-other-keys)
"Implement phase \"glib-or-gtk-compile-schemas\": compile \"glib\" schemas "Implement phase \"glib-or-gtk-compile-schemas\": compile \"glib\" schemas
if needed." if needed."
(let* ((out (assoc-ref outputs "out")) (every (match-lambda
(schemasdir (string-append out "/share/glib-2.0/schemas"))) ((output . directory)
(if (and (directory-exists? schemasdir) (let ((schemasdir (string-append directory
(not (file-exists? "/share/glib-2.0/schemas")))
(string-append schemasdir "/gschemas.compiled")))) (if (and (directory-exists? schemasdir)
(system* "glib-compile-schemas" schemasdir) (not (file-exists?
#t))) (string-append schemasdir "/gschemas.compiled"))))
(zero? (system* "glib-compile-schemas" schemasdir))
#t))))
outputs))
(define %standard-phases (define %standard-phases
(alist-cons-after (alist-cons-after