Skip to content
Snippets Groups Projects
Unverified Commit fa5e6618 authored by Tobias Geerinckx-Rice's avatar Tobias Geerinckx-Rice
Browse files

gnu: iniparser: Use INSTALL-FILE.

* gnu/packages/samba.scm (iniparser)[arguments]: Simplify ‘install’ phase by
replacing COPY-FILE with INSTALL-FILE.
parent cf52c925
No related branches found
No related tags found
No related merge requests found
...@@ -124,23 +124,18 @@ (define-public iniparser ...@@ -124,23 +124,18 @@ (define-public iniparser
(inc (string-append out "/include")) (inc (string-append out "/include"))
(doc (string-append out "/share/doc/" ,name)) (doc (string-append out "/share/doc/" ,name))
(html (string-append doc "/html"))) (html (string-append doc "/html")))
(define (copy dir) (define (install dir)
(lambda (file) (lambda (file)
(copy-file file (install-file file dir)))
(string-append dir "/" (for-each (install lib)
(basename file))))) (find-files "." "^lib.*\\.so"))
(mkdir-p lib)
(for-each (copy lib)
(find-files "." "^lib.*\\.(so\\.|a)"))
(with-directory-excursion lib (with-directory-excursion lib
(symlink "libiniparser.so.0" "libiniparser.so")) (symlink "libiniparser.so.0" "libiniparser.so"))
(mkdir-p inc) (for-each (install inc)
(for-each (copy inc)
(find-files "src" "\\.h$")) (find-files "src" "\\.h$"))
(mkdir-p html) (for-each (install html)
(for-each (copy html)
(find-files "html" ".*")) (find-files "html" ".*"))
(for-each (copy doc) (for-each (install doc)
'("AUTHORS" "INSTALL" "LICENSE" "README.md")))))))) '("AUTHORS" "INSTALL" "LICENSE" "README.md"))))))))
(home-page "http://ndevilla.free.fr/iniparser") (home-page "http://ndevilla.free.fr/iniparser")
(synopsis "Standalone ini file parsing library") (synopsis "Standalone ini file parsing library")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment