gnu: intltool: Make file a regular input.

* gnu/packages/glib.scm (intltool)[propagated-inputs]: Move file from here...
  [inputs]: to here.
  [arguments]: New 'patch-file-references phase.
This commit is contained in:
Eric Bavier 2014-11-13 12:46:04 -06:00 committed by Andreas Enge
parent 3f2a772789
commit 93882f0eda
1 changed files with 10 additions and 3 deletions

View File

@ -250,16 +250,23 @@ bindings to call into the C library.")
(base32 (base32
"01j4yd7i84n9nk4ccs6yifg84pp68nr9by57jdbhj7dpdxf5rwk7")))) "01j4yd7i84n9nk4ccs6yifg84pp68nr9by57jdbhj7dpdxf5rwk7"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs
`(("file" ,file)))
(propagated-inputs (propagated-inputs
`(;; Propagate gettext because users expect it to be there, and so does `(;; Propagate gettext because users expect it to be there, and so does
;; the `intltool-update' script. ;; the `intltool-update' script.
("gettext" ,gnu-gettext) ("gettext" ,gnu-gettext)
;; `file' is used by `intltool-update' too.
("file" ,file)
("perl-xml-parser" ,perl-xml-parser) ("perl-xml-parser" ,perl-xml-parser)
("perl" ,perl))) ("perl" ,perl)))
(arguments
`(#:phases (alist-cons-after
'unpack 'patch-file-references
(lambda* (#:key inputs #:allow-other-keys)
(let ((file (assoc-ref inputs "file")))
(substitute* "intltool-update.in"
(("`file") (string-append "`" file "/bin/file")))))
%standard-phases)))
(home-page "https://launchpad.net/intltool/+download") (home-page "https://launchpad.net/intltool/+download")
(synopsis "Tools to centralise translations of different file formats") (synopsis "Tools to centralise translations of different file formats")
(description (description