me
/
guix
Archived
1
0
Fork 0
Code

gnu: astyle: Create symlinks for .so files, too. 

The Makefile only creates files with a versioned extension (.so.3.1.0),
which are not picked up be cmake's `find_libarary()`. (Instead cmake
picks up the static .a library.)

Symlinks for .so.3 are required to avoid phase `verify-runpath` fails.

* gnu/packages/code.scm(astyle)[argumements]<modules>: New element.
  <phases>{install-libs}: Add creating symlinks.
master
Hartmut Goebel 2019-11-06 22:45:23 +01:00
parent 9c8814909a
commit 62b8ae1a91
No known key found for this signature in database
GPG Key ID: 634A8DFFD3F631DF
1 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
gnu/packages/code.scm
View File

@ -11,6 +11,7 @@
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2019 Hartmut Goebel <h.goebel@goebel-consult.de>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -597,6 +598,9 @@ Objective@tie{}C, D, Java, Pawn, and Vala). Features:
#:make-flags (list (string-append "prefix=" %output) #:make-flags (list (string-append "prefix=" %output)
"INSTALL=install" "INSTALL=install"
"all") "all")
#:modules ((guix build gnu-build-system) ;; FIXME use %default-modules
(guix build utils)
(ice-9 regex))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'configure (replace 'configure
@ -606,12 +610,22 @@ Objective@tie{}C, D, Java, Pawn, and Vala). Features:
;; Libraries are not installed by default ;; Libraries are not installed by default
(let* ((output (assoc-ref outputs "out")) (let* ((output (assoc-ref outputs "out"))
(libdir (string-append output "/lib"))) (libdir (string-append output "/lib")))
(begin (define (make-so-link sofile strip-pattern)
(mkdir-p libdir) (symlink
(for-each (lambda (l) (basename sofile)
(copy-file (regexp-substitute #f
l (string-append libdir "/" (basename l)))) (string-match strip-pattern sofile)
(find-files "bin" "lib*")))) 'pre)))
(mkdir-p libdir)
(for-each (lambda (l)
(copy-file
l (string-append libdir "/" (basename l))))
(find-files "bin" "lib*"))
(for-each
(lambda (sofile)
(make-so-link sofile "(\\.[0-9]){3}$") ;; link .so
(make-so-link sofile "(\\.[0-9]){2}$")) ;; link .so.3
(find-files libdir "lib.*\\.so\\..*")))
#t))))) #t)))))
(home-page "http://astyle.sourceforge.net/") (home-page "http://astyle.sourceforge.net/")
(synopsis "Source code indenter, formatter, and beautifier") (synopsis "Source code indenter, formatter, and beautifier")