~ruther/guix-local

257341086549ed8a02ea35d50593696127f1eed5 — Ricardo Wurmus 10 years ago 2b6b6d1
gnu: withershins: Use new "libiberty" package.

* gnu/packages/code.scm (withershins)[inputs]: Replace "gcc" with "libiberty".
   [arguments]: Simplify "find-libiberty" phase.
1 files changed, 6 insertions(+), 14 deletions(-)

M gnu/packages/code.scm
M gnu/packages/code.scm => gnu/packages/code.scm +6 -14
@@ 246,25 246,17 @@ files, but compared to grep is much faster and respects files like .gitignore,
    (build-system cmake-build-system)
    (arguments
     `(#:out-of-source? #f
       #:modules ((guix build utils)
                  (guix build cmake-build-system)
                  (ice-9 popen)
                  (ice-9 rdelim))
       #:phases
       (modify-phases %standard-phases
         (add-after
          'unpack 'find-libiberty
          (lambda _
            (let ((plugin (let* ((port (open-input-pipe
                                        "gcc -print-file-name=plugin"))
                                 (str  (read-line port)))
                            (close-pipe port)
                            str)))
            (let ((libiberty (assoc-ref %build-inputs "libiberty")))
              (substitute* "cmake/FindIberty.cmake"
                (("/usr/include") (string-append plugin "/include"))
                (("libiberty.a iberty") (string-append "NAMES libiberty.a iberty\nPATHS \""
                                                       (assoc-ref %build-inputs "gcc")
                                                       "/lib" "\"")))
                (("/usr/include") (string-append libiberty "/include"))
                (("libiberty.a iberty")
                 (string-append "NAMES libiberty.a iberty\nPATHS \""
                                libiberty "/lib" "\"")))
              #t)))
         (replace
          'install


@@ 279,7 271,7 @@ files, but compared to grep is much faster and respects files like .gitignore,
            #t)))))
    (home-page "https://github.com/cameronwhite/withershins")
    (inputs
     `(("gcc" ,gcc-4.8 "lib") ;for libiberty.a
     `(("libiberty" ,libiberty)
       ("binutils" ,binutils) ;for libbfd
       ("zlib" ,zlib)))
    (synopsis "C++11 library for generating stack traces")