nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: iniparser: Use INSTALL-FILE. 

* gnu/packages/samba.scm (iniparser)[arguments]: Simplify ‘install’ phase by
replacing COPY-FILE with INSTALL-FILE.
This commit is contained in:
Tobias Geerinckx-Rice 2018-01-15 07:30:03 +01:00
parent cf52c9255d
commit fa5e661859
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnu/packages/samba.scm
View File

@ -124,23 +124,18 @@ the Linux kernel CIFS client.")
(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")